ListBox einträge ändern

[maxmax]

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^^

[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

[maxmax]

Deine Lösung gefällt mir, aber sie geht auch nicht!
Ich weiß nicht woran das liegt!

[Die Muhkuh]

Hi,

machst Du zufällig was im OnChange mit der ListBox?

Die Lösungen funktionieren ohne Probleme bei mir.

[patti]

Bist du dir sicher, dass du "Name" schon geändert hast? Ein Komponenten-Name darf niemals ein reserviertes Wort sein. Wenn es immer noch nicht gehen sollte, dann müsstest du wohl etwas mehr Code posten!

[maxmax]

ich checks gleich nommal ab! danke für die posts

[maxmax]

ja ich hab name schon geändert! aber es funzt nicht!

[Die Muhkuh]

Kannst das Projekt mal anhängen?

[maxmax]

nur die projektdatei oder nur den quelltext??