mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 14:42:53 +02:00
a3f059bc29
parameters (because they can be auto-converted to ansistring, but not
to shortstring) (mantis #8148)
git-svn-id: trunk@6076 -
26 lines
414 B
ObjectPascal
26 lines
414 B
ObjectPascal
program ValVsArrayOfChar;
|
|
|
|
{$IFDEF FPC}
|
|
{$mode delphi}
|
|
{$ENDIF}
|
|
|
|
procedure test(a: ansistring);
|
|
begin
|
|
end;
|
|
|
|
|
|
var
|
|
Code : Integer;
|
|
D : Double;
|
|
s : Array[byte] of Char;
|
|
begin
|
|
s := '123';
|
|
test(s);
|
|
Val(s, D, Code); // compiles only in delphi
|
|
if (abs(d-123.0) > 0.00001) then
|
|
halt(1);
|
|
Val(PChar(@s), D, Code); // compiles in both delphi and FPC
|
|
if (abs(d-123.0) > 0.00001) then
|
|
halt(1);
|
|
end.
|