Functions mit Delphi

[Duke_2004]

Delphi-Quellcode:

procedure Tfrmmesswertauswahl.FormShow(Sender: TObject); 
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; 

//frmmesswertauswahl.cbotestabschnitt.Items.Clear; //warum nocheinmal leeren -> dann wäre das drüber umsonst

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

Das in geschweiften Klammern brauchst du nicht, da sich alle Controls ja auf dem selben Formular befinden.(Sonst würde es ja auch nicht in dessen OnShow-Ereignis stehen)

^müsste so funktionieren

Zu deinen "Showmodalaufrufen": Von wo aus wird das aufgerufen? Was willst du damit bezwecken?