delphi判断文件夹是不是存在

Posted 2023-05-04

要求写一个Delphi程序，判断此程序所在目录下是否存在某个文件夹。例如，首先获取到Delphi.exe所在目录 E:\A\B ，然后在判断此目录下是否存在C文件夹。

参考技术A var
AFilePath : string;
begin
AFilePath := ExtractFilePath(ParamStr(0)); //取当前程序运行目录
AFilePath := AFilePath + 'c'; //加上C文件夹
if DirectoryExists(AFilePath) then
ShowMessage('目录存在')
else ShowMessage('目录不存在');
end;本回答被提问者采纳 参考技术B DirectoryExists(目录路径)
//该函数用于判断指定目录是否存在，返回值为 Boolean 类型 参考技术C 如果文件夹名为：test
则：

var
exeDir,dir: string;
begin
exeDir := ExtractFileDir(application.ExeName); //E:\A\B
dir := exeDir + '\' + 'test';
if not DirectoryExists(dir) then
begin
//如果文件夹不存在,则执行一些代码
end;
end; 参考技术D procedure TForm1.Button1Click(Sender: TObject);
var path:string;
begin
path := ExtractFilePath( Application.ExeName);
if not DirectoryExists(path + 'c\') then
begin

ForceDirectories(path + 'c\');

end;
end;

end. 第5个回答  2011-03-24 DirectoryExists(目录路径)

delphi如何判断输入的是不是为中文

delphi如何判断输入的是否为中文
用户在Edit控件中输入一段文字，点击确定，判断输入的文字是否都是汉字，请给个例子。

参考技术A function IsIncludeChinese(string s): boolean;
begin
for i = 1 to length(s) do
begin
if (s[i]>128) then
begin
result := true;
break;
end
end
result := false;
end