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

Êý×Öת»»´óдÈËÃñ±ÒµÄdelphiʵÏÖ

ÎÄÕÂÀ´Ô´£ºIT¹¤³ÌÐÅÏ¢Íø  http://www.systhinker.com/html/09/n-12309.html
֮ǰÓÃAccess×÷Ò»¸öÓ¦Ó㬵«ÕÒ²»µ½»õ±Òת»»³É´óдÈËÃñ±ÒµÄ¹¦ÄÜ£¨µ±È»¿ÉÒÔͨ¹ýexcel ת»»£¬µ«²»ÔÚÒ»¸öÓ¦ÓÃÉÏ£¬·ÅÆú£©¡£ÒÔΪ±È½Ï¼òµ¥£¬×Ô¼ºÊÔд£¬Ë­ÖªÓÃÁËÁ½¸öÍíÉÏ£¬²Å»ù±¾ÊµÏÖ£¬µ«Ã»ÓÐСÊýµã£¨Ôª£©ÒÔÏ»õ±ÒµÄת»»¡£Ò²Ã»ÓÐÕ×µÄÅжϡ£¶øÇÒ¶Ô×Ö·ûµÄºÏ·¨ÐÔҲûÓмìÑé¡£½ñÌìÓÐʱ¼ä£¬½«ÆäÍêÉÆÒ»Ï¡££¨¿ÉÄÜ»¹»áÓп¼ÂDz»Öܵĵط½£©
˼·£º
1¡¢ÅжÏÊÇ·ñ´øÓÐСÊýµãµÄ½ð¶î£¬Èç¹ûÊÇ£¬¾ÍÕÒ³öСÊýµãËùÔÚÊý¾Ý¡£¸Ãλ×Ö·û²»½øÐÐת»»¡£
2¡¢Ð¡ÊýµãǰµÄ×÷ΪÕûÊý룬½øÐÐת»»¡£ÕûÊýλµÄÿһλ¶¼Óбíʾ½ð¶îµÄ¼¶±ð£ºÊ°¡¢°Û¡¢Çª¡£¶øÇÒ»¹ÓÐÍò¡¢Òڵļ¶±ð¡£
3¡¢Ð¡ÊýµãºóµÄ×÷Ϊ½Ç¡¢·Ö¡¢Àå´¦Àí¡£
4¡¢Èç¹ûÓÐÁ¬ÐøµÄÁ㣬ֻÏÔʾһ¸öÁã¡£Èç50006,ÏÔʾΪÎéÍòÁ㽡£Èç¹ûÊÇ·¢ÉúÔÚʰ¡¢°Û¡¢ÇªÎ»£¬¸ÃÁ㻹Ҫȥµô¡£
view source
< id="highlighter_197338_clipboard" title="copy to clipboard" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="16" height="16" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0" type="application/x-shockwave-flash">
print?
000
function TForm1.changeRmb(const strRmb:string):string; 
001
var 
002
  txt,strhighlevel:string; 
003
  i,n,m,ilen,ipos:Integer;    //n¼Ç¼ÕûÊý²¿·Ö³¤¶È£¬m¼Ç¼·ÖÊý²¿·Ö³¤¶È 
004
   strarray,strlevel:array of string; 
005
   p:pchar; 
006
   ispoint:boolean;//ÅжÏÊÇ·ñÓÐСÊýµã 
007
begin 
008
  ispoint:=false; 
009
  result:=''; 
010
  ipos:=0; 
011
  m:=0; 
012
  txt:=Trim(strRmb); 
013
  i:=1; 
014
   p:=PChar(txt); 
015
//È¥³ý¿ªÍ·µÄ0£¬ÒÔ¼°. 
016
if ((txt[1]='0') and (txt[2]<>'.')) or (txt[1]='.') then 
017
begin 
018
   ShowMessage('µÚ1λ²»ÄÜΪ0»òÕßÊÇ.£¬Í˳ö²Ù×÷'); 
019
   exit; 
020
end; 
021
//¼ì²é×Ö·ûµÄºÏ·¨ÐÔ 
022
while (i<


Ïà¹ØÎĵµ£º

delphi virtual dynamic

dynamic¾ÍÊÇËüÊǶ¯Ì¬·½·¨£¬Ã»Óо²Ì¬µØÖ·£¬ËùÒÔËÙ¶ÈÂýÒ»µã
virtualÊÇÐé·½·¨£¬Èç¹ûÔÚ»ùÀàÖв»ÉùÃ÷³ÉÐé·½·¨µÄ»°£¬¼Ì³Ðºó£¬¸Ã·½·¨»áÌáʾһ¾¯¸æÐÅÏ¢£¬°Ñ»ùÀàÖз½·¨ÆÁ±ÎµôÁË
---------------------------------------------------------------
¶¯Ì¬£¨Dynamic£©ºÍÐéÄ⣨Virtual£©ºó¶¼¿ÉÒÔʹÓÃOverride¹Ø¼ü×ÖÔÚÅÉÉúÀàÖжԶÔÓ¦ ......

Delphiº¯ÊýºÍ¹ý³Ì

     ¹ý³ÌÎÞ·µ»ØÖµ£¬º¯ÊýÓзµ»ØÖµ¡£
     procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
     ÈçÉÏÀýËùʾ£¬¹ý³ÌÉùÃ÷ºÍ¶¨ÒåÖУ¬¶à¸ö²ÎÊýÊÇÓ÷ֺŸô¿ªµÄ£¬µ«ÔÚµ÷ÓÃʱÊÇÓöººÅ¸ô¿ªµÄ ¡£eg£º
  ......

Delphiµ÷ÓÃVC++6.0±àдµÄDll

ÓÃVC++6.0±àдÁËÒ»¸ö¼òµ¥µÄdll£¬ÀïÃæ°üº¬Ò»¸ö¼õ·¨º¯Êýsubtract(int a,int b)£¬DllÃüÃûΪff.Dll
´úÂëÈçÏ£º
1.ff.cpp:
// ff.cpp : Defines the entry point for the DLL application.
//
#include "StdAfx.h"
#include "ff.h"
BOOL APIENTRY DllMain( HANDLE hModule,
        ......

Delphi ÖÐÈçºÎ°²×°×é¼þ?


Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......

ÔÚDelphiºÍVCÖд´½¨ºÍµ÷Óö¯Ì¬Á´½Ó¿â

´ó¼ÒÔÚÈí¼þ¿ª·¢Ê±¾­³£»áÓöµ½ÕâÑùµÄÇé¿ö£¬ÔÚ²»Í¬µÄ¿ª·¢»·¾³ÖÐΪʵÏÖһЩ¹¦ÄÜÏàͬµÄ¹ý³Ì£¬ÓÉÓÚ¿ª·¢ËùʹÓõÄÉè¼ÆÓïÑÔ²»Í¬£¬Òò¶ø²»µÃ²»±àдÐí¶àÀàËÆµÄ´úÂ룬ÉõÖÁÓÐʱҪÔÚͬһ¸ö¿ª·¢»·¾³²»Í¬ÏîÄ¿ÖÐÖØÐ´´úÂ룬Õâ¾ÍÔì³ÉÁ˺ܴóµÄ×ÊÔ´ÀË·Ñ¡£¶¯Ì¬Á´½Ó¿âÄܽϺõĽâ¾öÕâ¸öÎÊÌâ£¬ÖØ¸´ÀûÓôúÂ뽫´ó´óÌá¸ßÁË¿ª·¢Ð§ÂÊ¡£Ò»°ã£¬Óû§ÔÚÓ¦ÓóÌÐò ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