Eintrag nur hinzufügen wenn nicht in Listview vorhanden

[LordGinn]

Ich habs geschafft. ^^

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var i: integer; vorhanden: boolean;
begin
   vorhanden:=false;
   for i := 0 to Form1.Listview7.Items.Count - 1 do
    if (form1.ListView7.Items[i].Caption=edit1.text)
    and (form1.ListView7.Items[i].subitems[2]=edit4.text)then vorhanden:=true;
    if vorhanden=true then showmessage('Eintrag ist bereits vorhanden');
    if vorhanden=false then
    begin with
    form1.listview7.items.add do begin
    caption:=edit1.text;
    subitems.add(edit2.text);
    subitems.add(edit3.text);
    subitems.add(edit4.text);
    subitems.add(edit5.text);
    showmessage('Eintrag wurde hinzugefügt');
    end;
    end;
end;

[mkinzler]

Autsch!
Falsch:

Delphi-Quellcode:

if vorhanden=true

richtig:

Delphi-Quellcode:

if vorhanden

Die ganze Zwischenvariable ist aber überflüssig. wenn Du die Einfügeaktion in den else Zweig verlegst.

[LordGinn]

Danke mkinzler

Von der Logik her müsste es klappen, aber es funktioniert mit else nicht.

Ich bin froh, dass es funktioniert und lass es deshalb so bestehen.