Also ich hab mal wieder eine Frage zu listboxen:
Ich will in einem Vokabelprogramm, das 2 listboxen hat, eine für die fremdsprachigen Vokabeln, die andere für die muttersprachige Vokabeln. Das hinzufügen neuer Vokabeln klappt, aber ein Problem ist das löschen der Vokabeln. Ich weiß zwar wie ich sie löschen kann, aber ich hab keine Ahnung wie ich, wenn ich in einer listbox eine Vokabel lösche (also zum Beispiel in der muttersprachigen Vokabelliste eine vokabel lösche) das in der anderen listbox die dementsprechende Vokabel gelöscht wird. (Die zusammengehörigen Vokabeln, zBs: go-gehen, sind in den listboxen an der selben stelle)
Ich weiß nicht wie ich mein problem anderst erklären könnte. Wenn ihr etwas nicht verstanden habt dann fragt einfach nach!
Hier noch die Art, mit der ich die Vokabeln lösche:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure entferne (lBox : TListBox; eintrag :
string);
var i : Integer;
begin
for i := 0
To lBox.Items.Count-1
do
if lBox.Items[i] = eintrag
then
begin lBox.Items.Delete(i); Exit
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
entferne(ListBox1,Edit1.Text)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close
end;
end.