Советы по Delphi

       

Копирование текста DBMemo


...да, вы забыли упомянуть перед этим о TMemoField. Звучит зловеще (как вы заметили), но это не трудно. Вся хитрость заключается в создании TStringList и перекачивания в него данных для последующего использования. Вот простая процедура без проверок и уведомлений об ошибках, использующая модуль WinCRT:

procedure TForm1.Button1Click(Sender: TObject);var I: integer;StringList: TStringList;beginStringList := TStringList.Create;tryStringList.Assign(Table1Memo);for I := 0 to StringList.Count-1 dowriteln(StringList[I])finallyStringList.Freeendend;

[000374]



Содержание раздела