Delphi World - Помещение Memo-файла с ASCII-разделителем в Memo-поле таблицы
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Помещение 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;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования