Вам нужно использовать процедуру getTextBuf. Вот пример из
электронной справки:
Данный пример при нажатии пользователем на кнопку копирует текст
из поля редактирования в строку с терминирующим нулем, и помещает
эту строку в другое поле редактирования.
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: PChar;
Size: Byte;
begin
Size := Edit1.GetTextLen; {Получаем длину строки в Edit1}
Inc(Size); {Добавляем место для терминирующего нуля}
GetMem(Buffer, Size); {Создаем динамическую переменную Buffer}
Edit1.GetTextBuf(Buffer,Size); {Помещаем Edit1.Text в Buffer}
Edit2.Text := StrPas(Buffer); {Преобразуем Buffer в строку паскалевского типа}
FreeMem(Buffer, Size); {Освобождаем память, распрелеленную для Buffer}
end;
|
|