15.12.2007, 01:31
|
|
Активный
|
|
Регистрация: 04.12.2007
Адрес: Москва
Сообщения: 234
Версия Delphi: Delphi 7
Репутация: 40
|
|
Код:
function IsInteger(const S: String): Boolean;
var
X: Double;
E: Integer;
begin
Val(S, X, E);
Result := (E = 0) and (Trunc(X) = X);
end; |