Wooohooo
Fehler gefunden!
Ich glaube ich hab den kompletten Source umgewühlt und an allen möglichen Stellen gesucht und einfach nichts gefunden. Bis ich dann nochmal über die Schleifen geschaut habe. Sinn des folgenden loops war es das letzte Vorkommnis zu finden:
Delphi-Quellcode:
while Pos('abcde',TempStr)>0 do
begin
Pos1:=Pos('abcde',TempStr);
Pos2:=PosEx('xyz',TempStr,Pos1+5);
myResultStr:=Copy(TempStr,Pos1+5,Pos2-(Pos1+5));
TempStr:=Copy(TempStr,Pos2,Length(TempStr));
end;
Was ich dabei nicht bedacht hatte ist das ich eine Endlosschleife habe sobald Pos2 nicht gefunden wurde (Pos2=0)! Deswegen habe ich den Code um folgende Zeile erweitert.
if Pos2=0 then break;
Okay soviel dazu... Noch eine kleine Anmerkung: Auf meiner Suche nach möglichen externen Fehler Analyse Tools bin ich auf den
ASMProfiler gestoßen. Finde das Tool klasse und erwähnenswert -> Ich werde es in Zukunft weiterhin einsetzen
Ciao