刚学delphi,问一个弱智的问题！！！(50分)

Y

yaoayao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #1

获得了当前的路径，比如：E:/delphi/../../../delphicgi
我如何获得每级目录的名字？

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #2

我业不太清楚，不过你可以给目录赋给一个字符串，进行字符穿处理‘/’是标志
（看没大虾回答，才说的，错了不要怪）[]

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #3

遇到这样的问题看看相关的控件再顺着看一看帮助你就可以学到东西了。
本人热爱Delphi，交个朋友。 wunoman@163.net

 

我

我爱delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #4

Self.caption:=Application.ExeName ;
返回当前程序的路径

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #5

随手写的，试试！
showmessage(GetCurrentDir((ExtractFilePath(ParamStr(0))),1));

 

Y

yaoayao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #6

delphi的字符串处理功能让我好失望！！！

 

Y

yaoayao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #7

没看懂！

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #8

呵呵，上面讲的都如何在Delphi获取当前执行文件的路径，如果你要路径分解，Look：
1、新建一个Application
2、在Form上加上一个ListBox和一个Button
3、在Button的OnClick事件中写：

代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  s,n:String;
  i:Integer;
begin
  s:=Application.ExeName;//取得当前执行文件名（含路径）
  n:='';
  ListBox1.Items.Add(s);//加入ListBox中
  for i := 1 to Length(s) do
  begin
    if s[i]<>'/' then //路径结束标志是'/'
      n:= n+s[i]//不是‘/’继续
    else begin
      ListBox1.Items.Add(n);//取路径完，加入列表
      n:='';
    end;
  end;
  ListBox1.Items.Add(n);//取得执行文件名，如果只要路径，可不加！
end;

 

Z

zhouhao007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #9

上面的程序不错，我也试试

 

S

Snakeguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #10

delphi的字符串处理功能真的那么差吗?有没有高手进来分析一下?[?]

 

Y

yaoayao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #11

接受答案了.