How to read a TMemoField into a string

Mirror

How to read a TMemoField into a string (Views: 703)

Problem/Question/Abstract:

How to read a TMemoField into a string

Answer:

var
  stream: TBlobStream;
  theString: string;
begin
  stream := TBlobStream.Create(Table1.FieldByName('Comments') as TMemoField, bmRead);
  try
    SetLength(theString, stream.size);
    stream.Read(theString[1], stream.size);
  finally
    stream.Free;
  end;
end;

<< Back to main page