DELPHI中的一个迷惑
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
The Attr parameter specifies the special files to include in addition to all normal files.
faDirectory Directory files
注意这里：in addition to all normal files
所以搜索出来的是文件夹和路径下的普通文件。
如果你想过滤的话，可以使用
if FindFirst(APath + '*', faAnyfile, SRec) = 0 then
//再加上判断
if ((sRec.Name = '.') or (sRec.Name = '..')) then
if sRec.Attr = faDirectory then ...
delphi 打开跟程序同目录的文件
要利用ParamStr函数，ParamStr(0)能获取EXE文件名，然后用ExtractFileDir函数取出目录名，看我下面的例子程序：
{$apptype console}
program temp;
uses sysutils;
var s:string;
begin
s:=ExtractFileDir(ParamStr(0));
s:=s+'\abc\kk.txt';
writeln(s);
end.
以上程序在DELPHI7下运行通过。
学Delphi的困惑
通俗的说: delphi 做win32应用,做c/s 多层架构的数据库,做MIS系统, 做桌面快速开发原型,还是相当有市场的,, 现在很多小公司需要用到哪些c/s架构的小型财务管理,仓库管理等等!用delphi开发哪叫一个快啊..
java主要是开发b/s架构的跨平台级的企业应用....
当然也有一些轻量级的架构给一般小型企业用....
看lz的发展方向了,最好能一块发展,,呵呵,,,加油!!!
在DELPHI中如何获得文件路径
begin
edit1.text:=extractfiledir(application.ExeName);
edit1.text:=extractfilepath(application.ExeName);
这个是获取自身目录的函数，两函数不同的是一个路径后带有"\"，一个没有
如果要获取打开文件的路径，使用opendialog控件（在dialogs控件组下）：
begin
if opendialog1.Execute then
edit1.text:=opendialog1.FileName ;
//在文本框显示路径
end;
delphi里的当前路径是什么意思 到底是什么路径 就是ExtractFilePath(ParamStr(0))表示什么路径 还有
ExtractFileDir：根据参数内容（绝对文件名）获取该文件所在的路径（不含最后面的那个斜杠）
getcurrentdir：获取当前路径，但是注意，此项值在调用OPENDIALOG或者SAVEDIALOG之后会被动态改变。
delphi里的当前路径是什么意思：是指EXE可执行文件所在路径
ExtractFilePath(ParamStr(0))表示什么路径：表示该可执行文件所在路径（完整路径）
delphi中当前路径的上一层 怎么表示：请参照以下函数
//以下代码纯手工输入，在DELPHI7下测试通过
//在USES里增加引用如下单元：StrUtils
function getParentDirectory: String;
var
cPath : String;
begin
cPath := ExtractFilePath(ParamStr(0));
if RightStr(cPath, 1) = '\' then
begin
cPath := LeftStr(cPath, Length(cPath) - 1);
end;
while RightStr(cPath, 1) '\' do
begin
cPath := LeftStr(cPath, Length(cPath) - 1);
end;
Result := cPath;
end;
如果有不明白的地方，请继续提问。乐于帮你解答，现在做DELPHI的人越来越少啦。
