mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 21:39:24 +02:00
32 lines
497 B
ObjectPascal
32 lines
497 B
ObjectPascal
{ %OPT=-O3 }
|
|
|
|
{$mode objfpc}
|
|
|
|
program tval1a;
|
|
|
|
function TryStrToInt(const s: string; out i: LongWord): boolean; inline;
|
|
var
|
|
Error : word;
|
|
begin
|
|
Val(s, i, Error);
|
|
TryStrToInt:=(Error=0)
|
|
end;
|
|
|
|
procedure DoTest;
|
|
var
|
|
Output: LongWord;
|
|
begin
|
|
if TryStrToInt('Invalid', Output) then
|
|
Halt(1);
|
|
|
|
if not TryStrToInt('2', Output) then
|
|
Halt(2);
|
|
|
|
if Output <> 2 then
|
|
Halt(3);
|
|
end;
|
|
|
|
begin
|
|
DoTest(); { This is so "Output" is a local variable rather than global }
|
|
WriteLn('ok');
|
|
end. |