program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils, windows;

Var WinDir ,currDirchar ;

begin
New(WinDir); //Allotment memory space
New(currDir); //Allotment memory space
GetWindowsDirectory(WinDir,255); //Install the catalogue to the windows to put WinDir
WinDir
GetCurrentDirectory(255,currDir); // Put the current catalogue to the currDir
WriteLn('The Windows system document catalogue be: ' ,WinDir); //the result
WriteLn('the document cataogue is :' ,CurrDir); //the result
//Dispose(WinDir);
//Dispose(currDir);
ReadLn;

end.


=======================
出现问题 大家帮忙
Missing operator or semicolon

如何解决？？

搜索更多相关主题的帖子: semicolon  operator  Missing