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

Delphi , Базы данных , Поля

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

В статье описывается процедура getTextBuf и ее использование в программировании на языке Pascal для копирования текста из одного поля редактирования в другое.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Поля ::