@hoika:
Ich habe mal folgende Zeilen auskommentiert:
Delphi-Quellcode:
setlength(Rechte,length(berechtigung));
for x:=0 to length(Rechte) do
Begin
Rechte[x]:=strtoint(copy(berechtigung,x,1));
end;
Bisher trat der Fehler nicht nocheinmal auf (Daumen drücken, dass das auch so bleibt).
Eigentlich sollte doch aber hier kein Fehler vorliegen, oder sehe ich das falsch?
Brauche echt eure Hilfe...
MFG
Steffen