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

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

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



Val

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

Описание:

    Процедура Val является процедурой Delphi, которая может преобразовать строку NumberString в переменную как целого, так и вещественного типов.

     Переменная NumberVar должна соответствовать типу числа в числовой строке. Говоря более точно, если NumberVar типа Integer, то в строке должно содержаться целое число.

     Если конвертация прошла успешно, то ErrorCode устанавливается в 0. Иначе, он становится первым символом NumberString, на котором конвертация закончилась с ошибкой.

Пример кода:

var
   numberString : string;
   float : Extended;
   errorPos : Integer;
begin
   // Set up a valid floating point number string
   numberString := '12345.678';

   // Convert it into a value
   Val(numberString, float, errorPos);

   // Display the string and converted value
   if errorPos = 0
   then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float]);

   //Val ignores the Decimal Separator-SysUtils converters don't
   DecimalSeparator := '_';
   numberString := '12345_678';
   Val(numberString, float, errorPos);
   if errorPos = 0
   then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float])
   else ShowMessageFmt('Val(%s) failed at position %d',
                      [numberString, errorPos]);
end;

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

Val(12345.678) = 12345.678
Val(12345_678) failed at position 6