Помещение Memo-файла с ASCII-разделителем в Memo-поле таблицы

Советы » Записи, индексы, поля, закладки » Помещение Memo-файла с ASCII-разделителем в Memo-поле таблицы

Вам нужно использовать процедуру 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com