Einzelnen Beitrag anzeigen

LordGinn

Registriert seit: 13. Okt 2014
16 Beiträge
 
FreePascal / Lazarus
 
#20

AW: Eintrag nur hinzufügen wenn nicht in Listview vorhanden

  Alt 19. Okt 2014, 11:59
Danke himitsu

Ich habe jetzt die Radiobuttons entfernt und dafür auf der Form1 mehrere Buttons erstellt, das hat einiges vereinfacht.
Jetzt hat jede Listview einen eigenen Button fürs Hinzufügen und die Überprüfung funktioniert.

Ich muss dann nur noch herausfinden, wie man folgendes schreibt:
Wenn edit1.text und edit4.text in der selben Zeile der Listview auftauchen ist vorhanden true.

Delphi-Quellcode:
procedure TForm7.Button1Click(Sender: TObject);
var i: integer; vorhanden: boolean;
begin
   vorhanden:=false;
   for i := 0 to Form1.Listview2.Items.Count - 1 do
    if (form1.ListView2.Items[i].Caption=edit1.text) then vorhanden:=true;
    if vorhanden=true then showmessage('Eintrag ist bereits vorhanden');
    if vorhanden=false then
    begin with
    form1.listview2.items.add do begin
    caption:=edit1.text;
    subitems.add(edit2.text);
    subitems.add(edit3.text);
    subitems.add(edit4.text);
    showmessage('Eintrag wurde hinzugefügt');
    end;
    end;
end;
  Mit Zitat antworten Zitat