Textdatei durchsuchen (mit mehreren Ergebnissen)

[Gast]

Hallo,

ich habe vor eine bestimmte Text-Datei zu durchsuchen nach Steam IDs. Diese müssen 2 mal : beinhalten und das klappt auch alles soweit.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
function CountOfChar(s:string;AChar:Char):integer;
var _i : integer;
begin
Result := 0;
  for _i := 1 to Length(s) do
   begin
    if s[_i] = AChar then
     inc(Result);
   end;
end;

begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Valve\Steam',FALSE);
Path :=  reg.ReadString('InstallPath');
sl := TStringList.Create;
sl.LoadFromFile(Path+'/Steam.log');
sl.CaseSensitive := FALSE;
for line := 0 to sl.Count -1 do
begin
  la :=  Pos(' for ',sl.Strings[line]);
  if la <> 0 then
   begin
    s := Copy(sl.Strings[line],la+5,length(sl.Strings[line])-la+5);
    if Pos(' ',s) = 0 then   // prüft ob s leerzeichen hat
        if CountOfChar(s,':') = 2 then  // Steam Id muss zwei : haben
        Edit1.Text := s;
   end;
end;
end;

Doch in dieser Datei stehen auch mal 5 Steam IDs drin und wie schaffe ich es nun, dass alle verschiedenen STeam IDs ausgelesen werden ? Wäre cool wenn mir jemand helfen würde

Grüße!