子目录级文件搜索过程的实时显示，(10分)

R

rzlwj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-19

• #1

我定义了一个函数，进行子目录级文件搜索，为了显示搜索过程，我在参数中设置了var fdpath：string；在搜索过程对它动态赋值，假定函数为shfile（path：string；filename：string；var fdpath：string），使用时shfile（edit1。text，edit2。text，label1。caption）出错，编译器报告label1。caption与参数类型不符，请问是是何原因，该如何做？

 

G

gxg8816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-19

• #2

lebal 的 Caption: 为 TCaption;
需要转换类型

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-19

• #3

object不能做var变量

 

G

gxg8816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-19

• #4

type TCaption = string;

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-19

• #5

不要将对象属性的值作为引用参数传递

var
s:string;

shfile(edit1.text，edit2.text，s)
label1.caption:=s;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-20

• #6

同意Pipi.
先用一个临时的string作为变量传递参数,
然后再将string的值赋给label1.caption

 

R

rzlwj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-20

• #7

我想我没把问题说清楚，问题的关键是：函数shfile是把搜索的路径动态的赋给
fdpath，还是只把最后一个路径赋给fdpath。如果以下列方式：
var
s:string;

shfile(edit1.text，edit2.text，s)//{label1。caption代替s是为了对它动态赋值}
label1.caption:=s

则只能对label1。caption一次性赋值。无法作到让label1。caption动态显示shfile搜索过的路径。

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-20

• #8

在函数里面刷新Label1.Caption

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-20

• #9

将函数改个定义：
shfile(path:string;filename:string;var label: TLabel)

这样label1可以作为参数放进去
shfile(......,Label1)

过程里面里面 对 label.caption 赋值是可以的

 

R

rzlwj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-21

• #10

非常感谢pipi我的程序运行良好,你让我节省了许多时间,在此送上10分.