ComboBox.Add mit Tabelleninhalt beschreiben???

rob87 · Verfasst: Mi 05.09.07 13:55

Hallo

ich würde gern den Befehl

Delphi-Quelltext

1:	ComboBox1.Items.Add(' string ');

so umschreiben, dass er mir den Inhalt aus einer Spalte einer Tabelle ausliest.

Es soll also eine Spalte einer Tabelle abwärts in dieser ComboBox aufgelistet werden.

Geht das?

Moderiert von Gausi: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 05.09.2007 um 15:03

azrael_7 · Beiträge: 78 Windows Vista D2005 Pers. [de]

Ja, das geht...

du liest die Tabelle in einem Query ein und fügst dann Eintrag für eintrag hinzu.. (mit einer "While-Schleife" das query durchlaufen)

markieren

Delphi-Quelltext

1:
2:
3:
4:

while Query not EoF do
begin
  ComboBox1.Items.Add(Query.FieldValues['Feldname']);
end;

_________________
-·- Es gibt Leute die bringen Freude, wohin sie gehen -·-
-·- und es gibt Leute, die bringen Freude, wenn sie gehen -·-

rob87 · Verfasst: Mi 05.09.07 14:07

Wunderbar. Aber ich müsst noch irgendwo meinen Tabellennamen angeben können.
Und kann ich des Query genau da einfügen, wo ich sonst meine ComboBox befüllen würde.

UNd muss ich des noch irgendwo in den Uses angeben?

raiguen · Verfasst: Mi 05.09.07 14:08

Si... prinzipiell geht das so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

while not TabelleXYZ.EoF do begin
  Combobox1.Items.Add(TabelleXYZ.FieldByName(SpaltenName).AsString);
  TabelleXYZ.Next;
end;
//-- SpaltenName ersetzen durch den entsprechenden Feldnamen(=Spalte) der betreffenden Tabelle

rob87 · Verfasst: Mi 05.09.07 14:15

raiguen hat folgendes geschrieben:

Si... prinzipiell geht das so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

while not TabelleXYZ.EoF do begin
  Combobox1.Items.Add(TabelleXYZ.FieldByName(SpaltenName).AsString);
  TabelleXYZ.Next;
end;
//-- SpaltenName ersetzen durch den entsprechenden Feldnamen(=Spalte) der betreffenden Tabelle

Des hört sich grundsätzlich gut an. Aber nun bringt er mir die Meldung: Ungültige Variant-Operation???

rob87 · Verfasst: Do 06.09.07 14:04

Hab nun den Beisatz "AsString" weggelassen und vor die Schleife die Tabelle auf First gesetzt.

Nun funktionierts. Danke.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme