Indy 10: Verwaltung von Ports

[DataCool]

Hi,

Delphi-Quellcode:

procedure LoadPortsFromFile2ListBox(Const AFileName : String);
Var i : Integer;
    strLTxt : TStringList;
begin
  strLTxt := TSTringList.Create;
  try
    myPortListBox.items.clear;
    if not FileExists(AFileName) then 
      exit;
    strLTxt.LoadFromFile(AFileName);
    for i := 1 to strLTxt.Count - 1 do
      myPortListBox.items.add(strLTxt[i]);
  finally
    strLTxt.free;
  end;
end;

Greetz Data