How to read a TMemoField into a TMemo (Views: 31)
Problem/Question/Abstract: I would like to read the lines from a memo field into my program using FieldByName().As. There does not seem to be any way to move the memo into a TString or TStringList or to access the memo field on a line by line basis. You can use a String or Variant. When you do this you get just one long composite string. Can you help? Answer: Almost every TStrings descendant has a LoadFromStream method: procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); var TB: TBlobStream; begin with TDataSource(Sender).DataSet do if (State = dsBrowse) then begin TB := TBlobStream.create(FieldByName('Event_Description') as TBlobField, bmRead); Memo1.Lines.LoadFromStream(TB); {or ListBox1.items.LoadFromStream(TB);} {or StringList1.LoadFromStream(TB);} TB.Free; end; end; |