[geniusbsd]

Сообщение от M.A.D.M.A.N.

[code]Begin

Код:

  Application.Initialize;

  if TfrmUserLogin.UserLogin(Application, TfrmMain.UserLoginInfo) then
  begin
    Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
  end;

Объясните плиз это выражение if TfrmUserLogin.UserLogin(Application, TfrmMain.UserLoginInfo) then

У себя пишу

Код:

 Begin


Application.CreateForm(TDMForm, DMForm);
DMForm := TDMForm.Create(Application);
  if TLoginForm.LoginForm(Application, TDMForm.ADOQueryFase.RecordCount>0) then
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;

end;


End;

Ошибки
[dcc32 Error] WorkShop.dpr(19): E2096 Method identifier expected
[dcc32 Error] WorkShop.dpr(19): E2029 'THEN' expected but identifier 'RecordCount' found