Wie ich in der vorherigen mail schon schrieb, bin ich dabei eine
Funktion zu beschleunigen. Zum Teil ist mir das schon gelungen. Jetzt
möchte ich noch die Erzeugung einer RTF-Datei beschleunigen.
Gegeben ist ein Editfield (Styled). Der darin enthaltene Text ist mit
diversen Auszeichungen (fett, unterstrichen) ausgezeichnet und auch noch
an etlichen Stellen eingefärbt. Das Ganze soll als RTF-Datei
ausgegeben werden.
Derzeit mache ich das so:
f=GetSaveFolderItem(FileTypesAll.All,"Test.rtf")
if f<>nil then
s1=TextOutputStream.Create(f)
if s1<>nil then
s1.Write EditField2.StyledText.RTFData
s1.Close
end
end
In dem Editfield befindet sich der Text aus ca. 10000 Zeilen einer
Listbox. Ist also durchaus etwas umfangreicher. Das Sichern dauert bei
mit ca. 25 Minuten(!). In dieser Zeit macht mein Programm nichts :-(
Nicht mal ein Barberpole dreht sich. Besteht die Möglichkeit, die
Ausgabe zu beschleunigen?
Wenn ich die Ausgabe in einen eigenen Thread verpacke, wird sich dann
wenigstens der Barberpole drehen?
Da ich noch mit RS2010r1 arbeite, ist die neue Version hier schneller
geworden?
Kennt jemand eine Klasse, die schneller und/oder besser als die
eingebaute Funktion ist?
MfG, Metti.
