如何将db文件里面定义的memo字段读到txt文件中？

Question

function LoadTextBlob( Field: TField;                                           Lines:TStrings                           ): Boolean;
var
  BlobStream: TStream;
begin
  Result := Field.IsBlob;  if Result then
  begin
    BlobStream := Field.DataSet.CreateBlobStream(Field, bmRead);
    try
      with Lines do
      begin
        BeginUpdate;
        LoadFromStream(BlobStream);
        EndUpdate;
      end;
    finally
      BlobStream.Free;
    end;
  end;
end;

Answer 1

得到Lines以后，用Lines.SaveToFile保存就可以了