Textdatei durchsuchen (mit mehreren Ergebnissen)

[shmia]

Zitat von Tigerhead:

wie muss ich "gefunden" dnen definieren ?
Ich verwende keine Listbox sondern ein Memofeld, wie mache ich es da ?

Listbox.Items und Memo.Lines haben den gleichen Datentyp: TStrings.
Also wird so programmiert, dass man Listbox oder Memofeld Ratz-Fatz austauschen kann:

Delphi-Quellcode:

var
   liste: TStrings;
begin 
  liste := Memo1.Lines;  // oder liste := ListBox1.Items;

   ....
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 
        begin
           if liste.IndexOf(s) < 0 then   // ist s schon in Liste
              liste.Add(s);               // nein: also dazu
        end;
   end; 
end;