Работа со строками и записями

program Project1;
var
	Str1, Str2, Str3, Str4 : String;
	word : String;
	K, L : integer;
begin
	Str1 := ’ Ivanov ’;
	Str2 := ’ Sergey ’;
	Writeln ( ’ Stroka   Str1 - ’, Str1 );
	Writeln ( ’ Stroka   Str2 - ’, Str2 );
//объединение 1-й и 2-й строк
Str3 := Str1+ ’ _ ’+Str2;
//определение длины строки
L:= Length ( Str3 );
Writeln ( ’ Stroka _ Str1+Str2 _ _ ’, Str3 );
Writeln ( ’ Dlina _ s t r o k i= ’,L );
Str4 := ’ v ’;
//поиск вхождения буквы v в строке 3
K:=Pos ( Str4, Str3 );
Writeln ( ’ 1_ r a z _bukva_V_na_ p o z i c i i _ ’,K);
//копирование в переменную Str4 6 символов, начиная с 8-го, из строки
//Str3
Str4 :=copy ( Str3, 8, 6 );
Writeln ( ’ Str4= ’, Str4 );
//поиск первого слова - копирование в переменную word символов
//из строки Str3, начиная с первого символа и до пробела
word:=Copy( Str3, 1, Pos ( ’ _ ’, Str3 ) _ 1);
Writeln ( ’1_e _ s l o v o _ __ ’, word );
//удаление из строки Str3 2-х символов, начиная с 5-й позиции
d e l e t e ( Str3, 5, 2 );
Writeln ( ’ Str3 _ p o s l e _ u d a l e n i y a _ simvolov _ _ ’, Str3 );
Readln;
end.

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
	Classes, SysUtils, LResources, Forms, Controls, Graphics,
	Dialogs, StdCtrls;
type
	{ TForm1 }
	TForm1 = class (TForm)
	Button1 : TButton;
	Edit1 : TEdit;
	Label1 : TLabel;
	Label2 : TLabel;
	ListBox1 : TListBox;
	Memo1 : TMemo;
	procedure Button1Click ( Sender : TObject );
	private
		{ private declarations }
	public
		{ public declarations }
end;
var
	Form1 : TForm1;
implementation
	{ TForm1 }
procedure TForm1. Button1Click ( Sender : TObject );
var Str1, Str2, Str3 : String;
	i : integer;
	word : String;
	x : array [ 0.. 100 ] of real;
	Sum: real;
begin
//чтение строки с диалогового окна из поля Edit1
	Str1 := Edit1. text;
//вывод исходной строки в диалоговое окно
	Str2 := ’Исходная строка ’;
	ListBox1. Items. Add( Str2 );
	ListBox1. Items. Add( Str1 );
	//строку Str1 разобьем на подстроки,в которых
//хранятся считанные строки-числа
	//если первый символ - пробел, то удаляем его
	if Str1 [ 1 ] = ’   ’ then Delete ( Str1, 1, 1 );
	//проход по строке и замена двойного пробела одинарным
//для этого организовывается следующий цикл:
//пока в строке Str1 есть вхождение подстроки, состоящей из
//двух пробелов, удаляется один символ с начальной позиции
	//вхождения подстроки, т. е. удаляется первый пробел
	while Pos ( ’   ’, Str1 ) > 0 do
		Delete ( Str1, Pos ( ’   ’, Str1 ), 1 );
	//для корректной обработки текста сделаем последним
	//символом пробел
	if Str1 [ Length ( Str1 ) ] <> ’   ’ then
		Str1 := Str1+ ’   ’;
//вывод в диалоговое окно изменённой строки
//с одним пробелом между числами
	Str2 := ’Строка после удаления пробелов ’;
	ListBox1. Items. Add( Str2 );
	ListBox1. Items. Add( Str1 );
	i : = 0; Sum: = 0;
//организовываем цикл, в котором выделяем подстроку с числом
//затем запоминаем число в массив,
//а подстроку из строки удаляем
	repeat
//выделение строки-числа (до пробела)
	word:=Copy( Str1, 1, Pos ( ’   ’, Str1 ) - 1);
//преобразование строки в вещественное число и запись его
//в i-ый элемент массива
	x [ i ] : = StrToFloat (word);
	sum:=sum +x [ i ];
	inc ( i );
//удаление из строки Str1 найденной подстроки
	Delete ( Str1, 1, Length (word)+ 1);
//вывод в ListBox1 строки-числа
	ListBox1. Items. Add(word);
//делаем до тех пор, пока длина строки не будет равна 0
	until Length ( Str1 ) = 0;
//вывод рассчитанной суммы элементов массива и количества
	Str2 := ’Summa = ’+FloatToStr (sum );
	Str3 := ’ Kolichestvo elementov  = ’+IntToStr ( i );
	ListBox1. Items. Add( str2 );
	ListBox1. Items. Add( str3 );
end;
initialization
	{$I unit1.lrs}
end.