Delphi-Help

Описание

procedure SetString ( var TargetString : string; BufferPointer : PChar; Length : Integer ) ;

Процедура SetString меняет длину TargetString на Length перед копированием этого количества символов из буфера, заданного переменной BufferPointer.

Длина меняется только в том случае, если строка не типа ShortString. Фактически, память под строку перераспределяется - ссылка на TargetString указывает на эту новую строку.

Пример кода

var
target : string;
source : array[1..5] of Char;
srcPtr : PChar;
i      : Integer;

begin
// Заполнение массива символов
for i := 1 to 5 do
source[i] := Chr(i+64);

// Копирование этих символов в строку
srcPtr := Addr(source);
SetString(target, srcPtr, 5);

// Показываем, что мы имеем
ShowMessage('target теперь = '+target);
end;

target теперь = ABCDE

Примечание