Komische Fehlermeldung mit Registry und ComPort

[Daniel B]

:hi:

damit Lese ich die Verfügbaren ComPorts des Rechners aus der Reg und zeige sie dann in einer ComboBox an. Wenn ich nun das Einstellungen-Fenster öffne dann bekomme ich folgenden Fehler: 'M1' ist kein gültiger Integerwert.

Auf dem Hauptformular wird folgende Zeile markiert:

Code:

procedure TForm1.MenueEinstellungenClick(Sender: TObject);
//Das Einstellungen-Fenster öffnen
begin
  Einst.ShowModal; <-------------------
end;

Dieses M1 sagt mir überhaupt nichts.

Code:

procedure TEinst.FormShow(Sender: TObject);
//ComPorts ermitteln und in ComboBox anzeigen
var
  i: integer;
  s: string;
  reg: TRegistry;
  sl: TStrings;
  ini: TIniFile;
begin
//  ShowMessage('Bei änderungen, kann gleich mit den neuen Werten weiter gearbeitet' + #13 + 'werden. Das Programm muss nicht neu gestartet werden!');
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKeyReadOnly('hardware\devicemap\serialcomm');
  sl := TStringList.Create;
  reg.GetValueNames(sl);
  CBPort.Items.Clear;
  for i := 0 to sl.Count -1 do
  begin
    CBPort.Items.Add(reg.ReadString(sl.Strings[i]));
  end;
  sl.Free;
  reg.CloseKey;
  reg.Free;
  CBPort.ItemIndex := StrToInt(AnsiLastChar(CPPort) -1);
end;

CBPort ist die ComboBox wo die angezeigt werden.
CPPort ist eine Globale Stringvariable.

[Christian Seehase]

Moin Daniel B,

der Fehler dürfte in der vorletzten Zeile liegen:

Code:

CBPort.ItemIndex := StrToInt(AnsiLastChar(CPPort) -1[color=red])[/color];

Code:

CBPort.ItemIndex := StrToInt(AnsiLastChar(CPPort)[color=red])[/color] -1;

[Daniel B]

:hi: Christian,

stimmt, jetzt gehts. Vielen Dank. http://n-digital.info/Bilder/daumen.gif