Nachdenken lohnt sich
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
vorhanden : boolean;
begin
vorhanden := false;
for i := 0 to ListView1.Items.Count - 1 do begin
if ListView1.Items[i].SubItems[1] = Edit8.Text then begin
vorhanden := true;
break;
end;
end;
if vorhanden = true then begin
Edit7.Text := ListView1.Items[i].SubItems[0];
Edit9.Text := ListView1.Items[i].SubItems[2];
end else
ShowMessage('Eintrag existiert nicht!');
end;
Somit bedanke ich mich auch bei allen für die indirekte Hilfe
