XSQLDA Indexfehler ....

[Billa]

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