скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

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



Google  
 

Помещение 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 © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook