Textdatei durchsuchen (mit mehreren Ergebnissen)

[BrunoT]

Hi,

mit einer For- Schleife durch die listbox gehen und nur dann add aufrufen, wenn der String noch nicht in der Listbox ist.

mfg

BrunoT

Delphi-Quellcode:

gefunden:=false;
For i:=0 to Listbox.Items.Count-1 do
  if Listbox.Items[i]=s then
  gefunden:=True;
If not gefunden then
Listbox.Items.add(s);

Ungetestet