Errror al copiar memo.

[ecfisa]

Hola tarco35.

Código Delphi [-]
procedure CopyBlobFields(SourceDataSet, TargetDataSet: TDataSet;
  const SourceFieldName, TargetFieldName: string);
var
  Stream: TStream;
begin
  Stream := TMemoryStream.Create;
  try
    TBlobField(SourceDataSet.FieldByName(SourceFieldName)).SaveToStream(Stream);
    Stream.Seek(0, soFromBeginning);
    TargetDataSet.Edit;
    TBlobField(TargetDataSet.FieldByName(TargetFieldName)).LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
begin
  CopyBlobFields(DataSet1, DataSet2, 'BLOB_FIELD', 'BLOB_FIELD');
  ...

Saludos