Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по 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;

Название: Помещение Memo-файла с ASCII-разделителем в Memo-поле таблицы
Дата публикации: 2004-03-21 (2929 Прочтено)

 
 

 

Page generation 0.035 seconds