Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi ½«Ò»¸öÕûÐÍÊý×é°´ÉýÐòÅÅÐò

лл 
LZµÄÍ·ÏñºÃåüÃİ¡

·½·¨ºÜ¶à£¬¿´¿´Êý¾Ý½á¹¹»òÕßÍøÉÏdownÒ»¸ö°É£¬³£ÓÿìËÙÅÅÐò·¨


¿ìËÙÅÅÐò£º

  procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
  var
    Lo, Hi, Mid, T: Integer;
  begin
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2];
    repeat
      while A[Lo] < Mid do Inc(Lo);
      while A[Hi] > Mid do Dec(Hi);
      if Lo <= Hi then
      begin
        VisualSwap(A[Lo], A[Hi], Lo, Hi);
        T := A[Lo];
        A[Lo] := A[Hi];
        A[Hi] := T;
        Inc(Lo);
        Dec(Hi);
      end;
    until Lo > Hi;
    if Hi > iLo then QuickSort(A, iLo, Hi);
    if Lo < iHi then QuickSort(A, Lo, iHi);
    if Terminated then Exit;
  end;


  procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
  var
    Lo, Hi, Mid, T: Integer;
  begin
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2];


Ïà¹ØÎÊ´ð£º

ÓÐûÓÐÈËÑо¿¹ýDelphi for PHP

ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£

ûÓÐÑо¿¹ý£¬ºÇºÇ

ÓÐɶÑо¿Í·£¿

ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡

ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿


ÒòΪ²»ÊìϤDelphi £ ......

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi¹ýÂËhtmµÄÎÊÌâ

HTML code:
<th scope="col">¿ì¼þµ¥ºÅ</th><th scope="col">²Ù×÷ʱ¼ä</th><th scope="col">¿ì¼þÁ÷³Ì</th>
</tr><t ......

delphi Òì²½Ïß³Ì

delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл

Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶

ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡­¡­¡­¡­*^_^*

¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå

ÕæÎÞÓï¡£¡£¿É ......

DelphiÕâôÁéÒìµÄ£¿

Delphi(Pascal) code:

var
str:array of string;
i:Integer;
j:Integer;
begin
SetLength(str,1);
for i:=0 to 4 do
begin
j:=Length(Str);
SetLength(str,Length(str)+1);
S ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