¡¡Delphi Tips¡¡
-----------------------------

¥­¡¼¥ï¡¼¥É̤À°Íý¡§

>> Index

¡ü 01/23 Windows Vista Âбþ¤ÎŽ±ŽÌŽßŽØºîÀ®¤Î¥Ý¥¤¥ó¥È¤Ï¡©
¡ü 10/12 DBGrid¤Ç¥ì¥³¡¼¥Éñ°Ì¤ÇÀ©¸æ
¡ü 07/20 FindComponent¤Ë¤Ä¤¤¤Æ
¡ü 03/20 ¤³¤³¤Ë¥¿¥¤¥È¥ë
¡ü 03/13 TNMPOP3¤ÎGetMailMessage()¤Ç¥¨¥é¡¼
¡ü 02/24 »ÈÍѸÀ¸ì¤Î¼èÆÀ
¡ü 01/31 paradox¤ÇǯÎð·×»»¤¹¤ë¤Ë¤Ï¡©
¡ü 06/25 ¥­¡¼¥Ü¡¼¥É¤Î¼ïÎà¤òȽÊÌ
¡ü 05/17 TToolButton¤ÎCaption¤¬¶õ¤Î¤È¤­¤Ë¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤·¤Þ¤¦
¡ü 06/20 ¥³¥ó¥È¥í¡¼¥ëÇÛÎó¤Îºî¤êÊý
¡ü 02/11 Delphi ´ØÏ¢¤Î¥á¡¼¥ë¥Þ¥¬¥¸¥ó¡¢¥Ë¥å¡¼¥¹
¡ü 02/08 CAB¥Õ¥¡¥¤¥ë¤ò²òÅࡦŸ³«¤·¤¿¤¤
¡ü 02/08 Delphi-ML¤Î²áµî¥í¥°¸¡º÷¥µ¡¼¥Ó¥¹

ºÇ½ª¹¹¿·¡§ 6274 ÆüÁ°

0360  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2007/01/23 techan <> rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2007/01/23 techan <> ÊÔ½¸
Windows Vista Âбþ¤ÎŽ±ŽÌŽßŽØºîÀ®¤Î¥Ý¥¤¥ó¥È¤Ï¡©

Delphi£³¤ÇºîÀ®¤·¤¿Ž±ŽÌŽßŽØ¤¬Vista¾å¤ÇÆ°ºî¤·¤Þ¤»¤ó¡£
¥Ý¥¤¥ó¥È¡¢Ãí°ÕÅÀ¤ò¤ª¶µ¤¨´ê¤¤¤Þ¤¹¡£

¤Ê¤ª¡¢Ž±ŽÌŽßŽØ¤Ï
  £Â£Ä£Å·Ðͳ¤ÇPARADOX¤ËÀܳ¤¹¤ë¡¢
  ¥×¥ê¥ó¥¿¾ðÊó¤ò¼èÆÀ¤¹¤ë¡¢
  INI¥Õ¥¡¥¤¥ë¤ò½ñ¤­´¹¤¨¤ë¡¢
¤È¤¤¤Ã¤¿¼ê½ç¤ò·Ð¤ÆÆ°ºî¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢
  INI¥Õ¥¡¥¤¥ë¤¬½ñ¤­´¹¤¨¤é¤ì¤Æ¤¤¤Þ¤»¤ó¡£

¥»¥Ã¥È¥¢¥Ã¥×¤â¡¢InstallShield¤ò»ÈÍѤ·¤Æ¤¤¤Þ¤¹¤¬¡¢
  ŽÃŽÞŽ°ŽÀÉôʬ¤ÏŽ²ŽÝŽ½ŽÄŽ°ŽÙ¤µ¤ì¤Þ¤¹¤¬¡¢
  ŽÌŽßŽÛŽ¸ŽÞŽ×ŽÑÉôʬ¤ÏŽ²ŽÝŽ½ŽÄŽ°ŽÙ¤µ¤ì¤Þ¤»¤ó¡£

¥¢¥É¥Ð¥¤¥¹¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
»²¾È¡§

0358  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2006/10/11 alesta rev 1.5
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2006/10/12 alesta ÊÔ½¸
DBGrid¤Ç¥ì¥³¡¼¥Éñ°Ì¤ÇÀ©¸æ

