问一个结构体，函数调用得问题(50分)

A

alpfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-26

• #1

用结构体.

type

Tfilename=recorde

ffilename:string ;

pfilename:string ;

end;

.

.

function findfile(var files:sting):tfilename;

var

filename:Tfilename;

s,i:integer;

begin

s;=pos(files,.);

shu[100]:=files;

for i=0 to s do


if shu='/' then

pfilename:=copy(files,i,lenght(files));

ffilename:=files-Pfilename;

end;

result:=filename;

end;

仅供参考

请问怎么用该函数返回值，比如我给函数一个参数file，让它返回pfilename，ffilename。请问代码怎么写，谢谢，急啊

 

C

colonel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-26

• #2

function findfile(var files:sting):tfilename;
begin
result.ffilename:=ExtractFileName(files);功能 返回绝对文件名
result.pfilename:= ExtractFilePath(files);功能 返回文件名所在的路径
end;

 

C

colonel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-26

• #3

-_-!!偶要分[][]

 

A

alpfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-26

• #4

接受答案了.