‚‚¾‚·‚êDelphi(’´‰ ..
2: ŸXcB18Bks.Y
08/03/12 21:10:09
<ŠÖ˜AƒXƒŒ>
yDelphiz IndyƒRƒ“ƒ|[ƒlƒ“ƒg yC++Builderz
½ÚØÝ¸(tech”Â)
Delphi‰SŽÒ‚Ì‚½‚߂̎›Žq‰®
½ÚØÝ¸(tech”Â)
delphi‚Åì‚Á‚½—L–¼ƒ\ƒtƒg‚Á‚ĉ½‚ª‚ ‚é‚ÌH
½ÚØÝ¸(tech”Â)
DelphiŽ‚Á‚Ä‚é‚È‚çGLScene‚ðŽg‚¦
½ÚØÝ¸(tech”Â)
yDelphiŒÝŠ·!?zFreePascalyGPLz
½ÚØÝ¸(tech”Â)
yDelphiz ƒQ[ƒ€‚‚‚邼(ß„Dß)ºÞÙ§ ‚QyDelphiz
½ÚØÝ¸(gamedev”Â)
Delphi‚ŃAƒNƒVƒ‡ƒ“ƒQ[ƒ€‚ªì‚肽‚¢II Part2
½ÚØÝ¸(gamedev”Â)
ƒlƒbƒgƒ[ƒNƒQ[ƒ€ì¬‚Ì‚¨•׋iDelphiê—pƒXƒŒj
½ÚØÝ¸(gamedev”Â)
delphi‚ÅMMO
½ÚØÝ¸(gamedev”Â)
3:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/12 21:17:05
>>1‰³‚Å‚·
‘OƒXƒŒ‚Ì991‚Å‚·‚ªˆø‚«‘±‚«‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·
991 –¼‘OFƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ[sage] “Še“úF2008/03/12(…) 16:55:10
Œ»Ý•׋‚̈êŠÂ‚Æ‚µ‚ÄVCL‚ðŽg‚킸‚ÉAPI‚¾‚¯‚ŃvƒƒOƒ‰ƒ€‚ð‘‚¢‚Ä‚¢‚é‚̂ł·‚ªA
IEƒRƒ“ƒ|[ƒlƒ“ƒg‚̃uƒ‰ƒEƒU‚Í쬉”\‚Å‚µ‚傤‚©H
CreateWindow‚ÅuAtlAxWinv‚ÆuShell.Explorer.2v‚ðŽw’肵‚Ă݂½‚̂ł·‚ªì¬‚³‚ê‚Ä‚¢‚È‚¢‚Ì‚©ƒtƒH[ƒ€‚ÍŠDF‚̂܂܂ł·
‚Ü‚½ANavigate‚Ì•û–@‚à‹³‚¦‚Ä‚‚¾‚³‚邯Œõ‰h‚Å‚·
4:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/12 21:53:20
>>3
DelphiŒÅ—L‚Ì–â‘è‚ł͂Ȃ¢‚悤‚ÈB
5:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/12 23:13:06
>>3
‚»‚è‚á‰Â”\‚Å‚µ‚傤B
VCL‚Åì‚ê‚é‚È‚çAVCL‚̃\[ƒXŒ©‚ê‚΂¢‚¢‚¾‚¯B
>‘OƒXƒŒ989
> Delphi‚ɂ͖¢—ˆ‚ª‚ ‚é‚ñ‚Å‚µ‚傤‚©H
–¢—ˆ‚ÍŽ©•ª‚Åì‚é‚à‚ÌB
>990
> ŽÀsŽžƒpƒbƒP[ƒW‚ðŽg—p‚µ‚ăRƒ“ƒpƒCƒ‹‚µ‚½‚¢‚̂ł·‚ªA
>“Á’è‚Ìpasƒtƒ@ƒCƒ‹‚¾‚¯‚ÍÓIƒŠƒ“ƒN‚·‚é‚ɂ͂ǂ¤‚µ‚½‚ç‚Å‚«‚Ü‚·‚©H
ƒ†ƒjƒbƒg–¼‚ð•Ï‚¦‚ê‚Îo—ˆ‚éB@•Ï‚¦‚¸‚ɂł«‚é‚©‚Ç‚¤‚©‚Í‚â‚Á‚Ă݂ÄB
‚Å‚àAƒpƒbƒP[ƒW“à‚̃†ƒjƒbƒg‚ðŽÀsŽž‚É’u‚«Š·‚¦‚邱‚Æ‚Ío—ˆ‚È‚¢‚ÆŽv‚¤‚æB
6:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 09:41:14
Delphi‚ÌADOQuery‚ÅSQLServer‚ֈȉº‚Ì‚±‚Æ‚ð‚µ‚Ä‚¢‚Ü‚·B
ESelect•¶‚𓊂°‚é
EQuery“à‚ðƒ‹[ƒv‚µ’ •[‚Ö‘‚«o‚·
ŋߒ •[‚ª’x‚¢‚ÆŒ¾‚í‚ꂽ‚Ì‚ÅASQLServer‚̃e[ƒuƒ‹‚ÖƒCƒ“ƒfƒbƒNƒX‚ð“\‚Á‚½‚Æ‚±‚둬“x‚ª‘¬‚‚È‚Á‚½‚̂ł·‚ªA
‚È‚º‚©uSelect•¶‚ÌŽÀsvŽžŠÔ‚ł͂ȂuQuery“à‚ðŽQÆ‚µ‘‚«o‚·vŽžŠÔ‚̂ق¤‚ª‘‚‚È‚Á‚Ä‚¢‚Ü‚µ‚½B
ƒCƒ“ƒfƒbƒNƒX‚ÅQuery‚ÉŒ‹‰Ê‚ðŠi”[‚µ‚½Œã‚ÌŽQÆŽžŠÔ‚à•Ï‚í‚é‚à‚̂Ȃ̂łµ‚傤‚©H
7:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 10:05:16
•Ï‚í‚邿B
‚½‚¢‚Ä‚¢H‚̃f[ƒ^ƒx[ƒX‚ÍSELECT•¶‚ðŽÀs‚µ‚ÄAʼn‚Ì”s‚ªŒˆ’肳‚ꂽ
’iŠK‚ŃNƒ‰ƒCƒAƒ“ƒg‘¤‚ɉž“š‚ð•Ô‚·B‚ÅAƒNƒ‰ƒCƒAƒ“ƒg‘¤‚ªƒJ[ƒ\ƒ‹‚ð
Žg‚Á‚ătƒFƒbƒ`‚µ‚È‚ª‚çA‚»‚Ì— ‚Ńf[ƒ^ƒx[ƒXƒT[ƒo[‚Í‘±‚«‚Ìs‚ðˆê¶Œœ–½
‹‚߂Ă¢‚éB‚‚܂èAŒN‚ÌŒ¾‚¤uSelect•¶‚ÌŽÀsvŽžŠÔ‚Æ‚ÍAƒT[ƒo[‚©‚ç
‰ž“š‚ª•Ô‚Á‚Ä‚«‚½ŽžŠÔ‚Å‚ ‚Á‚ÄAƒT[ƒo[‘¤‚ł͂܂¾ˆ—‚ÍI‚í‚Á‚ĂȂ¢‚ñ‚¾‚æB
8:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 10:19:54
ŒãA•¶Í‚©‚ç”»’f‚·‚邯CursorLocationƒvƒƒpƒeƒB‚ªclUseServer‚̃T[ƒo[ƒJ[ƒ\ƒ‹Žg‚Á‚Ä‚»‚¤‚¾‚ËB
ƒT[ƒo[ƒJ[ƒ\ƒ‹‚È‚çƒf[ƒ^ƒx[ƒX‚̃J[ƒ\ƒ‹‚Æ“¯‚¶‚Æl‚¦‚Ä‚¢‚¢‚¯‚ÇA
clUseClient‚̃Nƒ‰ƒCƒAƒ“ƒgƒJ[ƒ\ƒ‹‚ÉÝ’è‚·‚邯AADO‚ªSELECT•¶‚ðŽÀs‚µA
‚·‚ׂĂÌs‚ðƒNƒ‰ƒCƒAƒ“ƒg‚̃ƒ‚ƒŠ‚ðƒtƒFƒbƒ`‚·‚é‚Ü‚ÅA‰ž“š‚ð•Ô‚³‚È‚¢‚©‚ç
ŒN‚Ì‘ª’è‚à‚Ü‚½•Ï‚í‚éB‚»‚̕ςí‚èAŒN‚ÌŒ¾‚¤uQuery“à‚ðŽQÆ‚µ‘‚«o‚·vŽžŠÔ
‚̓Cƒ“ƒfƒbƒN‚ ‚낤‚ƂȂ©‚낤‚ÆA•Ô‚³‚ê‚és”‚ª“¯‚¶‚È‚ç‚Ù‚Úˆê’莞ŠÔ‚É‚È‚é‚ÆŽv‚¤B
9:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 10:28:03
‚¢‚âAƒNƒ‰ƒCƒAƒ“ƒgƒJ[ƒ\ƒ‹‚ÌŽžuQuery“à‚ðŽQÆ‚µ‘‚«o‚·vŽžŠÔ‚ªˆê’è‚É‚È‚é‚Æ
‘‚¢‚½‚ª‰R‚©‚à‚µ‚ê‚ñB‚Þ‚µ‚ëA‰R‚Á‚Û‚¢‚©‚àB
10:6
08/03/13 13:31:32
>>7-9
CursorLocationƒvƒƒpƒeƒB‚ÍclUseClient‚ɂȂÁ‚Ă܂µ‚½B
—\‘zŠO‚̂Ƃ±‚낪‘¬‚‚È‚Á‚Ĭ—‚µ‚Ä‚¢‚½‚Ì‚ÅAƒŒƒX‚݂Ĕ[“¾‚µ‚Ü‚µ‚½B
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
11:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 14:29:34
>ƒtƒH[ƒ€‚©‚çƒ}ƒEƒX‚ªŠO‚ê‚½Žž‚ÉA
>‚ ‚鈗i—Ⴆ‚Îbeepj‚ðs‚¢‚½‚¢‚̂ł·‚ªA
>‚Ç‚¤‹Lq‚·‚ê‚΂¢‚¢‚Å‚µ‚傤‚©H
SetCaptureControl/ReleaseCapture‚ðŽg‚Á‚Ă݂ĂÍH
OnMouseMove‚ÅSetCpatureControl‚ðŽg—p‚·‚é‚È‚çƒtƒ‰ƒO‚Å‘½d‹N“®
‚³‚¹‚È‚¢‚悤‚ÉŠÇ—‚·‚é•K—v«‚ª‚ ‚邯‚ÇB
12:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 15:18:19
Delphi ‚Ì
@TFoo<T,S> = class
@@...
@end;
@TFooInt<R> = TFoo<R,Integer>;
‚Ì TFooInt<R> ‚Á‚ÄAC++ ‚Ì template ‚¾‚Ƃǂ¤‚¢‚¤•—‚É錾‚·‚é‚ÌH
13:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 17:58:32
Pascal‚Á‚Ä‚à‚µ‚©‚µ‚ÄC‚Ìreturn‚ɑГ–‚·‚鈗‚Á‚Ä–³‚¢H
“r’†‚Å”²‚¯‚é‚Ì‚Á‚Äo—ˆ‚È‚¢‚Æ‚©H
14:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 18:15:15
>>13
Exit Break Continue Abort
15:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/13 19:37:10
ƒ}ƒEƒX‚ÌŒŸo‚Í«‚Åo—ˆ‚é
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
16:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/14 15:05:08
>>13
”²‚¯‚邾‚¯‚È‚ç‰Â”\‚¾‚ªAResult‚ɂԂ¿ž‚ñ‚Å‚©‚çExit‚µ‚È‚¯‚è‚á‚È‚ç‚È‚¢
‚»‚ñ‚Șb‘肪‘OƒXƒŒ‚É‚à‚ ‚è‚Ü‚µ‚½
17:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/14 17:34:37
C++‚Åì‚ç‚ꂽDLLƒtƒ@ƒCƒ‹‚ðDelphi‚ÅŽg—p‚µ‚½‚¢‚̂ł·‚ªA
C++‚ÅŽŸ‚̂悤‚É’è‹`‚³‚ê‚Ä‚¢‚éŠÖ”‚ÍADelphi‚łǂ¤’è‹`‚·‚ê‚΂¢‚¢‚Å‚·‚©H
int Test(const char *str1, int &a, int* a, char** msg, int* len);
char** ‚ª“Á‚ɂǂ¤‚µ‚Ä‚¢‚¢‚Ì‚©‚í‚©‚è‚Ü‚¹‚ñB
‚Ç‚¤‚©‚¨Šè‚¢‚µ‚Ü‚·B
18:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/14 18:42:54
char** ‚Í PPCharB (PPChar = ^PChar)
ŒÄ‚Ño‚µ‹K–ñ‚à‡‚í‚¹‚邿‚¤‚ÉB
19:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/14 21:48:55
Edit‚ÅCtl3DƒvƒƒpƒeƒB‚ðFalse‚É‚·‚邯ŠO˜g‚ª—§‘Ì“I‚ł͂Ȃ•½–Ê“I‚ɂȂè‚Ü‚·‚ª
Combobox‚ÌꇂÍCtl3D‚ðFalse‚É‚µ‚Ä‚àŠOŠÏ‚ª•Ï‚í‚è‚Ü‚¹‚ñB
ComboBox‚𕽖ʓI‚È•\ަ‚É‚·‚邱‚Ƃ͂ł«‚Ü‚·‚©H
Delphi4‚Å‚·B‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
20:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/14 23:59:12
ƒtƒ‰ƒbƒgCombobox‚Ý‚½‚¢‚Ì‚ð̂ǂ±‚©‚ł݂½‚±‚Æ‚ª‚ ‚é‚È‚
21:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 00:44:32
>>19
‚±‚ê‚ÍH
URLØÝ¸(www2.big.or.jp)
22:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 02:06:50
‚±‚±‚Æ‚©
URLØÝ¸(www29.atwiki.jp)
23:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 08:06:31
ƒoƒO‚¾‚炯‚ÌDelphi4‚悎g‚Á‚Ä‚ñ‚È
24:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 11:35:06
>>23
‚ǂ̃o[ƒWƒ‡ƒ“‚àƒoƒO‚¾‚炯
URLØÝ¸(qc.borland.com)
‚±‚±‚ðŒ©‚Ä
‚l‚“‚æ‚茉‚¢
25:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 12:17:23
>>24
‚»‚è‚áƒoƒO‚̂Ȃ¢ƒ\ƒtƒg‚È‚ñ‚ÄŠF–³‚¾‚µB
Del3‚ÆDel5`Del7‚͂悢‚ÆŽv‚¤‚æB
26:19
08/03/15 15:51:05
>>21
>>22
î•ñ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
‚Å‚à–Ê“|‚Ȃ̂ŋt‚É‚·‚ׂÄ3D‚Å“ˆê‚µ‚悤‚Æ‚¨‚à‚¢‚Ü‚·EEE
27:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 17:06:32
Delphi7‚Å‚·‚ªAŋߊ„‚è‚Æ‘å‚«‚ȃvƒƒOƒ‰ƒ€‚ðˆµ‚¤‚悤‚ɂȂè‚Ü‚µ‚ÄA
VCL‚àIndy‚â‚çƒT[ƒhƒp[ƒeƒB‚Ì‚à‚Ì‚â‚炪‚½‚Á‚Õ‚è“ü‚Á‚Ä‚¢‚Ü‚µ‚ÄA
ƒRƒ“ƒpƒCƒ‹‚É10•ª‚‚ç‚¢Š|‚©‚Á‚Ä‚µ‚Ü‚¢A‚â‚é‹C‚𖳂‚µ‚Ä‚¢‚Ü‚·B
‚±‚ê‚ÍPC‚̃XƒyƒbƒN‚ðã‚°‚˂΂Ǝv‚¤‚̂ł·‚ªAŒ»Ý‚ÍCeleron‚Ì600MHz‚Å
512MB‚̃ƒ‚ƒŠ‚Å‚·‚ªA‚ǂ̒ö“x‚É‚·‚ê‚΂¢‚¢‚à‚̂łµ‚傤‚©B
iŽ©ìPC‚ÅAHDD‚Ȃǂ͂»‚̂܂܎g‚¢‚½‚¢‚ÆŽv‚Á‚Ä‚¢‚Ü‚·j
28:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 17:20:24
‰´Del5Ent‚¾‚¯‚ǃZƒŒ500MHzARAM128MB‚ŃRƒ“ƒpƒCƒ‹ˆêu‚¾‚æ
29:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 18:44:04
Delphi‚̃oƒO‚ª“Ëo‚µ‚Ä‘½‚¢‚Ì‚ÍA—L–¼‚Șb‚¾‚æB
30:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 18:51:45
>>27
OS‚É‚æ‚éB@
ƒRƒ“ƒpƒCƒ‹‚Á‚ÄÄ\’zH
ƒ^ƒXƒNƒ}ƒl[ƒWƒƒ‚ÅŠJ‚«ƒƒ‚ƒŠ‚âCPU‚ÌŽg—p—¦’²‚ׂéB
31:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 20:01:06
OS‚ÍWindows XP Home ‚Å‚·Bƒ^ƒXƒNƒ}ƒl[ƒWƒƒ‚Å‚ÍDelphi32.exe‚ª100%‚Å‚·B
ƒƒ‚ƒŠ‚ÌŽg—p—¦‚ÍŒ©•û‚ª•ª‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½Bi‚È‚¢AƒXƒ~ƒ}ƒZƒ“j
‚¿‚å‚Á‚Æ’²‚ׂĂ݂ÄCP‚Ì—Ç‚¢Š´‚¶‚ÌAMD‚̂ɂµ‚悤‚©‚ÆŽv‚Á‚Ä‚¢‚Ü‚·B
32:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 21:42:18
Ä\’z‚É‚µ‚Ä‚àA10•ª‚Í‚©‚©‚è‚·‚¬B@
XPHome‚Å512MB‚È‚ç\•ªB ƒ`ƒ…[ƒ“ƒAƒbƒv‚µ‚Ä‚¢‚È‚‚Ä‚àA200MB‚®‚ç‚¢‹ó‚¢‚Ä‚¢‚é‚Í‚¸B
ƒƒ‚ƒŠ‚ª‘«‚è‚È‚¢‚Æ‚«‚ÍAHD‚ɃK[ƒb‚Á‚ăAƒNƒZƒX‚·‚é‚©‚番‚©‚éB
l‚¦‚ç‚ê‚錴ˆö‚ÍA
‘¼‚Éd‚½‚¢ƒAƒvƒŠ‚ª“®‚¢‚Ä‚¢‚éB ƒEƒBƒ‹ƒX‚©‚àB
HD‚ª‰ó‚ê‚Ä‚¢‚éB ƒGƒ‰[ƒ`ƒFƒbƒN‚µ‚悤B
ƒRƒ“ƒpƒCƒ‹ó‹µƒEƒBƒ“ƒhƒE‚͂ǂ¤? ƒvƒƒWƒFƒNƒg‚ÉŠÖŒW‚È‚’x‚¢‚ÌH
ƒRƒ“ƒ|[ƒlƒ“ƒg‚ð‘òŽRƒCƒ“ƒXƒg[ƒ‹‚µ‚Ä‚©‚ç’x‚¢‚ÌH
33:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/15 21:47:08
‘å‚«‚¢ƒvƒƒOƒ‰ƒ€‚ðƒtƒ‹ƒrƒ‹ƒh‚·‚é‚Ȃ炻‚Ì‚‚ç‚¢‚Í‚©‚©‚é‚ñ‚¶‚á‚ËH
‚»‚Ìê‡A‚»‚êˆÈã‘‚‚·‚é‚Ì‚Í CPU ã‚°‚邵‚©•û–@‚͂Ȃ¢‚ÆŽv‚¤B
34:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 01:18:38
>>31-32
ƒEƒCƒ‹ƒX‚Æ‚¢‚¤ü‚à‚ ‚邯‚ê‚ÇAƒEƒCƒ‹ƒX‘Îôƒ\ƒtƒg‚ªƒlƒbƒN‚ɂȂ邱‚Æ‚à‘½X‚ ‚邿B
35:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 08:44:34
>>27
–ˆ‰ñƒtƒ‹ƒrƒ‹ƒh‚µ‚Ä‚ñ‚ÌH
‚»‚ê‚©include‚µ‚Ä‚éƒtƒ@ƒCƒ‹‚ð•p”É‚ÉXV‚·‚邯‚©H
36:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 10:22:53
ŠF—lFX‚ȃŒƒX‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
ƒEƒBƒ‹ƒXŠÖ˜A‚Å‚·‚ªAƒEƒBƒ‹ƒXƒoƒXƒ^[2007‚Å‚·BŒŸ’m‚Í‚³‚ê‚Ü‚¹‚ñ‚Å‚µ‚½B
‚»‚ê‚©‚ç10•ª‚Æ‚¢‚¤‚Ì‚ÍÄ\’z‚Ìꇂł·B
‚Ü‚½A‘¼‚Ìl‚©‚çˆø‚«Œp‚¢‚¾iƒRƒs[‚µ‚½j‚à‚̂ł·B
‘«‚è‚È‚¢VCL‚̓Cƒ“ƒXƒg[ƒ‹‚µ‚½‚̂ł·‚ªA‚»‚ÌŒã‚à‘¼‚ÌŒy‚ß‚Ì
ƒvƒƒWƒFƒNƒg‚Ȃ甕b‚ÅI‚í‚è‚Ü‚·B
‹ß‚¢‚¤‚¿‚ÉCPUŠ·‘•‚µ‚悤‚©‚ÆŽv‚Á‚Ă܂·Bƒ}ƒU[‚ƃƒ‚ƒŠ‚à‚©c
37:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 13:04:52
>>36
Š·‘•‚æ‚è‚à‚à‚¤ˆê‘ä’ljÁ‚µ‚½•û‚ª‚¢‚¢‚ÆŽv‚¤‚¼
38:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 13:50:22
>27
‚¢‚܂ǂ«‚ÌPC‚É‚µ‚½‚Ù‚¤‚ª‚¢‚¢‚Ƃ͎v‚¤‚¯‚ÇA‚Ç‚¤‚µ‚Ä‚à‚Æ‚¢‚¤‚È‚ç‚Ü‚¸ƒƒ‚ƒŠ‚ðãŒÀ(3GB)‚܂őÝB
ŽŸ‚ÉCPU‚ðŒðŠ·B‚ ‚Æ‚ÍIDE‚ªATA66‚¾‚Á‚½‚肵‚½‚ç‘݃{[ƒh‚ÅATA100/133‚ÉB
39:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 15:30:51
>>38
Šù‚ÉÅ‘å‚Å‚ ‚é512M‚Ȃ̂łíH
Ž©ìPC‚Ç‚±‚ë‚©PC‚ɂ‚¢‚ÄÚ‚µ‚–³‚¢‚Ý‚½‚¢‚È‚ñ‚¾‚¯‚ÇAƒƒ‚ƒŠ‚â‚b‚o‚t‚Í
¢‘オ•Ï‚í‚邯ŒÝŠ·«‚ª–³‚‚Ȃ邵AŒÃ‚¢¢‘ã‚̃p[ƒc‚𒆌ÂŎè‚É“ü‚ê‚æ‚¤
‚ÆŽv‚Á‚½ê‡AŒ»s•i‚É”ä‚ׂėy‚©‚É‚‚‚‚«‚Ü‚·‚æ
40:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 17:18:26
dfmƒtƒ@ƒCƒ‹‚ªƒeƒLƒXƒgŒ`Ž®‚ÅA‰æ‘œƒf[ƒ^‚≹ƒf[ƒ^‚ª‚Ç‚Á‚³‚è“ü‚Á‚Ä‚¢‚éê‡A
dfmƒtƒ@ƒCƒ‹‚ª‚ׂç‚Ú‚¤‚ȃTƒCƒY‚ɂȂ邩‚çAƒRƒ“ƒpƒCƒ‹‚ª’x‚‚Ȃ邩‚àB
41:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 18:21:26
ATA66¨ATA100/133‚Á‚Äc‚È‚©‚È‚©‚Ђǂ¢ƒAƒhƒoƒCƒX‚¾B
42:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 18:41:39
‚¿‚å‚Á‚ÆDelphi‚Ì‹Zp“I‚Șb‚©‚炸‚ê‚Ä‚«‚½‚̂ŋ°k‚µ‚Ă܂·B
‚ªA‚à‚¤‚¾‚߂ł·BƒCƒ‰‚Á‚Æ‚«‚ăL[ƒ{[ƒh’@‚«‰ó‚µ‚»‚¤B‚¿‚å‚Á‚ÆC³‚µ‚Ä
Šm”F‚Á‚ĂƂ«‚É”•ªc@̂̔ėp‹@‚ÌTSS‚ł̃Rƒ“ƒpƒCƒ‹‚¶‚á‚ ‚é‚Ü‚¢‚µB
–¾“úCPUAƒƒ‚ƒŠAƒ}ƒU[”ƒ‚Á‚Ä‚‚éB‚»‚ê‚©‚çŋ߂ÍS-ATA‚ªŽå—¬‚炵‚‚Ä
PCI‚àExpress‰½‚Æ‚©‚炵‚‚Äi‚à‚¤Ì‚Ìl‚Ý‚½‚¢‚·jAFX•ÏŠ·‚̃p[ƒc‚à
”ƒ‚í‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Ý‚½‚¢c@HDD‚ÍVCLƒCƒ“ƒXƒg[ƒ‹‚ȂǂȂǂªŽ€‚ʂقÇ
–Ê“|‚»‚¤‚Ȃ̂Ŏg‚¢‚܂킵‚½‚¢‚Å‚·B‚¿‚Ȃ݂Ɍ»Ý‚̃}ƒU[‚ÍASUS CUSL2‚Å‚·B
ƒŒƒX‚‚ꂽ•ûXA–{“–‚É‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
43:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 18:45:57
‚¿‚å‚Á‚Ƒ҂ÄBCPU‚âƒ}ƒU[ƒ{[ƒhŠ·‚¦‚ÄOS‚ÌăCƒ“ƒXƒg[ƒ‹‚È‚µ‚Å‚¢‚¯‚邯Žv‚Á‚Ä‚éH
ˆ«‚¢‚±‚Æ‚¢‚í‚ñ‚©‚ç•’Ê‚É1‘ä‘g‚Ý—§‚ĂĊ‹«‚à‘S•”“ü‚ê‚È‚¨‚¹B
44:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 19:05:35
‚»‚ꂪăCƒ“ƒXƒg[ƒ‹‚È‚µ‚Å‚àŒ‹\‚¢‚¯‚½‚è‚·‚éB
ăCƒ“ƒXƒg[ƒ‹‚ÍŠoŒå‚µ‚Ä•s‹ï‡o‚é‚܂ŗlŽqŒ©‚à‚ ‚èA‚Æ–³Ó”C‚È‚±‚Æ‚ðŒ¾‚Á‚Ă݂éB
45:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 19:08:44
‚ ‚êH
‰´ŠJ‚ƒXƒŒŠÔˆá‚¦‚½H
46:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 19:13:51
Cele600‚Æ‚¢‚¤‚Ì‚ª‹ƒ‚¯‚é‚Ë‚—
“ÁŽêƒn[ƒh‚ðŽg‚Á‚ĂȂ¢‚̂ȂçAˆêŽ®‘g‚Ý—§‚Ä‚Ä
OS‚܂ŃCƒ“ƒXƒg[ƒ‹‚µ‚Ä‚©‚çAVMWareComverter‚Å
ŒÃ‚¢HDD‚Ì“à—e‚ðŠÛ‚²‚Æ‹z‚¢ã‚°‚ÄA‚»‚ê‚ð
VMWarePlayer‚Å“®‚©‚µ‚Ä‚à‘½•ª5”{‚Í‘¬‚¢‚—
47:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 19:15:33
>>45
dephi’´‰SŽÒ‚ÌŽ©ìƒXƒŒ‚ɂȂè‚Ü‚µ‚½B
ƒVƒ“ƒOƒ‹ƒRƒA¨ƒfƒ…ƒAƒ‹ƒRƒA‚É‚µ‚½‚çŽË¸‚µ‚½B
48:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 21:24:11
‚»‚ê‚æ‚è‚à–ˆ‰ñƒtƒ‹ƒrƒ‹ƒh‚·‚ñ‚̂͂Ȃñ‚Å‚©‚Æ‚¢‚¤“_‚É’N‚©“Ë‚Áž‚ß‚æ
49:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 21:50:56
>>47
—Ç‚•ª‚©‚ç‚È‚¢‚¯‚Ç”cˆ¬‚µ‚½
>>48
>>35‚œ˂Áž‚ñ‚ł邺
50:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 22:11:05
‚â‚₱‚µ‚¢ƒf[ƒ^‚ð•\ަ‚·‚邽‚ß‚ÉVirtualListView‚Æ‚¢‚¤‚à‚Ì‚ð‰‚߂Ďg‚Á‚Ă݂½‚̂ł·‚ª
Checkboxes‚ðTrue‚É‚µ‚Ä‚àƒ{ƒbƒNƒX‚ª•`‰æ‚³‚ê‚Ü‚¹‚ñ
Ž©•ª‚ÅCanvas‚É•`‚‚à‚̂Ȃ̂łµ‚傤‚©H
51:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/16 22:23:31
XPƒXƒ^ƒCƒ‹‚ŃXƒe[ƒ^ƒXƒo[‚ª‰š‚ñ‚Å‚¢‚éiHj‚悤‚ÉŒ©‚¦‚È‚¢‚̂ł·‚ª
‰½‚©Ý’肪‚¢‚é‚̂łµ‚傤‚©H
ƒNƒ‰ƒVƒbƒNƒXƒ^ƒCƒ‹‚ł͕’ʂł·EEE
52: ŸXcB18Bks.Y
08/03/17 00:15:46
>>31
ƒRƒ“ƒpƒCƒ‹‘O‚©‚çCPUŽg—p—¦‚ª100“‚Æ‚¢‚¤‚±‚Ƃł·‚©H
Delphi 7‚ÍŽg‚Á‚½‚±‚Ƃ͂ ‚è‚Ü‚¹‚ñ‚ª‚à‚µ‚©‚µ‚½‚瓇ŠÂ‹«‚̃oƒO‚©‚à‚µ‚ê‚Ü‚¹‚ñB
iDelphi 5‚̂Ƃ«‚ÍCPUŽg—p—¦‚ª100“‚ɂȂé•s‹ï‡‚ª•¡”‚ ‚Á‚ÄŒ‹\”Y‚Ü‚³‚ê‚Ü‚µ‚½j
‚Æ‚à‚ ‚ê’x‚¢——R‚ª–{“–‚Ƀ}ƒVƒ“ƒpƒ[‚Ȃ̂©‚«‚¿‚ñ‚ÆŒŸØ‚µ‚½•û‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
i‚»‚µ‚ă}ƒVƒ“‚ÉŽè‚ð•t‚¯‚é‚Ȃ硂Ȃ炷‚ׂĈêV‚µ‚½•û‚ª‚‘¬‚ňÀ‚¢‚Å‚·j
>>46
Celeron 600MHz‚Æ‚¢‚¤CPUŽ©‘̂͂»‚ñ‚Ȃɒx‚‚È‚¢‚̂ł͂Ȃ¢‚©‚ÆŽv‚¢‚Ü‚·B
“–Žž‚ÌHDD‚Ì•û‚ªƒ{ƒgƒ‹ƒlƒbƒN‚¾‚Á‚½‚©‚à‚µ‚ê‚Ü‚¹‚ñB
iCeleron M‚ª630MHz‚ʼnғ‚·‚éEee PC‚¾‚ÆTurbo Delphi Explorer‚Ì‹N“®‚·‚é‚̂͌‹\‘‚¢‚Å‚·j
>>50
‰¼‘zƒŠƒXƒgƒrƒ…[‚¾‚ƃ`ƒFƒbƒNƒ{ƒbƒNƒX‚ª‚¤‚Ü‚Žg‚¦‚È‚¢‚Ý‚½‚¢‚Å‚·B
ƒŠƒXƒgƒrƒ…[‚Ì‘ã‚í‚è‚Ƀwƒbƒ_[ƒRƒ“ƒ|‚ƃ`ƒFƒbƒNƒŠƒXƒgƒ{ƒbƒNƒX‚Ì‘g‚݇‚킹‚Ȃǂð
ŒŸ“¢‚µ‚Ă݂Ă‚¾‚³‚¢B
53:50
08/03/17 00:44:32
>>52
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
‚â‚Í‚èƒ_ƒ‚È‚ñ‚Å‚·‚Ë
ì‚è’¼‚µ‚ÍŒµ‚µ‚¢‚Å‚·‚ªl‚¦‚Ă݂܂·
54:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/17 16:59:38
Œp³Œ³‚̃tƒH[ƒ€Form1ã‚̃Rƒ“ƒ|[ƒlƒ“ƒg‚ÉTCollectionŒ^‚̃vƒƒpƒeƒB‚ª‚ ‚èA
‚»‚ê‚ðŒp³‚µ‚½ƒtƒH[ƒ€Form2ã‚Å‚»‚ÌTCollectionŒ^ƒvƒƒpƒeƒB‚ð‚¢‚¶‚邯A
ŽÀsŽž‚É‚»‚ÌForm2‚ÌTCollectionŒ^ƒvƒƒpƒeƒB‚͂ǂ¤ƒŠƒ\[ƒX‚©‚ç“ǂݞ‚Ü‚ê‚é‚̂łµ‚傤‚©HH
Form1‚̃vƒƒpƒeƒB’l‚ð“ǂݞ‚ÝA‚»‚̃RƒŒƒNƒVƒ‡ƒ“—v‘f‚ðu‚·‚ׂăNƒŠƒAv‚µ‚ÄA
Form2‚̃vƒƒpƒeƒB’l‚ª“ǂݞ‚Ü‚ê‚éHH
TReader‚̃\[ƒXŒ©‚½‚¯‚Ç—‰ð‚ª’Ç‚¢‚‚«‚Ü‚¹‚ñB
55:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/17 18:16:38
ƒNƒ‰ƒX‚ÆŽÀ‘̂Ƃª‚²‚Á‚¿‚á‚̂悤‚È
56:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/17 18:45:57
ƒuƒŒ[ƒNƒ|ƒCƒ“ƒg‚ðݒ肵‚ÄŠm”F‚µ‚½‚Ù‚¤‚ª‚¢‚¢B
57:|„Dßœc ŸA6VzDeLphI
08/03/17 19:41:19
EEEEEEEEEEEEEEEE
URLØÝ¸(hpcgi1.nifty.com)
58:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/17 22:39:45
‘S•”Ž~‚߂邯‚͂܂½‹‰õ‚È‚—
59:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/17 23:27:45
ƒRƒ“ƒpƒCƒ‹’†‚ɃEƒBƒ‹ƒXƒoƒXƒ^[‚ÌCPUŽg—p—¦‚ªã‚ª‚Á‚Ä‚é‚Ì‚©H
ƒ^ƒXƒNƒ}ƒl[ƒWƒƒŒ©‚Ä‚ê‚Ήð‚邼B
60:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/18 01:51:32
>>54
Œp³‚̉ºˆÊƒNƒ‰ƒX‚Å public ƒvƒƒpƒeƒB[‚ð‚¢‚¶‚邯A‚»‚ꂪŽÀsŽž’¼Œã‚É
”½‰f‚³‚ê‚é‚Ì‚ÍA‚Ç‚ñ‚ȃRƒ“ƒ|‚Å‚à‚¢‚Á‚µ‚åBTForm2 ‚ª TForm1 ‚ðŒp³‚µ‚Ä‚é
‚©‚ç‚Æ‚¢‚Á‚ÄATForm1 ‚̃Cƒ“ƒXƒ^ƒ“ƒX‚ª‚¢‚Á‚½‚ñ“ǂ݂±‚Ü‚ê‚é‚킯‚¶‚á‚È‚¢‚©‚çA
Ž¿–⎩‘Ì‚ª–³ˆÓ–¡B
61:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/18 05:55:46
>>60
‚¤[‚ñB
>>TForm1 ‚̃Cƒ“ƒXƒ^ƒ“ƒX‚ª‚¢‚Á‚½‚ñ“ǂ݂±‚Ü‚ê‚é‚킯‚¶‚á‚È‚¢‚©‚ç
Ž¿–â‚Å‚ÍTForm1‚̃Cƒ“ƒXƒ^ƒ“ƒX‚ª¶¬‚³‚ê‚邯‚͈ꌾ‚àŒ¾‚Á‚Ă܂¹‚ñB
Œp³ƒtƒH[ƒ€ì¬‚·‚邯A”h¶ƒtƒH[ƒ€‚Å‚ÍA•ÏX‚µ‚½published‚ȃvƒƒpƒeƒB‚¾‚¯‚ª
·•ªî•ñ‚Æ‚µ‚ătƒH[ƒ€ƒtƒ@ƒCƒ‹(*.dfm)‚É‹L˜^‚³‚ê‚é‚ñ‚Å‚·‚æ‚ËH
‚»‚µ‚ÄŽÀsŽž‚É‚ÍARTTI‚©‚çŒp³ƒtƒH[ƒ€‚̃vƒƒpƒeƒB‚ð“ǂݞ‚ñ‚¾Œã‚ÉA”h¶ƒtƒH[ƒ€‚Ì·•ªî•ñ‚¾‚¯‚ªƒvƒƒpƒeƒB
‚ÉÄݒ肳‚ê‚é‚ñ‚Å‚·‚æ‚ËH‚ÅATCollectionŒ^‚ÌꇂÍA‚Ç‚¤‚È‚é‚Ì‚©‚ÈH‚Æ‚¢‚¤Ž¿–â‚Å‚·B
62:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/18 05:58:12
54=60‚Å‚·B
>>54‚ł͂µ‚Á‚©‚èŽÀ‘̂ƃNƒ‰ƒXŽg‚¢•ª‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B‚·‚݂܂¹‚ñ(>>55)B
63:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/18 06:03:57
and ‚·‚݂܂¹‚ñ(>>60)B
64:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/19 06:14:05
Edit1AEdit2AEdit3c‚̂悤‚ɘA‘±‚µ‚½–¼‘O‚Ì•¨‚ð
ƒ‹[ƒvˆ—‚ÅTObjectList‚ɓ˂Áž‚ÞŽ–‚͂ł«‚Ü‚¹‚ñ‚©‚ËH
65:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/19 07:47:20
‚Å‚«‚Ü‚·
66:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/19 08:11:54
ƒRƒ“ƒ|‚Ì–¼‘O‚Ƃ͌À‚ç‚È‚¢‚º
67:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/19 08:49:40
DelWiki - Tips/“YŽš‚ðŽg‚Á‚ăRƒ“ƒgƒ[ƒ‹‚ðˆ—‚·‚é
URLØÝ¸(delwiki.info)
68:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/19 15:57:29
>>67
‚¨‚¨Iƒhƒ“ƒsƒVƒƒƒŠ‚¾B‚Ç‚¤‚à‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
69:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 06:48:25
ƒ{ƒ^ƒ“‰Ÿ‚µ‚½‚胃jƒ…[‚ÌÝ’è‚ð‘I‚ñ‚¾‚è‚·‚邯
‚»‚ê—p‚̕ʃEƒBƒ“ƒhƒE‚ªo‚邿‚¤‚É‚·‚é‚ɂ͂ǂ¤‚µ‚½‚ç‚¢‚¢‚ñ‚Å‚µ‚傤‚©H
70:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 08:20:09
ƒtƒ@ƒCƒ‹ƒƒjƒ…[‚ÌV‹K쬂ÅA‚»‚ê—p‚̃tƒH[ƒ€‚ðì‚éB
ƒAƒvƒŠ‹N“®Žž‚ÉŽ©“®ì¬‚µ‚Ä‚éê‡A
ƒ‚[ƒ_ƒ‹ƒ_ƒCƒAƒƒO‚È‚çAForm2.ShowModal;
ƒEƒBƒ“ƒhƒE‚È‚çAForm2.Show;
Ž©“®¶¬‚µ‚Ä‚¢‚È‚¢‚È‚çAŽ–‘O‚ÉCreate‚·‚é•K—v‚ª‚ ‚éB
•‚¶‚½‚Æ‚«‚Ç‚¤‚·‚é‚©‚àŒˆ‚ß‚éB
71:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 12:29:04
type
@ @ TTask = class(TAction)
@ @ @ @ property OnBeforeExecute;
@ @ @ @ property OnAfterExecute;
@ @ @ @ ...‚»‚Ì‘¼‚¢‚ë‚¢‚ë..
@ @ end;
@ @
@ @ TTaskList = class
@ @ @ @ Items: TObjectList;
@ @ @ @
@ @ @ @ procedure Add(Task: TAction; RemoveOldTask: Boolean = False; DelayMSec: Integer = 0; RepeatCount: Integer = 1);
@ @ @ @ function Exist(Task: TTask): Boolean;
@ @ @ @ procedure Remove(Task: TTask);
@ @ @ @ procedure Execute;
@ @ end;
procedure TForm1.Button1Click;
begin
@ @ TaskList.Add(ActionLoadData);
@ @ TaskList.Add(ActionProcessData);
@ @ TaskList.Add(ActionPrintData);
end;
procedure TForm1.ApplicationIdle;
begin
@ @ TaskList.Execute; // “o˜^ƒ^ƒXƒN‚ð‚ЂƂŽÀs
end;
‚Ý‚½‚¢‚ȃ^ƒXƒN(ƒAƒNƒVƒ‡ƒ“)ƒXƒPƒWƒ…[ƒ‰‚𓱓ü‚µ‚½‚çƒXƒpƒQƒbƒeƒB‚ȃCƒxƒ“ƒg‚Ì—¬‚ꂪ‚ƂĂàƒVƒ“ƒvƒ‹‚ɂȂÁ‚½B
¡‚܂ł̓Cƒxƒ“ƒgƒnƒ“ƒhƒ‰’†‚©‚çƒCƒxƒ“ƒgƒnƒ“ƒhƒ‰‚ðŒÄ‚Ño‚µ‚ÄX‚ÉApplication.ProcessMessages‚ª‘¼‚Ì‚à‚̌ĂÑo‚µ‚ÄEEE‚ƈˑ¶ŠÖŒW‚âƒ^ƒCƒ~ƒ“ƒO‚É‹Nˆö‚·‚éƒoƒO‚̉·°‚ɂȂÁ‚Ä‚½‚Ì‚ª‚©‚Ȃ茸‚è‚»‚¤‚È—\Š´B
‚±‚¤‚¢‚¤ƒNƒ‰ƒX‚Á‚ÄŠù‚ɂ悗û‚ç‚ꂽ‚à‚Ì‚ª‚Ç‚±‚©‚É‚ ‚Á‚½‚è‚·‚éH
ExecuteƒCƒxƒ“ƒgƒnƒ“ƒhƒ‰‚ðƒTƒuƒXƒŒƒbƒh‚ÅŽÀs‚Å‚«‚éTask‚Æ‚©ì‚Á‚½‚ç‚©‚È‚è•Ö—˜‚ɂȂ肻‚¤‚¾‚ÈB
72:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 12:42:00
„¡‚܂łÍ...ƒoƒO‚̉·°‚ɂȂÁ‚Ä‚½
‚±‚Ì•”•ª‚̉ü‘P•û–@‚ª•ª‚©‚ç‚È‚¢‚悤‚¶‚ችŽg‚Á‚Ä‚àƒoƒO‚¾‚炯‚Å‚µ‚傤
73:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 14:14:43
‚͂͂͂ÍA‚±‚è‚áƒZƒ“ƒX‚È‚³‚·‚¬‚¾
74:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 14:37:34
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
Form‚P‚Ńƒ^ƒtƒ@ƒCƒ‹‚ÌŒ³ƒf[ƒ^‚ðì‚Á‚Ä
Form‚Qã‚ÌPaintBoxã‚É•\ަ‚·‚邯‚Æ‚à‚É
meta.wmf‚Æ‚¢‚¤–¼‘O‚ŕۑ¶‚µ‚Ä‚¢‚Ü‚·B
‚¤‚Ü‚‚Å‚«‚Ä‚¢‚ê‚ÎAForm‚Qã‚̃{ƒ^ƒ“‚ð‰Ÿ‚µ‚Ä
meta.wmf‚ð“ǂݞ‚ñ‚ňóü‚³‚¹‚½‚¢‚̂ł·‚ªA
procedure TForm2.Button2Click(Sender: TObject);
var
Print_MF:TMetafile;
begin
Print_MF:=TMetaFile.create;
Try
Print_MF.LoadFromFile('d:\gazou\meta2.wmf');
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Rect(10,10,3000,3400),Print_MF);
Finally
Print_MF.free
end;
close;
end;
‚Æ‚µ‚Ä‚àA‚·‚®‚ɂ͈óü‚³‚ꂸAForm‚P‚à•‚¶‚È‚¢‚ƈóü‚Å‚«‚Ü‚¹‚ñB
Form1‚ð•‚¶‚¸‚ÉForm‚Q‚¾‚¯•‚¶‚½‚çˆóü‚·‚邿‚¤‚É‚·‚é‚ɂ͂ǂ¤‚µ‚½‚ç
‚¢‚¢‚Å‚µ‚傤‚©HH
75:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 14:52:05
EndDoc
76:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 15:56:02
>>71
‹v‚µ‚Ô‚è‚É«—ˆ—L–]‚»‚¤‚È“z‚ðŒ©‚½B
77:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 17:32:19
> 75
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
Printer.endDoc
‚Å–³Ž–ˆóü‚³‚ê‚Ü‚µ‚½DD
78:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/20 18:07:00
>>70
‚Å‚«‚Ü‚µ‚½I‚Ç‚¤‚à‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
79:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/22 01:58:26
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
TMemo‚âTRichEdit‚Å[CTRL]+[I]ƒL[‚ð‰Ÿ‚·‚ÆAƒ^ƒu•¶Žš‚ª‘}“ü‚³‚ê‚Ü‚·‚ªA
‚±‚Ì‘€ì‚𖳌ø‚É‚·‚é‚ɂ͂ǂ¤‚·‚ê‚΂¢‚¢‚Å‚µ‚傤‚©H
80:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/22 02:43:20
ƒL[ƒ_ƒEƒ“ƒƒbƒZ[ƒW•߂܂¦‚ÄCtrl+I‚¾‚Á‚½‚Æ‚«‚̓fƒtƒHƒ‹ƒgƒnƒ“ƒhƒ‰‚É“n‚³‚È‚¯‚ê‚΂¢‚¢‚ñ‚¶‚á‚ËH
81:79
08/03/22 03:51:12
>>80
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
¡‰ñ‚ÍAƒL[ƒ_ƒEƒ“‚̃ƒbƒZ[ƒW‚ðKeyPress“à‚ŕ߂܂¦‚ê‚΂¢‚¢‚±‚Æ‚ª‚í‚©‚è‚Ü‚µ‚½B
‚½‚¾A¡“x‚ÍKeyPress“à‚Å[CTRL]+[I]‚Ì“¯Žž‰Ÿ‚µ‚ð”»’f‚·‚é•û–@‚ª•ª‚©‚è‚Ü‚¹‚ñB
‚Ç‚¤‚·‚ê‚΂¢‚¢‚Å‚µ‚傤‚©H
procedure TMemoEX.keyPress(var key: Char);
begin
@if ((getAsyncKeyState(VK_CONTROL) and $8000) <> 0) then//CTRLƒL[”»’f
@@if (key = 'i') or (key = 'I') then
@@@key := #0;//ª‚±‚ꂾ‚ÆãŽè‚‚¢‚©‚È‚¢
end;
82:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/22 10:31:34
>>81
Delphi2‚Ì‹L‰¯‚Å\‚µ–ó‚È‚¢‚ªA
KeyDown‚É‚ÍAKeyPress‚ɂ͂Ȃ¢ShiftState‚ª‚ ‚Á‚Ä
ssCtrl‚Ý‚½‚¢‚È‚Ì‚ðŒ©‚ê‚΂悩‚Á‚½‚悤‚ÈB
83: ŸXcB18Bks.Y
08/03/22 11:58:06
>>82
Ž„‚à‚»‚ê‚Ås‚¯‚é‚©‚ȂƎv‚Á‚½‚̂ł·‚ª”O‚Ì‚½‚߂ɃeƒXƒg‚µ‚Ă݂½‚ç‘Ê–Ú‚Å‚µ‚½B
‚à‚µ’P‚Ƀ^ƒu•¶Žš“ü—Í‚ð‹ÖŽ~‚µ‚½‚¢‚̂łµ‚½‚ç
’P‚Ƀ^ƒu•¶Žš‚©‚Ç‚¤‚©‚ð’²‚×‚Ä‚à‚µ‚»‚¤‚È‚ç•¶Žš‚ðÁ‚·‚悤‚É‚·‚ê‚΂¢‚¢‚ÆŽv‚¢‚Ü‚·B
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
@//// ƒ^ƒu•¶Žš‚ª“ü—Í‚³‚ꂽ‚çŽæ‚èÁ‚· ////
@if Key = #9 then // 9‚̓^ƒu‚ðŽ¦‚·•¶ŽšƒR[ƒh
@begin
@@Key := #0; // #0‚ð‘ã“ü‚·‚邯•¶Žš“ü—Í‚ªƒLƒƒƒ“ƒZƒ‹‚³‚ê‚éi‚炵‚¢j
@@Beep; // Žæ‚èÁ‚µ‚Ƃ͊֌W‚È‚¢‚¯‚Çu‚¨‚Á‚ÆA‚±‚±‚ł̓^ƒuƒL[‚Í–³Œø‚È‚ñ‚¾‚ºv‚ƃ†[ƒU[‚É“`‚¦‚é
@end;
end;
‚»‚¤‚ł͂Ȃ‚Ä‚à‚µ
@[Ctrl]+[I]‚É‚æ‚éƒ^ƒu•¶Žš“ü—Í‚ð‹ÖŽ~‚µ‚½‚¢‚ª[Tab]ƒL[‚É‚æ‚é“ü—͂͋–‰Â‚µ‚½‚¢
‚Æ‚¢‚¤‚̂łµ‚½‚ç‚·‚¢‚Ü‚¹‚ñ‚ª‚¿‚å‚Á‚Ƃ킩‚è‚Ü‚¹‚ñB
84:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/22 13:55:01
‚ƒ_ƒ~[Actionì¬
85:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/22 16:38:48
Form‚ÌOnShortcut‚Å if (Ctrl+I‚¾‚Á‚½‚ç) then Handled:= true‚É‚·‚邯‚©
86:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/22 20:35:56
>>83
Delphi2‚Å\‚µ–ó‚È‚¢‚ªA
‚½‚µ‚©‚É‘f’¼‚É‚â‚낤‚Æ‚µ‚Ä‚à‚¾‚ß‚¾‚Á‚½B
‚ÅAƒXƒ}[ƒg‚¶‚á‚È‚¢‚Ì‚Æ
win‚̃o[ƒWƒ‡ƒ“‚Ń^ƒCƒ~ƒ“ƒO‚Ì–â‘肪‹C‚ɂȂ邪
Flag‚ð‚½‚Ä‚ÄKeyDown‚ÅssCtrl‚ðŒ©‚Ä‚¨‚¢‚ÄA
KeyPress‚Å
if Flag and (Key = #9) then
‚Æ‚µ‚½‚çA‚¢‚¿‚¨‚¤«‚±‚ê‚à‚Å‚«‚½B
>@[Ctrl]+[I]‚É‚æ‚éƒ^ƒu•¶Žš“ü—Í‚ð‹ÖŽ~‚µ‚½‚¢‚ª[Tab]ƒL[‚É‚æ‚é“ü—͂͋–‰Â‚µ‚½‚¢
87:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 15:42:06
Delphi 7‚Å‚·‚ªAƒRƒ“ƒ{ƒ{ƒbƒNƒX‚ɃL[ƒ{[ƒh“ü—Í‚ª‚í‚©‚è‚Ü‚¹‚ñB
item‚ɂȂ©‚Á‚½ê‡‚̓L[ƒ{[ƒh“ü—Í‚µ‚½‚¢‚̂ł·‚ªAStyle‚ð
csOwerDrawVaiable‚Æ‚©‚¢‚ë‚¢‚ë•ÏX‚µ‚Ä‚àƒL[“ü—͂ł«‚È‚¢‚©
EaccessVilation‚ª‚ł܂·B¡‚ÍAitem‚É€–Ú‚ª‚ ‚Á‚Ä‚»‚ê‚ð‘I‘ð‚·‚é
‚É‚ÍOnChange ƒCƒxƒ“ƒg‚ÅŽæ‚èo‚µ‚Ä‚¢‚Ü‚·B‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
88:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 16:22:19
‚Ü‚¸csDropDown‚Ń_ƒ‚¾‚Á‚½‚±‚Æ‚ðÚׂɑ‚¢‚ÄB
89:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 16:22:32
AutoComplete‚ÍFalseAStyle‚̓fƒtƒHƒ‹ƒg‚ÌcsDropDown‚ÉBOnChange‚ň—‚Á‚Ă̂̓†[ƒU“ü—Í‚ð
‹–‚µ‚Ä‚é󋵂ł͂ǂ¤‚È‚ñ‚¾‚ëH
90:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 16:29:05
“ü—͉»‚ȃRƒ“ƒ{ƒ{ƒbƒNƒX‚Á‚Ä‚©‚Á‚±ˆ«‚¢
91:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 16:51:28
l‚¦•û‚ª‹t‚¾B“ü—Í‚·‚é‚à‚Ì‚ª‘I‘ð‰Â”\‚ȃGƒfƒBƒbƒg‚¾‚ÆB
92:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 16:56:20
>>87
Combobox‚ð‚½‚¾“\‚è•t‚¯‚½‚¾‚¯‚Å‚»‚Ì“®ì‚ɂȂÁ‚Ă邯Žv‚¤‚ñ‚¾‚¯‚Ç
ƒfƒtƒHƒ‹ƒg‚Ì“®ì‚©‚ç‹ï‘Ì“I‚ɂǂ¤•Ï‚¦‚½‚¢‚Á‚ÄŽ–H
93:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 19:23:57
ŠF—lA‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
OnChange‚Å
Case@ComboBox1.itemindex of
@@1:
@@2:
‚Æ‚©‚µ‚Ä‚¢‚½‚̂ł·‚ªAƒL[ƒ{[ƒh“ü—Í‚ð‚·‚é‚Æ‚±‚±‚̂Ƃ±‚ë‚ŃGƒ‰[‚ɂȂé
‚悤‚Å‚µ‚½B‚µ‚傤‚ª‚È‚¢‚Ì‚ÅAComboBox1.text‚Ì’l‚Å•ªŠò‚³‚¹‚邱‚Æ‚É
‚µ‚½‚ç‰ðŒˆH‚µ‚Ü‚µ‚½B‚¨‘›‚ª‚¹‚µ‚Ü‚µ‚½B
‚Å‚àA‚±‚Ì•û–@‚µ‚©‚È‚¢‚̂łµ‚傤‚©HŒãŠw‚Ì‚½‚߂ɂǂȂ½‚©ƒL[ƒ{[ƒh
“ü—Í‚à‹–‚·‚Æ‚«A‚Ç‚¤‚¢‚¤•û–@‚Å‘I‘ð‚³‚ê‚½‚Ì‚ð’m‚é‚Ì‚ªí“…Žè’i‚Ȃ̂©
‹³‚¦‚Ä‚‚¾‚³‚¢‚Ü‚¹‚ñ‚©H
94:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 20:00:12
>>93
‚»‚̃R[ƒh‚¾‚¯‚ł̓Gƒ‰[‚É‚È‚é‚Æ‚±‚낪Œ©“–‚½‚ç‚È‚¢
‘å•û-1‚ðl—¶‚µ‚ĂȂ¢‚¾‚¯‚Æ‚©‚»‚ñ‚È‚¾‚ÆŽv‚¤‚ª
95:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 20:39:44
Vista‚̃fƒXƒNƒgƒbƒv‚ÍActrl+ƒ}ƒEƒXƒzƒC[ƒ‹‚ŃAƒCƒRƒ“‚̑傫‚³‚ð
Ž©—R‚ɕς¦‚ç‚ê‚邯‚ÇADelphi‚ÌListView ‚Å“¯‚¶—l‚È•\Œ»‚ð‚·‚é‚É‚Í
‚Ç‚¤‚µ‚½‚ç‚¢‚¢‚ñ‚Å‚µ‚傤‚©H
96:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 21:20:58
>93
ItemIndex‚Í0‚©‚çŽn‚Ü‚éBŠY“–ƒAƒCƒeƒ€‚ª‚È‚¯‚ê‚Î-1‚¾B‚Æ‚¢‚¤‚© >91 ‚¾B
97:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 21:33:43
>>93
‚¢‚Ü‚¢‚¿‚æ‚‚í‚©‚Á‚ĂȂ¢‚ñ‚¾‚¯‚Ç
idx := ComboBox1.Items.IndexOf(ComboBox1.Text);
‚Á‚Ä‚â‚ê‚ÎText‚ªItems‚̉½”Ô–Ú‚©‚ª‚í‚©‚éB-1‚Ȃ炻‚êˆÈŠOB
98:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/23 22:36:31
>>87
onchangeŒÄ‚΂Ȃ¢‚Åonselect‚Å‚â‚êB
‚»‚ê‚ŃL[“ü—͂͂ł«‚邾‚ë
99:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/25 15:58:32
delphi‚ÅŠÈ’P‚ÉRSS‚âAtomƒtƒB[ƒhì‚éƒRƒ“ƒ|‚Á‚Ä‚ ‚è‚Ü‚·‚©H
100:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/25 20:24:53
MSXML
101:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/25 21:08:47
ƒ~ƒŠ•b‚ðŽžŠÔ‚Æ‚©•ª‚Æ‚©•b‚Æ‚©ž‚݂ŕ¶Žš—ñ‰»‚·‚éŠÖ”‚È‚¢‚Å‚·‚©H
102:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/25 21:12:13
FormatDate
103:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/25 22:48:48
TPageControl‚̘g‚ðÁ‚·‚ɂ͂ǂ¤‚µ‚½‚ç‚¢‚¢‚ñ‚Å‚µ‚傤‚©?
104:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/25 22:52:00
PageControl1.Style := tsButtons;
105:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/25 23:00:04
‚»‚ꂾ‚Æ–³‘ʂȗ]”’‚ªo—ˆ‚é‚©‚ç
PageControl1.Visible := False‚É‚µ‚Ä
•\ަ—p‚ÉTabControl1”z’u‚µ‚ÄHeight := 20‚‚ç‚¢‚É‚µ‚Ä
‚»‚̉º‚ÉPanel”z’u‚µ‚ă^ƒu‚ÌØ‚è‘Ö‚¦‚̃^ƒCƒ~ƒ“ƒO‚Å‚Å
TabSheet.Parent := Panel1;
TabSheet.Align := aliClient;
‚Æ–Ê“|‚È‚±‚Æ‚ð‚â‚邯˜g‚à—]”’‚àÁ‚¹‚éB
106:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 00:57:42
StringGrid := [goRowSelect, goRangeSelect] ‚Æ‚µ‚ÄA
1`3s–Ú‚ð‘I‘ðŒã‚É2s–Ú‚ðƒNƒŠƒbƒN‚·‚邯A‘I‘ðs‚Í2s–ڂ݂̂ƂȂè‚Ü‚·
‚±‚ê‚ð‘I‘ð”͈͓à‚ðƒNƒŠƒbƒN‚µ‚½ê‡AV‚½‚É‘I‘ð‚¹‚¸
‘I‘ð”͈͂ðˆÛŽ‚·‚邯‚¢‚¤‚Ó‚¤‚É‚·‚é‚ɂ͂ǂ¤‚·‚ê‚΂¢‚¢‚Å‚µ‚傤‚©H
107:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 13:24:09
GetIndex('Š¿aŽš', 1) => 1
GetIndex('Š¿aŽš', 3) => 4
‚Æ‚¢‚¤‚悤‚ÈŠÖ”‚ ‚è‚Ü‚·‚©?
108:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 13:33:28
>>107
“ljð—͂̂Ȃ¢‰´‚̓AƒtƒH‚Ȃ̂©EEE
109:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 13:44:21
‰´‚à‚¾B‚·‚Ü‚ñAƒAƒtƒH‚Å‚²‚ß‚ñB
110:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 16:04:27
ƒAƒtƒH‚ȉ´‚ɂ͂±‚ê‚®‚ç‚¢‚µ‚©c
function GetIndex(s: String; i: Integer): Integer;
begin
Result := Length(AnsiLeftStr(s, i - 1)) + 1;
end;
111:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 16:52:30
2ƒoƒCƒg‚Ål‚¦‚½•¶Žš”–Ú‚ª‚PƒoƒCƒg‚Ål‚¦‚½Žž‚ɉ½ƒoƒCƒgŽš–ڂɂȂ邩‚ð•Ô‚·ŠÖ”‚Æ‚¢‚¤‚±‚Ƃłe‚`H
112:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 16:53:19
function GetIndex(Str:String; Index:Integer):Integer;
begin
if Str='Š¿aŽš' then
begin
@if Index=1 then
@@Result:=1
@else
@@Result:=4;
end else
@Result:=0;
end;
‰´‚Á‚Ä“VË‚©‚àI
113:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 17:21:06
‚±‚¤‚©H
function GetIndex( ws: WideString; index: Integer): Integer;
begin
Result:= Length(String(WideString(copy(ws, 1, index-1))))+1;
end;
114:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 17:35:05
>>107
‰´‚͓ǂ߂½‚æ
function GetIndex(test:string;num:integer):integer;
begin
if test = 'Š¿aŽš' then
begin
if num = 1 then result := 1;
if num = 3 then result := 4;
end;
end;
Œã‚ÍŽ©•ª‚ÅH•v‚µ‚Ä‚‚ê
115:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 17:47:45
> 97—lA98—l
‚¨•ÔŽ–‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½BŽŽ‚µ‚Ă݂½‚¢‚̂ł·‚ªA—ˆT‚Ü‚Å
ŽžŠÔ‚ª‚Ƃꂻ‚¤‚à‚È‚¢‚Ì‚ÅA‚Ü‚¸‚Í‚¨—炾‚¯‚³‚¹‚Ä‚‚¾‚³‚¢B
‚Ü‚½A‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
116:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 19:54:12
StringList’x‚·‚¬‚éc
Capacity‘½‚ß‚Éݒ肵‚½‚ç‚»‚±‚»‚±‰ü‘P‚³‚ꂽ‚¯‚ǂ܂¾‚Ü‚¾’x‚¢B
Clear, Add, Strings‚Ì—ñ‹“‚‚ç‚¢‚µ‚©‚â‚ç‚È‚¢‚ñ‚¾‚¯‚Ç‘ã‘Öƒ‰ƒCƒuƒ‰ƒŠ‚͂Ȃ¢‚à‚Ì‚©B
MemoryStream‚Å‚àŽg‚¤‚©B
117:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 21:20:57
’x‚¢ƒR[ƒhŽN‚¹
118:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 21:26:48
MemoryStream‚ðˆø‚«‡‚¢‚Éo‚µ‚Ä‚¢‚鎞“_‚Å–¾‚ç‚©‚ÉŽg‚¢•û‚ªŠÔˆá‚Á‚Ä‚¢‚é
119:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 21:47:26
FastMMŽg‚Á‚ĂȂ©‚Á‚½‚çA>>116‚̓ƒ‚ƒŠƒ}ƒl[ƒWƒƒŒðŠ·‚µ‚½•û‚ª‚悳‚»‚¤‚¾‚ÈB
120:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 21:49:55
FastMM ‚Á‚Ä3”N‘O‚©‚炾‚æB‚»‚ê‚Ü‚ÅStringList‚Á‚Ä’x‚©‚Á‚½‚Ì‚©H
121:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/26 21:49:57
‚Ù‚ñ‚Æ‚ÉClear,Add,Strings‚¾‚¯‚µ‚©Žg‚Á‚ĂȂ¢H‚»‚ê‚Å’x‚¢‚Á‚ÄA100–œŒ‚®‚ç‚¢
ƒf[ƒ^“Ë‚Áž‚ñ‚ł̂©‚ÈB
122:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 03:42:15
TMemo‚Å‚µ‚½‚Á‚Ä—Ž‚¿H
123:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 08:18:10
Ž©•ª‚Ì–³”\‚³‚ðƒ‰ƒCƒuƒ‰ƒŠ‚Ì‚¹‚¢‚É‚·‚é‚È
124:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 09:03:40
”z—ñ‚Ì錾‚Épacked‚ª‚‚¢‚Ä‚¢‚éê‡‚ðŒ©‚©‚¯‚Ü‚·‚ªA‚±‚ꉽ‚©ˆÓ–¡‚ ‚é‚ñ‚Å‚·‚©H
125:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 09:07:08
ƒƒWƒƒ[‚ɂȂê‚È‚©‚Á‚½——R‚̈ê‚‚ª‚Ü‚³‚É‚±‚¤‚¢‚Á‚½Ž–B
”äŠr“I‘½—p‚µ‚»‚¤‚ÈŽ–‚ª‚¢‚Ü‚¢‚¿‚Å–Å‘½‚ÉŽg‚í‚È‚»‚¤‚ÈŽ–‚ª‚·‚°[•Ö—˜B
126:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 09:29:16
>>124
‚½‚Æ‚¦‚Î3ƒoƒCƒg‚̃ƒ“ƒo[‚ðŽ‚Â\‘¢‘̂̔z—ñ‚Æ‚©H
127:124
08/03/27 09:36:45
>>126
type
@THoge = packed record
@@A: array[0..2] of Byte;
@end; // 3ƒoƒCƒg‚Ì—v‘f‚ðŽ‚Â\‘¢‘Ì
@THogeArray = array[0..9] of THoge;
@TPackedHogeArray = packed array[0..9] of THoge;
begin
@WriteLn(SizeOf(THoge)); // 3
@WriteLn(SizeOf(THogeArray)); // 30
@WriteLn(SizeOf(TPackedHogeArray)); // 30
end;
ˆá‚¢‚ª•ª‚©‚ç‚È‚¢‚ñ‚Å‚·B
128:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 09:46:15
”z—ñ‚ɂ‚¢‚Ä‚¢‚é‚ñ‚¶‚á‚È‚‚ÄA\‘¢‘̂ɂ‚¢‚Ä‚¢‚é‚Ì‚æB
packed‚ð‚‚¯‚È‚¢‚ÆAƒAƒ‰ƒCƒƒ“ƒg‚³‚ê‚é‚©‚Ç‚¤‚©‚̓Rƒ“ƒpƒCƒ‹ƒIƒvƒVƒ‡ƒ“‚É‚æ‚éB
í‚Épacked‚‚¯‚Ä‚¨‚¯‚΂n‚jB
>>127
packed‚ðŠO‚µ‚ăRƒ“ƒpƒCƒ‹‚µ‚Ä‚ÝB
129:124
08/03/27 09:50:48
>>128
> packed‚ðŠO‚µ‚ăRƒ“ƒpƒCƒ‹‚µ‚Ä‚ÝB
TPackedHogeArray‚Ìpacked‚ð‚Å‚·‚©H
130:124
08/03/27 09:54:58
THoge‚ÆTPackedHogeArray‚Ìpacked‚ðŠO‚µ‚Ă݂܂µ‚½‚ªA
o—͕͂ςí‚è‚Ü‚¹‚ñ‚Å‚µ‚½B
‚¿‚Ȃ݂ɃRƒ“ƒpƒCƒ‰ƒIƒvƒVƒ‡ƒ“‚Í{$A8}‚Å‚·B
131:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 09:55:01
>>129
‰½‚ª‹N‚±‚é‚©‘z‘œ‚ª‚‚©‚È‚¢‚È‚çA‚â‚Á‚Ă݂鉿’l‚Í‚ ‚éB
132:131
08/03/27 10:57:08
‚²‚ß‚ñAЍˆá‚¢‚µ‚Ä‚½B
¬‚´‚ç‚È‚¢‚Ƒʖڂ݂½‚¢B ‚»‚¤‚È‚é‚ÆApacked”z—ñ‚͈Ӗ¡‚ ‚è‚Ü‚¹‚ñ‚ËB
procedure TForm1.Button1Click(Sender: TObject);
type
@THoge1 = record
@@A: Byte;
@@B: Byte;
@@C: Byte;
@end;
@THoge2 = record
@@A: Byte;
@@B: Byte;
@@C: Byte;
@@D: Word;
@end;
begin
@Caption := Format('%d, %d', [SizeOf(THoge1), SizeOf(THoge2)]);
end;
133:124
08/03/27 11:16:28
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
\‘¢‘̂̃ƒ“ƒo‚̃Aƒ‰ƒCƒ“ƒƒ“ƒg‚Í‘¼‚ÌŒ¾Œê‚É‚à‚ ‚é‚̂ł킩‚é‚̂ł·‚ªA”z—ñ‚Ìpacked‚Í“ä‚Å‚·B
VCL‚̃\[ƒX‚Ì’†‚Å‚à”z—ñ‚Ì錾‚Épacked‚ª‚‚¢‚Ä‚¢‚½‚è‚¢‚È‚©‚Á‚½‚è‚ÅA
‰½‚©Žg‚¢•ª‚¯‚ª‚³‚ê‚Ä‚¢‚邿‚¤‚È‹C‚à‚·‚é‚̂ł·‚ªA‹““®‚̈Ⴂ‚ª•ª‚©‚ç‚È‚¢‚̂ŎߑR‚Æ‚µ‚Ü‚¹‚ñB
‚Æ‚è‚ ‚¦‚¸‚‚¯‚Ä‚¨‚¯‚Ζâ‘è‚͂Ȃ³‚»‚¤‚Å‚·‚ªEEE
134:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 11:52:13
>>133
Delphi‚Å‚µ‚©Žg‚í‚È‚¢‚È‚ç‹C‚É‚µ‚È‚¢B
135:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 15:14:18
Vista‘Ήž‚Á‚Ä‚µ‚Æ‚•K—v‚ ‚ñ‚Ì‚©‚È
136:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 16:52:40
TTabControl‚ÅŽ¿–â‚Å‚·B
ƒ^ƒu‚ð‘I‘ð‚µ‚½Žž‚ÉA‚»‚̔Ԇ‚ÉŠÖ˜A•t‚¯‚ç‚ê‚Ä‚éƒIƒuƒWƒFƒNƒg‚ª
ðŒ‚ð–ž‚½‚³‚È‚¢‚Æ‚«‚Í‚»‚̃^ƒu‚ð‘I‘ð‚³‚¹‚È‚¢‚悤‚É‚·‚é‚ɂ͂ǂ¤‚·‚ê‚΂¢‚¢‚ñ‚Å‚µ‚傤‚©H
OnChangingƒCƒxƒ“ƒg‚Å‚¢‚¯‚é‚©‚ÆŽv‚Á‚½‚ñ‚Å‚·‚ª
‚±‚ê‚©‚ç‘I‘ð‚µ‚æ‚¤‚Æ‚µ‚Ä‚¢‚éƒ^ƒu”Ô†‚̎擾•û–@‚ª‚í‚©‚è‚Ü‚¹‚ñB
ƒNƒŠƒbƒN‚ÌŽž‚̓}ƒEƒXÀ•W‚ðŽæ“¾‚·‚鎖‚łǂ¤‚É‚©o—ˆ‚È‚¢Ž–‚à‚È‚¢‚ñ‚Å‚·‚ªA
ƒL[ƒ{[ƒh‚ÌŽž‚É‹l‚Ü‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·B
137:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 20:51:54
DelphiƒNƒCƒbƒNƒŠƒtƒ@ƒŒƒ“ƒX‚É‚æ‚邯”z—ñ‚Ìpacked‚Í•W€Pascal‚Ƃ̌݊·«‚Ì‚½‚ß‚Å
Delphi‚ł͉½‚̈Ӗ¡‚à‚È‚¢‚»‚¤‚Å‚·
138:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 21:50:08
StrToInt‚ðAPI‚Å‘‚‚Æ‚µ‚½‚ç‚Ç‚¤‚È‚é‚ñ‚Å‚·‚©‚ËH
SysUtils‚Í‚ ‚Ü‚èŽg‚¢‚½‚‚È‚¢«•ª‚Å‚·EEE
139:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 21:52:42
‚Ç‚¤l‚¦‚Ä‚àˆÓ–¡•s–¾‚¾‚ëA‚»‚êB
140:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 21:57:55
>>138
API‚Í’m‚ç‚ñ‚¯‚ÇSystem.Val
‚µ‚©‚µ‚±‚̃XƒŒ–³“à—e‚ȈêsƒŒƒX‚΂Á‚©‚肾‚ÈB”Þ‚ç‚͈ê‘̉½‚ª‚µ‚½‚¢‚Ì‚©B
141:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 22:07:38
>>140
‚±‚ñ‚ÈŠÖ”‚ª‚ ‚邯‚ÍEEE
•׋‚ɂȂè‚Ü‚·
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
142:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 22:12:26
ŠÖ”‚ł͂Ȃ‚Ď葱‚«‚Å‚µ‚½‚ËA‚·‚݂܂¹‚ñ
143:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/27 23:06:08
‚¢‚₾‚Á‚ÄSysUtils‚ÍŽg‚¢‚½‚‚È‚¢‚Á‚ĈӖ¡•s–¾‚¶‚á‚ñBVal‚àStrToInt‚à•Ï‚í‚ç‚È‚¢‚Å‚µ‚åB
144:|„Dßœc ŸA6VzDeLphI
08/03/28 02:16:29
>>107
CharToByteIndex
‚È‚ñ‚¾‚Á‚ÄB
145:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 05:27:30
1•¶Žš–Ú‚Í1ƒoƒCƒg–Ú‚©‚çŽn‚Ü‚èA
3•¶Žš–Ú‚Í4ƒoƒCƒg–Ú‚©‚çŽn‚Ü‚é‚Á‚ĈӖ¡‚©B
>>138
‚±‚ñ‚È‚ñ‚łǂ¤‚¾H(–¢ƒ`ƒFƒbƒN)@16i”‚ª•K—v‚Ȃ玩•ª‚Å‚â‚Á‚ÄB
function StrToInt(const Str: string): Integer;
var
@I: Integer;
@P: PChar;
@Minus: Boolean;
begin
@Result := 0;
@Minus := False;
@P := PChar(Str);
@if P^ in ['+', '-'] then
@begin
@@Minus := P^ = '-';
@@Inc(P);
@end;
@while P^ <> #0 do
@begin
@@if not (P^ in ['0'..'9']) then raise Exception.Create('•ÏŠ·ƒGƒ‰['); // EConvert‚Ý‚½‚¢‚Ȃ̂ ‚Á‚½‚©‚àB
@@Result := Result * 10 + Ord(P^) - Ord('0');
@@Inc(P);
@end;
@if Minus then Result := Result * -1;
end;
146:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 06:05:11
Result := Result * 10 + Ord(P^) - Ord('0');
‚±‚±‚¨‚©‚µ‚‚È‚¢H
147:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 06:05:56
‚â‚×AƒXƒŒ‚ ‚°‚¿‚Ü‚Á‚½B
148:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 07:09:17
123‚Ìê‡A
Result := 0 * 10 + '1' - '0' ¨ 1
Result := 1 * 10 + '2' - '0' ¨ 12
Result := 12 * 10 + '3' - '0' ¨ 123
‚Å‚ ‚Á‚Ă邯Žv‚¤‚¯‚ÇB
149:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 07:43:32
‚ ‚ A‚ ‚Á‚Ä‚é‚ËB‚²‚ß‚ñ‚È‚³‚¢B
150:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 09:51:44
+,-,#0‚Ìˆê•¶Žš‚¾‚¯‚̂Ƃ«A0‚ɂȂé‚íB
151:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 10:01:22
URLØÝ¸(delwiki.info)
‚±‚Ì GetInteger10‚ðŒÄ‚Ño‚µ‚Ä‚é GetInteger‚Ý‚½‚¢‚ÉD‚݂̎d—l‚ð’ljÁ‚µ‚½‚ç‚¢‚¢‚ñ‚¶‚á‚È‚¢‚ÌH
152:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 15:17:15
TreeView‚Å“Á’è‚Ì€–Ú‚¾‚¯Visible:=False‚ɂł«‚Ü‚·‚©H
‚Ü‚½‚Í‘ã‚í‚è‚Ì•û–@‚ª‚ ‚ê‚΋³‚¦‚Ä‚‚¾‚³‚¢B
153:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/28 17:15:01
Canvas‚ɃEƒBƒ“ƒhƒE‰Eã‚Ì_ ~ƒ{ƒ^ƒ“‚ðƒŒƒ“ƒ_ƒŠƒ“ƒO‚·‚é•û–@‚È‚¢‚Å‚·‚©H
ƒrƒbƒgƒ}ƒbƒv‚Å—pˆÓ‚·‚邯ƒe[ƒ}‚Ì•ÏX‚É’Ç]‚Å‚«‚È‚¢‚Ì‚ÅB
>>152
‚½‚Ô‚ñ–³—BAdd/Delete‚·‚邵‚©B
154:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 00:26:03
>>153
WinAPI‚ÌDrawFrameControl
155:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 10:18:18
DrawFrameControl‚Á‚ăe[ƒ}‚ɑΉž‚µ‚Ä‚é‚ÌH
156:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 10:37:32
Win32API‚¾‚µA“à•”“I‚É‚»‚ê‚ç‚ÌAPIŽg‚Á‚ÄWindows‚̓EƒBƒ“ƒhƒE•`‰æ‚µ‚Ä‚é‚ñ‚¶‚áH
‚Ä‚©A‚»‚ê‚®‚ç‚¢Ž©•ª‚ÅŽŽ‚¹‚邾‚ëB
157:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 10:39:03
‚¢‚âAƒe[ƒ}API•ʂɂ ‚é‚©‚ç‘Ήž‚µ‚Ă˂¥‚©‚àB
158:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 10:45:44
Win32‚̃XƒŒ‚Å•·‚«‚ÈB‚»‚Á‚¿‚Ì•û‚ª’m‚Á‚Ä‚él‘½‚¢‚ÆŽv‚¤B
159:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 13:26:10
TRegExpr‚Åtr‰‰ŽZŽq‚Ì’uŠ·‚ð‚·‚é‚ɂ͂ǂ¤‚·‚ê‚΂¢‚¢‚Å‚·‚©H
‚½‚Æ‚¦‚Îutr/abc/ABC/vŒ©‚½‚¢‚Ȃ̂ł·
‰pŒê‚Æ‚©—Ç‚•ª‚©‚ç‚È‚¢‚µƒOƒOƒb‚Ä‚ào‚È‚¢‚µEEE
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·
160:159
08/03/29 14:48:57
¡ ‚Å‚·‚ªTRegExpr‚łȂ‚Ä‚àDLL‚ðŽg‚í‚È‚¢‚悤‚È‚à‚̂łȂ¯‚ê‚Αåä•v‚Å‚·
161:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 15:53:24
TRegExpr‚ÌŽg‚¢•û
URLØÝ¸(delwiki.info)
PCREŽg‚Á‚½‚Ì
URLØÝ¸(cc.codegear.com)
162:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 17:47:55
‹SŽÔƒx[ƒX‚̃‰ƒCƒuƒ‰ƒŠ‚Á‚ĂȂ¢‚ÌH
163:159
08/03/29 17:54:41
>>161
> TRegExpr‚ÌŽg‚¢•û
‚±‚ê‚ð“Ç‚ñ‚ł݂ĕª‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½EEE
‰½‚©ƒTƒ“ƒvƒ‹‚ð‚¢‚½‚¾‚¯‚È‚¢‚Å‚µ‚傤‚©
164:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/29 18:08:56
‚À‚á“ú–{»Žg‚¦
URLØÝ¸(homepage1.nifty.com)
165:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 02:33:50
DirectoryListBox ‚ÅA¡‘I‚ñ‚Å‚¢‚éƒtƒHƒ‹ƒ_‚Ì[‚³‚ª‰½ŠK‘w–Ú‚©‚ð’m‚é•û–@‚Á‚Ä‚ ‚è‚Ü‚·‚©H
166:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 02:40:05
‚»‚ê‚P‚UƒrƒbƒgUI‚Ì–¼Žc‚èBŽg‚í‚È‚¢•û‚ª‚¢‚¢‚æB
167:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 03:00:55
>>166
‚»‚¤‚Å‚·‚©A¡Œã‚È‚é‚ׂŽg‚í‚È‚¢—l‚É‚µ‚Ü‚·B
‚¶‚á‚ A•Ï”‚É“ü‚Á‚Ä‚éƒpƒX‚ª‰½ŠK‘w–Ú‚©‚ð’m‚é•û–@‚Á‚Ä‚ ‚è‚Ü‚·‚©H
168:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 04:05:07
ƒfƒŠƒ~ƒ^‚Ì”‚𔂦‚邯‚©
169:|„Dßœc ŸA6VzDeLphI
08/03/30 04:23:47
URLØÝ¸(delfusa.main.jp)
‰´‚àŽ©ì‚Ì‚ðŽg‚Á‚Ä‚µ‚Ü‚¤‚È‚ B
170:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 06:13:30
StringReplace‚Å\‚ð\_‚ɂłà•ÏŠ·‚µ‚ÄA
’·‚³‚Ì·‚ðŽæ‚ê‚Î\‚Ì”‚Í•ª‚©‚é‚ñ‚¶‚á‚È‚¢‚Ì‚©H
171:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 06:19:44
\‚Ì”‚¾‚¯‚¾‚ÆUNCƒpƒX‚Ō듮삷‚é‚ñ‚¶‚á‚ËH
172:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 09:42:07
‚Í‚ŸEEEDel‚V”ƒ‚Á‚Ä‚©‚ço—ˆ‚½‚à‚̂̓{ƒ^ƒ“ƒNƒŠƒbƒN‚µ‚ĉ摜•\ަ
‚»‚ê‚©‚ç‚QD‚̃XƒNƒ[ƒ‹‚Æ‚RDƒ‚ƒfƒ‹‚̉ñ“]‚Ì‚ÝEEE
•ϔ錾‚ß‚ñ‚Ç‚‚¹[
ƒRƒ“ƒpƒCƒ‰Žž‚ÉŽ©“®ì¬‚µ‚ÄŒã‚ÅC³‚³‚¹‚邿‚¤‚É‚µ‚Ä‚‚ê‚è‚á‚¢‚¢‚Ì‚É
173:167
08/03/30 10:01:31
>>168-171
‚â‚Í‚è•¶ŽšŒn‚ň—‚·‚邵‚©‚È‚¢‚Å‚·‚©
‚È‚ñ‚©ƒfƒBƒŒƒNƒgƒŠ‚Ì–½—߂ł ‚é‚©‚ȂƎv‚Á‚½‚ñ‚Å
‚·‚¢‚Ü‚¹‚ñ‚Å‚µ‚½A‚È‚ñ‚Æ‚©‚â‚Á‚Ă݂܂·
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½w
174:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 10:03:40
ExtractFileDrive‚µ‚ÄExcludeTrailingPathDelimiter‚µ‚‚ÂExtractFilePath‚Å‚«‚é‰ñ”‚𔂦‚é
175:167
08/03/30 11:19:06
>>174
‚ ‚ÁA‚»‚¤‚¢‚¤•û–@‚Å‚ào—ˆ‚é‚ñ‚Å‚·‚Ë
‚È‚ñ‚©o—ˆ‚»‚¤‚ÈŠ´‚¶‚ª‚µ‚Ä‚«‚Ü‚µ‚½
ŽŽ‚µ‚É‚â‚Á‚Ă݂܂·A‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½‚—
176:|„Dßœc ŸA6VzDeLphI
08/03/30 12:03:39
ì‚Á‚Ă܂·B
URLØÝ¸(delfusa.main.jp)
function PathLevel(Path: String): Integer;
procedure testPathLevel;
‚²ŽQl‚‚¾‚³‚¢B
‚±‚¤‚¢‚¤‚Ì‚Á‚ÄA‚‚‚ÂAŽÀ‘•‚æ‚è‚à
ƒeƒXƒgƒR[ƒh‚ª‘厖‚Á‚ÄŽv‚¤B
177:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 12:06:29
>172
‚»‚¤‚¢‚¤‚Ì‚ª‹êŽè‚Èl‚É‚ÍDelphi‚ÍŒü‚©‚È‚¢‚Ì‚©‚àBDelphi2007‚Ȃ烊ƒtƒ@ƒNƒ^ƒŠƒ“ƒO‚ŕϔ錾‚ð
’ljÁ‚·‚é‹@”\‚à‚ ‚邯‚ÇA‚¿‚å‚Á‚ƈႤ‚ÈBÌ‚ÌVB‚È‚ç•ϔ錾•s—v‚ȃ‚[ƒh(Option)‚à‚ ‚Á‚½‹C‚ªB
178:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 12:55:00
>>177
‚Æ‚¢‚¤‚©ƒRƒ“ƒpƒCƒ‰‚Á‚Ď蔲‚«‚Åi•à–³‚³™
•ϔ錾‚È‚ñ‚©“¯‚¶ƒ\[ƒXã‚É•\ަ‚³‚¹‚éˆÓ–¡‚à‚È‚AƒvƒƒpƒeƒB‚̂悤‚ɕʑ‹‚©•ʃtƒ@ƒCƒ‹‚Ń\[ƒg‰Â”\‚È•\Œ`Ž®‚ÅŠÇ—E•\ަ‚Å‚¢‚¢
179:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 13:11:59
BASIC‚Å‚à‚â‚Á‚Ä‚ë
180:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 13:54:06
‚»‚à‚»‚àƒvƒƒOƒ‰ƒ~ƒ“ƒO‚ÉŒü‚¢‚ĂȂ¢B
181:167
08/03/30 14:15:03
>>176
WordDecompose.pas ’¸‚«‚Ü‚µ‚½
FXŽQl‚É‚³‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚·A‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½‚—
182:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 16:20:24
‚ ‚è‚Æ‚ ‚ç‚ä‚é•Ï”‚ðƒOƒ[ƒoƒ‹•Ï”‚Å錾‚µ‚Ä‚¨‚¢‚½‚ç‚Ç‚¤‚¾‚낤H
183:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 18:47:34
>>178
IDE‚̉¶Œb‚µ‚©Žó‚¯‚½‚±‚ƂȂ¢‚Æ‚±‚¤‚¢‚¤•—‚Ɉç‚‚̂©
184:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 19:10:06
‚¢‚âA‰½‚ƂȂ‚í‚©‚éB•ϔ錾‚ÌUIB‚Å‚àƒ\[ƒXã‚É‘‚‚Á‚Ă̂É
е‚ê‚Ă邵ƒvƒƒOƒ‰ƒ€‘‚¢‚Ä‚é‚Á‚ÄŠ´‚¶‚·‚邵A‚æ‚‚æ‚l‚¦‚Ä‚Ý‚é‚Æ
GUI ‚É‚·‚é‚Ì‚Á‚ă[ƒJƒ‹‚¾‚Æ‚©ƒiƒ“‚¾‚Æ‚©–Ê“|‚»‚¤‚¶‚á‚ñ
185:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/30 20:35:28
–Ï‘z‚·‚邾‚¯‚Å‚Å錾•¶‚𑂯‚½‚ç‚¢‚¢‚̂ɂËB
‚»‚ê‚Íç’k‚Æ‚µ‚ÄAƒAƒhƒCƒ“‚Åì‚ê‚È‚¢‚ÌH
186:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 00:25:08
GUI‚Å•\ަ‚â’ljÁ‚‚ç‚¢‚È‚çì‚ê‚邯Žv‚¤‚ªA
‚»‚ñ‚Ȃ̂Ŋì‚Ԃ͉̂SŽÒ‚¾‚¯‚¾‚µA
‚»‚¤‚¢‚¤‚Ì‚ðì‚ê‚郌ƒxƒ‹‚Ìl‚Í‹t‚ɶŽY«‰º‚ª‚Á‚Ä•s—v‚Ȃ̂Å
Œ‹‰Ê‚Æ‚µ‚Ä’N‚àì‚ç‚È‚¢‚Á‚Ä‚±‚ƂɂȂÁ‚Ä‚é‚ñ‚¶‚á‚È‚¢‚©‚Æ
187:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 00:39:57
SpeedButton‚Ý‚½‚¢‚Ȃ̂ª‚¢‚‚‚©‚TŒÂ‚‚ç‚¢•À‚ñ‚Å‚ÄAˆê‚‚Íí‚ɂւÁ‚±‚ñ‚Å‚ÄAˆê‚Â‚ð‰Ÿ‚·‚Æ‘¼‚Ì‘S•”‚ªã‚ª‚é‚Á‚ă^ƒCƒv‚̃{ƒ^ƒ“‚͂ǂ¤‚â‚Á‚Ä‚é‚ñ‚Å‚·‚©H
188:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 00:48:22
SpeedButton‚ðƒOƒ‹[ƒv‰»‚·‚é‚ñ‚¾
189:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 00:54:37
‚Å‚«‚Ü‚µ‚½B
‚Ç‚¤‚à‚ ‚肪‚Æ‚¤I
190:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 10:50:14
ƒf[ƒ^ƒx[ƒX‚ÅBlob‚É“ü‚Á‚Ä‚¢‚éƒoƒCƒiƒŠƒtƒ@ƒCƒ‹‚ð‚µ‚¸‚ƒ_ƒEƒ“ƒ[ƒh
‚µ‚½‚¢‚̂ł·‚ªA—Ç‚¢•û–@‚͂Ȃ¢‚Å‚µ‚傤‚©H
Œ»ÝTBlobStream.Create‚Å‚»‚ÌStream‚©‚炵‚¸‚“ǂݞ‚ñ‚Å‚¢‚é‚̂ł·‚ªA
Createƒƒ\ƒbƒh‚ðŽÀs‚µ‚½Žž“_‚Å‚·‚ׂẴf[ƒ^‚ð“ǂݞ‚ñ‚Å‚¢‚邿‚¤‚Å‚·B
—v‚Í‚µ‚¸‚ÂRead‚µ‚ăvƒƒOƒŒƒXƒo[‚É‚»‚Ì󋵂ð•\ަ‚µ‚½‚¢‚̂ł·B
ã‚Ì•û–@‚¾‚ÆCreate‚ðŒÄ‚ñ‚¾‚Æ‚±‚ë‚ŃvƒƒOƒ‰ƒ€‚ªˆêŽŸ’âŽ~‚µ‚½‚悤‚ɂȂÁ‚Ä‚µ‚Ü‚¢‚Ü‚·B
191:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 12:19:44
‚»‚ê‚ɂ‚¢‚Ä[‚l‚¦‚½‚±‚ƂȂ¢Ž–‚ðŽn‚߂ɒf‚Á‚Ä‚¨‚‚¯‚ÇA
Ì’²‚ׂ½‹L‰¯‚Æ¡A‚¿‚å‚Á‚ƃ\[ƒXŒ©‚½Š´‚¶‚¾‚ÆA‚È‚‚Æ‚àV‚µ‚¢“ÆŽ©‚ÌBlobStreamƒNƒ‰ƒX‚Æ
‚»‚ê‚ð•Ô‚·‚悤‚ÉADO‚È‚çTCustomADODataSet,dbExpress‚È‚çTCustomSQLDataSet‚Ì
CreateBlobStreamƒƒ\ƒbƒh‚ðƒI[ƒo[ƒ‰ƒCƒh‚µ‚ēƎ©BlobStream‚ð•Ô‚·‚悤‚É‚µ‚È‚¢‚Æ
Œµ‚µ‚»‚¤‚¾‚ÈB
192:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 12:22:49
‚Ü‚ŸA“ǂݞ‚ÞBlob‚ÌÅ‘åƒTƒCƒY‚ÍÝ’è‚Å‚«‚邿‚¤‚¾‚©‚çA‚»‚ê‚ðݒ肵‚ÄA
ˆêŽŸ’âŽ~‚µ‚½‚悤‚ɂȂé‚Ì‚ð”ð‚¯‚é‚±‚Ƃ͂ł«‚éBª–{“I‚È‰ðŒˆ‚Å‚Í‚È‚¢‚ªB
‚»‚ꂪŒ™‚È‚çã‹L‚Ì•û–@ˆÈŠO‚Ï‚Á‚ÆŽv‚¢‚‚©‚È‚¢B
193:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 17:29:09
d6per‚È‚ñ‚Å‚·‚ªdialog.pas‚ªC:\Program Files\Borland\Delphi6\Source\Vcl‚É‘¶Ý‚µ‚Ü‚¹‚ñEEE
‚¿‚å‚Á‚ÆC³‚µ‚½‚¢‰ÓŠ‚ª‚ ‚é‚̂ł·‚ª’N‚©‚¤‚‚µ‚Ä‚¢‚½‚¾‚¯‚È‚¢‚Å‚µ‚傤‚©H
194:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 19:37:21
‚»‚Ì‚½‚߂̃vƒ”Å‚¾Bƒvƒ”ƒ‚¦B
195:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/03/31 20:49:51
DBGrid1‚ÌOnDrawColumnCell‚ÅADBGrid1‚Ìã‚ÉUpDown‚ð•`‚‚â‚è•û‚ÅAUpDown‚ŃtƒB[ƒ‹ƒh‚Ì’l‚ð•Ï‚¦‚邱‚ƂɃ`ƒƒƒŒƒ“ƒW‚µ‚Ä‚¢‚Ü‚·B
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const@Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
@// DBGrid‚ðFColorDBGrid1‚ÆFColorDBGrid2‚ÌŽÈX‚É‚·‚éB
@if@not@(gdSelected@in@State)@then
@begin
@@if@Table1.RecNo@mod@2=0@then
@@begin
@@@DBGrid1.Canvas.Brush.Color := FColorDBGrid1;
@@@DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
@@end@else
@@begin
@@@DBGrid1.Canvas.Brush.Color := FColorDBGrid2;
@@@DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);@
@@end;
@end;
196:‚‚«‡@
08/03/31 20:50:48
@// UpDown‚Ì•`‰æ
@fView := False;
@if@gdSelected@in@State@then@with@DBGrid1@do
@if@SelectedField@is@TIntegerField@then
@with@TIntegerField(SelectedField)@do
@begin
@if@Table1.Active@then
@@updownDBGridInt.Position@:=@Table1.FieldByName('Int').AsInteger;
@@fView := true;
@end;
@updownDBGridInt.Visible := fView;
@if@updownDBGridInt.Visible@then
@if@not@CompareMem(@oldRect, @Rect, Sizeof(Rect))@then
@@with@Rect@do@begin
@@updownDBGridInt.Top := Top;
@@updownDBGridInt.Left := Left;
@@updownDBGridInt.Height := Bottom - Top;
@end;
end;
197:‚‚«‡A
08/03/31 20:51:36
// updownDBGridInt‚ÌOnChangingEx
procedure@TForm1.updownDBGridIntChangingEx(Sender: TObject;
var@AllowChange: Boolean; NewValue: Smallint;
Direction: TUpDownDirection);
begin
@if@(Table1.Active=true) and (0<Table1.RecordCount)@then
@begin
@@if@not@fView@then@exit;
@@AllowChange := DBGrid1.SelectedField.CanModify;
@@if@AllowChange@then
@@begin@
@@with@DBGrid1@do
@@@if@SelectedField@is@TIntegerField@then@with@TIntegerField(SelectedField)@do
@@@begin
@@@//Table1.DisableControls;
@@@Table1.Edit;
@@@Table1.FieldByName('Int').AsInteger :=@updownDBGridInt.Position;
@@@Table1.Post;
@@@DBGrid1.Refresh;
@@@//Table1.EnableControls;
@@@end;
@@end;
end;
end;
‚±‚¤‚·‚邯ATable‚ɃtƒBƒ‹ƒ^[‚ð‚©‚¯‚ĂȂ¢‚Æ‚«‚ÍA’l‚Ì‘Œ¸‚ª‚Å‚«A‚¤‚Ü‚‚¢‚‚̂ł·‚ªAƒtƒBƒ‹ƒ^[‚ð‚©‚¯‚½ê‡AUpDown‚𑌸‚·‚邯AƒJƒŒƒ“ƒgƒŒƒR[ƒh‚ªæ“ª‚É‚¢‚Á‚½‚èAÅŒã‚É‚¢‚Á‚½‚èiupdownDBGridInt‚à‚»‚ê‚É‚ ‚킹‚Ĉړ®‚µ‚Ü‚·j‘Œ¸‚Å‚«‚È‚‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·B
ˆê”Ê“I‚Șb‚łȂ‚Ä\‚µ–ó‚È‚¢‚Å‚·‚ªAŒ´ˆö‚̂킩‚é•û‚¢‚ç‚Á‚µ‚á‚¢‚Ü‚¹‚ñ‚©H
198:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/01 13:03:38
writeln‚Åo—Í‚µ‚½•¶Žš—ñ‚ð
ˆê’iã‚É–ß‚Á‚ÄÄ“xã‘‚«‚µ‚Ä
is󋵂ð•\ަ‚µ‚½‚¢‚ñ‚Å‚·‚ª‚Ç‚¤‚â‚ê‚΂¢‚¢‚Å‚·‚©H
199:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/01 13:07:49
–߂邂炢‚È‚çʼn‚©‚ç‰üs‚·‚é‚È‚æ
200:‚ȂȂµ‚Ö‚½‚®‚ç‚Ü ŸXcB18Bks.Y
08/04/01 13:44:59
Writeln‚Ì‘ã‚í‚è‚ÉWrite‚Å‘‚¢‚ăoƒbƒNƒXƒy[ƒXi#8jH
201:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/01 16:35:05
URLØÝ¸(dn.codegear.com)‚ðŽQl‚ÉŽ©•ª‚̃\ƒtƒg‚ðVista‚ɑΉž‚³‚¹‚悤‚ÆŽv‚Á‚½‚̂ł·‚ªA
ShowModal‚̂Ƃ±‚ë‚Å‹l‚Ü‚Á‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½
Form‚̃vƒƒpƒeƒB‚ÉPopupParent‚ª‘¶Ý‚µ‚È‚¢‚̂ł·
‚Ç‚¤‚·‚ê‚΂¢‚¢‚̂łµ‚傤‚©H
ŽŸƒy[ƒWÅVƒŒƒX•\ަƒXƒŒƒbƒh‚ÌŒŸõ—ÞŽ—ƒXƒŒˆê——˜b‘è‚̃jƒ…[ƒX‚¨‚Ü‚©‚¹ƒŠƒXƒg¥ƒIƒvƒVƒ‡ƒ“‚ð•\ަ‰É‚‚Ԃµ2ch
4926“ú‘O‚ÉXV/238 KB
’S“–:undef