很希望大家把自己做项目中的小技巧共享出来

[liangpei2008]

很久没有在CSDN首页看到Delphi的技术分享贴了，大家努力啊~

[xgwzw0011]

很不错啊!
天行者还能再发点吗?

[sunxing007]

我是delphi新人， 过来凑热闹

[luoyanqing119]

delphi2007写通信程序时,应把默认的INDY10改为INDY9
--------------------------------------------------为了楼主的热情,不让它沉下去.

[luoyanqing119]

ADO的数据集组件的Recordset在BDE的数据集组件中不可用,因为BDE不支持ADO序列

[luoyanqing119]

DELPHI2007的网上下载版只支持本地安装,通过网络安装不行.另外,2007的窗口不是浮动的,要改为浮动的.要做以下设置:
a、启动delphi2007，Tools->Options->Vcl Designer中，把Embedded designer的勾去掉，点Ok保存；
---------------最近用DELPHI2007,C#的一个外观翻版,很不习惯,还是5,6,7好

[Heyongfeng]

顶
了

[5207]

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

[pilicat]

都不错啊，谢谢各位分享。

[Reverse.King]

来一个内存高速校验算法

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;

[xuancaoer]

mmaarrkk

[叽歪哦]

正在学习delphi中............
顶!!!!!!!!!!!!

[xsi_ido]

MARK

[jxsbb]

这样的好贴，项上去！！！！

[majaa]

收益多多，谢谢各位大师！

[liangpei2008]

真不错！

[西江月（WCQ）]

顶一下

[西江月（WCQ）]

顶一下

[西江月（WCQ）]

顶一下

[取昵称麻烦]

[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]
期待了几年了也没见到朋友说的这几个单元

[s11ss]

[Quote=引用 101 楼 的回复:]
No.4 脱字号表达的字符
Caption := ^:^3^7^!^.^'; //这句可以没有写错
[/Quote]
哥表示是第一次见到这种语句！