你最喜欢的一段程序代码？

[huangjin6133]

大家好！想发起一个问题，就是大家都做了这么久的编程了，有没有自己最喜欢的一段程序代码呢？不管是什么语言，我觉得精彩就可以，也可以用伪代码表示，再说说你喜欢它的理由，OK？

[yckxzjj]

Close

[ttllhh]

我学的好累。。。

[fhuibo]

with query do
begin
close;
sql.clear;
sql.add('select * from table');
try
execsql;
except
showmessage('error');
end;
end;

理由是经常用

[Eastunfail]

随手写的，没有经过测试。用来在程序中通过代码设置断点，而在发行的EXE中这些断电不会导致错误。用法例如：
myAssert(CompareText(Edit1.Text,'stop')=0); //当Edit1.text为stop的时候就停下来调试



procedure myAssert(cond:boolean);
begin
if cond then Debug_;
end;
procedure Debug_;assembler;
const dll='kernel32.dll';Entry='IsDebuggerPresent';
asm
push dll
call LoadLibrary
push eax
push Entry
push eax
call GetProcAddress
call eax
cmp eax,false
je @@exit
int 3
@@exit:
call FreeLibrary
end;

[zhoutian618]

try
//执行语句.
except
raise Exception.Create('您输入的数据有问题!');
end;

[tonylk]

{$INCLUDE define.inc}
unit {$IFDEF UNICODE}TLMUObject{$ELSE}TLMObject{$ENDIF};

interface

uses
Windows, Messages, SysUtils, Classes, {$IFDEF UNICODE}TLMUSystem{$ELSE}TLMSystem{$ENDIF};

type
{$IFDEF UNICODE}TtlmUObject{$ELSE}TtlmObject{$ENDIF} = class(TObject, ILangIntf)
private
FOwner:TObject;

...

[tonylk]

function EncodeUnicodeSQL(Value:WideString):String;
//encode the widestring to string of unicode ascii set
//be used for search unicode char in SQL server
//2003.03.21
var
I:Integer;
begin
Result:='';
for I:=1 to Length(Value) do begin
if I>1 then begin
Result:=Result+'+';
end;
Result:=Result+'NCHAR('+IntToStr(Word(Value[I]))+')';
end;
end;

[47522341]

个人认为：代码嘛，只要是自己写的，都没什么区别，
当时觉得再怎么好的代码，过一段时间好像都可以找到更好的来代替之，^_^，

[huangjin6133]

可能大家误解我的意思了，我应该想要的是比较精彩的算法吧！：）请大家继续，OK？