Problemas na troca de versao do delphi

[Renanbg 1]

Estava com o delphi 5 e passei a usar o 6

 

Entao o codigo abaixo n esta mais funcionando

 

uso ele na tela de login

 

procedure TfLogon.btOkClick(Sender: TObject);var rots,usu,Mensagem,senha: string;	i,j: integer;begin  usu := Trim(edUsu.Text);  if usu = 'MASTER' then begin	ok:= true;	for i := 0 to fPrinc.MainMenu1.Items.Count - 1 do begin		fPrinc.MainMenu1.Items[i].enabled := true;		for j := 0 to fPrinc.MainMenu1.Items[i].Count - 1 do		  fPrinc.MainMenu1.Items[i].Items[j].enabled := true		end;	exit	end;  senha := Encripta(usu,StrToInt(edSenha.Text));  if not dm.tabUsu.Active then	dm.tabUsu.Open;  if dm.tabUsu.Locate('Usuario;Senha',		  VarArrayOf([usu,senha]),[]) then begin  // erro ocorre nessa linha	ok := true;	rots := dm.tabUsuRotinas.Value;	dm.tabUsu.Close;	HabMenu(fPrinc.MainMenu1,fPrinc.Menu,rots);	with fPrinc.stBar do begin	  Panels[0].Text := 'Usuário Logado: ' + usu;	  Panels[1].Text := '  Logon às ' + TimeToStr(Now) +						' do dia ' + DatetoStr(Now);	  end	end  else begin	tries := tries + 1;	  if tries > 2 then	  begin		Mensagem := 'Você digitou as informações de login incorretas três vezes!'+#13+'O sistema será encerrado agora.';		Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONWARNING + MB_OK);		Application.Terminate;	  end;	Mensagem := 'Usuário ou senha incorretos, por favor digite novamente!';	Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONERROR + MB_OK);	edUsu.SetFocus;	ok := false	end;  Close;end;

o erro ocorre na linha destacada com //

 

e a msg do delphi é

 

[Error] uLogon.pas(69): Undeclared identifier: 'VarArrayOf'[Error] uLogon.pas(69): Ordinal type required[Fatal Error] UPrinc.pas(171): Could not compile used unit 'uLogon.pas'

Alguma idéia?

[marcio.theis 3]

Declare no uses o seguinte: Variants

[Renanbg 1]

beleza..funcionou...

 

agora to com uns warnings

 

[Warning] uUsu.pas(124): Symbol 'FileSetAttr' is specific to a platform[Warning] uUsu.pas(124): Symbol 'faSysFile' is specific to a platform[Warning] uUsu.pas(124): Symbol 'faHidden' is specific to a platform

Algum problema?

[marcio.theis 3]

Nenhum, somente informa que o seu sistema vai rodar somente em windows...

Se quiser remover estes warnings pode declarar logo abaixo do uses o seguinte:

 

{$WARN SYMBOL_PLATFORM OFF}

[Renanbg 1]

beleza marcioobrigado pela ajudaAbraço...

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif