Val, процедураСинтаксисprocedure Val(const S: string; var Result; var Code: Integer); Описание
Процедура Val преобразует строку в числовое значение. Аргумент Result может
быть целой, Int64 или вещественной переменной. Если преобразование прошло успешно,
Code равен нулю. Иначе значение Code обозначает позицию в строке, где Val впервые
столкнулась с ошибкой формата. Val не является настоящей процедурой.
ОшибкиСоветы и приемы
Для преобразования строки в вещественное число вызывайте функции преобразования
строк из модуля SysUtils вместо Val. Проблема состоит в том, что Val не обращает
внимание на локальные настройки разделителя десятичных знаков, делая процедуру
бесполезной в интернациональной среде.
Пример// Запрашиваем от пользователя число и возвращаем число, которое // он ввел. Если пользователь ввел неверное-значение, сообщаем // что произошла опечатка, и просим повторить попытку. function GetNumber(const Prompt: String): Int64; var S: string; Code: Integer; begin repeat Write(Prompt); ReadLn(S); Val(S, Result, Code); if Code <> 0 then begin WriteLn(S); WriteLn('^' :Code, ' неверное значение'); end; until Code =0; end; Смотрите такжеПроцедура Str.Учебник по языку Pascal Лабораторные работы по программированию Справочник
|