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

  • 主题发起人 主题发起人 cjsh
  • 开始时间 开始时间
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

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部