Functions mit Delphi

[Duke_2004]

Zitat von cell:

ich will mit dem quelltext die daten von der datenbank in eine combobox eintragen

Delphi-Quellcode:

begin
frmmesswertauswahl.cbotestreihe.Items.Clear;
  with DataModule1 do
  begin
       Query.SQL.Text:= selectsql('Testreihe','Testreihe','Testnummer=' +frmmesswertauswahl.lblnummer.Caption,'');
       Query.Open;
       while not Query.Eof do
       begin
             frmmesswertauswahl.cbotestreihe.Items.Add(Query.Fields[0].AsString);
             Query.Next;
       end;
       Query.Close;
  end;
end;
end;

is ist schon einmal gegangen aber warum jetzt nichtmehr ??seht ihr einen Fehler??

Versuch das mal so...

Delphi-Quellcode:

begin
  frmmesswertauswahl.cbotestreihe.Items.Clear;
  with DataModule1 do
  begin
    if Query.Open then
      Query.close;

    Query.SQL.Clear;
    Query.SQL.Text := selectsql('Testreihe', 'Testreihe', 'Testnummer=' + frmmesswertauswahl.lblnummer.Caption, ''); //achte darauf, dass Caption auch einen Wert hat
    Query.Open;

    while not Query.Eof do
    begin
      frmmesswertauswahl.cbotestreihe.Items.Add(Query.Fields[0].AsString);
      Query.Next;
    end;
    Query.Close;
  end;
end;

Ansonsten fällt mir spontan kein Fehler auf...
Oder gibt der irgendnen Fehler aus, das wär nämlich wichtig zu wissen...