Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#4

AW: TStringList ignoriert doppelte Einträge nicht

  Alt 6. Sep 2010, 17:42
Nur manuell, indem du vor dem Einfügen selbst in einer Schleife prüft, ob der Eintrag bereits enthalten ist.

Also grob aus dem Kopf:
Delphi-Quellcode:
Included := false;
for i := 0 to Liste.Count - 1 do
begin
  if Liste[i] = 'Eintrag 1then
  begin
    Included := true;
    break;
  end;
end;

if not Included then
  Liste.Add('Eintrag 1');
Natürlich noch schön als Funktion/Methode verpacken und gut ist.

Geändert von Matze ( 6. Sep 2010 um 17:45 Uhr)
  Mit Zitat antworten Zitat