¤Ï¤¸¤á¤Þ¤·¤Æ¡£alesta ¤È¤¤¤¤¤Þ¤¹¡£
¤Þ¤ÀDelphi¤ò¤Ï¤¸¤á¤Æ¿ôÆü¤Î½é¿´¼Ô¤Ç¤¹¡£
¸½ºß¡¢¿·µ¬¥Õ¥í¥ó¥È¥·¥¹¥Æ¥àºîÀ®¤Î¤¿¤á¤Ë¡¢´û¸²èÌ̤òDelphi²½¤·¤Æ¤¤¤Þ¤¹¡£

¸½ºß¤É¤¦¤·¤Æ¤â¼Â¸½¤·¤¿¤¤¸½¾Ý¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
­¡DBGrid¤ò»ÈÍѤ·¤Æ¤Î¥ì¥³¡¼¥Éñ°Ì¤Ç¤ÎÆþÎϵ¬À©¤ò¤Ä¤±¤ë¤³¤È¡£
¤¿¤È¤¨¤Ð

­â Èóɽ¼¨  É½¼¨¹àÌÜ1  É½¼¨¶â³Û2¡¡É½¼¨¶â³Û3
1       1       A             10000     200000
----------------------------------------------------------
2       0       B             20000     300000
----------------------------------------------------------
3       0       C              5000     150000

¤Î¾ì¹ç¡¢A¤ÎÎó¤À¤±ÆþÎÏÉԲġ£B,C¤ÏÆþÎϲÄǽ¤È¤·¤¿¤¤¤Ç¤¹¡£
¤³¤Î¤è¤¦¤ÊÆ°ºî¤Ï¡¢Ä̾拾¥ó¥Ý¡¼¥Í¥ó¥È¤Ç¼Â¸½²Äǽ¤Ç¤·¤ç¤¦¤«¡£
²Äǽ¤Ê¾ì¹ç¡¢¤É¤¦¤¤¤¦¤Õ¤¦¤Ë¤¹¤ì¤Ð²Äǽ¤Ç¤·¤ç¤¦¤«¡£
½ÐÍè¤Ê¤±¤ì¤Ð¡¢StringGrid¤Ç¹Í¤¨¤Þ¤¹¤¬¡¢¤Ç¤­¤ì¤ÐDBGrid¤Ç
¼Â¸½¤·¤¿¤¤¤Ç¤¹¡£
Column»ØÄê¤Ç½ÐÍ褽¤¦¤Êµ¤¤¬¤¹¤ë¤Î¤Ç¤¹¤¬¡¢¥¤¥Ù¥ó¥È¤Ê¤É¤Ç
»î¤·¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢¤ï¤«¤ê¤Þ¤»¤ó¡£

­¢ÆÃÄê¥ì¥³¡¼¥É¤Î¿§¤òÊѤ¨¤ë¡£

­â Èóɽ¼¨  É½¼¨¹àÌÜ1  É½¼¨¶â³Û2¡¡É½¼¨¶â³Û3
1       1       A             10000     200000
----------------------------------------------------------
2       0       B             20000     300000
----------------------------------------------------------
3       0       C              5000     150000


¤Î¾ì¹ç¤À¤È¡¢É½¼¨¹àÌÜ1¤òA¢ªD¤ÈÆþÎϤ·¤¿»þÅÀ¤Ç¥ì¥³¡¼¥Éñ°Ì¤Ç¿§¤òÊѤ¨¤¿¤¤¤Î¤Ç¤¹¡£

­£Áê´Ø¤·¤Æ¹àÌܤòÊѤ¨¤ë¡£
­â Èóɽ¼¨  É½¼¨¹àÌÜ1  É½¼¨¶â³Û2¡¡É½¼¨¶â³Û3
 1     1       A             10000     200000
----------------------------------------------------------
 2     0       B             20000     300000
----------------------------------------------------------
 3     0       C              5000     150000

¤È¤¹¤ë¤È¡¢É½¼¨¹àÌÜA¤òD¤Ë¤·¤¿¾ì¹ç¡¢Èóɽ¼¨¹àÌܤò1¢ª5¡¡Åù¤ËÊѹ¹¡£

