Hallo Max,
du fügst eine Zeile an einer bestimmten Stelle ein und löschst sie sofort wieder. Du möchtest aber eigentlich die nachfolgende Zeile löschen.
Grüße vom marabu
Bei genauem Hinsehen willst du weder Löschen noch Einfügen:
Delphi-Quellcode:
procedure TForm1.AendernClick(Sender: TObject);
begin
with ListBox1 do
if ItemIndex < 0
then ShowMessage ('Es muss ein Eintrag markiert sein!')
else Items[ItemIndex] := Name.Text +' | ' + Ansprechpartner.Text + ' | '
+ Strasse.Text + ' | ' + Ort.Text + ' | ' + Telefon.Text
+ ' | ' + Telefax.Text + ' | ' + Mobil.Text + ' | ' + EMail.Text;
end;
Du möchtest auch keine reservierten Wörter (name) als Komponentennamen verwenden. Außerdem möchtest du auch nicht, dass der Benutzer deines Programms den Button Aendern anklicken kann, wenn kein Item ausgewählt ist.