Ver Mensaje Individual
  #1  
Antiguo 22-02-2008
Avatar de gulder
gulder gulder is offline
Miembro
 
Registrado: abr 2005
Ubicación: colombia-sucre
Posts: 384
Reputación: 22
gulder Va por buen camino
Thumbs up divicion entre dos Int64

hola foro tengo 3 variables de tipo Int64 y cuanfo intento hacer una divicion me sale un error en la divicion lo hago de la siguiente forma

Código Delphi [-]
function GetSizeOfFile(const Filename:string): Int64;
var Sr:TSearchRec;
    i,ii,iii:Int64;
begin
  iii:=1073741824;
  try
    if FindFirst(FileName,faAnyFile,sr) <> 0 then
      raise Exception.Create('Archivo ' + FileName+' no encontrado');
      i:=sr.FindData.nFileSizeHigh * maxdword + sr.Finddata.nFileSizeLow;

    ii:=i/iii;      // Aqui esta el error

    Result:= ii;
  finally
    FindClose(sr);
  end;
end;

y me tira el siguiente error

Incompatible types: 'Int64' and 'Extended'

por que y como se solucionaria esto gracias de antemano gulder
Responder Con Cita