SysUtils.FindFirst 的问题 ( 积分: 50 )

hlei · 2005-09-15

function CompareFileSize(FileName1: String; FileName2: String): Integer; var  SearchRec: TSearchRec;  File1Size: Longint;  File2Size: Longint; begin  try    if FindFirst (ExpandFileName(FileName1),faAnyFile,SearchRec)=0    then       File1Size:= SearchRec.Size    else Result:= -1  //FileName1不存在，就返回 -1    finally       FindClose(SearchRec);    end;  try    if FindFirst (ExpandFileName(FileName2),faAnyFile,SearchRec)=0    then       File2Size:= SearchRec.Size    else Result:= -2 //FileName2不存在，就返回 -2   finally       FindClose(SearchRec);   end;  if File1size > File2Size then  Result:= 1 else //FileName1 > FileName2 返回 1  if File1Size < File2Size then  Result:= 2 else //FileName1 < FileName2 返回 2  Result:= 0 //FileName1 = FileName2 返回 0 end; 为什么 1 2 0 都可以正确返回，可是 -1 -2（就是文件不存在时）返回的还是1 2 请帮我看看。

hlei · 2005-09-15

function CompareFileSize(FileName1: String; FileName2: String): Integer; var  SearchRec: TSearchRec;  File1Size: Longint;  File2Size: Longint; begin  try    if FindFirst (ExpandFileName(FileName1),faAnyFile,SearchRec)=0    then       File1Size:= SearchRec.Size    else Result:= -1  //FileName1不存在，就返回 -1    finally       FindClose(SearchRec);    end;  try    if FindFirst (ExpandFileName(FileName2),faAnyFile,SearchRec)=0    then       File2Size:= SearchRec.Size    else Result:= -2 //FileName2不存在，就返回 -2   finally       FindClose(SearchRec);   end;  if File1size > File2Size then  Result:= 1 else //FileName1 > FileName2 返回 1  if File1Size < File2Size then  Result:= 2 else //FileName1 < FileName2 返回 2  Result:= 0 //FileName1 = FileName2 返回 0 end; 为什么 1 2 0 都可以正确返回，可是 -1 -2（就是文件不存在时）返回的还是1 2 请帮我看看。

hlei · 2005-09-15

呵呵，自己发现了... 谢谢,各位观众! 结贴.

app2001 · 2005-09-15

鼓掌欢迎，终于靠自己解决问题了，可喜可贺，嘿

hlei · 2005-09-15

呵，-_-!!!

SysUtils.FindFirst 的问题 ( 积分: 50 )

hlei

Unregistered / Unconfirmed

hlei

Unregistered / Unconfirmed

hlei

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

hlei

Unregistered / Unconfirmed

Similar threads