Delphi-Quellcode:
procedure TForm1.AendernClick(Sender: TObject);
var
tmp:integer;
begin
try
if ListBox1.ItemIndex<>-1 then
begin
tmp:=ListBox1.ItemIndex;
ListBox1.Items.Insert(tmp+1, Name.Text+' | '+Ansprechpartner.Text+' | '+Strasse.Text+' | '+Ort.Text+' | '+Telefon.Text+' | '+Telefax.Text+' | '+Mobil.Text+' | '+EMail.Text);
ListBox1.Items.Delete(tmp);
end
else
ShowMessage ('Es müssen Einträge markiert sein!');
except
ShowMessage ('Falsche Eingaben!');
end;
end;
das hab ich jetzt mal genommen. aber wenn ich auf den ändern button klick tut sich garnix! ich check jetzt nix mehr^^