Hola José.
Cita:
Empezado por Jose Roman
Código Delphi [-]
...
procedure TwMain.RichEditToBlob(DataSet: TDataSet; const aFieldName: string;
RE: TRichEdit);
var
Stream: TStream;
begin
Stream := TMemoryStream.Create;
try
RE.Lines.SaveToStream(Stream);
Stream.Position := 0;
TBlobField(DataSet.FieldByName(aFieldName)).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
end.
|
No revisé todo el código, pero estoy viendo que anulas la edición y el guardado del campo en la función
RichEditToBlob... y obviamente no se va a almacenar.
Saludos