Ich würde es so machen:
Delphi-Quellcode:
procedure TForm1.AendernClick(Sender: TObject);
var n : integer;
begin
try
if ListBox1.ItemIndex > -1 then
begin
n := ListBox1.ItemIndex;
ListBox1.Items[n] := Name.Text + ' | ' + Ansprechpartner.Text + ' | '+Strasse.Text + ' | ' + Ort.Text + ' | ' + Telefon.Text + ' | '+Telefax.Text + ' | ' + Mobil.Text + ' | ' + EMail.Text;
end
else
ShowMessage('Es müssen Einträge markiert sein!');
except
ShowMessage('Falsche Eingaben!');
end;
end;
(Ungetestet)
Und ändere mal den Namen des Edits "Name". Das ist ein reservierter Bezeichner!
Patti