Re: Styledtext in rtf wandeln

[Stefan Sicurella]

Hi,

also ich lese nun eine Textdatei und prüfe auf RTF.
Da ich das aber in einem String haben muss schreibe ich die RTF Data  
in eine Textarea und lese es dann in den String.
Eine andere Möglichkeit habe ich bisher nicht gefunden.
Auf jeden Fall kann ich so prüfen ob es RTF ist oder eben nicht....
  file=GetFolderitem("Daten").Child("Zatext1")

  fileStream = file.OpenAsTextFile
  if fileStream <> nil  then
    rtfStr = fileStream.ReadAll
    if InStr(rtfStr,"\rtf")>0 then // ist ein RTF Text
      splash.TextArea1.styledText.RTFData=rtfstr
      ZaText1=splash.TextArea1.Text
    else // kein RTF
      ZaText1= DefineEncoding(rtfStr,Encodings.MacRoman)
    end if
    fileStream.close
  end if


Gruß

Stefan

Hi,

hat jemand eine Idee wie ich eine Styledtext datei einlese und in  
rtf wandle?
und wie erkenne ich ob es StyledText ist oder schon rtf?

Bin für jede Idee dankbar


Gruß

Stefan