Hi,
Ich hab mir folgende Funktion gebastelt:
Delphi-Quellcode:
function TForm1.RTFtoText(rtf:string):string;
var
temp_richedit: TRichedit;
temp_str: string;
ss: TStringStream;
begin
ss := TStringStream.Create(rtf);
temp_richedit := TRichEdit.Create(nil);
try
temp_richedit.Lines.LoadFromStream(ss);
result := temp_richedit.Lines.Text;
finally
ss.free;
temp_richedit.Free;
end;
end;
Ich erhalte allerdings folgenden Fehler:
31.03.2005 19:42:19 : EInvalidOperation - Element '' hat kein übergeordnetes Fenster
das Problem scheints chon bei temp_richedit.Lines.LoadFromStream(ss) aufzutreten.