blob: 3256b7991deb0f8f23a1ead7adc11bae83620642 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example82;
{$mode objfpc}
{ This program demonstrates the StrToInt function }
Uses sysutils;
Begin
Writeln (StrToInt('1234'));
Writeln (StrToInt('-1234'));
Writeln (StrToInt('0'));
Try
Writeln (StrToInt('12345678901234567890'));
except
On E : EConvertError do
Writeln ('Invalid number encountered');
end;
End.
|
