Incompatible types Integer and iWord delphi 7

Algoritmo

Delphi

25/02/2019

Boa tarde, estou com um problema eu estava desenvolvendo um software em pc com windows xp, porém agora migrei para o windows 7. Como estava desenvolvendo no windows xp, estava tudo indo muito bem, porém ao migrar para o windows 7 começou a gerar esse erro de incompatibilidade. Alguém sabe se tem que mexer em alguma configuração da IDE ?.

Aqui esta o trecho do código.

function TForm1.MiliSegundoshora2(milisegundo: Integer): string;
var Hrs,Minut,secut,msecut: word;
begin
  Hrs := milisegundo div 3600000; // aqui ocorre o erro.
  milisegundo := milisegundo mod 3600000;
  minut:= milisegundo div 60000;
  milisegundo := milisegundo mod 60000;
  secut := milisegundo div 1000;
  msecut := milisegundo mod 1000;
  Result := Format('%d:%d:%d', [Hrs,Minut,Secut]);
end;
Lucas Domiciano

Lucas Domiciano

Curtidas 0

Respostas

Hélio Devmedia

Hélio Devmedia

25/02/2019

olá Lucas, compilei no Delphi community e windows 7 e não gerou erros, posta o print do erro do compilador por favor?
GOSTEI 0
Lucas Domiciano

Lucas Domiciano

25/02/2019

Esse erro que é gerado:
[Error] Unit1.pas(862): Types of actual and formal var parameters must be identical
GOSTEI 0
Lucas Domiciano

Lucas Domiciano

25/02/2019

Alguém pode me ajudar ???
GOSTEI 0
POSTAR