¥³¥ó¥Ý¡¼¥Í¥ó¥È¤Ï¡¢¥¯¥é¥¤¥¢¥ó¥È¥Ç¡¼¥¿¥»¥Ã¥È¡¢TQuery¤â¤·¤¯¤Ï
TTable¤ò»ÈÍѤ·¤Æ¤¤¤Þ¤¹¡£

¤Ê¤¬¤Ê¤¬¤È¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¤¬¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
»²¾È¡§

0356  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2005/07/20 TATSU rev 1.2
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2005/07/20 TATSU ÊÔ½¸
FindComponent¤Ë¤Ä¤¤¤Æ

ºÇ¶ádelphi¤ò»Ï¤á¤¿TATSU¤Ç¤¹¡£
ÁᮤǤ¹¤¬¡¢¼«Ê¬¤ÇÄêµÁ¤·¤¿´Ø¿ô¤ÎÃæ¤ÇFindComponent´Ø¿ô¤ò
»È¤¤¤¿¤¤¤Î¤Ç¤¹¤¬¡¢¥³¥ó¥Ñ¥¤¥ë»þ¤Ë̤ÄêµÁ¤Î¼±Ê̻ҤȤʤê
¥¨¥é¡¼¤¬½Ð¤Þ¤¹¡£
²¿¤«¤·¤Ê¤¯¤Æ¤Ï¤¤¤±¤Ê¤¤¤³¤È¤¬¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
ʬ¤«¤ëÊý¤¬¤¤¤Þ¤·¤¿¤é¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
»²¾È¡§

0355  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2005/03/20 gosen rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2005/03/20 gosen ÊÔ½¸
¤³¤³¤Ë¥¿¥¤¥È¥ë

¤³¤³¤«¤é¤¬ËÜʸ
£Ä£å£ì£ð£ù6personal¤Ê¤Î¤Ç¤¹¤¬¡¢Edit¥³¥ó¥Ý¡¼¥Í¥ó¥È¤Î¥Ç¡¼¥¿¤ò¥Õ¥¡¥¤¥ë¤ËÊݸ¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤ÐÎɤ¤¤Î¤Ç¤¹¤«¡©½é¿´¼Ô¤Î¤¿¤á¤Ç¤­¤ì¤Ð¤ï¤«¤ê¤ä¤¹¤¯¤´ÀâÌÀ¤·¤Æ¤¤¤¿¤À¤­¤¿¤¤¤Ç¤¹¡£
»²¾È¡§

0354  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2005/03/13 ÀĤ¤°ðºÊ rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2005/03/13 ÀĤ¤°ðºÊ ÊÔ½¸
TNMPOP3¤ÎGetMailMessage()¤Ç¥¨¥é¡¼

½é¤á¤Þ¤·¤Æ¡¢ÀĤ¤°ðºÊ¤È¤¤¤¤¤Þ¤¹¡£
¸½ºß¡¢Delphi5¡ÜWin2000¤Ç¡¢POP¥Ä¡¼¥ë¤òºîÀ®¤·¤Æ¤¤¤Þ¤¹¡£
¤½¤³¤Ç¡¢¤ß¤Ê¤µ¤ó¤Ë¤ªÊ¹¤­¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢TNMPOP3¤ÎGetMailMessage()¤¨¤ª¼Â¹Ô¸å¡¢Îã³°¤¬È¯À¸¤·¤Þ¤¹¡£
¡É-ERR problem retrieving message¡É
¤³¤ì¤Î°ÕÌ£¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£
¥¤¥ó¥¿¡¼¥Í¥Ã¥È¤Ç¤â¸¡º÷¤·¤¿¤Î¤Ç¤¹¤¬¡¢¥Ò¥Ã¥È¤·¤Þ¤»¤ó¡£

¤É¤Ê¤¿¤«¡¢¤´¶µ¼ø¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£
»²¾È¡§

0353  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2005/02/24 Nekotop rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2005/02/24 Nekotop ÊÔ½¸
»ÈÍѸÀ¸ì¤Î¼èÆÀ

Windows¤Î»ÈÍѸÀ¸ì¤ò¼èÆÀ¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£
¶ñÂÎŪ¤Ë¤ÏÆüËܸì¤È±Ñ¸ì´Ä¶­¤Î°ã¤¤¤ò¸¡½Ð¤·¤¿¤¤¤Î¤Ç¤¹¡£
»²¾È¡§

