[[seoane]]

Por favor Roman, eso no seria internacional. La forma correcta seria esta

Código Delphi [-]
function ParteEntera(X: Double): Integer;
var
  S: String;

begin
  S := FloatToStr(X);
  Delete(S, Pos(DecimalSeparator, S), MaxInt);
  Result := StrToInt(S);
end;