Уроки по Delphi
Сохранение данных в реестр. На - часть 5
Удаления части в строке производится процедурой Delete:
Delete(СТРОКА,ПЕРВЫЙ_СИМВОЛ, ДЛИНА);
Для вставки части строки в другую применяем процедуру Insert
Insert(ВСТАВЛЯЕМАЯ_СТРОКА, РЕЗУЛЬТИРУЮЩАЯ_СТРОКА, НОМЕР_СИМВОЛА_ВСТАВКИ);
В любой момент можно узнать длину строки с помощью функции Length(СТРОКА), а установить длину строки можно процедурой SetLength(СТРОКА, НОВАЯ_ДЛИНА).
В pascal'е строковая переменная объявляется как тип String. Если объявляем такую переменную, значит мы будем ее использовать для работы со строками. Но в отличие от языка программирования pascal, в таких строках запрещен доступ к нулевому символу (в этом символе хранилось длина строки). Поскольку в операционной системе windows все строки имеют стандарт PChar (строки, заканчивающиеся символом #0), то тип String здесь оставлен для совместимости. Фактически длина строки String не ограничена 255 символами, как в pascal. Но применяя этот тип, вы незаметно для себя, применяете тип PChar. Все операции перевода одного типа в другой delphi производит автоматически.
Вот пример процедуры обработки строк.
procedure StringOper;
Var st1,st2,st3,st4:String; // объявление строковых переменных
i:integer; // целочисленная переменная
begin
st1:='это 1 строка';
st2:='это 2 строка';
st3:=st1+' '+st2; // результат 'это 1 строка это 2 строка'
st4:=Copy(st3,1,5); // копирование части строки. Результат 'это 1'
Delete(st4,1,4); // удаление части строки. Результат '1'
Insert(' строка',st4,2); // вставка части строки в строку st4. Результат '1 строка'
st4[1]:='2'; // изменение первого символа строки с 1 на 2
i:=Length(st4); // определение длины строки i=8
SetLength(st4,7); // установка новой длины строки. Результат '1 строк'
end;
С уважением, ведущий уроков Semen semen@krovatka.net
