mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 11:08:02 +02:00
16 lines
162 B
ObjectPascal
16 lines
162 B
ObjectPascal
{%norun}
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE Delphi}
|
|
{$ENDIF}
|
|
|
|
var
|
|
AStr : string;
|
|
AComp : Comp;
|
|
AInt : Integer;
|
|
|
|
begin
|
|
AStr := '1.2345';
|
|
Val(AStr, AComp, AInt);
|
|
end.
|