delphiÖйØÓÚstringgridÊý¾ÝÏÔʾ
ÎÒµÄÇé¿öÊÇÕâÑù£¬ÎÒÓÐÒ»¸östringgrid£¬ÏÔʾ4ÐУ¬Êý¾Ý¿âÖÐÓÐ100ÐУ¬ÒªÇóÈí¼þÔËÐÐʱÏÈÏÔÊ¾Ç°Ãæ4ÐУ¬È»ºó¸ô5ÃëÖкó¿ªÊ¼¸üÐÂÏÔʾµÄÊý¾Ý£¬ÔÚµÚÒ»ÐÐÏÔʾµÚ¶þÌõ¼Ç¼£¬µÚ¶þÐÐÏÔʾµÚÈýÌõ¼Ç¼£¬¡¡µÚËÄÐÐÏÔʾµÚÎåÌõ¼Ç¼£¬ÒÀ´ÎÏòÉϹö¶¯£¬Ö±µ½ÏÔʾÍê×îºóÒ»Ìõ¼Ç¼£¬ÔÙÖØÐ´ӵÚÒ»Ìõ¼Ç¼¿ªÊ¼ÏòÉÏÏÔʾ¡£ »òÕßÒ²¿ÉÒÔÕâÑùÏÔʾ£¬5ÃëºóÖ±½ÓÔÚµÚÒ»ÐÐÏÔʾµÚÎåÌõ¼Ç¼£¬¡¡µÚËÄÐÐÏÔʾµÚ°ËÌõ¼Ç¼£¬È»ºó5ÃëºóÏÔʾ9¡«12Ìõ¼Ç¼¡£
ÕâºÃ°ìѽ,Óøötimer¼ÓÉÏÒ»¸ö¼ÆÊýÆ÷¾ÍÐÐÁË,µ½Ê±×Ô¶¯Ë¢ÐÂÒ»Ï Ч¹û¿Ï¶¨Ã»ÄãÏëÏóµÄÄÇôºÃ£¬Òª¹ö¶¯»¹Êǽ¨Òé×Ի棬°´ÏñËØ¹ö¶¯²Å»áÊæ·þ Èç¹û¼Ó¸ötimer£¬Ö»ÏÔÊ¾Ç°Ãæ4¸ö°¡£¬ºóÃæµÄÔõôÏÔʾ°¡ °Ñ100Ðзŵ½ss:Tstringlist stringgrid1Ö»Éè4ÐÐ ¶¨Ê±Æ÷ʼþ£º Delphi(Pascal) code: inc(p); for i:=0 to 3 do stringgrid1.cells[0,i+1]:=ss[(p+i) % 100]; ²»Ðа¡£¬ stringgrid1.cells[0,i+1]:=ss[(p+i) % 100];ÔÚ%ÕâÀï±§´í¡£ ˵ÊÇ·Ç·¨×Ö·û %ÊǸöɶ£¬ÄãÒª¸ÉÂï ÒýÓà ÒýÓà 5 Â¥ sunrainxue µÄ»Ø¸´: ²»Ðа¡£¬ stringgrid1.cells[0,i+1]:=ss[(p+i) % 100];ÔÚ%ÕâÀï±§´í¡£ ˵ÊÇ·Ç·¨×Ö·û Ŷ£¬Ó¦¸Ã¸ÄΪ mod ¡£%ÊÇcµÄÓï·¨ÁË¡£ºÇºÇ ¸Ðлsz_haitao µÄÖ¸µ¼£¬²»¹ýÄãµÄ˵·¨²»Æð×÷Óã¬Ö»ÄÜÏÔʾ1¡«4Ìõ¼Ç¼¡£ ÏÖÔÚÎÒ¸ÄÓÃmove£¬ÍêÃÀ½â¾öÎÊÌâÁË¡£ for i:=0 to adoquery1.recordcount-2 do ss.move[i]:=ss.move[i+1]; pÒªÉè³ÉÈ«¾Ö±äÁ¿»òÕß´°ÌåµÄÊôÐÔ
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd() ¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book'); ʱÌáʾstradd䶨Òå... Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤! (ÔÚA ......
procedure RunFunction; type TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä var ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿ ÎÞÈ˻ش𣿠×ö³É×ÊÔ´Î ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦: type GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå Data1: integer; Data2: Shortint; Data3: Shortint; ......
СµÜÎÒÓÃADOÁ¬½ÓSQL server 2000Êý¾Ý¿â£¬È»ºóÔÚDBGridÖÐÏÔʾ£¬ÏÖÔÚÏë°ÑÔÚDBGridÖвéѯµ½µÄÊý¾ÝiPlot×÷ͼ£¬ÇëÎÊÈçºÎʵÏÖÔÚDBGridÖеÄÊý¾Ý¶ÁÈ¡£¬¶Á³öµÄÊý¾ÝÊÇSTRINGÀàÐ͵ģ¬ÈçºÎÓÐЧµÄת±ä³ÉÊý¾Ý¿âÖÐËù´æ´¢µÄDOUBLEÀàÐ ......