0351  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2004/01/31 ¤À¤¤¤º rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2004/01/31 ¤À¤¤¤º ÊÔ½¸
paradox¤ÇǯÎð·×»»¤¹¤ë¤Ë¤Ï¡©

¤¿¤È¤¨¤Ð¡¢¸Ä¿ÍÈֹ桢»á̾¡¢À¸Ç¯·îÆüÅù¤Î¹àÌܤò¤â¤Ã¤¿
¥Æ¡¼¥Ö¥ë¤«¤é¡¢¸Ä¿ÍÈֹ桢»á̾¡¢Ç¯Îð¤òselectʸ¤Ç¤È¤ê
¤À¤·¡¢Ç¯Îð¤Ç¥½¡¼¥È¤¹¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤Ë¤·¤¿¤é¤è¤í¤·¤¤
¤Î¤Ç¤·¤ç¤¦¤«¡©
»²¾È¡§

0199  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 1999/07/09 osamu rev 1.3
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2003/06/25 osamu ÊÔ½¸
¥­¡¼¥Ü¡¼¥É¤Î¼ïÎà¤òȽÊÌ

µ¡Âΰ͸¤Î¥³¡¼¥É¤ò¤è¤¯½ñ¤¯¤Î¤Ç¡¢°Ê²¼¤Î¤è¤¦¤Ê¥³¡¼¥É¤ò»ý¤Ã¤Æ¤¤¤Þ¤·¤¿¡£¹Í¤¨¤Æ¤ß¤ì¤Ð¡¢»È¤Ã¤¿¤³¤È¤Ï¤Ê¤¤¤Î¤Ç¡¢Ì¤¸¡¾Ú¤Ç¤¹¡£
# FMR ¤ÇÆ°¤¯ Win95 ¸«¤¿¤³¤È¤Ê¤¤¤Ê¡£

//¥­¡¼¥Ü¡¼¥É¥¿¥¤¥×¤¬ 7 (ÆüËܸìʸ»ú¤Î¥­¡¼¥Ü¡¼¥É) ¤Î»þ¡¢
//fnKeybInfo=1 ¤Ç¥µ¥Ö¥¿¥¤¥×¤òÆÀ¤ë¤È¡¢°Ê²¼¤ÎÃͤ¬ÊÖ¤µ¤ì¤ë
const
  kbdNEC98Regacy = $0D01; // PC-9800¥·¥ê¡¼¥º°ìÈ̤Υ­¡¼¥Ü¡¼¥É
  kbdNEC98Normal = $0D02; // PC-9801 VX/UX¡¢PC-98XL/XL2ÍÑ¥­¡¼¥Ü¡¼¥É (¥Î¡¼¥Þ¥ë ¥â¡¼¥É)
  kbdNEC98Hires  = $0D03; // PC-98XL/XL2ÍÑ¥­¡¼¥Ü¡¼¥É (¥Ï¥¤¥ì¥¾¥ê¥å¡¼¥·¥ç¥ó ¥â¡¼¥É)
  kbdNEC98LapTop = $0D04; // PC-9800¥·¥ê¡¼¥º ¥é¥Ã¥×¥È¥Ã¥×ÍÑ¥­¡¼¥Ü¡¼¥É

// DOS/VÂбþ¤Î¥­¡¼¥Ü¡¼¥É¤Î¥µ¥Ö¥¿¥¤¥×
const
  kbdPC101       = $0000; // 101¥­¡¼¥Ü¡¼¥É
  kbdPCAX        = $0001; // AX¥­¡¼¥Ü¡¼¥É
  kbdPC106       = $0002; // 106¥­¡¼¥Ü¡¼¥É
  kbdPC002       = $0003; // IBM-5576 002/003¥­¡¼¥Ü¡¼¥É
  kbdPC003       = $0004; // IBM-5576 001¥­¡¼¥Ü¡¼¥É
const
  kbdIBM         = $0000; // IBM
  kbdFUJITSU     = $0500; // ÉÙ»ÎÄÌ
  kbdMATSUSHITA  = $0A00; // ¾¾²¼
  kbdEPSON       = $0400; // EPSON
  kbdNEC         = $0D00; // NEC
  kbdTOSHIBA     = $1200; // Åì¼Ç

