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;