Einzelnen Beitrag anzeigen

Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.355 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: Functions mit Delphi

  Alt 12. Jul 2005, 13:19
Delphi-Quellcode:
begin
  frmmesswertauswahl.cbotestreihe.Items.Clear;
  with DataModule1 do
  begin
    if Query.Active then Query.Close; // Reine Sicherheitsmaßnahme
    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;
Es ging Duke_2004 imo nur um die eingefügte Sicherheitsmaßnahme.
Peter
  Mit Zitat antworten Zitat