Работа Со Строками

[Sascha]

В этом уроке мы познакомимся с ф-ями которые позволяют работать со строками в Delphi.

Функция Length
Эта функция возвращает длину строки. У нее есть только один параметр — строка, длину которой надо вернуть.

function Length(S): Integer;

Пример:

var
Str:string;
Index:Integer;
begin
Str:= ‘Я программист’;
index:= Length(Str);
Edit1.Text:=IntToStr(index);
end;

В данном примере мы объявляем переменную Str типа string (строка) и index типа integer (число).
К переменной Str мы присваиваем значение «Я программист«. После этого к переменной index присваивается длина строки Str. Результатом будет являться, записанное число в Edit1, которое является длинной строки Str.

Функция Сору
Эта функция возвращает указанный отрывок строки. У нее есть три параметра:

Строка, из которой нужно получить отрывок текста.
Начальный символ.
Количество нужных символов.

function Сору(S; Index, Count: Integer): string;

Пример:

var
Stri:string;
Str2:string;
begin
Stri: =’Программист — это не легко’;
Str2:= copy(Stri, 1, 11);
Edit1.Text:=Str2;
end;

В данном примере мы объявляем переменную Stri типа string (строка) и Str2 типа string.
Переменной Stri мы присваиваем значение «Программист — это не легко«. После этого переменной Str2 присваивается копируемое значение, т.е с 1 буквы по 11 включительно. А в Edit1 выводится результат, которым является скопированное слово «Программист«.

Функция Delete
Эта функция удаляет кусок текста из указанной строки. У нее есть три параметра:

Строка, из которой нужно удалить отрывок текста.
Начальный символ, начиная с которого будут удаляться символы.
Количество символов для удаления.
procedure Delete(var S: string; Index, Count:Integer);
Пример:

var
Stri: string;
begin
Strl:= ‘Программист — лучший идиот’;
Delete(Stri, 20, 27);
end;

Все тоже самое что и в предыдущих примерах. Объявляем переменную Stri типа string и присваиваем ей значение «Программист — лучший идиот«. А функция Delete делает свое дело. Удаляет с 20 буквы по 27, и остается «Программист — лучший«.

Функция Pos
Эта функция ищет указанные символы в строке, или проще говоря — подстроку. Если заданный параметр находится, то выводится порядковый номер,начиная с которого найдена нужная строка.
У функции два параметра:

Строка, которую надо искать.
Строка, в которой надо искать.

function Pos(Substr: string; S: string): Integer;

Пример:

var
Stri:string;
index: integer;
begin
Stri:=’Я люблю Delphi’;
index:=Pos(‘Delphi’, Stri);
Edit1.text:=IntToStr(index);
end;

В результате все этого, в Edit1 выведется порядковый номер слова Delphi, т.е — 9.

Функция Insert
Эта функция вставляет одну строку в другую, начиная с указанного символа.
У нее есть три параметра:

Строка, которую надо вставить.
Строка, в которую надо вставить.
Позиция, куда надо вставить.

procedure Insert(Source: string; var S: string; Index: Integer) ;

Пример:

var
Strl:string;
index: integer;
begin
Strl:=’Я группу Delphi Вконтакте’;
Insert(‘зовут’, Strl, 3);
end;

В результате функция Insert вставит слово «зовут» в значение переменной Strl на 3 позиционный номер.