Einzelnen Beitrag anzeigen

Stephan

Registriert seit: 28. Jun 2002
Ort: Tuttlingen
245 Beiträge
 
Delphi 2007 Professional
 
#3

Re: in RichEdit Formatierung entfernen

  Alt 31. Mär 2005, 19:43
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.
viele Grüße

Stephan
  Mit Zitat antworten Zitat