combobox füllen

[Robert_G]

Ich habe mal schnell Code aus einem meiner Projekte kopiert & kommentiert.
Ein paar der Methoden der Zeos-kompos werden sich von DOA unterscheiden, aber anhand der OH solltest du es übersetzen können.

ProtocolCmb ist eine Combobox in deren OnChange-Event dieser Code steht
PanelCmb ist die Combobox, die mit Daten gefüllt wird.

Delphi-Quellcode:

  // gibt eine Meldung incl. Unit & Codezeile, wenn die Session nicht angemeldet ist
  Assert(MainSession.Connected, 'ProtocolCMBChange: Mainsession not connected');

  With Query Do
  Begin
    SQL.Text :=
      'SELECT DISTINCT PANEL' + #10 +
      'FROM   CTSdd.PANEL' + #10 +
      'WHERE  PROTOCOL = :i_Protocol';

    // die 2 Zeilen werden sich von den Zeos unterscheiden...
     // suche in der OH nach "Parametern", "Bind-Variablen" oder "SQL-Variablen" in Verbindung mit einer ZeosQuery
    DeclareVariable('i_Protocol', otString);
    SetVariable('i_Protocol', ProtocolCMB.Text);

    Execute;

    PanelCmb.Items.Clear;
    While Not (Eof) Do
    Begin
      PanelCmb.Items.Add(Field('Panel'));
      Next;
    End;

    If RowCount > 0 Then
      PanelCmb.ItemIndex := 0;

    Close;
  End;

Ich hoffe du kannst es soweit abwandeln, dass es bei dir läuft...