mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
20 lines
278 B
ObjectPascal
20 lines
278 B
ObjectPascal
{ %target=win32,go32v2,win64 }
|
|
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
SysUtils
|
|
{ add your units here };
|
|
|
|
var
|
|
p: string;
|
|
e: string;
|
|
begin
|
|
p := 'C:\test';
|
|
e := ExpandFileName('c:\test');
|
|
writeln('Expanded: ',e);
|
|
if (p<>e) then halt(1);
|
|
writeln('ok');
|
|
end.
|