function GetMachineType: integer;
begin
  result := GetKeyboardType(1) and $ff00;
end;


[¥³¥á¥ó¥È]

DirectInput ¤Ç GetDeviceInfo ¤·¤Æ

> DIDEVTYPEKEYBOARD_PCXT        IBM PC/XT 83-key keyboard.  
> DIDEVTYPEKEYBOARD_OLIVETTI    Olivetti 102-key keyboard.  
> DIDEVTYPEKEYBOARD_PCAT        IBM PC/AT 84-key keyboard.  
> DIDEVTYPEKEYBOARD_PCENH       IBM PC Enhanced 101/102-key or Microsoft Natural
> DIDEVTYPEKEYBOARD_NOKIA1050   Nokia 1050 keyboard.  
> DIDEVTYPEKEYBOARD_NOKIA9140   Nokia 9140 keyboard.  
> DIDEVTYPEKEYBOARD_NEC98       Japanese NEC PC98 keyboard.  
> DIDEVTYPEKEYBOARD_NEC98LAPTOP Japanese NEC PC98 laptop keyboard.  
> DIDEVTYPEKEYBOARD_NEC98106    Japanese NEC PC98 106-key keyboard.  
> DIDEVTYPEKEYBOARD_JAPAN106    Japanese 106-key keyboard.  
> DIDEVTYPEKEYBOARD_JAPANAX     Japanese AX keyboard.  
> DIDEVTYPEKEYBOARD_J3100       Japanese J3100 keyboard.  

¤³¤ì¤é¤ÎÄê¿ô¤òÍøÍѤ¹¤ë¤Î¤â¥¢¥ê¤Ç¤¹¤Í¡£
DXHelp ¤Î Japanese Keyboard ¤Î¹àÌܤȤ¢¤ï¤»¤Æ¤ß¤ì¤Ð¤³¤ÎȽÊ̤«¤éUS Keyboard ¤Ë¤¿¤¤¤·¤ÆÄɲ䵤ì¤Æ¤¤¤ë¥­¡¼¥³¡¼¥É¤Èºï½ü¤µ¤ì¤Æ¤¤¤ë¥­¡¼¥³¡¼¥É¤¬¼è¤ê½Ð¤»¤Þ¤¹¤·¡£
»²¾È¡§

0328  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 2002/05/17 osamu rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 2002/05/17 osamu ÊÔ½¸
TToolButton¤ÎCaption¤¬¶õ¤Î¤È¤­¤Ë¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤·¤Þ¤¦

£Ñ¡§
TToolBar¤Î List¥×¥í¥Ñ¥Æ¥£¤È ShowCaptions¥×¥í¥Ñ¥Æ¥£¤òTrue¤ËÀßÄꤷ¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢Caption¤¬Ä¹¤µ£°¤Îʸ»úÎó(Caption='')¤Î¾ì¹ç¤Ë¥Ü¥¿¥ó¤Î²èÁü¤Î±¦Â¦¤Ë¥¹¥Ú¡¼¥¹£±¸Äʬ¤À¤±·ä´Ö¤¬½ÐÍè¤Þ¤¹¡£
VCL¥½¡¼¥¹¤òį¤á¤Æ¤¤¤¿¤é¡¢(Caption = '')¤Î¾ì¹ç¤Ë¤ï¤¶¤ï¤¶¥¹¥Ú¡¼¥¹¤ò£±¸ÄÄɲ䷤Ƥ¤¤ë¤è¤¦¤Ç¤¹¡£

£Á¡§
¸È©¤Ê¼êÃʤǤ¹¤¬¡¢Caption='&'¤Ë¤¹¤ë¤È¤È¤ê¤¢¤¨¤ºÉý¤Ïʸ»ú¤¬Ìµ¤¤¾õÂ֤ȤۤÜƱ¤¸¤Ë¤Ê¤ê¤Þ¤¹.⤷1¥É¥Ã¥È¤ÎÅÀ¤¬É½¼¨¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¤¬¡Ä
»²¾È¡§

0194  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 1999/06/20 ¤ª¤Ð£Ñ rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 1999/06/20 ¤ª¤Ð£Ñ ÊÔ½¸
¥³¥ó¥È¥í¡¼¥ëÇÛÎó¤Îºî¤êÊý

