Помещение 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;

[001214]

Содержание раздела