Question

关于Object Pascal的几个语法问题

最近在编一个项目从delphi XE2移植到Lazarus OP上，但以下代码在XE2下编译通过，但在Lazarus下确报错：
//===================================================================
procedure TFrmMain.RemoveDir(sDirectory: String);
var sr:TSearchRec;
sPath,sFile:string;
begin
if Copy(sDirectory,length(sDirectory),1)<>'\' then
sPath:=sDirectory+'\'
else
sPath:=sDirectory;
if FindFirst(sPath+'*.*',faAnyFile,sr)=0 then
begin
Repeat
sFile:=sr.Name;
if (sFile='.') or (sFile='..') then continue;
sFile:=sPath+sr.Name;
if (sr.Attr and faDirectory)<>0 then
begin
Application.ProcessMessages;
removeDir(sFile);
end
else if (sr.Attr and faAnyFile) = sr.Attr then
Application.ProcessMessages;
DeleteFile(sFile);//这句报错：Got "AnsiString", expected "PChar"
until FindNext(sr)<>0 ;
FindClose(sr);//这句报错：Got "TSearchRec", expected "LongWord"
end;
RemoveDir(sPath);
end;
查看了它自带的inc文件，也是这样定义的，为什么报错？还有Object Pascal使用CreateThread会导致内存故障，为什么？真是搞不懂了。（请不要说使用XE2，现在就要移植到lazarus上）

Answer 1

用这个就行：

SysUtils.FindClose(SR);

这个。。 Windows 这个单元 （unit）也有一个叫做FindClose的函数.而你需要的是SysUtils单元里的FindClose函数。这是问题所在。所以用SysUtils.FindClose(SR); 应该可以解决问题~

另外，PChar应该可以解决另一个报错处的问题。

Answer 2

DeleteFile(sFile);//这句报错：Got "AnsiString", expected "PChar"
DeleteFile(pchar(sFile));//你这样试试呢！

Answer 3

只是做任务.......路过