blob: 444f6843bb270f5fd2b78fc3f8c3286a827bd1f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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.
|