VisualBasic¤Ç¸À¤¦¤È¤³¤í¤Î¥³¥ó¥È¥í¡¼¥ëÇÛÎó¤òºî¤ê¤Þ¤¹¡£

¥³¥ó¥È¥í¡¼¥ëÇÛÎó¤È¤ÏDelphi¤Ç¸À¤¨¤Ð¥³¥ó¥Ý¡¼¥Í¥ó¥ÈÇÛÎó¤È¤Ç¤â
¸Æ¤Ù¤Ð¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡¢
¤Ä¤Þ¤êEdit[1]¡¢Edit[2]¡¢¤È¤¤¤¦¤è¤¦¤ËÇÛÎó¤È¤·¤Æ°·¤¨¤ë
¥³¥ó¥Ý¡¼¥Í¥ó¥È¤Î¤³¤È¤Ç¤¹¡£
¤³¤ì¤òÍѤ¤¤ì¤Ð

for i:=1 to 5 do
  Edit[i].text := IntToStr(i);

¤È¤¤¤¦¤è¤¦¤Ê·ÝÅö¤¬²Äǽ¤Ç¤¹
¤µ¤Æ¥³¥ì¤ò»È¤¦¤Ë¤Ï¤É¤Î¤è¤¦¤Ë¤¹¤ë¤«¤È¤¤¤¤¤Þ¤¹¤È
¥Ý¥¤¥ó¥¿¤ÎÇÛÎó¤òÍÑ°Õ¤·¤Æ¤½¤ì¤Ë¥³¥ó¥Ý¡¼¥Í¥ó¥È¤ò³ä¤êÅö¤Æ¤ë¤È¤¤¤¦»ö¤ò¤·¤Þ¤¹

ÃΤäƤ¤¤ë¿Í¤Ï¤·¤Ã¤Æ¤¤¤Þ¤¹¤¬¥³¥ó¥Ý¡¼¥Í¥ó¥È¤Ï
¼Â¤Ï¥Ý¥¤¥ó¥¿¤Ç¤¹¡£
¤À¤«¤é¥Ý¥¤¥ó¥¿ÇÛÎó¤ËÂåÆþ¤¹¤ë»ö¤¬½ÐÍè¤Þ¤¹¡£

type
  TForm1 = class(TForm)
¡¡¡¡¡Ê¡Ä¾Êά¡Ä¡Ë
  private
    EditArray: array[1..5] of TEdit;
  end;

EditÇÛÎó¤Î̾Á°¤ÏEditArray¤È¤·¤Þ¤¹¡£

¤½¤ì¤òForm¤ÎCreate¥¤¥Ù¥ó¥ÈÅù¤Ç
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:=1 to 5 do
    if FindComponent('Edit'+IntToStr(i))<>nil then
      EditArray[i] := TEdit( FindComponent('Edit'+IntToStr(i)) );
end;

¤³¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£
FindComponent('Edit1')¤Ç¸«ÉÕ¤«¤ë¥³¥ó¥Ý¡¼¥Í¥ó¥È¤ò
EditArray[1]¤ËÂåÆþ¤·¤Æ¤¤¤Þ¤¹¡£
¤³¤ì¤ÇEditArray[i].Text¤È¤·¤ÆEdit¤ò°·¤¦»ö¤¬½ÐÍè¤Þ¤¹¡£


TEdit¤À¤±¤Ç¤Ê¤¯TObject¤âÇÛÎó¤È¤·¤Æ°·¤¨¤Þ¤¹¤Î¤Ç
ObjArray: array[1..5] of TObject
¤ÈÄêµÁ¤·¤Æ
TObjArray[1]:= TObject( FindComponent('Edit'+IntToStr(1)) );
TEdit(ObjArray[1]).Text¤È¤·¤Æ»È¤¦»ö¤â½ÐÍè¤Þ¤¹
¤½¤¦¤¹¤ë¤ÈEdit¤ÈMemo¤òƱ¤¸ÇÛÎó¤Ë¤¤¤ì¤¿¤ê¤â²Äǽ¤Ç¤¹¡£
¤Þ¤¢¡¢¤³¤³¤Þ¤ÇɬÍפȤʤë»ö¤â¤Ê¤¤¤Ç¤·¤ç¤¦¤¬¡£
»²¾È¡§

