Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¿ØÖÆExcel2000ÐĵÃ

(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......

Delphi×ÔÊÊÓ¦·Ö±æÂÊ£¨±È½ÏÍêÃÀµÄÒ»¸ö·½·¨£©

procedure TfrmMain.FormCreate(Sender: TObject); //Ö÷´°ÌåFormCreateʼþ
var FWidth:integer;
begin
  if (screen.Width <> 1024) then  //¼ÙÉèÄãÉè¼Æ³ÌÐòʱµÄ·Ö±æÂÊΪ1024
  begin
    FWidth:=width;
    scaled:=true;
  & ......

Delphi 2010 µÄChar

½ñÌìÓÃdelphi 2010£¬×öÒ»¸ö¼òµ¥µÄÄÚ´æÓ³ÉäµÄ³ÌÐò£¬ÔÚdelphiÒÔǰ°æ±¾ÉÏÅܵĺúõijÌÐò£¬ÔÚ2010ÉÏ£¬¾ÓÈ»³öÏÖÁ˲»Í¬µÄЧ¹û£¬·¢ËͶ˷¢Ë͵Ä×Ö·û´®£¬½ÓÊÕ¶ËÖ»ÊÕµ½Ò»°ë£¬´ó¸Å³ÌÐòÈçÏ£º
·¢ËͶˣº
var
    str : String;
begin
  CopyMemory(@(PShare^.Data),str,Length(str));  //°ÑÊý¾Ý¿½±´µ½ ......

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 쵀RTTI

Ŀ¼
===============================================================================
¡Ñ RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹ØÏµ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class variable) µÄ¹ØÏµ
¡Ñ TObject.ClassType ºÍ TObject.ClassInfo
¡Ñ is ºÍ as ÔËËã·ûµÄÔ­Àí
¡Ñ TTypeInfo – RTTI ÐÅÏ¢µÄ½ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