mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:07:56 +02:00
16 lines
290 B
ObjectPascal
16 lines
290 B
ObjectPascal
program test;
|
|
|
|
{$mode objfpc}{$h+}
|
|
|
|
uses SysUtils;
|
|
|
|
var a: ansistring;
|
|
|
|
begin
|
|
defaultfilesystemcodepage:=CP_UTF8;
|
|
defaultrtlfilesystemcodepage:=CP_ASCII;
|
|
a := DirectorySeparator+'.';
|
|
a := ExpandFileName(a);
|
|
if StringCodePage(a)<> defaultrtlfilesystemcodepage then
|
|
halt(1);
|
|
end. |