На главную
Подписка
Новости


Рейтинг@Mail.ru











Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Разработка баз данных / Помещение 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 ©   "DELPHI WORLD"   E-mail:   delphiworld@mail.ru  http://www.delphiworld.narod.ru
Источник получения информации: http://www.delphiworld.narod.ru
Hosted by uCoz