Whats that ?!?!??!? DELPHI spinnt !!

[Luckie]

Kompilier das mal und lass es laufen:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
  sl : TSTringlist;
  i : Byte;

begin
 sl := Tstringlist.Create;
 for i := 0 to sl.Count - 1 do
 begin
   writeln(i);
 end;
 sl.Free;
 readln;
end.

Die Schleife läuft von 0 bis -1. Wo ist da dein Problem? Da i erst -1 wird, wenn es zu einen Überlauf kommt, läuft die Schleife eben bis dahin. In diesem Fall bis 255.

Und wähl bitte einen aussagekräftigeren Titel.