Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#1

Komische Fehlermeldung mit Registry und ComPort

  Alt 11. Aug 2002, 12:38


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.
  Mit Zitat antworten Zitat