Hallo,
Zitat:
also ein bisschen hat es was gebracht, aber nicht viel..
Du stocherst also etwas rum und es bringt nicht viel.
Warum findest du nicht erst mal raus, was so bremst ?
Entweder durch einen Profiler oder "auskommentieren".
Ich würde z.B. erst mal das ganze "Wort suchen" durch
"kompletten String nehmen" ersetzen und testen.
#Update#
Delphi-Quellcode:
function gibmirLemma(s:string; sep:char) :string;
var
t: Tstringlist;
begin
//hier muss jetzt das zweite Wort rausgefiltert werden
t:= tstringlist.create;
try
extractstrings([char(sep)], [' '], pchar(s), t);
result:= t.Strings[2];
finally
t.free;
end;
end;
Wieso muss hier eine StringList erzeugt werden ?
OK, das ominöse
extractstrings will das haben.
Wie sieht denn der Code
extractstrings aus ?
[char(sep)] ein offenes Array mit nur einem Zeichen, wozu dann ein array ?
Wie es aussiehtst, missbrauchst du die StringList hier,
du gibst sie ja auch wieder frei.
Heiko