Functions mit Delphi

[cell]

das ist der quellcode von den beiden comboboxen

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;
  end;
frmmesswertauswahl.cbotestabschnitt.Items.Clear;
  with DataModule1 do
  begin
       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 ist der quellcode für die showModal anweisung

Delphi-Quellcode:

var
   dlgResult: integer;
begin
  dlgResult:=frmtestauswahl.ShowModal;
  if dlgResult = mrok then
     frmmesswertauswahl.Showmodal;
  frmtestauswahl.close;
begin
  dlgResult :=frmmesswertauswahl.ShowModal;
  if dlgResult = mrok then
  begin
     frmmesswertauswahl.Close;
     frmtestauswahl.Close;
     CreateMDIChild('Unbenannt' + IntToStr(MDIChildCount + 1));
  end;
end;
end;