Fórum Incompatible types Integer and iWord delphi 7 #600776
25/02/2019
0
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
Curtir tópico
+ 0Posts
25/02/2019
Hélio Devmedia
Gostei + 0
25/02/2019
Lucas Domiciano
[Error] Unit1.pas(862): Types of actual and formal var parameters must be identical
Gostei + 0
26/02/2019
Lucas Domiciano
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)