一个自定义函数的问题与Delphi常用函数的用法？ (95分)

C

cjsh

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位高手帮小弟一个忙:wjh107@sina.com
写一个通用函数GetStr(Str1,Str2:String):String
传入参数E:/Program Files/
Work/App.exe，Str:='A'或（'B','C'）
当Str:='A'时函数返回'E;';当Str:='B'时函数返回'E:/Program Files/Work/'
当Str:='C'时函数返回'App.exe';这些参数值心须从Str1取从得到。
 
不知道你在问什么！能说详细点嘛？
 
自定义函数首先要申明，定义，然后才能调用。

delphi常用函数只要直接调用就可以。

有什么具体问题还可以提出来讨论
 
funtion GetStr(Str1, Str2: String): String;
begin
if Str2 = 'A' then
Result := ExtractFileDrive(Str1)
else if Str2 = 'B' then
Result := ExtractFilePath(Str1)
else if Str2 = 'C' then
Result := ExtractFileName(Str1)
else
Result := '';
end;

 
呵呵，建议你用case 语句，if太多反而麻烦~

再问，你有什么问题吗，你问题的开头跟这个内容有什么联系吗？
 
楼上那位，搞错了吧！
 
tseug写得很对，这用不了case语句的
 
up一下也行,赶快来呀，我要收贴了
 
返回路径时要看情况，在后面加“/”
 
取得文件名
ExtractFileName
取得路径（结尾总有有'/'字符）
ExtractFilePath
取得路径（结尾没有'/'字符，除非根目录）
ExtractFileDirectory
另外可以用CASE，只要Case Str2[1] of 就行了（因为字符型是顺序型的）
 
这家伙今天提的问题很有意思... 哈哈...
 
哈哈，对str进行pos找'/'，你的函数何用阿？
太没意思了吧？
 
您必须登录或注册才可回复。

Similar threads

蓝
请教一个函数的算法！(150分)
回复
8
查看
90
蓝山咖啡
蓝
V
请帮忙编一个函数(200分)
回复
14
查看
107
Vinson
V
O
在函数定义时参数写法问题(100分)
回复
5
查看
100
人在昆明
人
拾
初学者的问题： 使用回调函数作参数的函数 与 回调函数 (30分)
回复
8
查看
137
拾荒者
拾
A
构造函数和析构函数的问题(0分)
回复
5
查看
76
awfigsk
A
顶部