ListBox einträge ändern

[patti]

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