如何得知一个目录里是否有文件，如果有，如何得到这个文件名（假设一个文件））(20分)

如何得知一个目录里是否有文件，如果有，如何得到这个文件名（假设一个文件））

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

按 F1看帮助吧

//给你些个函数
function GetFileInDir(ADir: string; AFileList: TStringList): Integer;
var
SearchRec: TSearchRec;
begin
AFileList.Clear;
Result := 0;
if (FindFirst(ADir+'*.*', faAnyFile, SearchRec)=0) then //目录中有文件
begin
AFileList.Items.Add(ADir+SearchRec.Name); //增加到文件列表中
while(FindNext(SearchRec)=0) do //查找下一个文件
AFileList.Items.Add(ADir+SearchRec.Name); //增加到文件列表中
FindClose(SearchRec); //关闭
end
Result := AFileList.Items.Count;
end;

用FindFirst()、FindNext()、FindClose()这三个函数组合，
具体请参见Delphi帮助文件关于它们的说明，里面有详细的例子。