program System_IO_Path;

{$APPTYPE CONSOLE}
{$AUTOBOX ON}


uses System.IO, System.Collections;

type
  PathTest = class
  public
    class procedure Main;
  end;

{ PathTest }

class procedure PathTest.Main;
var
  c: WideChar;
  i:integer;
  path3: string;
  path2: string;
  path1: string;
begin
  path1 := 'c:\temp\MyTest.txt';
  path2 := 'c:\temp\MyTest';
  path3 := 'temp';

  if Path.HasExtension(path1) then
    Console.WriteLine('{0} has an extension.', path1);

  if (Path.HasExtension(path2) = False) then
    Console.WriteLine('{0} has no extension.', path2);

  if (Path.IsPathRooted(path3) = False) then
    Console.WriteLine('The string {0} contains 
                       no root information.', path3);

  Console.WriteLine('The full path of {0} is {1}.', 
                    path3, 
                    Path.GetFullPath(path3));
                    
  Console.WriteLine('{0} is the location for temp files.', 
                    Path.GetTempPath);
                    
  Console.WriteLine('{0} is a file available for use.', 
                    Path.GetTempFileName);
                    
  Console.WriteLine(''#13#10'The set of invalid 
                     characters in a path is:');
  
  Console.WriteLine('(Note that the wildcard characters ''*'' 
                     and ''?'' are not invalid.):');

  for i := 0 to  -1 + Length(Path.InvalidPathChars) do
  begin
    c := Path.InvalidPathChars[i];
    Console.WriteLine(c);
  end;
end;

//test program
begin
  PathTest.Main;
end.