Unbekannter Fehler in Script; Bitte um Unterstützung!

[frieder2008]

EDIT: Sorry für den Müll. War ein Formatproblem. Kann Gelöscht werden.
_____________________

Sorry, muss doch nochmal was fragen zu deinem Code: Es geht wirklich schneller, aber ich bekomme eine Exception (EAccessViolation/Zugriffsfehler) in Folge, und weiß nicht warum.

Delphi-Quellcode:

Function Reinigen (Liste:TStringlist): Tstringlist;
var
  s : string;
  i : integer;
begin
  s := liste.text;;
  for i := 1 to Length(s) do
  begin
    if s[i] in ['.', ',', ';', '?', ':', '-', '"', '(', ')', '[', ']', '<', '>', '/',
      '\', '_', '*', '+', '=', '^', CHR(096), CHR(039), CHR(127), CHR(126), CHR(124),
      CHR(130), CHR(132), CHR(133), CHR(139), CHR(145), CHR(146), CHR(147), CHR(148),
      CHR(151), CHR(155), CHR(171), CHR(180), CHR(187)] then
       s[i] := ' ';
  end;
  s:=stringreplace(s,'  ', ' ',[rfReplaceAll, rfIgnoreCase]);
  Liste.text:= s;
end;

Wenn ich das Ergebnis dann abrufe, kommt es zur Fehlermeldung:

Delphi-Quellcode:

textinhaltallfiles:= Reinigen(textinhaltallfiles);
showmessage(textinhaltallfiles.text); // Nur als Beispiel -> Hier kommt der Fehler