Уроки по 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




Содержание  Назад  Вперед