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

Delphi Enum

ö¾ÙÀàÐÍ
¡¡¡¡Pascal³ÌÐò²»½öÓÃÓÚÊýÖµ´¦Àí£¬»¹¸ü¹ã·ºµØÓÃÓÚ´¦Àí·ÇÊýÖµµÄÊý¾Ý¡£ÀýÈ磬ÐÔ±ð¡¢Ô·ݡ¢ÐÇÆÚ¼¸¡¢ÑÕÉ«¡¢µ¥Î»Ãû¡¢Ñ§Àú¡¢Ö°ÒµµÈ¡£
1¡¢Ã¶¾ÙÀàÐ͵͍Òå
¸ñʽ:¡¡type ö¾ÙÀàÐͱêʶ·û=(±êʶ·û1,±êʶ·û2,¡­,±êʶ·ûn)
2¡¢Ã¶¾ÙÀàÐÍÊý¾ÝÌØµã
¢Ù ö¾ÙÔªËØÖ»ÄÜÊDZêʶ·û£»
ÀýÈ磬ÏÂÁÐÀàÐͶ¨ÒåÊǺϷ¨µÄ£º
¡¡¡¡ type days=(sun,mon,tue,wed,thu,fri,sat);
¡¡¡¡ colors=(red,yellow,blue,white,black,green);
¡¡¡¡ ¶øÏÂÁÐÀàÐͶ¨ÒåÊÇ´íÎóµÄ:
¡¡¡¡ type colortype=('red','yellow','blue','white');
¡¡¡¡ numbers=(1,3,5,7,9);
¶¨Òåö¾ÙÀàÐÍʱÁгöµÄËùÓÐö¾ÙÔªËØ¹¹³ÉÁËÕâÖÖö¾ÙÀàÐ͵ÄÖµÓò£¨È¡Öµ·¶Î§£©¡£

¢Ú ö¾ÙÀàÐÍÊôÓÚ˳ÐòÀàÐÍ
¡¡ ¸ù¾Ý¶¨ÒåÀàÐÍʱ¸÷ö¾ÙÔªËØµÄÅÅÁÐ˳ÐòÈ·¶¨ËüÃǵÄÐòºÅ£¬ÇÒÐòºÅ´Ó0¿ªÊ¼¡£
ÀýÈ磬¶¨Òåtype days=(sun,mon,tue,wed,thu,fri,sat);
Ôò£¬ ord(sun)=0,ord(mon)=1,¡­¡­£¬ÒÔ´ËÀàÍÆ¡£
ö¾ÙÀàÐÍÖеĵÚÒ»¸öÔªËØÎÞǰÇ÷£¬×îºóÒ»¸öÔªËØÎÞºó¼Ì¡£
pred(sat)=fri; succ(sun)=mon; ord(sat)=6;

¢Û ͬһ¸öö¾ÙÔªËØ²»ÄܳöÏÖÔÚÁ½¸ö»òÁ½¸öÒÔÉϵÄö¾ÙÀàÐͶ¨ÒåÖС£ÈçÏÂÁж¨ÒåÊÇ´íÎóµÄ:
¡¡¡¡ type color1=(red,yellow,white);
¡¡¡¡¡¡¡¡ color2=(blue,red,black);¡¡
ÒòΪredÊôÓÚö¾ÙÀàÐÍcolor1ºÍ color2
¢Ü ö¾ÙÀàÐͱäÁ¿Ö»ÄܽøÐи³ÖµÔËËãºÍ¹ØÏµÔËË㣬²»ÄܽøÐÐËãÊõÔËËãºÍÂß¼­ÔËËã¡£
¡¡¡¡ÔÚö¾ÙÔªËØ±È½Ïʱ£¬Êµ¼ÊÉÏÊÇ¶ÔÆäÐòºÅµÄ±È½Ï¡£
¡¡ÀýÈ綨ÒåÈçÏ£º
¡¡¡¡ type days=(sun,mon,tue,wed,thu,fri,sat);
¡¡¡¡¡¡¡¡ colors=(red,yellow,blue,white,black,green);
¡¡¡¡ var color:colors;
¡¡¡¡¡¡ ¡¡weekday:days;
¡¡ÔòÏÂÃæÓï¾äÊǺϷ¨µÄ: weekday:=mon;
¡¡¡¡ if weekday=sun then write('rest');
¡¡¶øÏÂÃæÓï¾äÊDz»ºÏ·¨µÄ:
mon:=1; ´í°Ñö¾ÙÖµµ±³É±äÁ¿Ãû£»
weekday:=blue£» ö¾ÙÖµblue²»ÊôÓÚö¾Ù±äÁ¿weekdayµÄÖµÓò£»
read(color); ö¾ÙÀàÐͱäÁ¿ ²»ÄÜÓöÁÓï¾ä½øÐи³Öµ£»
write(weekday); writeln(blue);²»ÄÜͨ¹ýдÓï¾äÊä³öö¾ÙÀàÐ͵ıäÁ¿ÖµºÍö¾ÙÖµ¡£

