Auflistung aller 'verfügbaren' Comports

[Robert Marquardt]

So ist besser:

Delphi-Quellcode:

var
  i:integer;
begin
  ComPort.Items.BeginUpdate;
  ComPort.Items.Clear;  //combobox
  for I := 1 to 30 do
    begin
    iComNum := I;
    if OpenCom(False) then
    begin
      ComPort.Items.Add(Format('COM%d',[I]));
      CloseCom;
    end;
  end;    // for
  ComPort.Items.EndUpdate;
  ComPort.ItemIndex := ComPort.Items.Count-1;
end;