经常在大富翁里逛，也做一件有益于大家的事：自定义函数大收集。。。。谢绝口水主义者 (300分)

X

xiaoywh

Unregistered / Unconfirmed
GUEST, unregistred user!
想法的产生：CODE过程中常会自已写一些实用的小函数，而且越写越多，重复劳做太多。。。。。
计划：将收集到的所有自定义函数，分门别类的放入到UserFunctions.Pas中并定期公布给大家，目的是集百家之长，让所有富翁们真正的富起来
征集要求：要求功能尽量独立且实用、编码规范、没有版本限制，谢决DELPHI已有的功能函数
适用版本: 暂定为Delphi5
征集函数内容：1：功能说明；2：输入输出参数及自定义类型的说明；3：代码 ；4：当然还有富翁个人信息
征集方式：1：毛遂自荐 2：提出需求和建议大家共同解决
奖励方式：本人虽说分不多，但依然会努力挣分用以奖励提供函数的富翁
函数虽小....但它的用途我想就不用我说了吧...来吧一起行动

[8D][8D][8D][8D][8D][8D]
 
太多了，干脆你和RxLib一样，把字符串处理、API调用一类、VCL控件操作分类的了
PS：Jedi就有这样的项目，叫做Jedi Code Library（JCL）
 
关注
 
如果老哥愿意出一个Windows API调用实例大全，我倒是很有兴趣参加也。
不记得是VCHelp还是VCBase就正在筹集人手在编写所有Windows API的代码调用实例。
如果DFW也来一个Pascal版本的，那真是大大的宝藏呀。
 
多了自然要分门别类。。。。
 
好的函数是代码的精华
一起学习吧。。。。
 
想法不错，可惜我觉得意义已经不大，已经有很多现成的了，比如上面提到的JCL.
 
不如以DFW命个名
 
不如以DFW命名,大家积极参与?!
 
yh 老大，
我经常为一个API的调用搞到焦头烂额，来个MSDN的Delphi版本如何？Jedi只是翻译了
大部分的API，并没有太多API的调用实例，比如TAPI、TWAIN、VDMDBG等等，如果有你等高
手的积极参与，一个小组负责一个Windows DLL的所有函数调用，对于我等菜鸟有大益处呀！
[:D]
 
最新版API（包括WinXP支持的）的pascal定义已经有由JEDI写好了
Win32API.zip
New update of full expanded Win32 API Conversion, tested and in ongoing
development. Contains more updates for Windows XP and now includes 'jwa' prefix
on all unit names.
Win32API.zip
New update of full expanded Win32 API Conversion, tested and in ongoing
development. Contains a partial update for Windows XP (in addition to some new
files).
上传到这儿了：　
http://delphi.mychangshu.com/dispdoc.asp?id=267
 
积极响应：

提供四个进制操作常用的函数,见笑[:)][:)][:)][:)]
function DFWHexStrToInt(const S: string): Integer;
//十六进制转数字 S是一由0..9 a..f之间的字符组成的字符串
var
E:Integer;
begin
Val('$'+S, Result, E);
end;

以下三个同名函数是用来对数字型Value 按位Position 置位TRUE=1或FALSE=0
procedure DFWSetBitState(var Value:LongWord;Position:Byte;State :Boolean);;overload;
begin
if Position >= 32 then
Exit;
if State=true then
Value:=Value or ($1 shl Position)
else
Value:=Value and not($1 shl Position);
end;

procedure DFWSetBitState(var Value:Word;Position:Byte;State :Boolean);;overload;
begin
if Position >= 16 then
Exit;
if State=true then
Value:=Value or ($1 shl Position)
else
Value:=Value and not($1 shl Position);
end;

procedure DFWSetBitState(var Value:Byte;Position:Byte;State :Boolean);;overload;
begin
if Position >= 8 then
Exit;
if State=true then
Value:=Value or ($1 shl Position)
else
Value:=Value and not($1 shl Position);
end;

 
To 悲酥清风版主,
我要得不是定义呀，而是实例，比如OpenGL，看半天书看不明白，但是看个简单易懂实
例对照一下以后就基本有点概念了，能够知道函数的调用顺序和一些变量的定义规则了，对吧
 
这个提议不错
 
好的函数是代码的精华
所以要精华。
 
精华在哪里呀，精华在哪里,精华就在富翁们自已的大脑里。。。。
 
要有人整理才行啊
 
开这样一个贴的目的是在于大家共同学习和讨论，谢绝那些只有口水没有行动的￥＃％…—
不分水平高低有想法并赴之实施才是最好的
我记得有很多贴子在讨论如何提高水平，这里就是一种途径
向wwffaaa学习！！！！[:)][:)][:)][:)]
 
你是不是说俺光有口水没有行动吧？俺倒不是生气而和你抬杠。实话说了，不是俺没有自己的
函数单元，也不是俺怕水平太次而拿不出手，而是如果俺贴上来，你得足足瞧上十来二十个
Page Up你还看不到头呢，再者说了，不说DFW几十万的帖子你有没有看完，就是Hubdog的葵花
宝典、Kingron的Delphi收录就够你研究一年半载的了 老大呀，
http://kingron.myetang.com
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
873
DelphiTeacher的专栏
D
顶部 底部