当前位置:主页>仓库管理软件> 列表

50分求: 如何用delphi建立包含有ÿ字符的 找小型财务软件

仓库管理软件版1楼: 如何用delphi建立包含有ÿ字符的文件名,如 QQÿ.exe
我把字符串 QQÿ.exe 复制到delphi代码窗口就变成了 QQ?.exe ,请高手帮忙!

2楼: delphi代码窗口好象是ANSI编码,你可以试试把文件名保存在UniCode编码的文件读取试试 如小型财务软件

3楼: var
FN:WideString;
begin
FN:=WideString(''c:\QQ'')+WideChar($00FF)+''.exe'';
CreateFileW(PWideChar(FN),GENERIC_READ,FILE_SHARE_READ,nil,CREATE_NEW,
FILE_ATTRIBUTE_ARCHIVE,GENERIC_READ)
end;

4楼: SparkV:
如果我要建立C:\QQÿ 这样的文件夹,怎么做?实现了就给分了!

5楼: 一样的,CreateFileW函数不仅能创建文件,也可以创建文件夹,你看一下这个函数的帮助就清楚了。

6楼: 我修改成如下,但是不行啊,晕,小弟我学delphi不久,请赐教!
var
FN:WideString;
begin
FN:=WideString(''c:\QQ'')+WideChar($00FF;
CreateFileW(PWideChar(FN),GENERIC_READ,FILE_SHARE_READ,nil,CREATE_NEW,
FILE_ATTRIBUTE_ARCHIVE,GENERIC_READ)


end;

仓库管理软件版7楼: 那就用专门的文件夹创建函数:

var
FN:WideString;
begin
FN:=WideString(''c:\QQ'')+WideChar($00FF);
CreateDirectoryW(PWideChar(FN),nil)
end;

8楼: 通过,谢啦!

9楼: sperkv:
你是高手啊。问题到是解决了,不过我还想附加问一个问题,比如我在C:\QQÿ里有一个文本文件bb.txt,内容为abc,如果通过程序读这个文件并取出abc啊。

10楼: 安装TntUnicode控件包,它里面有一个Unicode版本的TFileStream类,用这个类可以读取包含Unicode字符的文件名的文件。