EIntOverflow bei Generierung von Zeichenketten

[einbeliebigername]

Hallo,

dass das überhaupt einen String mit zwei Zeichen generiert ist ein Wunder.

Zitat von luke2:

      s := s + #97;

An der Stelle wird ein neuer String generiert. P Zeigt aber noch auf den Alten.

Besser so:

Delphi-Quellcode:

var s:string;i:integer;j:integer;
 begin
   s := 'a'; // gleich a reinschreiben, dann kann man sich den Kommentar sparen 
   j:= 1;
   for i := 1 to 5000 do
   begin
     writeln(s);
     if s[j] = 'z' then      begin
       s := s + 'a';
       inc(j);
     end
     else
       inc(p[j]); // Achtung: ungetestet
   end;
   writeln('ok');
   readln
 end.

einbeliebigername.

[edit]: himitsu danke, bin wohl noch nicht wach. Fehler j:= 0; beseitigt.