0152  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 1999/02/11 osamu rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 1999/02/11 osamu ÊÔ½¸
Delphi ´ØÏ¢¤Î¥á¡¼¥ë¥Þ¥¬¥¸¥ó¡¢¥Ë¥å¡¼¥¹

¡¡¡ÁÀ¤³¦Ãæ¤Ç¸ø³«¤µ¤ì¤Æ¤¤¤ëºÇ¿·Delphi¥³¥ó¥Ý¡¼¥Í¥ó¥È¤ò¾Ò²ð¤¹¤ë¥Ë¥å¡¼¥¹¡Á
        Delphi Developer's Interface (http://www.interface.nu/)
8<---8<---8<---8<---8<---8<---8<---8<---8<---8<---8<---8<---8<---8<---
¤³¤Î¥á¡¼¥ë¥Ë¥å¡¼¥¹¤Î¹ØÆɤª¿½¤·¹þ¤ß¡¦¹ØÆɲò½ü¤Ï¡¢¤³¤Á¤é¤Ç¡£
¥Ð¥Ã¥¯¥Ê¥ó¥Ð¡¼¤â¥À¥¦¥ó¥í¡¼¥É¤Ç¤­¤Þ¤¹¡£ (¹ØÆÉ̵ÎÁ)
http://www.interface.nu/news/
»²¾È¡§

0039  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 1999/02/08 osamu rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 1999/02/08 osamu ÊÔ½¸
CAB¥Õ¥¡¥¤¥ë¤ò²òÅࡦŸ³«¤·¤¿¤¤

¥­¥ã¥Ó¥Í¥Ã¥È³«È¯¥­¥Ã¥È(CABinet Development Kit)¤ò
¡¡http://www.microsoft.com/workshop/
¤ÇÆþ¼ê¤¹¤ì¤Ð³«È¯¤¬¤Ç¤­¤Þ¤¹¡£
[Delphi-ML:19042]¤Ç¤Ï¡¢ÁýÅĴ÷´äºêÄÌ¿®µ¡¤µ¤ó¤¬»È¤¤Êý¤òÀâÌÀ¤·¤Æ¤¯¤À¤µ¤Ã¤Æ¤¤¤Þ¤¹¡£

Áí¹ç¥¢¡¼¥«¥¤¥Ð¡¦¥×¥í¥¸¥§¥¯¥È¤ËCAB¥Õ¥¡¥¤¥ëÍѤÎDLL¤â¤¢¤ë¤Î¤Ç¡¢¤³¤ì¤ò»È¤Ã¤Æ¤â¤¤¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£
¡¡http://www.csdinc.co.jp/archiver/
»²¾È¡§

0008  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    ºîÀ®¡§ 1999/02/08 osamu rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  ¹¹¿·¡§ 1999/02/08 osamu ÊÔ½¸
Delphi-ML¤Î²áµî¥í¥°¸¡º÷¥µ¡¼¥Ó¥¹

¼Â¤Ï»ä¤¬¡¢¥á¡¼¥ë¤Ë¤è¤ëDelphi-ML²áµî¥í¥°¸¡º÷¥µ¡¼¥Ó¥¹¤ò¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£
mailto:takeuchi@leed.t.u-tokyo.ac.jp °¸¤Æ¤Ë delphi-grep ? ¤È¤¤¤¦¥µ¥Ö¥¸¥§¥¯¥È¤Ç¥á¡¼¥ë¤òÁ÷¤ë¤È¾Ü¤·¤¤»È¤¤Êý¤¬ÊÖÁ÷¤µ¤ì¤Þ¤¹¡£
¤É¤¦¤¾¤´³èÍѤ¯¤À¤µ¤¤¡£

¤â¤Á¤í¤ó ../ ¤Ç¤â¤ä¤Ã¤Æ¤Þ¤¹¡£
»²¾È¡§

[¿·µ¬ºîÀ®] [ºÇ¿·¤Î¾ðÊó¤Ë¹¹¿·]

How To
Lounge
KeyWords

Tips
Delphi
Home
Osamu Takeuchi osamu@big.or.jp