Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Вам нужно использовать процедуру getTextBuf. Вот пример из электронной справки:
Данный пример при нажатии пользователем на кнопку копирует текст из поля редактирования в строку с терминирующим нулем, и помещает эту строку в другое поле редактирования.
procedureTForm1.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
;