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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

{/codecitation}

Добавить комментарий