delphi ±à¼Æ÷ÈçºÎµÃÖªµ±Ç°ÐкÅ
´°¿ÚÖв¼ÖÃÒ»¸öRichEdit»òÕßmemo£¨ÃüÃûΪeditor£©£¬ÒÔ¼°Ò»¸öbutton¡£ÔÚbuttonµÄonclickʼþÖÐдÈëÏÂÁдúÂë¡£
¡¡¡¡ var
¡¡¡¡¡¡CurrentLine:Integer;
¡¡¡¡¡¡begin
¡¡¡¡ ¡¡¡¡CurrentLine:=Editor.Perform(em_ LinefromChar,SFFFF,0); ¡¡¡¡
¡¡¡¡¡¡¡¡ Application.MessageBox(PChar(¡äµ±Ç°ÐкÅÊǡ䣫IntToStr(CurrentLine)),¡äÏûÏ¢¡ä,mb_iconinformation); ¡¡¡¡
¡¡¡¡ end;
Ϊʲô»á±¨´íÄØ [Error] Unit1.pas(29): Illegal character in input file: '¡¡' ($A1A1)
[Error] Unit1.pas(31): Illegal character in input file: '¡¡' ($A1A1)
[Error] Unit1.pas(31): Undeclared identifier: 'em_'
[Error] Unit1.pas(31): 'END' expected but ',' found
¡£¡£¡£¡£¡£
´úÂë³öÏÖÁËÈ«½ÇµÄ¿Õ¸ñ(»úÄÚÂëΪ$A1A1)£¬±ÈÈçÔÚCurrentLine:=Editor......ÕâÐеÄCurrentLineÇ°Ãæ(ÓÐÁ½¸ö)£¬»¹ÓÐApplication.MessageBox......µÄApplicationÇ°Ãæ(ÓÐÒ»¸ö)£¬¼¸ºõÿһÐÐÖж¼ÓÐÈ«½ÇµÄ¿Õ¸ñ£¬¹À¼ÆLZÊÇ´ÓÍøÉϳÀ´µÄ´úÂ룬ÓÐÐ©ÍøÕ¾»á½«´úÂëÖеĿոñ»»³ÉÈ«½ÇµÄ£¬ÒÔÊÔͼ×èֹһЩÐÂÊֳϮ´úÂë¡£
em_ LinefromCharÖгöÏÖÁËÒ»¸ö¶àÓàµÄ¿Õ¸ñ¡£
Ã²ËÆÓÐÌØÊâ×Ö·û£¬½¨ÒéÊÖ¹¤ÖØÐ´£¬²»ÒªÓø´ÖÆÕ³Ìù
em_ LinefromChar,Ï»®ÏߺóÃæ¶àÁ˸ö¿Õ¸ñ
Delphi(Pascal) code:
¡¡¡
Ïà¹ØÎÊ´ð£º
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......