Hallo Friedrich,
ich vermute, daß der Fehler durch einen Zugriff auf das 0-te Element eines Strings ausgelöst wird:
Delphi-Quellcode:
iChar := 0; // <<--- hier bei 1 anfangen!
while (iChar <= Length(Zeile)) do
begin
ZeileNew := ZeileNew + Replace(iChar, Zeile);
end;
Der Fehler tritt dann in der Routine
MakeArrayOutOfDigit auf:
Delphi-Quellcode:
function MakeArrayOutOfDigit(Position, Length: Integer; Str: String): String;
var
i: Integer;
begin
Result := '';
for i := Position to (Position + Length) do
Result := Result + Str[i]; // <<-- hier wird es wohl knallen...
end;
Wahrscheinlich muß der Endwert hier auch "Position + Length
- 1 lauten. Überprüfe das besser auch noch einmal.
Gruß Hawkeye