An mehreren Stellen bei verschiedenenen Tabellen immer nach dem Muster:
ParamByName('TABELLE_FELDNAME').asString := GetRTFString( edText )
edText ist ein TRichEdit
Delphi-Quellcode:
function GetRTFString(ARichEdit: TRichEdit): string;
var
AStream: TMemoryStream;
begin
Result := '';
AStream := TMemoryStream.Create;
try
ARichEdit.Lines.SaveToStream(AStream);
AStream.Position := 0;
if AStream.Size > 0 then
begin
SetLength(Result, AStream.Size);
AStream.ReadBuffer(Result[1], AStream.Size);
end;
finally
AStream.Free;
end;
end;
Klappt nur für Bilder nicht. Aber das liegt am TRichedit und wird auch nicht gebraucht