| 604 |
|
if getIsNullable then writeln(OutFile,'Nullable') else writeln(OutFile,'Not Null'); |
| 605 |
|
writeln(OutFile,'Size = ',GetSize); |
| 606 |
|
if not IsNull then |
| 607 |
< |
writeln(Outfile,'Value = ',getAsString); |
| 607 |
> |
begin |
| 608 |
> |
if getCharSetID = 1 then |
| 609 |
> |
begin |
| 610 |
> |
PrintHexString(getAsString); |
| 611 |
> |
writeln(Outfile); |
| 612 |
> |
end |
| 613 |
> |
else |
| 614 |
> |
writeln(Outfile,'Value = ',getAsString); |
| 615 |
> |
end; |
| 616 |
|
writeln(OutFile); |
| 617 |
|
end; |
| 618 |
|
end; |
| 1492 |
|
GetParams(DoPrompt,TestID); |
| 1493 |
|
if length(TestID) = 1 then |
| 1494 |
|
TestID := '0' + TestID; |
| 1495 |
+ |
{$ifdef DCC} |
| 1496 |
+ |
{$IF declared(SetConsoleOutputCP)} |
| 1497 |
+ |
SetConsoleOutputCP(cp_utf8); |
| 1498 |
+ |
{$IFEND} |
| 1499 |
|
{$IF declared(SetTextCodePage)} |
| 1500 |
|
{Ensure consistent UTF-8 output} |
| 1501 |
|
SetTextCodePage(OutFile,cp_utf8); |
| 1502 |
|
{$IFEND} |
| 1503 |
< |
{$IF declared(SetConsoleOutputCP)} |
| 1492 |
< |
SetConsoleOutputCP(cp_utf8); |
| 1493 |
< |
{$IFEND} |
| 1494 |
< |
|
| 1503 |
> |
{$endif} |
| 1504 |
|
|
| 1505 |
|
{Ensure consistent date reporting across platforms} |
| 1506 |
|
SetFormatSettings; |
| 1591 |
|
|
| 1592 |
|
procedure TTestApplication.SetFormatSettings; |
| 1593 |
|
begin |
| 1594 |
+ |
{$ifdef FPC} |
| 1595 |
+ |
SetMultiByteConversionCodePage(cp_utf8); |
| 1596 |
+ |
{$endif} |
| 1597 |
|
{$IF declared(DefaultFormatSettings)} |
| 1598 |
|
with DefaultFormatSettings do |
| 1599 |
|
{$ELSE} |
