Mega Code Archive

 

Categories / Delphi / Forms

 

Copying a information from one memo field to another using TBlobStream

Title: Copying a information from one memo field to another using TBlobStream Question: How do I copy information from one memo field in one table to another memo field in another table? Answer: Here's an example using a TBlobStream: procedure TForm1.Button1Click(Sender: TObject); var BS1, BS2: TBlobStream; begin BS1 := TBlobStream.Create(Table1Notes,bmRead); try Table2.Edit; BS2 := TBlobStream.Create(Table2MyBlob,bmReadWrite); try BS2.CopyFrom(BS1,BS1.Size); finally BS2.Free; end; finally BS1.Free; end; Table2.Post; end;