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