mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
24 lines
234 B
ObjectPascal
24 lines
234 B
ObjectPascal
{ %norun }
|
|
{ %fail }
|
|
|
|
{$mode delphi}
|
|
unit tw7173;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
function GetVal(astr : string) : Integer;
|
|
|
|
|
|
implementation
|
|
|
|
function GetVal(const astr : string) : Integer;
|
|
begin
|
|
Result := StrToInt(astr);
|
|
end;
|
|
|
|
|
|
end.
|