Здравствуйте, Гость
Среда, 23.05.2012
Из шестнадцатеричного в десятичное
Автор: Борисов Сергей 
function HexToInt(hex: String): integer;
var s : string;
begin
s :='$'+ hex;
result := StrToInt(s);
end;
Пример использования:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(HexToInt('FDF4')));
end;
-
Интернет магазин сантехники спб
Описания предлагаемой продукции, цены.
top100store.ru
Просмотров: 1952
On-line статистика:
Онлайн всего: 3
Гостей: 3
Пользователей: 0
Статистика:
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz