blob: 5c04b2e7172eaf8af496288f488b31059059c713 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Checks whether the %x format string supports qwords.
This is a variation of tb0488a
}
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
procedure Check(a,b:ansistring);
begin
if a<>b then
begin
writeln(a,' should be equal to ',b);
error;
end;
end;
begin
check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
end.
|
