How to read a TMemoField into a string (Views: 701)
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; |