ListBox einträge ändern

[maxmax]

jetzt hab ich abern och eine frage:
ich hab ein paar edits, die die ListBox1 inhalte auslesen und über die man die bestehenden inhalte der ListBox bearbeiten kann
und zwar so:

Delphi-Quellcode:

procedure TForm1.AendernClick(Sender: TObject);
begin
try
if ListBox1.ItemIndex<>-1 then
begin
ListBox1.Items.Insert(ListBox1.ItemIndex, Name.Text+' | '+Ansprechpartner.Text+' | '+Strasse.Text+' | '+Ort.Text+' | '+Telefon.Text+' | '+Telefax.Text+' | '+Mobil.Text+' | '+EMail.Text);
ListBox1.Items.Delete(ListBox1.ItemIndex);
end
else
ShowMessage ('Es müssen Einträge markiert sein!');
except
ShowMessage ('Falsche Eingaben!');
end;
end;

wenn ich nun aber diese procedure im programm aufrufe, passiert nichts! warum?

[marabu]

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.

[ghost007]

lol ^^ das könnte daranliegen, dass du den eintrag den du mit insert einträgst dannach wieder löschst :wink:

MfG - Ghost007

P.S. Änder das mal wie folgt ab


//EDIT:

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;

[Die Muhkuh]

Das geht so auch nicht, Christian.

Wenn Du das Item löscht, ist der ItemIndex weg. Das heißt, Du musst Dir den ItemIndex erst aberspeichern und dann beim Insert den abgespeicherten verwenden.

Delphi-Quellcode:

var
  I: Integer;
begin
  if ListBox1.ItemIndex<>-1 then
  begin
    I := ListBox1.ItemIndex;
    ListBox1.Items.Delete(I);//diese zeile von unten nach oben verschieben
    ListBox1.Items.Insert(I, 'Simple Test');
  end;
end;

So z.B. funktioniert das ganze wieder.

[ghost007]

Zitat:

Zitat von Die Muhkuh

Das geht so auch nicht, Christian.

Wenn Du das Item löscht, ist der ItemIndex weg. Das heißt, Du musst Dir den ItemIndex erst aberspeichern und dann beim Insert den abgespeicherten verwenden.

habe deswegen meinen beitrag grade editiert ;)

MfG - Ghost007

[Die Muhkuh]

Ja, ich hab auch gerade gesehen. :tongue:

Btw. Max: Ich weiß nicht, was Du vor hast, aber wäre eine TListView für Dein Vorhaben nicht besser geeignet?

[maxmax]

Eure Vorschläge zum ändern von oben funktionieren auch ned!!!

Wo finde ich die TListView??

EDIT: ahh ich hab scho gefunden.

[Die Muhkuh]

Unter Win32 ist die.

Zitat:

Eure Vorschläge zum ändern von oben funktionieren auch ned!!!

Gibt es keine Kekse für das Krümelmonster? :gruebel:

[maxmax]

Zitat:

Zitat von Die Muhkuh

Unter Win32 ist die.

Zitat:

Eure Vorschläge zum ändern von oben funktionieren auch ned!!!

Gibt es keine Kekse für das Krümelmonster? :gruebel:

ich habs auch grad gefunden 8)

das versteh ich jetzt nicht!
Was muss ich jetzt ändern das alles funktioniert?

[Die Muhkuh]

Naja, erstmal solltest Du uns nochmal den Code zeigen, weil die Vorschläge von Christian und mir funktionieren ohne Probleme.

[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??