treeview items nicht doppelt einfügen!

[St.Pauli]

Mach doch einfach den Code vor dein Einfügen..

Delphi-Quellcode:

VAR i : integer;
    Vorhanden : boolean;
    MeinNeuerEintag : string;
begin
  Vorhanden := False;

  for i := 0 to TreeView1.Items.Count-1 do
    begin
      IF (TreeView1.Items[i].Text = MeinNeuerEintrag) THEN
        Vorhanden := True;
    end;

  IF NOT Vorhanden THEN
  ...
end;

Edit1: Namen geändert