IP Auslesen aus einer TXT

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: integer;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(ExtractFilePath(Application.ExeName)+'db.txt');
  for i := 0 to sl.Count-1 do
  ListBox1.Items.Add(Copy(sl.Strings[i], 1, pos('$', sl.Strings[i])-1) + ' - ' + Copy(sl.Strings[i], pos('$', sl.Strings[i])+1, length(sl.Strings[i])));
  sl.free;
end;