Hallo zusammen,
kann mir einer erklären, warum folgender Code nicht geht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
tmpInt : Integer;
begin
tmpInt := -1;
if tmpInt in [-1..2] then
ShowMessage('1');
end;
Dieser aber geht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
tmpInt : Integer;
begin
tmpInt := -1;
if tmpInt in [0..2] then
ShowMessage('1');
end;
Ein Integer kann ja schließlich negativ sein...
Vielleicht habe ich aber auch ein Denkfehler?!
Beim oberen Code kommt die besagte Fehlermeldung, weil ich in eckigen Klammern eine -1 übergebe.
Gruß
Alex