syntax Verzweigung If Then

[d6lpz]

Hallo,

Habe eine Frage zu IF Then usw.
Folgende Struktur bekomme ich nicht hin:

Delphi-Quellcode:

procedure TMain.UpdateForm;
begin
        if group_ok =0 then           // keine Auswahl erfolgt
        begin
                        lab_selectedGroup.Caption:=' ';
                        lab_selectedGroup.Visible:=False;
                        lab_selectedEmpl.Caption:=' ';
                        lab_selectedEmpl.Visible:=False;
                        sbtn_yearreport.Enabled:=False;
                        sbtn_monthreport.Enabled:=False;

                        empl_ok:=0;
                        year_ok:=0;
                        month_ok:=0;
        end
        else if group_ok=1 and if empl_ok=0 then       // Group Auswahl erfolgt - Empl Auswahl noch nicht
        begin
                        lab_selectedGroup.Caption:=' ';
                        lab_selectedGroup.Caption:=DBLLBox_FilteredUserRights.SelectedItem;
                        lab_selectedGroup.Visible:=True;
                        lab_selectedEmpl.Caption:=' ';
                        lab_selectedEmpl.Visible:=True;
                        if year_ok=1 and if month_ok=1 then
                        begin
                            sbtn_yearreport.Enabled:=False;
                            sbtn_monthreport.Enabled:=True;
                        end
                        else if year_ok=0 then
                        begin
                            sbtn_yearreport.Enabled:=False;
                            sbtn_monthreport.Enabled:=False;

         end
         else if group_ok=1 and if empl_ok=1 then      // Group/Empl Auswahl erfolgt
         begin
                       lab_selectedGroup.Caption:=' ';
                       lab_selectedGroup.Caption:=DBLLBox_FilteredUserRights.SelectedItem;
                       lab_selectedGroup.Visible:=True;
                       lab_selectedEmpl.Caption:=' ';
                       lab_selectedEmpl.Caption:=lb_name.SelectedItem;
                       lab_selectedEmpl.Visible:=True;
                       if year_ok=1 and if month_ok=1 then
                       begin
                           sbtn_yearreport.Enabled:=True;
                           sbtn_monthreport.Enabled:=True;
                       end
                       else if year_ok =0 or if month_ok =0 then
                       begin
                           sbtn_yearreport.Enabled:=False;
                           sbtn_monthreport.Enabled:=False;

         end;  <<<<<=== !! Hier bekomme ich Operator ist auf Operandentyp nicht anwendbar

end;

year_ok / month_ok / group_ok / empl_ok sind global als integer variablen deklariert

Kann mir irgendjemand helfen??
Dirk