免费提供实用编程工具库(0分)

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-23

• #1

该工具库(AppFunc.Dll文件)现有三个功能，详见使用说明。
希望大富翁们能不断提供与完善工具库，造福于人民！
需要者报上E-mail地址。
{*功能：字符串反转
入力：待反转的字符串, PChar
出力：反转后的字符串, PChar
使用方法：ReverseStr(字符串);
(过程)
-Author Jams --Author Jams
*}

{*功能：求得路径串最后那条'/'的位置
入力：路径串, PChar
出力：最后那条'/'的位置, Inetger
使用方法：IncLinePos(ASCIIZ);
ASCIIZ--路径文件串;
(函数)
-Author Jams --Author Jams
*}

{*功能：查找一个文件的完全路径+文件名
输入：RootDir--要查找的根目录如: 'c:',或'd:/zx'
FileName--要查找的文件如: 'zx.bmp'
返回值:全路径文件名.如 'c:/windows/bmp/dfj/zx.bmp'
使用方法：FindFile(路径串，文件名串);
(函数)
--Author zx --Author :ZX (周旋)
}

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #2

jams:你是哪里人啊？ 怎么说话这么怪？
“入力”、“出力”这种叫法我第一次听说。
还有你把“/”的量词说成“条”？

你们的方言很奇特呀。
BTW:这种小函数库实在没什么营养。

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #3

做成DLL还不如做成*.pas函数库呢。只要uses 一下就可用，比调用DLL可省事多了。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #4

这都在“集思广益...”问题中做了解释！

 

L

liukeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #5

这样的工具库没实在什么意义。

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #6

liukeen的意思本人同意。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-26

• #7

少些埋怨，多些行动！以上诸位有何作为来奉献给大家呢？

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-26

• #8

对！
Jams的做法还是很好的，我们大家要是都象这样也不会老是
用什么rxlib lmdtools了．
Jams我要一份，不过Jams,作成.PAS的确可以方便许多呢！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-26

• #9

请教nuke,用rxlib和lmd 与 用jams的函数库有什么本质区别吗？

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-02

• #10

接受答案了.

 

W

wmwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-17

• #11

procedure filenameExt(lfilename:string;var file_ext:string);
var////////////////取扩展名
i:integer;
begin
i:=length(lfilename);
file_ext:=copy(lfilename,i-2,3);
end ;
procedure filenameDep(lfilename:string;var dfilename:string);
var/////////取文件名，pos2为最后一个‘/’的位置
pos1,pos2,i:integer;
sub:string;
begin
i:=length(lfilename);
sub:=lfilename;
pos1:=pos('/',sub);
pos2:=0;
while pos1>0do
begin
pos2:=pos2+pos1;
sub:=copy(sub,pos1+1,length(sub)-pos1);
pos1:=pos('/',sub);
end;
dfilename:=copy(temp_lfile,pos2+1,i-pos2-3);
end;