- 4.62.2.93 -
Standard Units
System Unit
System Unit Procedures and FunctionsVal procedure
Targets: MS-DOS, OS/2, Win32
System Unit
Converts a string value to its numeric representation.
Declaration:
procedure Val(S; var Value; var Code: Integer);
Remarks:
S is of string type. Value is an integer or
real type variable. Code returns an integer
value indicating whether the operation was successful or where it failed.
S is a string of numeric characters. Val attempts
to convert S to a valid integer or real types number.
If successful, Code returns zero, otherwise Code
returns the index in S where the conversion failed.
Example:
{$ifndef __CON__}
This program must be compiled as console application only
{$endif}
uses Strings;
var
Num: String;
Code: Longint;
Value: Extended;
begin
Write('Enter a number: ');
ReadLn(Num);
Val(Num, Value, Code);
if Code <> 0 then
Writeln('Error at position: ', Code)
else
Writeln('(Value * 2) = ', Fls(Value * 2));
end.
See also:
Str
|
|
|
UpCase function |
Table of Content |
Win32BuildNumber function |
- 4.62.2.93 -