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;