ComboBox füllen und lesen

z1dirk · Beiträge: 23

hi, wie kann ich eine combobox mit wörtern füllen und wie kann ich diese dann daraus lesen? ( welche stelle in der combobox das angewälte wort war, wäre auch nicht schlecht zu wissen)
z.B.: ich klicke auf ein wort in der combobox und möchte dies in ein memo ausgegeben haben und dieses auch wieder in die combobox schreiben.

danke

Gast Erhaltene Danke: 1

du kannst so nen Eintrag von der ComboBox ins Memo laden:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
Memo1.Lines.Add(ComboBox1.Items[ComboBox1.ItemIndex]);
end;

Und mit

markieren

Delphi-Quelltext

1:	ComBoBox1.Items[ComboBox.Itemindex]

weißt du welcher Eintrag gewählt wurde....

Vom Memo in die ComBoBox dürfte so funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add(Memo1.Lines[0])
end;

Wolff68 · Beiträge: 302 Erhaltene Danke: 1 WinXP home D6 Prof

Hab DIr hier mal ein Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
begin
  { Fügt den Text in der Combobox an der aktuellen Cursorposition im Memo ein }
  Memo1.SelText := ComboBox1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  { Übernimmt den im Memo markierten Text in die Combobox }
  { Und zwar nur, wenn dieser noch nicht existiert }
  IF Memo1.SelLength > 0 then begin
    IF ComboBox1.Items.IndexOf(Memo1.SelText) < 0 then begin
      { Text existiert noch nicht }
      ComboBox1.Items.Add(Memo1.SelText); // einfügen
      ComboBox1.ItemIndex := Combobox1.Items.Count -1; // und anwählen
    end
    else begin
      ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(Memo1.SelText); // nur anwählen
    end;
  end;
end;

_________________
"Der Mensch ist nicht was er sich vorstellt oder wünscht zu sein, sondern das was andere in ihm sehen."

z1dirk · Beiträge: 23

danke euch beiden. die combobox wäre somit gemeistert.

danke :beer:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme