社区
数据库相关
帖子详情
很希望大家把自己做项目中的小技巧共享出来
liangpei2008
2007-11-26 11:23:43
加精
很久没有在CSDN首页看到Delphi的技术分享贴了,大家努力啊~
...全文
7838
193
打赏
收藏
很希望大家把自己做项目中的小技巧共享出来
很久没有在CSDN首页看到Delphi的技术分享贴了,大家努力啊~
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
193 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
s11ss
2012-06-29
打赏
举报
回复
[Quote=引用 101 楼 的回复:]
No.4 脱字号表达的字符
Caption := ^:^3^7^!^.^'; //这句可以没有写错
[/Quote]
哥表示是第一次见到这种语句!
取昵称麻烦
2010-11-03
打赏
举报
回复
[Quote=引用 62 楼 lynmison 的回复:]
commonfn.pas到此结束。改天再贴 commonbss.pas、DbBridge.pas以及角色管理、用户管理等单元。
Delphi(Pascal) code
procedure G_BuildDBGridTitle(const DBGrid: TDBGrid; DicFields: TDicFieldList);
var
i: Integer;
ValueL……
[/Quote]
期待了几年了也没见到朋友说的这几个单元
西江月(WCQ)
2010-07-01
打赏
举报
回复
顶一下
西江月(WCQ)
2010-07-01
打赏
举报
回复
顶一下
西江月(WCQ)
2010-07-01
打赏
举报
回复
顶一下
liangpei2008
2008-12-19
打赏
举报
回复
真不错!
majaa
2008-09-26
打赏
举报
回复
收益多多,谢谢各位大师!
jxsbb
2008-08-25
打赏
举报
回复
这样的好贴,项上去!!!!
xsi_ido
2008-07-31
打赏
举报
回复
MARK
叽歪哦
2008-07-27
打赏
举报
回复
正在学习delphi中............
顶!!!!!!!!!!!!
xuancaoer
2008-07-06
打赏
举报
回复
mmaarrkk
Reverse.King
2008-07-06
打赏
举报
回复
来一个内存高速校验算法
function GetMemoryValue(aSource: Pointer; aSize: DWORD): PInt64; {获取指定内存MMX运算码和CheckMemory配对用}
asm
mov esi, aSource //开始地址
mov ecx, aSize //长度
shr ecx,6 //除64
mov eax,0
emms
pxor mm0,mm0
pxor mm1,mm1
pxor mm2,mm2
pxor mm3,mm3
pxor mm4,mm4
pxor mm5,mm5
pxor mm6,mm6
pxor mm7,mm7
@XorLoop:
pxor mm0, qword ptr [esi+eax]
pxor mm1, qword ptr [esi+eax+$8]
pxor mm2, qword ptr [esi+eax+$10]
pxor mm3, qword ptr [esi+eax+$18]
pxor mm4, qword ptr [esi+eax+$20]
pxor mm5, qword ptr [esi+eax+$28]
pxor mm6, qword ptr [esi+eax+$30]
pxor mm7, qword ptr [esi+eax+$38]
add eax,$40 //64
sub ecx, 1
jnz @XorLoop
pxor mm0,mm1
pxor mm0,mm2
pxor mm0,mm3
pxor mm0,mm4
pxor mm0,mm5
pxor mm0,mm6
pxor mm0,mm7
lea eax,[ESP+$8] //MMXValue
movq qword ptr [eax], mm0 //保存MMX运算值结果
Sfence
Emms
end;
function CheckMemory(aSource: Pointer; aSize: DWORD; MMXValue: PInt64): Boolean;
{内存校验检测,MMXVaule为内存正常值由GetMemoryValue获得,被修改返回True}
asm
mov esi, aSource //开始地址
mov ecx, aSize //长度
shr ecx,6 //除64
mov eax,0
emms
pxor mm0,mm0
pxor mm1,mm1
pxor mm2,mm2
pxor mm3,mm3
pxor mm4,mm4
pxor mm5,mm5
pxor mm6,mm6
pxor mm7,mm7
@XorLoop:
pxor mm0, qword ptr [esi+eax]
pxor mm1, qword ptr [esi+eax+$8]
pxor mm2, qword ptr [esi+eax+$10]
pxor mm3, qword ptr [esi+eax+$18]
pxor mm4, qword ptr [esi+eax+$20]
pxor mm5, qword ptr [esi+eax+$28]
pxor mm6, qword ptr [esi+eax+$30]
pxor mm7, qword ptr [esi+eax+$38]
add eax,$40 //64
sub ecx, 1
jnz @XorLoop
pxor mm0,mm1
pxor mm0,mm2
pxor mm0,mm3
pxor mm0,mm4
pxor mm0,mm5
pxor mm0,mm6
pxor mm0,mm7
mov eax,[ESP+$8] //MMXValue
movq mm1, qword ptr [eax] //读值比较
pxor mm0,mm1
movq qword ptr [eax], mm0 //保存结果
Sfence
Emms
xor esi,esi
cmp dword ptr [eax], esi
Jne @Fal
cmp dword ptr [eax+4], esi
Jne @Fal
xor eax,eax //检验成功
jmp @exit
@Fal: //检验失败
mov eax,1
@Exit:
end;
pilicat
2008-07-05
打赏
举报
回复
都不错啊,谢谢各位分享。
5207
2008-06-19
打赏
举报
回复
Delphi的Base64转流 及 流转Base64的方法
//Base64码转流
procedure Base64ToStream(const ABase64: WideString;
AStream: TStream);
var
objSS: TStringStream;
s: string;
begin
if ABase64 = '' then Exit;
objSS := TStringStream.Create(ABase64);
try
DecodeStream(objSS, AStream);
AStream.Position := 0;
finally
FreeAndNil(objSS);
end;
end;
//流转Base64
procedure StreamToBase64(AStream: TStream;
var ABase64: WideString);
var
objSS: TStringStream;
begin
objSS := TStringStream.Create('');
try
EncodeStream(AStream, objSS);
ABase64 := objSS.DataString;
finally
FreeAndNil(objSS);
end;
end;
来至:http://www.mini188.com/showtopic-567.aspx
Heyongfeng
2008-06-19
打赏
举报
回复
顶
了
luoyanqing119
2008-06-19
打赏
举报
回复
DELPHI2007的网上下载版只支持本地安装,通过网络安装不行.另外,2007的窗口不是浮动的,要改为浮动的.要做以下设置:
a、启动delphi2007,Tools->Options->Vcl Designer中,把Embedded designer的勾去掉,点Ok保存;
---------------最近用DELPHI2007,C#的一个外观翻版,很不习惯,还是5,6,7好
luoyanqing119
2008-06-19
打赏
举报
回复
ADO的数据集组件的Recordset在BDE的数据集组件中不可用,因为BDE不支持ADO序列
luoyanqing119
2008-06-19
打赏
举报
回复
delphi2007写通信程序时,应把默认的INDY10改为INDY9
--------------------------------------------------为了楼主的热情,不让它沉下去.
sunxing007
2008-06-18
打赏
举报
回复
我是delphi新人, 过来凑热闹
xgwzw0011
2008-06-18
打赏
举报
回复
很不错啊!
天行者还能再发点吗?
加载更多回复(173)
java源码包---java 源码 大量 实例
Java数据压缩与传输实例,可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、关闭输入流、关闭套接字关闭输出流、输出错误信息等Java编程小
技巧
。 Java数组倒置...
解决文件无法
共享
的
技巧
在 macOS 系统偏好设置的深处,有一些选项可让您与网络上的其他计算机
共享
Mac 上的文件和文件夹。...文件
共享
可能不起作用的原因有很多。我们在下面列出了几个场景,以及可能的修复方法。 1、
共享
文件夹或
地理空间数据
项目
实战——
共享
单车停车需求识别与地图匹配
在我们日常生活
中
,大家都骑过
共享
单车,现在的
共享
单车app里面都有这样一个功能:在地图上规划出了很多的单车停放栅栏(停放点),用户需要把单车停在停放栅栏内,否则就要扣钱交调度费。但有时候停放栅栏的规划并...
不同骨骼
共享
动画蓝图
在实际
项目
中
,开发者有时
希望
不同的骨架间
共享
同一套动画蓝图,尤其是状态机的重用,从而实现动画转换逻辑的统一的配置。实际运行时仍然使用骨架对应的动画资源。例如不同种类怪物的动画状态机
共享
。 引擎
中
的动画...
超实用的Vue 小
技巧
(开发常用整理)
学习成为一个更好的Vue开发者并不总是关于那些需要花时间和精力才能掌握的大概念。...在用 Vue 开发的这几年里,我学到了很多有用的
技巧
。有些很取巧,有些几乎每天都在用,有些则更高级--但它们都很有用。
数据库相关
2,507
社区成员
88,454
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章