@cookie
Danke, ich habe das mit true und false geändert.
Den Code habe ich auch angepasst, doch gibt es ein kleines Problem. Wenn edit1.text nicht dem letzten Eintrag der Listview entspricht kommt die Meldung 'Eintrag bereits vorhanden' und wird aber trotzdem der Listview hinzugefügt mit der erfolgreichen Mitteilung. Wenn edit1.text dem letzten Eintrag entspricht funktioniert es perfekt.
@himitsu
Durchsuche ich nicht schon am Anfang die Liste?
Wie genau soll ich gefunden bzw nicht gefunden auswerten?
Mit IndexOf habe ich keinen Ansatz gefunden.
Ist das ein Problem, wenn ich es in Form2 lasse, läuft das Programm dann schlechter?
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var i: integer;
begin
if RadioButton1.checked
then for i := 0 to Form1.Listview1.Items.Count - 1 do
if not (form1.ListView1.Items[i].Caption<>edit1.text) then
showmessage('Eintrag bereits vorhanden');
if (form1.ListView1.Items[i].Caption<>edit1.text) then
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;