Extracción de parte entera de un flotante

[roman]

Quizá quiere algo más artesanal

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

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

// Saludos

[[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;

[roman]

¡Oh! Muy cierto, ¡qué torpeza la mía!



// Saludos

[Albano]

Yo lo que pretendía era ahorrar codigo usando esa funcion, pero veo que no es necesario, el código para realizar lo que quiero es muy poco, gracias...