Añadir Memo a DBMEmo

[tarco35]

Hola, como hago para añadir el contenido de un MEMO al final de un campo DBMemo (que ya tiene datos) de una tabla paradox 7 con delphi 6.

Gracias.

[ecfisa]

Hola tarco35.

Código Delphi [-]
procedure AddMemoToBlob(DataSet: TDataSet; const aFieldName: string; Memo:TMemo);
var
  Stream: TStream;
  i   : Integer;
  str : string;
begin
  Stream := TMemoryStream.Create;
  try
    TBlobField(DataSet.FieldByName(aFieldName)).SaveToStream(Stream);
    Stream.Seek(0, soCurrent);
    for i:= 0 to Memo.Lines.Count - 1 do
    begin
      str := Memo.Lines[i] + #10; // (#10 si deseas salto de linea)
      Stream.Write(str[1], Length(str));
    end;
    Stream.Seek(0, soFromBeginning);
    DataSet.Edit;
    TBlobField(DataSet.FieldByName(aFieldName)).LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
begin
  AddMemoToBlob(DataSet1, 'CAMPO_BLOB', Memo1);
  ...

Saludos

[tarco35]

Perfecto... muchas gracias por tu aporte..