Ich habe jetzt folgenden Code geschrieben, da ich eure nicht verstehe und es eine einfache Lösung geben muss.
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var i: integer;
begin
if form2.RadioButton1.checked=true
then for i := 0 to 50 do
if (form1.ListView1.Items[i].Caption=edit1.text) then
showmessage('Eintrag bereits vorhanden')
else
begin with
form1.listview1.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;
Bei
(form1.ListView1.Items[i].Caption=edit1.text)
gibt er mir einen sigsegv Fehler wenn das Programm läuft und die Procedure gefordert ist.