Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



StrToInt

Преобразует строку с целым значением в Integer

Описание:

    Функция StrToInt конвертирует строку с целым значением - IntegerString, такую как '123', в целое Integer.

     Она поддерживает положительные и отрицательные значения, шестнадцатеричные числа с префиксов $ или 0x.

Пример кода:

var
   A, B, C, D, E, F : Integer;

begin
   A := 32;
   B := StrToInt('100');//'100' string converted to 100 integer
   C := StrToInt(' -12'); // Leading blanks are ignored
   D := StrToInt('$1E'); // Hexadecimal values start with a '$'
   E := StrToInt('-0x1E'); // ... or with a '0x'
   F := A + B + C + D + E; // Lets add up all these integers

   ShowMessage('A : '+IntToStr(A));
   ShowMessage('B : '+IntToStr(B));
   ShowMessage('C : '+IntToStr(C));
   ShowMessage('D : '+IntToStr(D));
   ShowMessage('E : '+IntToStr(E));
   ShowMessage('F : '+IntToStr(F));
end;

Результат выполнения:

A : 32
B : 100
C : -12
D : 30
E : -30
F : 120

Пример кода:

var
   A : Integer;

begin
   // We will catch conversion errors
   try
      A := StrToInt('100 ');//Trailing blanks are not supported
   except
      on Exception : EConvertError do
        ShowMessage(Exception.Message);
   end;
  
   try
      A := StrToInt('$FG');//'G' is an invalid hexadecimal digit
   except
      on Exception : EConvertError do
        ShowMessage(Exception.Message);
   end;
end;

Результат выполнения:

'100 ' is not a valid integer value
'$FG' is not a valid integer value