¢Ý ¿ÉÒ԰ѱäÁ¿µÄ˵Ã÷ÓëÀàÐ͵͍ÒåºÏ²¢ÔÚÒ»Æð£¬Èç:
¡¡¡¡var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);
¡¡¡¡¡¡ color:(red,yellow,blue,white,black,green);
¶Ôö¾ÙÊý¾ÝµÄÊäÈëÓëÊä³ö¿Éͨ¹ý¼ä½Ó·½Ê½½øÐС£ÊäÈëʱ£¬Ò»°ã¿ÉÊäÈëÒ»¸ö´úÂ룬ͨ¹ý³ÌÐò½øÐÐת»»£¬Êä³öʱ£¬Ò²Ö»ÊÇ´ò


Ïà¹ØÎĵµ£º

asp¡¢delphi¡¢oracleµÄ¼¼ÊõÎĵµ×ܽá

1) DelphiÏòoracleÖд«µÝ²ÎÊý ÈçoracleÖеIJÎÊýÃûΪerpcx 
´ð£ºÈç¹ûÏë´Ó±íÀïȡֵµ½oracle£¬Ôòerpcx:=trim(aq1.fieldbyname('erpcx').AsString);
·ñÔòÖ±½ÓÓÿؼþÃû×Ö
Óï¾äΪ
with aperp do    
begin
connection:=dm.ADOCerp;      
parameters.Clear;&nbs ......

delphi ¿ØÖÆ·Ö²¼Ê½Êý¾Ý¿âͨÐÅ·½Ê½

Ò»¡¢     ÍøÂç²¼¾Ö
   һ̨ÖÐÐÄSQL·þÎñÆ÷£¨¼ò³Æ£ºÖÐÐÄ·þÎñÆ÷£©£¬¶ą̀·Ö²¼ÔÚ²»Í¬µØÓòµÄSQL·þÎñÆ÷£¨¼ò³Æ£º±¾µØ·þÎñÆ÷£©£¬¸÷¸ö±¾µØ·þÎñÆ÷ºÍÖÐÐÄ·þÎñÆ÷¶¼ÄÜͨ¹ýinternetʵÏÖÍøÂ绥Á¬¡£
¶þ¡¢ËùÓÃÓïÑÔ¼°Êý¾Ý¿â£ºDelphi +Sql
¶þ¡¢     ͨÐÅÒªÇó
   ÿ̨±¾µØ·þÎñÆ ......

DelphiÓëXMLÎĵµ

ͬ²½³ÌÐò°¸Àý
procedure TGetOrderThread.PostDB(webnr:WideString);
var
  Err: String;
  SetWebnr:WideString;
  xmlDoc: IXMLDocument;
  root: IXMLNode;
  rowc: IXMLNode;//¼Ç¼Êý
  rows: IXMLNodeList;//Ö÷¼Ç¼Áбí
  row: IXMLNode;
  drows: IXMLNodeList;// ......

ÔõÑùÓÃDELPHI½ÓÊÕÉãÏñÍ·µÄͼÏó

community.csdn.net/Expert/topic/3423/3423580.xml?temp=.7675897
Ö÷¡¡¡¡Ì⣺  ÔõÑùÓÃDELPHI½ÓÊÕÉãÏñÍ·µÄͼÏó 
×÷¡¡¡¡Õߣº  benbenpear (±¿±¿) 
µÈ¡¡¡¡¼¶£º   
ÐÅ Óþ Öµ£º  100 
ËùÊôÉçÇø£º  Delphi GAME£¬Í¼Ðδ¦Àí/¶àýÌå 
ÎÊÌâµãÊý£º  0  ......

delphi + java µÄ·Ö²¼Ê½Ó¦ÓÃ˼¿¼

delphi  + java µÄ·Ö²¼Ê½Ó¦ÓÃ˼¿¼
ÓÃdelphi×ö½çÃæ²ã  javaÒµÎñÂß¼­²ã ÕâÑù¿´ÉÏÈ¥ºÜÃÀ°É£¿
¾ßÌåµÄʵÏÖ
java ×öÒµÎñÂß¼­²ã Ó¦¸ÃÓжàÖÖÑ¡Ôñ ÆóÒµ¼¶µÄÓÐEJB3, ÇáÁ¿¼¶µÄÓÐspring
ĿǰÔÚѧϰejb3£¬¸Ð¾õÓÃÀ´×öÒµÎñÂß¼­²ãÕæµÄºÜ²»´í¡£spring»¹Ã»ÓÐÁ˽â
½çÃæ²ãÓÃdelphi£¬RADÓ¦¸ÃÊÇdelphiµÄÓÅÊÆ¡£
¹Ø¼üµÄÎÊÌâµÄÈç¹û°Ñ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