ComboBox

[Gast]

Hallo,
ich lese mit der Anweisung
medium := AsString(frmData.Universal.FieldByName('Maskenkey'));
Datensätze aus einer Tabelle. Die Werte aus dem Feld Maskenkey will ich mit der Komponente 'ComboBox' sichtbar machen. Leider funktioniert die Zuweisung mit folgender Syntax nicht.
ComboBox_1.Items.Add(medium);
Wenn ich Einträge in der Eigenschaft 'Items' manuell vornehme, kann ich diese dann auch sehen.
Wie ist mein Problem zu lösen?

Vielen Dank im voraus.

[admin]

Um den Designer schlank zu halten, sind nicht alle Eigenschaften, Methoden etc der einzelnen Objekte veröffentlicht. Da wir noch niemals mit ComboBoxen gearbeitet haben, lässt sich auch diese Eigenschaft nicht verändern.

[do5tj]

Gibt es eine Möglichkeit die Combobox dynamisch zu füllen?

[UliS]

Um den Designer schlank zu halten, sind nicht alle Eigenschaften, Methoden etc der einzelnen Objekte veröffentlicht. Da wir noch niemals mit ComboBoxen gearbeitet haben, lässt sich auch diese Eigenschaft nicht verändern.

Hier muß ich dem verehrten "admin" widersprechen:
Bin in FRDBZAHL_DTAUS über eine ComboBox zur Auswahl des Bank-Kontos gestolpert, wie ich das DTAUS-Verfahren nach SEPA umgestellt habe.
Dort findet man eine ComboBox:

Code: Alles auswählen

object CBO_BANKEN: TComboBox [34]
    Left = 136
    Top = 64
    Width = 300
    Height = 22
    ItemHeight = 0
    TabOrder = 12
    Text = 'CBO_BANKEN'
    OnChange = IB_EditChange
    Items.Strings = (
      'Bank1 - 1'
      'Bank2 - 3'
      'Bank4 - 5')
  end

Füllen in OnFormShow:

Code: Alles auswählen

    CBO_BANKEN.Text := '';
    ...
    sWo := 'FormShow';		 
    // Bank auswählen
    nBMAND_ID := AsInteger(frmdata.q_V_BMAND.FieldByName('ID'));
    MyQuery.Sql.Text := 'SELECT COUNT(ID) AS "ZAHL" ' + 
                        'FROM BFIRMAKTO ' + 
                        'WHERE (BMAND_ID = :BMAND_ID OR BMAND_ID IS NULL) AND ' + 
								        'BSBANK_ID IS NOT NULL AND ' + 
								        'KTONR IS NOT NULL';
    MyQuery.ParamByName('BMAND_ID', nBMAND_ID);									        
		MyQuery.Open();
		nZahl := AsInteger(MyQuery.FieldByName('ZAHL'));
    MyQuery.Close();
		if nZahl > 1 then
		begin
			CBO_BANKEN.Enabled := true;
      INCLUDE(PROC0003);
		end	
		else
      CBO_BANKEN.Enabled := false;	
...

Proc0003:

Code: Alles auswählen

 sWo := 'FormShow';		 
    // Bank auswählen
    nBMAND_ID := AsInteger(frmdata.q_V_BMAND.FieldByName('ID'));
    MyQuery.Sql.Text := 'SELECT COUNT(ID) AS "ZAHL" ' + 
                        'FROM BFIRMAKTO ' + 
                        'WHERE (BMAND_ID = :BMAND_ID OR BMAND_ID IS NULL) AND ' + 
								        'BSBANK_ID IS NOT NULL AND ' + 
								        'KTONR IS NOT NULL';
    MyQuery.ParamByName('BMAND_ID', nBMAND_ID);									        
		MyQuery.Open();
		nZahl := AsInteger(MyQuery.FieldByName('ZAHL'));
    MyQuery.Close();
		if nZahl > 1 then
		begin
			CBO_BANKEN.Enabled := true;
      INCLUDE(PROC0003);
		end	
		else
      CBO_BANKEN.Enabled := false;	

CBO_BankenOnChange:

Code: Alles auswählen

Begin
  // Letzter Stand: 01.12.2009 GK 
  EDT_FIRMENKONTO.Text := '';
  EDT_BANKNAME.Text := '';
  LB_MERK_FIRMENKONTO_ID.Caption := '';
  N1 := CBO_BANKEN.ITEMINDEX;
  S1 := CBO_BANKEN.VALUEOFINDEX(N1);
  if N1 >= 0 then
  begin
	  MyQuery := FrmData.universal;
	  MyQuery.Sql.Text := 'SELECT * FROM V_BFIRMAKTO WHERE ID = :ID';
	  MyQuery.ParamByName('ID', StrToInt(S1));
	  MyQuery.Open();
	  EDT_FIRMENKONTO.Text := AsString(MyQuery.FieldByName('KTONR'));
	  EDT_BANKNAME.Text := AsString(MyQuery.FieldByName('BSBANK_BANKNAME'));
	  LB_MERK_FIRMENKONTO_ID.Caption := AsString(MyQuery.FieldByName('ID'));
	  MyQuery.Close();
  end;
End;