fpc/tests/webtbs/tw29244.pp

13 lines
144 B
ObjectPascal

program project1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils;
Var
AStr : String = '';
begin
WriteLn(ConcatPaths(['one', 'two']));
end.