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

delphiÖÐexit,abort,break,continue µÄÇø±ð

exit: Í˳öº¯ÊýÌå
abort: Óöµ½Òì³£,°²¾²´¦Àí,¾ÍÊDz»ÏÔʾ²»Ìáʾ
break: Í˳öµ±Ç°Ñ­»·Ìå,°üÀ¨for ,while, repeatµÈÑ­»·Ìå
continue: ½áÊøÑ­»·Äڵı¾´Î´¦Àí,¼ÌÐø´ÓÑ­»·ÌåµÄ¿ªÊ¼Î»ÖüÌÐøÖ´ÐÐ
Exit ÊÇÌø³öµ±Ç°´úÂë¿é£¬Ò²¾ÍÊǵ±Ç°º¯Êý£¬Ìø³öºóÊÇÒª¼ÌÐøÏòÏÂÖ´Ðеģ¨Èç¹ûÓкóÐø´úÂ룩¡£
Abort ÊÇ´Ó EAbort ¹ýÀ´µÄ£¬¿ÉÒÔ¼¤·¢ exception£¬ÆäʵÖʾÍÊÇ Abort = RaiseException()£¬ÊÇÒ»¸ö²»³öÏÖ¶Ô»°¿òµÄÒì³£¡£ËùÒÔ Abort µÄÐÐΪºÍÒì³£ÊÇÒ»ÑùµÄ£¬Æä´úÂëÖ´ÐÐ˳ÐòÒ²ÊÇfollowÒì³£µÄÁ÷³Ì¡£
ÀýÈ磺
try
(1) //Ö´ÐÐÁË
abort;
(2) //²»Ö´ÐÐ
exception
(3) //Ö´ÐÐÁË
end;
Óà Abort Äܹ»Ö´ÐÐ exception Àï±ßµÄ´úÂ룬µ«ÊÇÈç¹ûÓà Exit£¬¾ÍÖ±½ÓÀ뿪£¬²»¹Ü exception¡£
ÀýÈ磺
procedure p1;
begin
p2;
p3;
end;
procedure p2;
begin
abort; //exit;
end;
procedure p3;
begin
//showmessage()..
end;
Èç¹ûÓà Abort£¬ÔòÖ´Ðв»µ½ P3£¬Èç¹ûÓà Exit ¾ÍÄܹ»Ö´Ðе½ P3


Ïà¹ØÎĵµ£º

DELPHI TListBox (TStringsÀà)ɾ³ý¿ÕÐеķ½·¨

    ֮ǰ×öÒ»¸ö³ÌÐò£¬ÓÃListBox¶ÁÈëÒ»¸öÎı¾Îļþ£¬µ«Îı¾ÖÐÓпÕÐУ¬ÎªÁËɾ³ýÆäÖеĿÕÐУ¬ÕÛÌÚÁ˺ó¤Ê±¼ä¡£
    Ïȸø³öÒ»¶Î´úÂë¸ø´ó¼Ò¿´
var
  i:Integer;
begin
  ListBox1.Items.LoadfromFile('data.txt');
  for i:=0 to ListBox1.Count - 1 do
  begin
  ......

ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý


Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb ServiceµØÖ·ÊÇhttp://smsinter.sina.com.cn/ws/smswebs ......

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí
choysan
2010-01-08 8:56:43
<1>ÀûÓÃUnitµÄInitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
ProgramÓëLibrary²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin..end.ÖмäÊÇ¿ÉÒÔд´úÂëµÄ£ ......

Delphi ¹Ø¼ü×ÖÏê½â[ÕûÀíÓÚ "³È×Ó" µÄÌû×Ó]


Delphi ¹Ø¼ü×ÖÏê½â[ÕûÀíÓÚ "³È×Ó" µÄÌû×Ó]
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλÖñ£´æÁË×Ö·û´®µÄ³¤¶È, ËùÒÔStrLenµÄÖµ¼´×Ö·û´®³¤¶È.
begin ......

DelphiÖ¸ÕëÀàÐÍdzÎö(¸½¼þ)

¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
    a: Integer;
    p: ^Integer;
begin
    with self.Memo1.Lines do
    begin
        ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