AnsiIndexText() funktioniert nicht

[DoktorD]

Habe eben nochmal rumgespielt und nun hab ich irgendwie hinbekommen, aber ich verstehe das irgendwie noch nicht.

Also wenn ich es so mache gehts:

Delphi-Quellcode:

var
  INIText : String;
  ComPort : Integer;
begin
      INItext := '3';
      case AnsiIndexText((INItext), ['1', '2', '3', '4', '5', '6', '7', '8', '9']) of
      0: ComPort := 1;
      1: ComPort := 2;
      2: ComPort := 3;
      3: ComPort := 4;
      4: ComPort := 5;
      5: ComPort := 6;
      6: ComPort := 7;
      7: ComPort := 8;
      8: ComPort := 9;
      end;
   Label1.Caption := IntToStr(ComPort);
end;

und wenn ich es so mache nicht:

Delphi-Quellcode:

var
  INIText : String;
  ComPort : Integer;
begin
      INItext := '3';
      case AnsiIndexText((INItext), ['1', '2', '3', '4', '5', '6', '7', '8', '9']) of
      0: ComPort := 1;
      1: ComPort := 2;
      2: ComPort := 3;
      3: ComPort := 4;
      4: ComPort := 5;
      5: ComPort := 6;
      6: ComPort := 7;
      7: ComPort := 8;
      8: ComPort := 9;
      end;
   //Label1.Caption := IntToStr(ComPort);
end;

Geht das nur, wenn ich den Integerwert ComPort verwende? Weil wenn ich ihn weglasse gehts nicht.