‚­‚¾‚·‚êDelphi(’´‰ ..
[2ch|¥Menu]
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

202:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/01 19:57:44
>>201@TurboDelphiŽg‚¦

203:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/01 20:50:47
API‚Ȃǂőã‘Öo—ˆ‚È‚¢‚̂łµ‚傤‚©

204:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/01 21:59:02
TurboDelphiiƒ\[ƒX•t‚«j‚ðƒ_ƒEƒ“ƒ[ƒh‚µ‚ÄPopupParent‚ÌŽÀ‘•‚𒲂ׂê‚΂¢‚¢‚ñ‚¶‚á‚ËH

205:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/01 22:01:20
>>195
–³ŠÖŒW‚Ès‚ð‘S•”휂µ‚Ä‚­‚ê‚ñ‚©‚ËB

206:195
08/04/01 23:52:21
‚·‚݂܂¹‚ñB

// DBGrid‚ðFColorDBGrid1‚ÆFColorDBGrid2‚ÌŽÈX‚É‚·‚éB

ˆÈ‰º‚Ì‚PƒuƒƒbƒN‚Í•K—v‚È‚¢‚Å‚·‚ËB

휂µ‚½‚Ì‚ð‚P‚©‚çÚ‚¹‚邯‚Ü‚½ƒNƒh‚­‚È‚é‚̂ł±‚ê‚Å‹–‚µ‚Ä‚­‚ê‚Ü‚¹‚ñ‚©H

207:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/02 01:43:01
‚º‚ñ‚º‚ñ‚í‚©‚ç‚ñ‚íB
UpDownƒRƒ“ƒgƒ[ƒ‹‚ðDBGrid‚̃Zƒ‹‚Ìã‚É’u‚¢‚ÄA’l‚ð•Ï‚¦‚ç‚ê‚邿‚¤‚É‚µ‚½‚¢‚Ý‚½‚¢‚¾‚¯‚ÇB
with‚ŊԈႦ‚Ä‚¢‚é‚Ì‚©‚ÈB

208:201
08/04/02 06:22:50
URLØÝ¸(ddev.blog46.fc2.com)‚ðTForm‚Ì‘ã‚í‚è‚ÉŽg‚Á‚½‚ç‰ðŒˆ‚µ‚Ü‚µ‚½
‚±‚¿‚ç‚ÌŒŸõ•s‘«‚Å\‚µ–ó‚ ‚è‚Ü‚¹‚ñ‚Å‚µ‚½

209:195
08/04/02 09:05:58
Filter‚ðON‚É‚µ‚È‚¯‚ê‚ÎA‚¢‚¯‚é‚ñ‚Å‚·‚ªA‚à‚¤­‚µ‚¢‚¶‚Á‚Ă݂܂·B

210:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/02 20:25:55
if a and b then

‚Æ‚¢‚¤ê‡•K‚¸a‚©‚ç•]‰¿‚³‚ê‚é•ÛØ‚Í‚ ‚è‚Ü‚·‚©H

211:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/02 21:09:24
‚Í‚¢‚¦

ƒ}ƒWƒŒƒX‚·‚邯Ю‘S•]‰¿‚É‚µ‚½ê‡‚Ì‚±‚Ƃ͒m‚ç‚ñ

212:195
08/04/03 16:34:43
StringList1:@TStringList;

‚ªŽ‚Á‚Ä‚¢‚éî•ñ—Ê‚ðbyte‚Å’m‚é‚ɂ͂ǂ¤‚µ‚½‚ç‚¢‚¢‚ñ‚Å‚µ‚傤‚©H

213: ŸXcB18Bks.Y
08/04/03 16:37:03
Œ¾ŒêƒKƒCƒh‚Ì‹Lq‚ð“ǂނƊ®‘S•]‰¿‚Ìꇂ͕]‰¿‡˜‚ÉŠÖ‚·‚é‹Lq‚Í‚ ‚è‚Ü‚¹‚ñ‚ËB

>>210
Delphi‚ł͘_—‰‰ŽZŽqand‚âor‚ł‚Ȃª‚Á‚½Ž®‚ɂ‚¢‚Ä‚Í
ƒfƒtƒHƒ‹ƒg‚ł̓Vƒ‡[ƒgƒT[ƒLƒbƒg•]‰¿‚Æ‚¢‚Á‚Ä
¶‚©‚燂ɕ]‰¿‚µ‚ÄŽ®‘S‘̂̒l‚ªŠm’肵‚½Žž“_‚Å‚»‚±‚Å•]‰¿‚ð‘Å‚¿Ø‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·B

„@if a and b then
‚¾‚Æa‚Ì’l‚ªFalse‚Ȃ玮‘S‘̂̒l‚Íb‚Ì’l‚ÉŠÖŒW‚È‚­False‚ɂȂè‚Ü‚·‚©‚炱‚±‚Å•]‰¿‚ð‘Å‚¿Ø‚è‚Ü‚·B
‚‚܂èb‚Ì•]‰¿‚Ís‚í‚ê‚Ü‚¹‚ñB

Š®‘S•]‰¿‚ŃRƒ“ƒpƒCƒ‹‚³‚¹‚邯‚·‚ׂĂð•]‰¿‚·‚邱‚Æ‚ª•ÛØ‚³‚ê‚Ü‚·‚ª
‡˜‚ÉŠÖ‚·‚é‹Lq‚ªˆêØ–³‚¢‚̂ŋLq‚ƈقȂ釘‚Å•]‰¿‚³‚ê‚é‰Â”\«‚ª‚ ‚è‚Ü‚·B


214:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 17:59:30
>>212
Create‚Ì‘OŒã‚Ńƒ‚ƒŠ‚ð‹ó‚«—e—ʂ𔂦‚é‚—‚—

215:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 18:14:12
>>212
Length(StringList.Text) + StringList.InstanceSize ‚Æ‚©

216:212
08/04/03 18:54:09
‚²‚ß‚ñ‚È‚³‚¢Aà–¾•s‘«‚Å‚µ‚½B
‚à‚Á‚Ä‚éText‚Ìî•ñ—Ê‚¾‚¯—~‚µ‚­‚ÄA‚¾‚©‚çA’P‚ÉLength(StringList1.Text)+1‚Å‚¢‚¢‚Å‚·‚æ‚ËH

217:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 20:21:46
ˆÈ‘O‚±‚̃XƒŒ‚ÅA‰æ–Ê‚ÌØ‚è‘Ö‚¦‚ÉPageControl‚ðŽg‚¤ƒAƒCƒfƒA‚ª‚ ‚è‚Ü‚µ‚½B
ƒƒ^ƒV¡‚܂ł¸‚Á‚ÆA‚½‚­‚³‚ñ‚̃tƒH[ƒ€‚ðì‚Á‚ĉæ–ÊØ‚è‘Ö‚¦‚ð‚µ‚Ä‚«‚½‚Ì
‚Å‚·‚ªA¡‰ñAPageControl•ûŽ®‚Å‚â‚Á‚Ă݂܂µ‚½Bʼn‚Í—Ç‚©‚Á‚½‚̂ł·‚ªA
ƒy[ƒW‚ª‘‚¦‚é‚ɂ‚ꃃCƒ“ƒtƒH[ƒ€‚É–³’ƒ‹ê’ƒ‚½‚­‚³‚ñ‚̃Rƒ“ƒ|[ƒlƒ“ƒg‚Æ
‚»‚̃Cƒxƒ“ƒg‚ȂǂªW’†‚µ‚Ä‚µ‚Ü‚¢A‚©‚Ȃ謗‚µ‚Ä‚«‚Ä‚¢‚Ü‚·B
ŠF—l‚͂ǂ̂悤‚É®—‚µ‚Ä‚â‚Á‚Ä‚é‚̂łµ‚傤‚©B

218:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 20:30:06
‚Ü‚³‚É‚»‚Ì‚½‚ß‚ÉFrame‚ª—pˆÓ‚³‚ê‚Ä‚¢‚éB
Panel‚̂悤‚ÈŠ´‚¶‚ŃtƒH[ƒ€‚É“\‚è•t‚¯‚ç‚ê‚Ä
ÝŒvŽž‚ɂ͌ÂX‚̓Ɨ§‚µ‚½ƒtƒH[ƒ€‚̂悤‚Ɉµ‚¦‚é‚©‚çãY—í‚ɃR[ƒh‚ª‚΂点‚éB
ListBox/ListView‚È‚ñ‚©‚Ì‚í‚è‚Ɉ—‚ª‚½‚­‚³‚ñ“ü‚邿‚¤‚ȃRƒ“ƒ|[ƒlƒ“ƒg’PˆÊ‚œƗ§‚³‚¹‚Ä‚¢‚Á‚Ä‚à‚¢‚¢‚µB

219:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 20:48:07
ƒtƒŒ[ƒ€‚͈ȑOƒ`ƒƒƒŒƒ“ƒW‚µ‚½‚±‚Æ‚ª‚ ‚è‚Ü‚µ‚ÄA‚½‚¾‚»‚̂Ƃ«‚ÍÝŒvŽž‚É
“\‚è•t‚¯‚½æ‚ðXV‚µ‚Ä‚µ‚Ü‚Á‚Ädfmƒtƒ@ƒCƒ‹‚𒼂µ‚Ä–ß‚µ‚½‚èAƒCƒxƒ“ƒg
ŠÖ˜A‚Å•s“s‡‚ª‚ ‚Á‚½‚èA‰½‚â‚©‚â‚ÅŒ‹\’É‚¢‚߂ɂ ‚Á‚½‹L‰¯‚ª‚ ‚è‚Ü‚µ‚Ä
i‚·‚Á‚©‚è–Y‚ê‚Ă܂·‚ªcj”ð‚¯‚Ä‚«‚½‚̂ł·‚ªA‚¤‚Ü‚­Žg‚¦‚Ήæ–ÊØ‚è‘Ö‚¦
‚ɂ͈ê”ÔŽg‚¦‚郂ƒm‚Ȃ̂©‚Å‚·‚©B‚ ‚ŸŒ‹\ƒAƒ^ƒ}¬—‹C–¡‚Å‚·B

220:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 20:55:57
•ʃtƒH[ƒ€‚ÅÝŒv‚µ‚Ä‚¨‚¢‚ÄA‚»‚̃tƒH[ƒ€‚É“\‚è•t‚¯‚½ƒRƒ“ƒ|[ƒlƒ“ƒg‚Ì
‘S•”‚̃I[ƒi‚ð•ÏX‚µ‚Ä‚µ‚Ü‚¤‚Æ‚©

ƒtƒH[ƒ€‚̂܂ÜManualDock‚Å“\‚è•t‚¯‚Ä‚µ‚Ü‚¤‚Æ‚©

221:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 21:11:43
>>219
‚»‚¤‚¢‚¦‚ÎÝŒvŽž‚É–„‚ßž‚Þ‚Æ
>‚½‚¾‚»‚̂Ƃ«‚ÍÝŒvŽž‚É
>“\‚è•t‚¯‚½æ‚ðXV‚µ‚Ä‚µ‚Ü‚Á‚Ädfmƒtƒ@ƒCƒ‹‚𒼂µ‚Ä–ß‚µ‚½‚è
‚É—‚ñ‚¾ƒGƒ‰[‚¾‚©Œx‚¾‚©‚̃_ƒCƒAƒƒO‚ª‚ł܂­‚Á‚Ä‚½‚悤‚ÈB

‚Ȃ̂Ŏ©•ª‚ÍÝŒvŽž‚ɂ͖„‚ßž‚Ü‚¸FormCreate‚Å
Frame1 := TFrame1.Create(Panel1);
Frame1.Parent := Panel1;
Frame1.Align := alClient;
‚Æ“®“I‚Éì‚邿‚¤‚É‚µ‚Ä‚éB

‚ ‚ÆForm‚ÌOnCreate/OnDestroy/OnShow/OnHide
‚ɑГ–‚·‚éƒCƒxƒ“ƒgƒnƒ“ƒhƒ‰‚ª‚È‚¢‚Ì‚à•s•ւȂ̂Å
TFrame‚ðŒp³‚µ‚Ä
DoCreate/DoDestroy/DoShow/DoHide
‚Æ‚¢‚Á‚½ƒCƒxƒ“ƒgƒnƒ“ƒhƒ‰‚à‚Ç‚«‚Ìvirtual procedure‚ðŽ‚Á‚½TFrameEx‚ðì‚Á‚Ä
X‚ÉŽq‚ÉFrameEx‚̃Cƒ“ƒXƒ^ƒ“ƒX‚ª‚ ‚Á‚½‚ç‚»‚Ì‚à‚Ç‚«‚̃ƒ\ƒbƒh‚ð
“K؂ȃ^ƒCƒ~ƒ“ƒO‚ŌĂÑo‚·‚ðTFormEx‚à‚‚­‚Á‚ÄŽg‚Á‚Ä‚éB

Œ¾‚í‚ê‚Ă݂ê‚΂¾‚¢‚ÔƒNƒZ‚Ì‚ ‚é‹@”\‚ł͂ ‚é‚È‚Ÿw
‚»‚ê‚Å‚à‘¼‚É‚¢‚¢‘ã‘ֈĂª‚È‚¢‚ñ‚Å‚¸‚Á‚Æ‚±‚Ì•ûŽ®B
“®“I‚Ƀ^ƒu‚𶬔pŠü‚·‚郃‚‚âƒuƒ‰ƒEƒUƒ^ƒCƒv‚̃AƒvƒŠ‚ðì‚邯‚«‚É‚à‚©‚Ȃ莩‘R‚ÉŽg‚¦‚邵‚ËB

Ž©•ª“I‚ɂ͑¼‚ɃCƒxƒ“ƒgŠÖ˜A“™–Ú—§‚Á‚½–â‘è‚Í‚ ‚Ü‚è‚È‚¢‚ÆŽv‚¤B

222:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 22:21:55
\•ª‚ß‚ñ‚Ç‚­‚³‚¢‚È‚ŸA‚»‚êB‚µ‚©‚µA‚»‚ñ‚ÈŠ´‚¶‚ɂȂé‚ñ‚¾‚낤‚È‚ŸB

223:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/03 23:27:28
>216
‚¢‚¢‚¯‚ÇA‚¢‚¢‚Ì‚©HTextƒvƒƒpƒeƒB‚ðŽQÆ‚·‚邯Strings[]‚Ì“à—e‚ðCR+LF•t‚ŘAŒ‹‚µ‚½•¶Žš—ñ‚ª
ˆêŽž“I‚É‚¾‚ª¶¬‚³‚ê‚é‚ñ‚¾‚¯‚ÇB‚»‚ê‚ÉCR+LF‚Ì•ª‚ªŒvŽZ‚É“ü‚Á‚Ă邯‚ÇH
‚»‚ê‚ÉStrings[]‚É“¯ˆê“à—e“¯ˆê‹NŒ¹‚̃f[ƒ^‚ª‚ ‚邯“¯ˆê‚̗̈æ‚ÉŠi”[‚³‚ê‚Ä‚¢‚ăf[ƒ^ƒTƒCƒY‚Æ‚µ‚Ä‚Í
1‚•ª‚µ‚©Á”‚Ä‚¢‚È‚¢A‚Æ‚¢‚¤ó‹µ‚ð‚Ç‚¤l‚¦‚é‚©A‚Æ‚©B
—v‚Í–³—‚Á‚Ä‚±‚Æ‚¾‚ªB

224:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 07:20:49
TBitmap.PixelFormat ‚É pfDevice ‚ðƒZƒbƒg‚µ‚½‚çAŽ©“®“I‚É HandleType ‚Í bmDDB ‚ɂȂé‚Ì‚¾‚낤‚©H
TBitmap.PixelFormat ‚É pf24bit@‚ðƒZƒbƒg‚µ‚½‚çAŽ©“®“I‚É HandleType ‚Í bmDIB ‚ɂȂé‚Ì‚¾‚낤‚©H
TBitmap.HandleType@‚É bmDDB@@‚ðƒZƒbƒg‚µ‚½‚çAŽ©“®“I‚É PixelFormat ‚Í pfDevice ‚ɂȂé‚Ì‚¾‚낤‚©H
TBitmap.HandleType@‚É bmDIB@@‚ðƒZƒbƒg‚µ‚½‚çAŽ©“®“I‚É PixelFormat ‚Í pf24bit@‚ɂȂé‚Ì‚¾‚낤‚©H

225:ʼn‚̂ЂƂ‚¾‚¯YES‚Ý‚½‚¢‚¾‚ªH
08/04/04 07:35:14
ƒ\[ƒX‰ÅB

226:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 08:03:46
H

227:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 09:04:34
‚²‚ß‚ñ>>220‚̓I[ƒi[‚¶‚á‚È‚­‚Äe‚¾‚Á‚½B

procedure SetParentFromForm(dst,src:TWinControl );
var i:Integer;
begin
for i:=src.ControlCount-1 Downto 0 do
src.Controls[i].Parent:=dst;
end;

‚Æ‚¢‚¤ŠÖ”‚ðì‚Á‚ÄA
SetParentFromForm(Panel1,Form2);
‚̂悤‚És‚¤
Ø‚è‘Ö‚¦‚鎞‚ÍA
SetParentFromForm(Form2,Panel1);
‚Æ‚µ‚Ä–ß‚µ‚Ä‚â‚éB

ƒI[ƒi[‚ªØ‚è‘Ö‚í‚Á‚Ă邾‚¯‚¾‚©‚çAƒ{ƒ^ƒ“—Þ‚ÍŒ³‚̃tƒH[ƒ€‚̃Cƒxƒ“ƒg‚Æ‚µ‚ČĂ΂ê‚é


228:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 14:44:17
StringŒ^‚Ì''‚âƒ|ƒCƒ“ƒ^Œ^‚Ìnil‚ɑГ–‚·‚éCharŒ^‚Ì•\Œ»‚Á‚Ä‚ ‚è‚Ü‚·‚©H

—Ⴆ‚ÎAStringŒ^‚̕ϔ‚Å‚ ‚éstr‚É'ABC'‚Æ‚¢‚¤•¶Žš—ñ‚ª“ü‚Á‚Ä‚¢‚½‚Æ‚µ‚ÄA
ˆê•¶Žší‚Á‚Ä'AB'‚Æ‚µ‚½‚¢ê‡A

@str[3] := ''; // ‚±‚ê‚ł̓Gƒ‰[‚ɂȂè‚Ü‚·‚ªc

‚̂悤‚É‚µ‚½‚¢‚Å‚·B

229:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 14:50:01
SetLength(str, 2)
str := Copy(str, 1, 2)

str[3] := #0 or Chr(0)
‚ª’¼Ú‚̉ñ“š‚¾‚¯‚Ç‚¨‚»‚ç‚­–]‚ñ‚Å‚¢‚é“®ì‚Æ‚͈قȂè
'AB'#0
‚Æ‚¢‚¤3•¶Žš‚Ì•¶Žš—ñ‚ɂȂÁ‚Ä‚µ‚Ü‚¤B
PChar‚É“n‚·‚È‚ç–â‘è‚È‚¢‚¯‚ÇB

230:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 15:02:55
‚»‚Ì‘¼
str := LeftStr(str, 2);
Delete(str, 3, 1);

231:228
08/04/04 15:03:14
>>229
‘f‘‚¢‚²‰ñ“š‚ð‚ ‚è‚ª‚Æ‚¤‚²‚´‚¢‚Ü‚·B

ŽÀ‚ÍAstr[1]‚ɋ󕶎š‚ð‘ã“ü‚µ‚Ä'ABC'¨'BC'‚Æ‚·‚é‚È‚ÇA
FX‚Å‚«‚½‚ç‚ÆŽv‚Á‚½‚̂ł·‚ªA
‚â‚Í‚èStringŒ^‚Æ‚µ‚Ĉ—‚µ‚½•û‚ª‚悳‚»‚¤‚Å‚·‚ËB
i‚»‚à‚»‚àStringŒ^‚Ì’†g‚ɂ‚¢‚Ä—‰ð‚µ‚Ä‚¢‚È‚¢‚Ì‚ª–â‘è‚Å‚·‚ª...)

232:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 15:12:25
‚»‚ê‚È‚ç delete(str,1,1) ‚Å‚¢‚¢‚ÆŽv‚¤‚¯‚Ç‚È


cŒ¾Œê‚Ì•¶Žš—ñ‚̓[ƒ’lI’[‚ňµ‚í‚ê‚éB@
pascal‚Ì•¶Žš—ñ‚Í@\‘¢‘̂ɂȂÁ‚Ä‚¢‚Ä•¶Žš‚̃TƒCƒYî•ñ‚ðŽ‚Á‚Ä‚¢‚éB
‚¾‚©‚ç’l#0‚ðŠÜ‚Þ•¶Žš‚àŠÜ‚ÞŽ–‚ªo—ˆ‚éB

Delphi‚ÍCŒ¾Œê‚Ƃ̘AŒg‚ªŠy‚Ȃ悤‚ÉAPChar‚Æpascal•¶Žš—ñ‚ÌŒ^•ÏŠ·‚ªo—ˆ‚邿‚¤‚ÉH•v‚³‚ê‚Ä‚¢‚é
‚½‚Æ‚¦‚Î s:=PChar(s); ‚Æ‘‚­‚ÆAs‚Ì’†‚©‚ç#0‚܂ł̒·‚³‚ÉŽ©“®’²®‚³‚ê‚éB

‚¾‚©‚ç delete(str,1,1)‚ð str :=PChar(str)+1 ; ‚Æ‘‚­‚±‚Æ‚ào—ˆ‚é

233:228
08/04/04 16:01:13
>>232
deleteŠÖ”A’m‚è‚Ü‚¹‚ñ‚Å‚µ‚½cB
‚»‚Ì‘¼‚à‚Æ‚Ä‚à•׋­‚ɂȂè‚Ü‚·B‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½Bm(__)m

234:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 16:13:39
‚±‚ñ‚É‚¿‚ÍADelphi‚̃Cƒ“ƒ‰ƒCƒ“ƒAƒZƒ“ƒuƒ‰‚ɂ‚¢‚ÄŽ¿–₪‚ ‚è‚Ü‚·B

Python for Delphi(P4D)‚̃Rƒ“ƒ|[ƒlƒ“ƒg‚̃\[ƒX‚ðŒ©‚Ä‚¢‚é‚̂ł·‚ªA

> mov eax, Self
> mov eax, [eax].DLL_PyArg_ParseTuple

‚Ì [eax].DLL_PyArg_ParseTuple ‚Ƃ͂ǂ¤‚¢‚¤ˆÓ–¡‚Ȃ̂łµ‚傤‚©H

eax + DLL_PyArg_ParseTuple
‚Å‚ ‚Á‚Ă܂·‚Å‚µ‚傤‚©

235:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 18:11:10
>>234
‚Í‚¢‚È

const hoge=3;
mov eax, [eax].hoge ‚Í mov eax, [eax+3] ‚Æ“¯‚¶

‚»‚¤‚¢‚¤Žž‚ÍAŽÀs‚µ‚ÄA‚»‚±‚ÅŽ~‚ß‚ÄCPU‘‹‚ðŠJ‚­‚Æ‹tƒAƒZ•\ަ‚·‚é‚©‚ç‚í‚©‚邿


236:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 21:24:48
StretchDraw‚ʼn摜‚ðk¬‚·‚邯‚©‚È‚è‰æ‘œ‚ª—ò‰»‚·‚é‚̂ł·‚ªA
‚½‚Æ‚¦‚ÎA‚P^‚Q‚Æ‚©“Á’è‚Ìk¬—¦‚É‚·‚ê‚΂¢‚¢‚Æ‚©‰½‚©‚¢‚¢•û–@‚Í
‚È‚¢‚Å‚µ‚傤‚©H
Tbitmap‚ðˆóü‚·‚é‚Ì‚ÉAStretchDLBits‚ðŽg‚¤•û–@‚ÍDelphi Tips‚ÅŒ©‚‚¯‚½‚Ì
‚Å‚·‚ªA‰æ–Êã‚Å‚àŽg‚¦‚Ü‚·‚©H

237:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 22:36:31
k¬‚É‚ÍDHGL
URLØÝ¸(www.asahi-net.or.jp)

238:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/04 23:53:45
‚±‚ñ‚΂ñ‚ÍA‹Œƒo[ƒWƒ‡ƒ“‚ɂ‚¢‚Ä‹³‚¦‚Ä‚­‚¾‚³‚¢B
ƒTƒ“ƒvƒ‹‚ÅDelPhi5‚̃\[ƒX“™‚ð‚à‚ç‚Á‚½‚̂ł·‚ª
DelPhi5 ‚Æ‚¢‚¤‚Ì‚Í‚à‚¤Žè‚É“ü‚ç‚È‚¢‚̂łµ‚傤‚©H
Œ»Ý’ñ‹Ÿ‚³‚ê‚Ä‚¢‚é–³ž”Å‚ª6‚Å5‚Ƃ͌݊·«‚ª‚È‚¢‚Æ
‚Ç‚±‚©‚É‘‚¢‚Ä‚ ‚Á‚½‚Ì‚ÅDelPhi5‚ðŽè‚É“ü‚ê‚é•û–@‚ð
‚²‘¶’m‚È‚çî•ñ‚ð‚¨Šè‚¢‚µ‚Ü‚·B


239:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 00:25:14
>>235
ƒŒƒXƒTƒ“ƒNƒXI

> ‚»‚¤‚¢‚¤Žž‚ÍAŽÀs‚µ‚ÄA‚»‚±‚ÅŽ~‚ß‚ÄCPU‘‹‚ðŠJ‚­‚Æ‹tƒAƒZ•\ަ‚·‚é‚©‚ç‚í‚©‚邿
‚¨‚¨I‚»‚̎肪‚ ‚Á‚½‚©

240:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 00:25:55
>>236
DHGL
>237

Delphi‚Ȭ‹Z:‰æ‘œ‚ÌŠg‘傯k¬i‰æŽ¿dŽ‹j
URLØÝ¸(delphi.livedoor.biz)

Delphi‚Ȭ‹Z:ƒoƒCƒLƒ…[ƒrƒbƒN(Bicubic)–@‚É‚æ‚éŠg‘傯k¬
URLØÝ¸(delphi.livedoor.biz)

‚«‚ê‚¢‚ÈŠg‘åEk¬`Bilinear–@‚̉ðà`
URLØÝ¸(www.geocities.jp)

‚«‚ê‚¢‚ÈŠg‘åEk¬‚»‚Ì‚Q`Bicubic–@‚̉ðà`
URLØÝ¸(www.geocities.jp)

Delphi(Graphics) : Resize 1. Bilinear
URLØÝ¸(junki.lix.jp)

Delphi(Graphics) : Resize 2. Bilinear vs Bicubic
URLØÝ¸(junki.lix.jp)

Delphi(Graphics) : Resize 3. Interpolations
URLØÝ¸(junki.lix.jp)

Delphi(Graphics) : [GDI+] Resizing Images
URLØÝ¸(junki.lix.jp)

>>238
Delphi‚Ì–³ž”Å‚ÍDelphi6‚ÆTurbo Delphi‚µ‚©‚È‚¢‚ÆŽv‚¤B
Delphi6‚ŃRƒ“ƒpƒCƒ‹‚µ‚Ă݂ÄAŒx‚â‚çƒGƒ‰[‚ªo‚½‚çƒ\[ƒX‚ðC³‚·‚ê‚΂悵B

241:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 00:26:52
>>238
Delphi5‚̃\[ƒX‚Í‘å‘ÌAã‚̃o[ƒWƒ‡ƒ“‚Œʂ邩‚ç‘åä•vB
’Ê‚ç‚È‚©‚Á‚½‚çA‚±‚±‚É•·‚«‚É—ˆ‚È

242:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 00:52:42
>>240-241
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B6‚ŃRƒ“ƒpƒCƒ‹‚µ‚Ă݂܂·B
ƒGƒ‰[‚ª‚Ç‚¤‚µ‚Ä‚à‰ðÁ‚Å‚«‚È‚©‚Á‚½‚ç
‚Ü‚½Ž¿–â‚É—ˆ‚é‚̂łæ‚낵‚­‚¨Šè‚¢‚µ‚Ü‚·B

243:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 05:59:25
> 237,240
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B‚³‚Á‚»‚­ADHGL‚ðŽŽ‚µ‚Ă݂܂·B
Delphi@Graphic@Secrets‚͂ǂ±‚Å‚à”Ì”„‚µ‚ĂȂ­‚Ä
Amazon‚ł͒†ŒÃ‚ð‚X‚W‚O‚O‰~‚Ŕ̔„‚µ‚Ä‚¢‚Ü‚µ‚½‚ªA¡A‚Ý‚½‚ç
‚S‚O‚O‚O‰~‚¾‚Á‚½‚̂ł³‚Á‚»‚­w“ü‚µ‚Ă݂܂·B
‚à‚µDHGL‚ª‚¤‚Ü‚­‚¢‚©‚È‚©‚Á‚½‚çA‚²Ð‰î‚¢‚½‚¾‚¢‚½GDI{‚à
’§í‚µ‚Ă݂½‚¢‚ÆŽv‚¢‚Ü‚·B
–{“–‚É‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B

244:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 06:13:45
‚«‚ê‚¢‚ɉ摜‚ðk¬‚µ‚½‚¢‚¾‚¯‚¾‚Á‚½‚çADHGL‚ðŽg‚¤‚̂ɖ{‚𔃂¤•K—v‚͂Ȃ¢‚Å‚·B

245:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 15:18:51
ƒ{ƒ^ƒ“ƒNƒŠƒbƒN‚Å‘¦‹xŽ~ó‘Ô‚É‚µ‚½‚¢‚Å‚·B

V‹KƒvƒƒWƒFƒNƒg(VCL FormƒAƒvƒŠƒP[ƒVƒ‡ƒ“)‚̃tƒH[ƒ€‚É”z’u‚µ‚½ƒ{ƒ^ƒ“‚É

procedure TForm1.Button1Click(Sender: TObject);
begin
SetSystemPowerState(False,True)
end;

‚Æ‘‚¢‚ăRƒ“ƒpƒCƒ‹‚µ‚½‚¾‚¯‚Å‚ÍAŽÀs‚µ‚ă{ƒ^ƒ“ƒNƒŠƒbƒN‚µ‚Ä‚à
Œ©‚½–Ú‚Í–³”½‰ž‚Å‚µ‚½B‰½‚©ƒR[ƒh‚ª•s‘«‚µ‚Ä‚¢‚é‚̂łµ‚傤‚©EEEH

Windows XP SP2‚Å‚·B
‚²‘¶‚¶‚Ì•û‚¢‚ç‚Á‚µ‚á‚¢‚Ü‚µ‚½‚çA
‚·‚݂܂¹‚ñ‚ªA‚æ‚낵‚­‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·B

246:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 16:11:20
>245
URLØÝ¸(msdn2.microsoft.com)(VS.85).aspx

Remarks

The calling process must have the SE_SHUTDOWN_NAME privilege. To enable
the SE_SHUTDOWN_NAME privilege, use the AdjustTokenPrivileges function.
For more information, see Changing Privileges in a Token.



247:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 18:22:17
>>243
URLØÝ¸(hp.vector.co.jp)
‚©‚È‚èo’x‚ꂽ‚¯‚Çã‹L‚Ì nstretchf ‚͂ǂ¤?

248:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 21:00:23
delphiŒoŒ±ˆêTŠÔ‚ÌŽÒ‚Å‚·B

”z—ñ‚ð2‚Âì‚Á‚ÄA
—¼ŽÒ‚Ì—v‘f‚ðƒRƒs[‚µ‡‚¢‚½‚¢‚ñ‚Å‚·‚ªA
ãŽè‚­‚¢‚«‚Ü‚¹‚ñB

’l‚̃Rƒs[‚ð‚µ‚½‚¢‚̂ł·‚ªA
ƒAƒhƒŒƒX‚ªƒRƒs[‚³‚ê‚Ä‚é–Í—lB

Delphi7‚ÅA”z—ñ‚Ì’l‚ðƒRƒs[‚·‚é
•û–@‚ð‚²‹³Ž¦‚­‚¾‚³‚¢B

249:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 21:02:26
”z—ñ‚É’l“ü‚ê‚ăRƒs[‚µ‚½‚çƒAƒhƒŒƒX‚ɂȂé‚Á‚Ăǂ¤‚¢‚¤Ž–HˆÓ–¡‚ª‚í‚©‚ç‚È‚¢

250:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/05 22:32:28
‚È‚ºA‚¤‚Ü‚­‚¢‚©‚È‚¢ƒR[ƒh‚ðŽ¦‚³‚È‚¢‚Ì‚¾‚낤H


251:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/06 01:04:39
>>248
b := a; // ƒAƒhƒŒƒX‚̃Rƒs[
b := Copy(a, 0, Length(a)); // ’l‚̃Rƒs[
SetLength(b, Length(a)); Move(a[0], b[0], SizeOf({—v‘f‚ÌŒ^}) * Length(a)); // ’l‚̃Rƒs[

•¶Žš—ñ‚Ìê‡‚Í t := s; ‚Æ‚·‚邯As ‚Ì•¶Žš—ñ‚ðƒRƒs[‚µ‚½U‚è‚ð‚µ‚Ä‚­‚ê‚é(COW: Copy-On-Write)B

252:245
08/04/06 01:35:00
ƒŒƒX‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
URLØÝ¸(homepage1.nifty.com)
‚ÅŽ¦‚³‚ê‚Ä‚éƒTƒ“ƒvƒ‹ƒR[ƒh‚Å‚àŠú‘Ò‚µ‚½Œ‹‰Ê‚𓾂ç‚ê‚È‚©‚Á‚½‚̂ł·‚ªA
‹xŽ~ó‘Ô‚É‚·‚é‚É‚ÍA
ƒ{ƒ^ƒ“‚̃vƒƒV[ƒWƒƒ‚ɂ͂ǂ̂悤‚É‘‚¯‚΂¢‚¢‚̂łµ‚傤orz
‚·‚݂܂¹‚ñA‚æ‚낵‚­‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·


253:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/06 04:32:50
‚È‚ñ‚Å246‚ð“Ç‚ñ‚ÅŽŽ‚³‚È‚¢‚ÌH

254:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/06 10:03:16
–Ê“|‚¾‚©‚ç‚Å‚·

255:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/06 10:13:23
246‚̃Tƒ“ƒvƒ‹‚ª252‚¶‚á‚Ë‚Ì

256:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/06 13:09:07
>252
‚ñ`‚»‚±‚̃Tƒ“ƒvƒ‹ƒ\[ƒX‚Å‚¤‚Ü‚­‚¢‚©‚È‚¢‚̂ł ‚ê‚ÎA‚»‚ꂼ‚ê‚ÌŠÖ”‚Ì–ß’l‚ðƒ`ƒFƒbƒN‚µ‚ăGƒ‰[‚ª‹N‚«‚Ä‚¢‚È‚¢‚©A
‚»‚̂Ƃ«‚ÌGetLastError‚Ì’l‚͂ǂ¤‚È‚Á‚Ä‚¢‚é‚©A‚ ‚½‚è‚𒲂ׂĂ݂ÄBWin32CheckŠÖ”‚Æ‚©‚¨Š©‚ßB
‚»‚ê‚Æ‚±‚ÌŽè‚ÌŽ¿–â‚ð‚·‚é‚Æ‚«‚Í‚¤‚Ü‚­‚¢‚©‚È‚¢ŠÂ‹«‚ÌOS‚âƒo[ƒWƒ‡ƒ“A‘¼‚ÌOS‚Å‚Ìó‹µ‚È‚Ç‚à–¾Ž¦‚·‚邱‚ÆB

257:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/06 13:27:42
XP SP2‚䂤‚Ă邶‚á‚ñ

258:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/06 18:47:46
> 247
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½BDHGL‚Å‚¤‚Ü‚­‚¢‚Á‚½‚Ì‚ÅA¡‚̂Ƃ±‚ë‚Í
•K—v‚È‚¢‚̂ł·‚ªA‚¢‚«‚¸‚Ü‚Á‚½‚玎‚µ‚Ă݂܂·B
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B

259:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 11:48:11
TDdeClientItem‚ÌOnChangeƒCƒxƒ“ƒg‚Á‚Ä
•p”É‚ÉXV‚·‚éƒf[ƒ^‚Æ‚©A•¡”‚̃f[ƒ^‚ɑ΂µ‚Ä‚Í
³Šm‚É“®‚©‚È‚¢‚ñ‚Å‚µ‚傤‚©H

URLØÝ¸(qc.borland.com)
URLØÝ¸(homepage1.nifty.com)
ª
‚±‚ê‚É‘‚¢‚Ä‚ ‚é‚̂ƑS‚­“¯‚¶Ç󂪋N‚«‚Ä¢‚Á‚Ă܂·B
OpenOffice‚Æ‚©C#‚ÌDDE’ÊM‚¾‚Æ‚«‚Á‚¿‚è“®‚¢‚Ä‚¢‚é‚Ì‚É
Delphi‚Åì‚Á‚½ƒAƒvƒŠ‚¾‚Æ–¾‚ç‚©‚Ƀf[ƒ^XV‚ª’x‰„‚µ‚½‚èA
’†‚ɂ͑S‚­”½‰ž‚µ‚È‚¢item‚ª‚ ‚Á‚½‚肵‚Ü‚·B

260:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 12:49:15
‚¢‚‚àA‚¢‚Â‚à‚·‚݂܂¹‚ñ‚ªA‹³‚¦‚Ä‚­‚¾‚³‚¢B

RadioGroup1‚Å@—Ⴆ‚ÎA‚OFŒ¢@‚PF“؂Ƃ ‚èA‰Šú‚É‚OFŒ¢‚ðƒ}[ƒN‚µ‚Ä‚¢‚邿‚¤‚ɂȂÁ‚Ä‚¢‚邯
‚µ‚Ü‚·B‚ÅA“Ø‚ð‘I‘ð‚µ‚½‚Æ‚«‚ÍARadioGroup‚P‚ÅAOnEnter‚ŃCƒxƒ“ƒg‚ðŒŸo‚µ‚Ä
Procedure TFrom1.RadioGroup1EneteriSender:TObject)
@@@@begin@Label1.caption:='pig';@end;
‚Å‚¤‚Ü‚­Label‚Épig‚ðo‚¹‚é‚̂ł·‚ªA
RadioGroup1‚Å‚OFŒ¢A‚PF“ØA‚QF‹›‚Æ‚µ‚ĉŠú‚É‚OFŒ¢‚ðƒ}[ƒN‚µ‚Ä‚¢‚邯‚µ‚Ü‚·B
‚ÅA“Ø‚©‹›‚ðƒ}[ƒN‚µ‚½Žž‚É
Procedure TForm1.RadioGroupEventisender:TObject)
@@@@Case Radiogroup1.ItemIndex of
1:label1.caption:='pig';
2:label1.caption:='fish';
end;end;
‚Å‚ÍLabel‚ɉ½‚à•\ަ‚³‚ê‚Ü‚¹‚ñB‰½‚©‚¢‚¢’mŒb‚͂Ȃ¢‚Å‚µ‚傤‚©H

261:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 13:11:41
OnClick

262:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 13:45:16
‚ ‚ê[AOnClick‚ÍŽŽ‚µ‚đʖڂ¾‚Á‚½‚̂ł·‚ª
¡‚·‚邯‚¿‚á‚ñ‚Ƃł«‚Ü‚·B‚È‚º‚¾‚ñ‚½‚ñ‚¾‚낤HH
‚Ȃɂ͂Ƃà‚í‚ê‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B

263:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 17:24:25
ComboBox‚̃hƒƒbƒvƒ_ƒEƒ“‚Ì’·‚³‚ð’·‚­‚·‚é‚ɂ͂ǂ¤‚·‚ê‚΂¢‚¢‚ñ‚Å‚µ‚傤‚©H

264:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 17:55:51
DropDownCount

265:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 19:12:29
„„‚Q‚U‚S

‚ ‚肪‚Ƃł·ô

266:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 19:17:28
¡“x‚©‚ç‚̓wƒ‹ƒv“Ç‚à‚¤‚˃{ƒN

267: ŸXcB18Bks.Y
08/04/07 19:32:51
>>221
ƒtƒŒ[ƒ€‚ÉOnCreate‚âOnDestroy‚Í‚ ‚è‚Ü‚¹‚ñ‚ª
ƒRƒ“ƒXƒgƒ‰ƒNƒ^‚âƒfƒXƒgƒ‰ƒNƒ^‚ðƒI[ƒo[ƒ‰ƒCƒh‚·‚ê‚΂½‚¢‚Ä‚¢‚Ì‚±‚Ƃ͂ł«‚邯Žv‚¢‚Ü‚·B
i‚±‚Ì•û–@‚ÍDelphi 4i5‚©‚àjˆÈ~‚̃tƒH[ƒ€‚âƒf[ƒ^ƒ‚ƒWƒ…[ƒ‹‚Å‚àŽg‚¦‚Ü‚·j

‚½‚¾Še‰æ–ʂɋ¤’Ê‚·‚é‹@”\‚Í1ƒJЂɑ‚­•û‚ª‚æ‚¢‚Ì‚Å
Ž„‚à‹¤’ʂ̊î–{ƒtƒŒ[ƒ€ƒNƒ‰ƒX‚ðì‚Á‚ÄŠe‰æ–ʂ̃tƒŒ[ƒ€‚Í‚»‚±‚©‚ç”h¶‚³‚¹‚Ä‚¢‚Ü‚·B

‰æ–Ê‚ª‚¢‚­‚Â‚à‚ ‚éƒAƒvƒŠ‚È‚ñ‚©ì‚Á‚Ä‚µ‚Ü‚¤‚ƃtƒŒ[ƒ€‚Ì‚ ‚肪‚½‚³‚ªg‚É‚µ‚݂Ă«‚Ü‚·B


268:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/07 20:37:58
>>267
‚Þ`‚»‚ñ‚È‚ñ‚Å‚·‚©B‰æ–Ê‚½‚­‚³‚ñ‚̃AƒvƒŠ‚¶‚á‚ AƒtƒŒ[ƒ€‚Ȃ̂©‚ÈB
PageContorol‚¶‚á–³—‚ ‚é‚©‚àiˆÈ‘O‚ÉŽ¿–₵‚½ƒ‚ƒm‚Å‚·‚ªj
‚Ç‚¤ŽÀ‘•‚·‚é‚©‘S‘RËß݂Ɨˆ‚È‚¢‚Å‚·‚ªAŽQl‚ƂȂéƒTƒCƒg‚©ŽQl‘‚È‚Ç
‚ ‚è‚Ü‚µ‚½‚狳‚¦‚Ä‚à‚炦‚Ü‚·‚Å‚µ‚傤‚©B

269:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 01:07:43
>>268
ˆÈ‘Oì‚Á‚½ŒŸØ—p‚̃Tƒ“ƒvƒ‹‚ðŒp³‚Ɉˑ¶‚µ‚È‚¢‚悤‚É‘‚«’¼‚µ‚Ä
TurboDelphi—p‚É‚µ‚½ƒTƒ“ƒvƒ‹‚ƃƒ‚‘‚«B
’†Œ©‚ê‚΂킩‚邯‚Ç‘S‘R‘債‚½‚±‚ƂȂ¢‚æBƒCƒ“ƒ^[ƒtƒF[ƒX‚ÍD‚«‚Ȃ悤‚É‘‚«Š·‚¦‚¿‚á‚Á‚ÄB
URLØÝ¸(delwiki.info)

delwiki‚͂܂½php‚̂ɖ߂Á‚½‚Ì‚©B

270:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 09:18:52
ComboBox‚̃hƒƒbƒvƒ_ƒEƒ“‚Ì•‚ðL‚­‚·‚é‚ɂ͂ǂ¤‚·‚ê‚΂¢‚¢‚ñ‚Å‚µ‚傤‚©H

271:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 10:18:05
CB_SETDROPPEDWIDTH ‚𑋃nƒ“ƒhƒ‹‚É‘—‚Á‚Ä‚â‚éB

‚±‚ñ‚ÈŠ´‚¶
ComboBox1.Perform(CB_SETDROPPEDWIDTH,300,0);

272:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 10:28:22
>>268
•’ʂɃtƒH[ƒ€‚É‘‚¢‚ÄÝŒv‚µ‚Ä‚¨‚­‚̂ł͂ǂ¤‚µ‚đʖڂȂÌH
Ž—‚½‚悤‚È”z’u‚ʼnæ–Ê‘JˆÚ‚ňꕔ‚¾‚¯•Ï‚í‚邿‚¤‚Èꇂà
ƒtƒH[ƒ€‚ÌŒp³Žg‚¦‚ΊȒP‚¾‚µ


273:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 13:00:32
ƒpƒ‰ƒŒƒ‹ƒ|[ƒg‚©‚çƒpƒ‹ƒX‚ðo—Í‚µ‚½‚¢‚̂ł·‚ª
‚Ç‚¤‚·‚ê‚Ή”\‚Å‚µ‚傤‚©B
ƒpƒ‹ƒX•‚ÌÝ’è‚ÆONAOFFƒXƒCƒbƒ`‚ðÝ‚¯
ON‚µ‚Ä‚¢‚éŠÔ‚¾‚¯Ý’è’l‚̃pƒ‹ƒX•‚Åo—Í‚µ‘±‚¯‚邯‚¢‚¤
Š´‚¶‚Ås‚«‚½‚¢‚̂ł·‚ªBBB

274:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 14:02:57
ƒpƒ‰ƒŒƒ‹ƒ|[ƒg‚Á‚ÄUSB‚Ìæ‚É‚ ‚é‚â‚‚¶‚á‚È‚­‚ÄAƒpƒ\ƒRƒ“•‘®‚Ì“z‚¾‚æ‚ËH

‚PAI/O–½—ß‚ðŽg‚¦‚邿‚¤‚É‚·‚éB
@giveio‚Æ‚©GWIOPM‚Æ‚©
Delwiki‚É‘‚¢‚Ä‚ ‚Á‚½‚ñ‚¾‚¯‚ÇÁ‚¦‚Ä‚éB@
@ƒLƒƒƒbƒVƒ…‚Í
URLØÝ¸(72.14.235.104)ƒRƒ“ƒ|[ƒlƒ“ƒg/GWIOPM(I/Oƒ|[ƒg‚ð’¼Ú’@‚­)

‚QAI/O–½—ß‚ðasm‚ŌĂÑo‚·‚©AŠÖ”‚É‚µ‚ČĂÑo‚·

‚RAŽžŠÔ§Œä‚ɂ‚¢‚Ä‚ÍA¸“x‚̕ێ‚̓pƒ\ƒRƒ“‚Ȃ̂œ‚¢

275:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 16:40:00
>>274
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
ŽžŠÔ§Œä‚Å‚·‚ªA‚ЂƂ܂¸ƒvƒƒOƒ‰ƒ€ã‚Å‚¨–ñ‘©‚Å‚«‚ê‚Î
—Ç‚µ‚Æ‚µ‚悤‚ÆŽv‚¢‚Ü‚·B
ƒ}ƒCƒNƒ•bƒ^ƒCƒ}[‚̃Rƒ“ƒ|[ƒlƒ“ƒg‚Æ‚©Žg‚Á‚Ă݂悤

276:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/08 17:50:28
ƒRƒŒŒ‹\ŠÈ’P
‚ URLØÝ¸(www.seya.org)

277:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/09 11:12:43
TMemoƒx[ƒX(‚łȂ­‚Ä‚à‚¢‚¢‚¯‚Ç)‚̃Rƒ}ƒ“ƒhƒvƒƒ“ƒvƒg‚̃Rƒ“ƒ|[ƒlƒ“ƒg‚Á‚ĂȂ¢‚Å‚·‚©H
cmd‚È‚è”CˆÓ‚̃Rƒ}ƒ“ƒhƒ‰ƒCƒ“ƒc[ƒ‹‚ð‘Θb“I‚ÉŽÀs‚Å‚«‚é‚à‚̂ł·B

278:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/09 11:22:20
ƒRƒ}ƒ“ƒhƒvƒƒ“ƒvƒg‚ðŽg‚Á‚½•û‚ª—y‚©‚ÉŠy‚È‹C‚ª‚·‚é

279:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 02:58:38
Ž©•ª‚̃AƒvƒŠ‚É–„‚ßž‚Ý‚½‚¢‚ñ‚¾‚ë

280:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 03:10:38
ƒƒ‚’ ‚ÅAEnter‚ð‰Ÿ‚µ‚½‚ç‚»‚Ìs‚ð‰ðÍ‚µ‚ÄŽÀs‚·‚é‚̂͂ǂ§H

281:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 03:29:39
‰üs‚ÍH

282:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 07:57:39
ޏ—炵‚Ü‚·B
iniƒtƒ@ƒCƒ‹‚ðŽÀsƒtƒ@ƒCƒ‹‚̃tƒHƒ‹ƒ_‚¶‚á‚È‚­‚ÄA
ƒz[ƒ€ƒfƒBƒŒƒNƒgƒŠ‚É’u‚«‚½‚¢‚̂ł·‚ªA
‚Ç‚¤‚·‚ê‚΂悢‚̂łµ‚傤‚©B¡‚͉º‚̃R[ƒh‚Å‚·B

IniFile := TIniFile.Create(extractFilePath(paramstr(0))+'test.ini');

ŽÀsƒtƒ@ƒCƒ‹‚Í“¯‚¶‚¾‚¯‚ÇAini‚ÍŠeŒÂl‚ÅŽ‚¿‚½‚¢B

283:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 08:37:53
ƒ}ƒCƒhƒLƒ…ƒƒ“ƒg‚̃tƒHƒ‹ƒ_‚ÌŽ–‚È‚ç
URLØÝ¸(support.microsoft.com)
‚‚܂è
uses shlobj ; ‚Ì. SHGetSpecialFolderPath CSIDL_PERSONAL

ƒŒƒWƒXƒgƒŠ ‚Å‚àƒAƒNƒZƒXo—ˆ‚é
URLØÝ¸(support.microsoft.com)


‚Å‚àAŽÀsƒtƒ@ƒCƒ‹‚Ì‚ ‚éƒtƒHƒ‹ƒ_‚Ƀ†[ƒU[–½‚̃tƒHƒ‹ƒ_‚ðŒ@‚Á‚ăAƒNƒZƒX‚·‚é•û‚ª‚¢‚¢‚ÆŽv‚¤‚æB
ƒ†[ƒU[–¼‚Í GetUserName/ GetUserNameEx ‚ÅŽæ‚ê‚é

284:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 09:00:10
>>282
function GetMyIniFolderName: string;
var
uName: string;
nSize: DWORD;
begin
nSize := 4000;
SetLength(uName, nSize + 4);
if GetUserName( PChar(uName), nSize) then begin
SetLength(uName,nSize-1);
end else uName := 'non';
Result := ChangeFileExt(paramstr(0) ,'' )+ '@'+uName+'.ini';
end;

ŽÀsƒtƒ@ƒCƒ‹‚̃tƒHƒ‹ƒ_‚Å@"ŽÀsƒtƒ@ƒCƒ‹–¼@ƒ†[ƒU[–¼.ini"@‚Æ‚¢‚¤Š´‚¶‚Åì‚é

IniFile := TIniFile.Create( GetMyIniFolderName() );

285:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 09:38:50
GetEnvironmentVariable‚Ŋ‹«•Ï”Žæ‚éŽè‚à‚ ‚é‚ÈB

APPDATA=C:\Documents and Settings\UserName\Application Data
USERPROFILE=C:\Documents and Settings\UserName

>>283‚̃}ƒCƒhƒLƒ…ƒƒ“ƒg/AppName/AppName.ini‚ ‚½‚è‚Éì‚é‚Ì‚ªÅ‚à–³“ïB

>>283
>‚Å‚àAŽÀsƒtƒ@ƒCƒ‹‚Ì‚ ‚éƒtƒHƒ‹ƒ_‚Ƀ†[ƒU[–½‚̃tƒHƒ‹ƒ_‚ðŒ@‚Á‚ăAƒNƒZƒX‚·‚é•û‚ª‚¢‚¢‚ÆŽv‚¤‚æB
¬•¨ƒtƒŠ[ƒEƒFƒA‚ł͂¨ŽèŒy•Ö—˜‚È‚â‚è•û‚Å’·”NŽg‚í‚ê‚Ä‚½‚¯‚ÇA‚ ‚Ü‚è‚æ‚¢‚â‚è•û‚¶‚á‚È‚¢‚æB
‚±‚ꂪ‰¡s‚µ‚½‚Ì‚ªPowerUserí—p‚ª‹­—v‚³‚ê‚ÄXP‚̃ZƒLƒ…ƒŠƒeƒB‚ªƒOƒ_ƒOƒ_‚ɂȂÁ‚½ˆêˆö‚¾‚µB
ˆê’·ˆê’Z‚É‚µ‚Ä‚à¡X„§‚͂ł«‚È‚¢B

286:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 09:45:08
‚Ƃ肠‚¦‚¸ŽÀsƒtƒ@ƒCƒ‹‚̃tƒHƒ‹ƒ_‚Éì‚Á‚Ă݂Äì‚ê‚È‚©‚Á‚½‚çƒ}ƒCƒhƒLƒ…ƒƒ“ƒg‚Å‚¢‚¢‚ÆŽv‚¤‚¯‚Ç‚È

287:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 09:48:20
2‚‚ÌStringList‚𓯊ú‚³‚¹‚é‚ɂ͂ǂ¤‚·‚ê‚΂¢‚¢‚ñ‚Å‚µ‚傤
‚½‚Æ‚¦‚ÎStringList‚ðƒ\[ƒg‚µ‚½Žž‚ÉStringListB‚ðA‚Æ“¯‚¶‚悤‚É•À‚בւ¦‚½‚¢‚̂ł·

288:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 09:57:02
Text‚ð‘S•”ƒRƒs[‚µ‚½‚çB‘ã“ü‚¶‚á‚È‚­B

289:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 09:58:28
’†g‚͈Ⴄ‚à‚̂Ȃñ‚¾‚æ‚ËH
Objects ‚Ì•û‚ɃCƒ“ƒfƒbƒNƒX‚©ƒ|ƒCƒ“ƒ^‚ð–³—‚â‚è“ü‚ê‚Ä‚¨‚¢‚½‚ç‚Ç‚¤H


290:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 10:08:22
>>288,289
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·

>288
2‚‚ÌStringList‚Í‘S‚­ˆá‚¤‚à‚̂Ȃ̂Ŏg‚¦‚È‚³‚»‚¤‚Å‚·

>>289
Objects‚Æ‚¢‚¤ƒvƒƒpƒeƒB‚ÉG‚Á‚½‚±‚Æ‚ª‚È‚¢‚̂ł悭•ª‚©‚è‚Ü‚¹‚ñ
‚à‚¤­‚µÚ‚µ‚­‚¨Šè‚¢‚Å‚«‚Ü‚·‚©H

291:287
08/04/10 10:43:59
>>289‚Ì’Ê‚è‚É‚â‚Á‚Ă݂½‚ç‚Å‚«‚Ü‚µ‚½I
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½

292:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 11:10:17
synapse ‚Ì imap ƒNƒ‰ƒCƒAƒ“ƒg‚ðŽg‚Á‚ÄAgmail (imap—LŒøÏ) ‚É imap ‚ÅÚ‘±‚µ‚悤‚Æ‚µ‚Ä‚¢‚Ü‚·‚ª
Ú‘±‚ÉŽ¸”s(ƒGƒ‰[: 10091)‚µ‚Ä‚µ‚Ü‚¢‚Ü‚·
Ý’è‚ȂǑ«‚è‚È‚¢‚Æ‚±‚낪‚ ‚è‚Ü‚·‚Å‚µ‚傤‚©H

uses imapsend;
-------------------
@ @ with TIMAPSend.Create do
@ @ try
@ @ @ @ TargetHost := 'imap.gmail.com';
@ @ @ @ TargetPort := '993';

@ @ @ @ UserName := '***@gmail.com';
@ @ @ @ Password := '***';

@ @ @ @ Timeout := 5000;
@ @ @ @ FullSSL := True;

@ @ @ @ if Login then begin
@ @ @ @ @ @ Caption := 'OK';
@ @ @ @ @ @ Logout;
@ @ @ @ end else begin
@ @ @ @ @ @ Caption := 'NG';
@ @ @ @ end;
@ @ finally
@ @ @ @ Free;
@ @ end;
-------------------

293:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 11:16:21
ComboBox‚Ńhƒƒbƒvƒ_ƒEƒ“‚µ‚½Žž‚¾‚¯ˆá‚¤•¶Žš—ñ‚ð•\ަ‚Å‚«‚éH

294:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 11:19:04
OnDropDown‚Å
combobox.items.commatext := 'a,b,c';
‚Á‚Ęb‚©H

295:293
08/04/10 11:35:11
>>294
ƒhƒƒbƒvƒ_ƒEƒ“•‚¶‚½Žž‚ɂǂ¤‚â‚Á‚ÄŒ³‚É–ß‚¹‚΂¢‚¢H

296:292
08/04/10 14:48:11
Ž©ŒÈ‰ðŒˆ‚µ‚Ü‚µ‚½
synapse ‚Ì imap ƒNƒ‰ƒCƒAƒ“ƒg‚ÍAƒ\[ƒX‚ð’Ç‚Á‚Ä‚Ý‚é‚Æ SSL‚ªŽÀ‘•‚³‚ê‚ĂȂ¢‚悤‚È...

Indy ‚Ì TIdIMAP4 ‚Ì IOHandler ‚É TIdSSLIOHandlerSocketOpenSSL ‚ð“ü‚ê‚ÄA
UseTLS := utUseImplicitTLS A‰º‹L‚̃R[ƒh‚ÅÚ‘±OK‚Å‚µ‚½

-------------
@ @ with IdIMAP41 do begin
@ @ @ @ Host := 'imap.gmail.com';
@ @ @ @ Port := 993;
@ @ @ @ ConnectTimeout := 3000;

@ @ @ @ Username := '***@gmail.com';
@ @ @ @ Password := '***';

@ @ @ @ if Connect then begin
@ @ @ @ @ @ Caption := 'OK';

@ @ @ @ @ @ Disconnect;
@ @ @ @ end else begin
@ @ @ @ @ @ Caption := 'NG';
@ @ @ @ end;
@ @ end;
-------------


297:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 16:48:17
DateTimeToStr‚ɂ‚¢‚Ä‹³‚¦‚ĉº‚³‚¢B

DateTimeToStr‚ÍAƒƒP[ƒ‹‚ðˆÓޝ‚µ‚Ä•¶Žš—ñ‚É‚µ‚Ä‚­‚ê‚Ü‚·‚ªA
ƒOƒŠƒjƒbƒW•W€‚Ì•¶Žš‚ðŽæ“¾‚·‚é‚ɂ͂ǂ¤‚·‚ê‚΂悢‚̂łµ‚傤H

‚³‚ç‚ÉA‰ÄŽžŠÔ‚Æ‚©—‚ñ‚Å‚­‚邯A‚킯‚í‚©‚ç‚È‚­‚È‚è‚Ü‚·‚ªA
‰ÄŽžŠÔ‚Æ‚©‚¢‚¤‚Ì‚àVCL‚̂ǂ±‚©‚É‹K’肳‚ê‚Ä‚¢‚é‚̂łµ‚傤‚©H

298:‚ȂȂµ‚Ö‚½‚®‚ç‚Ü ŸXcB18Bks.Y
08/04/10 18:40:58
>>282
•’ʂ̃AƒvƒŠ‚Æ“¯‚¶‚悤‚Éuƒ[ƒJƒ‹ƒAƒvƒŠƒP[ƒVƒ‡ƒ“ƒtƒHƒ‹ƒ_v‚É“ü‚ê‚é‚Ì‚ª‚æ‚¢‚̂ł͂Ȃ¢‚Å‚µ‚傤‚©B
uses‚ÉShlObj‚ð’ljÁ‚µ‚Äc

{ Œ»Ý‚̃†[ƒU[ƒAƒJƒEƒ“ƒg‚Ìuƒ[ƒJƒ‹ƒAƒvƒŠƒP[ƒVƒ‡ƒ“ƒtƒHƒ‹ƒ_v‚̃pƒX‚ð•Ô‚·D}
function GetLocalAppDataPath: string;
var buf: array [0..MAX_PATH] of char;
begin
@SHGetSpecialFolderPath(0, buf, CSIDL_LOCAL_APPDATA, False);
@Result := buf;
end;
{ Œ»Ý‚̃†[ƒU[ƒAƒJƒEƒ“ƒg–¼‚ð•Ô‚·D}
function GetCurrentUserName: string;
var
@buf: array [0..MAX_PATH] of char;
@size: dword;
begin
@size := MAX_PATH;
@GetUserName(buf, size);
@Result := buf;
end;
{ ŽÀs—á }
procedure TForm1.ShowAppDataPathActionExecute(Sender: TObject);
var Path: string;
begin
@if LabeledEdit_CompanyName.Text = '' then raise Exception.Create('ŽÐ–¼‚Í‚¿‚á‚ñ‚Æ“ü‚ê‚ë‚æI');
@if LabeledEdit_AppName.Text = '' then raise Exception.Create('ƒAƒvƒŠ–¼‚à‚¿‚á‚ñ‚Æ“ü‚ê‚ë‚æI');
@Path := GetLocalAppDataPath + '\' + LabeledEdit_CompanyName.Text + '\' + LabeledEdit_AppName.Text;
@ShowMessageFmt('‚±‚̃pƒ\ƒRƒ“‚Ìê‡Cƒ†[ƒU[%s‚ÌÝ’èƒtƒ@ƒCƒ‹‚Í'#13#13'%s'#13#13'‚̉º‚ɕۑ¶‚·‚ׂ«‚¶‚á',
@@[GetCurrentUserName, Path]);
end;


299:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 18:49:07
EƒVƒ‡[ƒgƒJƒbƒgƒL[‚Å‹N“®
EƒVƒ‡[ƒgƒJƒbƒg‚ð“o˜^

‚±‚̂悤‚È’Pƒ‚È‹@”\‚ðŽ‚ÂƒfƒXƒNƒgƒbƒvƒ‰ƒ“ƒ`ƒƒ[‚ðADelphiƒm[ƒ^ƒbƒ`‚ÌlŠÔ‚ªì‚낤‚Æ‚µ‚½‚ç‚Ç‚êˆÊŽžŠÔ‚ª‚©‚©‚è‚Ü‚·‚©H
쬂Ɋ|‚©‚鎞ŠÔc‚Æ‚¢‚¤‚æ‚è‚àAƒ‰ƒ“ƒ`ƒƒ[쬎©‘̂̓ïˆÕ“x‚ª‚ǂ̂悤‚È‚à‚Ì‚©‹³‚¦‚Ä‚¢‚½‚¾‚¯‚邯K‚¢‚Å‚·

CAJavaAƒAƒZƒ“ƒuƒ‰‚͉•à‚ðšn‚ñ‚¾’ö“x‚Å‚·

300:297
08/04/10 18:49:15
ƒwƒ‹ƒvŒŸõ‚µ‚Ă݂܂µ‚½‚ªA
Delphi‚Á‚ăOƒŠƒjƒbƒWŽžŠÔ‚Ì•¶Žš—ñ‚ðì‚肾‚·ƒƒ\ƒbƒh–³‚¢‚ñ‚Å‚·‚ËB

301:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 23:09:45
>>299
Delphi‚Í‚¶‚߂ēñ”Ô–Ú‚Éì‚Á‚½‚Ì‚ªƒ‰ƒ“ƒ`ƒƒ‚¾‚Á‚½
Šm‚©ˆê“úˆê`“ñŽžŠÔ‚â‚Á‚ĈꃖŒŽ‚­‚ç‚¢‚ÅŽg‚¦‚é‚à‚̂ɂ͂ȂÁ‚½‚ÆŽv‚¤
‚»‚ÌŒãŽg‚¢ž‚ñ‚Å‚¢‚­ƒEƒ`‚ɃoƒOŽæ‚è‚â‹@”\’ljÁ‚ÅŒ»Ý‚ÉŽŠ‚é
l‚É”z‚ê‚郌ƒxƒ‹‚ɂȂÁ‚½‚͔̂¼”N–Ú‚­‚ç‚¢‚©i”z‚Á‚Æ‚ç‚ñ‚ªj
‚¨‚ê‚ÍC‚à‚È‚ñ‚à’m‚ç‚È‚¢ó‘Ô‚Å“ü–å‘‚ÆBBSƒtƒH[ƒ‰ƒ€‚Ìî•ñ‚¾‚¯‚¾‚Á‚½
‚¢‚܂̓O[ƒOƒ‹æ¶‚à‚¢‚é‚µŽ¿–âæ‚à‚½‚­‚³‚ñ‚ ‚é‚©‚ç
‚ ‚Ƃ̓‚ƒ`ƒx[ƒVƒ‡ƒ“ŽŸ‘æ‚È‚ñ‚À‚á‚ËH

302:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/10 23:12:03
>>293
ƒI[ƒi[ƒhƒ[


303:301
08/04/10 23:15:33
>>299
C#‚̉SŽÒ‚·‚ê‚Å‚àƒ}ƒ‹ƒ`ƒ|ƒXƒg‚µ‚½‚Ì‚©
Delphi‚â‚Á‚Ă݂½‚¢‚Á‚Ă킯‚ł͂Ȃ©‚Á‚½‚ñ‚¾
œ‚’‚š

304:282
08/04/10 23:28:47
’xƒŒƒX‚·‚݂܂¹‚ñB
>298‚̃R[ƒh‚ðŽg‚킹‚Ä‚¢‚½‚¾‚«‚Ü‚µ‚½B

‚¢‚­‚‚©ƒAƒCƒfƒA‚ð‚à‚ç‚Á‚ÄS‚ÉŠ´‚¶‚é‚à‚Ì‚ª‚ ‚è‚Ü‚µ‚½B
‚ ‚肪‚Æ‚¤B

305:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/11 01:13:54
>300
“ú•tŽž‚̈µ‚¢‚ɂ‚¢‚ÄBTDateTimeŒ^‚̓[ƒJƒ‹ADSTAUTC“™‚Ì”z—¶‚͊܂܂ê‚Ä‚¢‚È‚¢B
‚æ‚Á‚Ä‚±‚ê‚ç‚Ì”z—¶‚ð—v‚·‚éꇂÍTSystemTime\‘¢‘Ì‚ðŽg—p‚µ‚ÄGetLocalTime‚Ü‚½‚Í
GetSystemTime(‚¢‚¸‚ê‚àWin32API)‚Ŏ擾‚µA‚±‚ê‚ðSystemTimeToDateTime‚Å
TDateTime‚ɕϊ·‚µ‚ÄŽg—p‚·‚é•K—v‚ª‚ ‚éB‚Ü‚½DST‚ɂ‚¢‚Ä‚ÍWindows‚ÌŽÀ‘•‚ªƒiƒj‚Ȃ̂Å
(Šî–{“I‚É¡Œ»Ý‚ÌDST‚Ì“K—p󋵂µ‚©M—p‚Å‚«‚¸A‚½‚Æ‚¦‚Δ”N‘O‚Ì“Á’è‚Ì“ú•t‚É‚¨‚¯‚é
DST‚Ì“K—p󋵂͂킩‚ç‚È‚¢)AŽ©‘O‚ÅŽÀ‘•‚·‚é•K—v‚ª‚ ‚éB

306:300
08/04/11 09:10:00
thx!>>305

Œ»Ý‚ÌŽžŠÔ‚¾‚¯‚Å—Ç‚¢‚Ì‚ÅAOK‚Å‚·B
‚‚܂èAƒOƒŠƒjƒbƒWŽžŠÔ‚ð’m‚肽‚¯‚ê‚ÎATDateTime‚ÍŽg‚¦‚È‚­‚ÄAWin32‚É—Š‚é‚Á‚Ä‚±‚Ƃł·‚ËB

307:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 00:05:32
Delphi‚ð•׋­‚·‚é‚É‚ ‚½‚Á‚Ä‚¨Š©‚߂̖{‚ð‹³‚¦‚Ä‚­‚¾‚³‚¢
C, C++, Java‚ÅŠJ”­‚ð‚µ‚½‚±‚Æ‚ª‚ ‚è‚Ü‚·

308:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 00:41:29
>>309
‚à‚¿‚‚¯

309:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 00:54:13
‚Ø‚Á‚½‚ñB‚Ø‚Á‚½‚ñB

310:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 01:07:19
‚Â‚é‚Ø‚Á‚½‚ñB

311:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 02:11:57
>>301>>303
‚ A‚¢‚âAC#ƒXƒŒ‚ÅDelphi‚ðƒIƒXƒXƒ‚³‚ꂽ‚ñ‚Å‚±‚Á‚¿—ˆ‚Ü‚µ‚½
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B”¼”N‚Ȃ炿‚å‚Á‚Æ‚â‚Á‚Ă݂½‚¢‚Å‚·
‚±‚ÌŒ¾Œê‚Åì‚Á‚Ă݂½‚¢‚ÆŽv‚Á‚Ă܂·

‹ßê‚Ì‘“X„‚Á‚Ä‚àC‚¾‚ÌJava‚¾‚ÌHTML‚¾‚̂̋³–{‚µ‚©’u‚¢‚Ä–³‚©‚Á‚½‚Å‚·
Amazon‚ðŒ©‚Ä‚Ý‚½‚ç•]‰¿‚Ì‚‚¢‹³–{‚Í‚ ‚é‚à‚Ì‚ÌA’†ŒÃ‚ňÙí‚ȉ¿Ši‚̃‚ƒm‚΂©‚è‚Å‚µ‚½
‰½‚©‰SŽÒƒIƒXƒXƒ‚Ì–{‚Í–³‚¢‚Å‚·‚©H
Web‚ÅŽ‘—¿‚à‚݂܂·‚ªA‚Ƃ肠‚¦‚¸1û‚Í‹³–{‚ðŽ‚Á‚Ä‚¨‚«‚½‚¢‚Æl‚¦‚Ä‚¢‚Ü‚·

312:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 02:17:08
¡‚©‚çŽn‚ß‚é‚È‚ç–À‚¤‚܂łà‚È‚­C#‚¾‚ëEEE

313:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 02:37:53
>>311
ƒ}ƒjƒ…ƒAƒ‹‚Ì•¶–@‘B

314:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 08:07:21
>>311
IDE‚©‚ç•¶–@‚܂ł̂ðˆê’Ê‚èà–¾‚µ‚Ä‚ ‚é‚â‚‚Å
Turbo Delphi‚©2005—p‚̂𔃂Á‚Æ‚¢‚½‚çB
Delphi 2005 ƒvƒƒOƒ‰ƒ~ƒ“ƒOƒeƒNƒjƒbƒN Vol.1“ü–å•Ò‚ª–³“ï‚ÈŠ´‚¶B
ƒVƒŠ[ƒY‰»‚³‚ê‚Ăċ»–¡‚Ì‚ ‚镪–ì‚Ì‚à‚̂𔃂¢‚½‚¹‚邵B

315:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 11:08:06
Turbo Delphi–³—¿”łŃAƒvƒŠ‚ðì‚肽‚¢‚̂ł·‚ªA
ƒ\[ƒX‚ð“ï“lj»‚·‚éƒc[ƒ‹‚Á‚Ä‚ ‚è‚Ü‚·‚©H

316:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 11:32:27
‚µ‚ñ‚Ï‚¢‚µ‚È‚­‚Ä‚à>>315‚̃\[ƒX‚Í‚«‚Á‚Ɠǂ݂Â炢B

317:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 13:13:12
.NET‚È‚ç‚Æ‚à‚©‚­Win32‚Ńrƒ‹ƒh‚µ‚½‚ç
‹tƒAƒZƒ“ƒuƒ‹‚µ‚©Žè‚ª‚È‚¢‚©‚ç‚»‚ñ‚È‚ÉS”z‚·‚邱‚Æ‚à‚È‚¢B

318:315
08/04/12 14:21:40
>>316
ƒRƒƒ“ƒg‚ŃoƒŒ‚»‚¤‚Å‚·B

>>317
DEDE‚È‚éƒfƒRƒ“ƒpƒCƒ‹ƒ\ƒtƒg‚ª‚ ‚é‚炵‚¢‚̂ł·‚ªA‘åä•v‚Å‚µ‚傤‚©H

319:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 14:29:26
ƒRƒƒ“ƒgEE

320:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 14:32:01
>>315
‚Ü‚¸‚͂ǂ¤‚¢‚¤“®‹@‚łǂ¤‚¢‚¤ƒŒƒxƒ‹‚Ì’N‚©‚牽‚ðŽç‚肽‚¢‚Ì‚©‚ð‚Í‚Á‚«‚肳‚¹‚悤B

321:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 14:59:30
ƒtƒH[ƒ€‚Éæ‚¹‚È‚«‚áƒ\[ƒXŒ©‚ê‚È‚¢‚¾‚ë

322:315
08/04/12 15:26:27
>>320
—Ⴆ‚Ω–¼”»’f‚â‹£”n‚Ì—\‘z‚̂悤‚ÈA
ðŒ‚ð“ü—Í‚·‚邯A‚ ‚éê–å’mޝ‚ÉŠî‚¢‚½ŒvŽZŒ‹‰Ê‚ª•Ô‚Á‚Ä‚­‚éƒ\ƒtƒg‚ðl‚¦‚Ä‚¢‚Ü‚·B
ƒoƒŒ‚½‚­‚È‚¢‚Ì‚ÍA‚»‚ÌŒ‹‰Ê‚ðŽZo‚·‚éۂ̃Aƒ‹ƒSƒŠƒYƒ€‚âƒf[ƒ^‚Å‚·B

‚·‚®‚ɉðÍ‚³‚ê‚Ä‚µ‚Ü‚¤‚Æ‚¢‚¤‚±‚Æ‚ÍA
‚¹‚Á‚©‚­‹ê˜J‚µ‚ăAƒ‹ƒSƒŠƒYƒ€‚âƒf[ƒ^‚ð쬂µ‚Ä‚àA
ŠÈ’P‚ɃRƒs[i‰ü—Ç”Åj‚ªì‚ç‚ê‚é‰Â”\«‚ª‚ ‚é‚킯‚Å‚·‚©‚çAçSçO‚µ‚Ä‚¢‚Ü‚·B

323:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 15:45:32
dede‚Ŷ¬‚µ‚½ƒ\[ƒX‚ð“Ç‚ß‚é‚æ‚¤‚È“z‚Í‚»‚¤‚»‚¤‚¢‚È‚¢‚ÆŽv‚¤‚ªA‚à‚µ‚¢‚½‚ç’ú‚߂邵‚©‚È‚¢
‚È‚ñ‚©“ÁŽê‚È•û–@‚ň³k‚·‚邯‚©‚»‚ñ‚ÈŠ´‚¶‚É‚µ‚È‚«‚á–³—‚È‹C‚ª‚·‚é
‚Ü‚Ÿ‚»‚Ì‘O‚É>>315‚ªì‚éƒc[ƒ‹‚É‚»‚±‚܂łµ‚ă\[ƒX‚ðŒ©‚é‚قǂ̉¿’l‚ª‚ ‚é‚©‚Ç‚¤‚©‚Ì•û‚ªd—v‚¾‚ª

324:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 16:00:01
ˆê‰žantiDeDe‚Æ‚©‚à‚ ‚邯‚Ç‚Ë
FindWindow‚ÅDeDe‚ÉWM_CLOSE“Š‚°‚邾‚¯‚¾‚¯‚Ç

325:315
08/04/12 16:30:52
>>323
>dede‚Ŷ¬‚µ‚½ƒ\[ƒX‚ð“Ç‚ß‚é‚æ‚¤‚È“z‚Í‚»‚¤‚»‚¤‚¢‚È‚¢‚ÆŽv‚¤‚ªA‚à‚µ‚¢‚½‚ç’ú‚߂邵‚©‚È‚¢

ŽÀ‚Ídede‚ÌÚׂ𕪂©‚Á‚Ä‚¢‚È‚©‚Á‚½‚̂ł·‚ªA‚»‚ê‚È‚çˆÀS‚Å‚·B
ƒVƒFƒAƒEƒFƒAì‰Æ‚⤗pƒAƒvƒŠ‚ðì‚Á‚Ä‚é•û‚àA
“Á‚É‹C‚É‚µ‚Ä‚¢‚È‚¢‚Æ‚¢‚¤‚±‚Ƃł·‚©‚ËB

>>324
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·BŽQl‚ɂȂè‚Ü‚·B

326:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 17:19:04
URLØÝ¸(www.moonlight.gr.jp)‚Ì^‚ñ’†‚Ì‚ðŽQl‚É‚µ‚Ä
ƒoƒCƒiƒŠ‚ð“ǂݞ‚ñ‚ł݂½‚ñ‚Å‚·‚¯‚ÇA‚©‚Ȃ莞ŠÔ‚ªŠ|‚©‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·
‚Ç‚¤‚·‚ê‚Γǂݞ‚ÝŽžŠÔ‚ð’Zk‚Å‚«‚é‚Å‚µ‚傤‚©H

327:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 17:26:40
’x‚¢‚Ì‚Í1byte‚¸‚“ǂñ‚Å‚¢‚é‚©‚çB

‚ ‚é’ö“x‚̑傫‚³‚̃oƒbƒtƒ@‚ð—pˆÓ‚µ‚ÄA
Read‚ł͂Ȃ­BlockRead‚Ńoƒbƒtƒ@’·‚̃oƒCƒg”‚ð“ǂݞ‚ނ悤‚É‚·‚éB

uBlockReadv‚ðƒwƒ‹ƒv‚ňø‚­‚©‚ÅAƒS[ƒOƒŒƒbƒh‚ê‚ÎAƒTƒ“ƒvƒ‹‚ªo‚Ä‚­‚éB


328:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 18:10:46
¶¬‚µ‚½8ŒÂ‚ÌTShape‚ÌVisible‚ðFalse‚É‚µ‚½‚èTrue‚É‚µ‚½‚è‚·‚邯‚±‚ë‚Å
‚Æ‚Ä‚àŽžŠÔ‚ªŠ|‚©‚Á‚Ä‚¢‚éi1•b‚­‚ç‚¢j‚̂ł·‚ªAŒ´ˆö‚ª‚³‚Á‚ς蕪‚©‚è‚Ü‚¹‚ñB
‚±‚̂悤‚È–â‘肪o‚½•û‚¢‚Ü‚·‚©B

329:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 18:20:45
ÄŒ»‚·‚éƒR[ƒhŽN‚¹

330:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 18:47:02
TShape‚È‚ñ‚ÄŽg‚Á‚½‚±‚ƂȂ¢‚¯‚Ç
‘¼‚̃Rƒ“ƒgƒ[ƒ‹‚ÌÄ•`‰æ‚ª”­¶‚µ‚Äd‚¢ƒCƒxƒ“ƒgƒnƒ“ƒhƒ‰‚ªŒÄ‚΂ê‚Ä‚¢‚é‚Ì‚©‚àB
ƒvƒƒWƒFƒNƒgƒIƒvƒVƒ‡ƒ“‚̃Rƒ“ƒpƒCƒ‰‚̃fƒoƒbƒO”ÅDCU‚Ƀ`ƒFƒbƒN‚µ‚ÄÄ\’z‚µ‚Ä
Ä•`‰æ’†‚Ɍł܂éƒ^ƒCƒ~ƒ“ƒO‚ňꎞ’âŽ~‚µ‚Ă݂½‚çB

331:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 19:21:44
>>329 •’Ê‚ÉV‹K‚ÅÅ’áŒÀ‚̃R[ƒh‚¾‚ÆÄŒ»‚µ‚È‚¢‚ñ‚Å‚·B
>>330 ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·BˆêŽž’âŽ~‚̓^ƒCƒ~ƒ“ƒO‚ª“‚­‚ĂȂ©‚È‚©
Žv‚¤‚悤‚É‚¢‚©‚È‚¢‚µ‰½‰ñ‚à‚â‚Á‚Ă邤‚¿‚ÉWindows‚ªŒÅ‚܂邵c
Ä•`‰æ‚Ì‘¼‚̃Rƒ“ƒgƒ[ƒ‹‚̃Cƒxƒ“ƒg‚ÍŒ©‚ĂȂ©‚Á‚½‚̂Ń`ƒFƒbƒN‚µ‚Ă݂܂·B

332:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 20:17:28
DICOM‚ðDelphi‚ŕ׋­‚µ‚悤‚ÆŽv‚Á‚Äopen source‚Å‚ ‚éezDICOM‚ðŒ©‚Ä‚¢‚é‚Ì‚Å
‚·‚ªAchildwin.pas‚Å
const
gMouseDown : boolean = false;
‚Æ‚ ‚èA‚»‚̈È~‚Å
@@@gMouseDown := true;
‚ƂȂÁ‚Ä‚¢‚ÄAƒGƒ‰[‚ª‚łđã“ü‚Å‚«‚È‚¢¶•Ó’l‚Å‚·‚Æ•\ަ‚³‚ê‚Ü‚·B
const‚¾‚©‚ç‚»‚¤‚¢‚¤ƒGƒ‰[‚ɂȂé‚̂ł·‚©H‚à‚µ‚»‚¤‚È‚ç
‚ ‚܂蓖‚Ăɂµ‚Ă͂Ȃç‚È‚¢ƒR[ƒh‚Æ”»’f‚·‚ׂ«‚Ȃ̂łµ‚傤‚©H

333:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 20:31:26
328‚Å‚·‚ªA‚â‚Á‚ς蕪‚©‚ç‚È‚¢‚Å‚·B•`‰æŠÖ˜A‚̃Cƒxƒ“ƒg‚ŃfƒoƒbƒO—p‚Ì
TMemo‚Éo—Í‚·‚邿‚¤‚É‚µ‚½‚̂ł·‚ªAVisible := True; ‚Ì‘O‚ɂ͕\ަ
‚³‚ê‚Ü‚¹‚ñB¢‚Á‚½‚Å‚·BƒfƒoƒbƒO‚Ì—Ç‚¢ƒAƒCƒfƒA‚©‹^‚¤‚ׂ«“_‚È‚Ç
‚ ‚è‚Ü‚·‚Å‚µ‚傤‚©B

334:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 20:51:35
>332
const‚Ö‚Ì‘ã“ü‚̓Rƒ“ƒpƒCƒ‹ƒIƒvƒVƒ‡ƒ“‚É‚æ‚è‰Â”\‚È‚±‚Æ‚à‚ ‚éB

335:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 20:53:18
‚¢‚₾‚©‚çƒ\[ƒX‚Ç‚Á‚©‚É‚ ‚°‚ë‚æ

336:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 20:53:51
>333
TShape‚âTLabel‚̂悤‚ȃOƒ‰ƒtƒBƒbƒNƒRƒ“ƒgƒ[ƒ‹‚Ì•`‰æ‚̓Rƒ“ƒeƒi‚Ì•`‰æ‚©‚çŒÄ‚Ño‚³‚ê‚éB
‚Æ‚¢‚¤‚킯‚ŃRƒ“ƒeƒi‚ÌPaint‚ð‹N“_‚É’Ç‚¤‚Ɖ½‚©‚í‚©‚é‚©‚àB

337:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 21:00:06
Delphi‚Í‚¢‚¢‰ÁŒ¸•W€‚Ńvƒƒtƒ@ƒCƒ‰‚‚¯‚ë‚æ‚È

338:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 21:13:25
>>333
ƒvƒƒWƒFƒNƒg‚̃oƒbƒNƒAƒbƒv‚Æ‚Á‚ăfƒoƒbƒO—p‚̃R[ƒhŽdž‚݂܂­‚Á‚Ä
‚¢‚¶‚è‚Ü‚­‚Á‚ăuƒŒ[ƒN’£‚è‚Ü‚­‚Á‚Ī«‚ŃXƒeƒbƒvŽÀs‚µ‚Ü‚­‚éB

339:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 21:29:28
332‚Å‚·‚ª
>334
ƒRƒ“ƒpƒCƒ‹ƒIƒvƒVƒ‡ƒ“‚Å‚·‚ËB’T‚µ‚Ă݂܂·B
>335
Ž„‚ւ̕Ԏ–‚ƉðŽß‚µ‚Ä«‚Ìstandalone‚̂Ƃ±‚ë‚Å‚·‚ª
URLØÝ¸(www.sph.sc.edu)

340: ŸXcB18Bks.Y
08/04/12 22:16:42
>>332
uŒ^•t‚«’蔂ւ̑ã“üv‚Æ‚¢‚¤‚â‚‚ł·B
‰Šú‚ÌDelphiƒRƒ“ƒpƒCƒ‰‚ł̓fƒtƒHƒ‹ƒg‚Å—LŒø‚ɂȂÁ‚Ä‚¢‚½‚̂ł·‚ª
“r’†‚©‚çƒfƒtƒHƒ‹ƒg‚Å–³Œø‚ɂȂè‚Ü‚µ‚½B

ƒvƒƒWƒFƒNƒgÝ’è‚ÌuƒRƒ“ƒpƒCƒ‰vÝ’è‚Å—LŒø‚É‚·‚é‚Ì‚ªŽè‚ÁŽæ‚è‘‚¢‘Έ–@‚Å‚·‚ª
Œ^•t‚«’蔌À’è‚Æ‚Í‚¢‚¦’蔂̒l‚ð”CˆÓ‚ɕς¦‚ç‚ê‚Ä‚µ‚Ü‚¤‚̂̓oƒO‚ÌŒ³‚Å‚·‚©‚ç”ð‚¯‚é‚ׂ«‚Å‚·B
iƒfƒtƒHƒ‹ƒg‚ª‹ÖŽ~‚ɂȂÁ‚½‚Ì‚àƒoƒO‰ñ”ð‚ÆŽv‚í‚ê‚Ü‚·j
‚»‚̃\[ƒXƒtƒ@ƒCƒ‹‚Ìæ“ª‚ÉuŒ^•t‚«’蔂ւ̑ã“üv‚ð—LŒø‚É‚·‚éƒRƒ“ƒpƒCƒ‰Žw—ß {$J+} ‚ð–„‚ßž‚Þ‚Ì‚ª—Ç‚¢‚Å‚µ‚傤B


341:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/12 23:11:55
>>327
‚à‚Ì‚·‚²‚­’x‚­‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½‚ª‚â‚Á‚Ă݂܂·
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½

342:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 00:05:13
>>315
’N‚à‚¨‚Ü‚¢Œ©‚½‚¢‚ȃŒƒxƒ‹‚ÌŽÀsƒtƒ@ƒCƒ‹‚ð‰ðÍ‚µ‚½‚肵‚È‚¢‚æ‚—

343:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 07:26:17
> 340
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B‚¨‚©‚°‚³‚܂Ŗ³Ž–AƒRƒ“ƒpƒCƒ‹‚Å‚«“®‚­‚悤‚ɂȂè‚Ü‚µ‚½B
‚±‚ê‚ʼnðÍ‚ª‚Í‚©‚Ç‚è‚Ü‚·B–{“–‚É‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B

344:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 11:21:33
>>342
u‚ ‚éê–å’mޝ‚ÉŠî‚¢‚½ŒvŽZŒ‹‰Êv‚ð‹‚߂ă_ƒEƒ“ƒ[ƒh‚·‚é‚Á‚Ä‚±‚Æ‚ÍA
­‚È‚­‚Æ‚à‚»‚Ì“à—e‚ÉŠÖS‚ª‚ ‚é‚Á‚Ä‚±‚Ƃłµ‚å
ƒR[ƒfƒBƒ“ƒO‚ÌIÙ‚ÍŠÖŒW‚È‚µ

‚Ü‚ ê–å’mޝ‚ðŽ‚½‚È‚¢‚¨‚Ü‚¢‚ɂ͕ª‚©‚ç‚È‚¢‚¾‚낤‚¯‚Ç‚—

345:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 11:46:30
>>315
CGI‚É‚µ‚½‚ç‚Ç‚¤H ƒT[ƒo‘¤‚ÅŒvŽZ‚·‚ê‚΂¢‚¢B

346:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 13:15:45
>345
ƒT[ƒo[‚ðƒnƒbƒLƒ“ƒO‚³‚ê‚é‰Â”\«‚ª‚ ‚é‚̂łÍH

347:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 13:23:00
‚Ü‚¾ˆø‚Á’£‚é‚ÌH

348:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 15:14:53
SJISÅ‘¬‚̳‹K•\Œ»ƒ‰ƒCƒuƒ‰ƒŠ‚Á‚ĂǂêH

349:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/13 15:23:29
‹SŽÔ‚ðobj‚ÌLink‚ÅŽg‚¤BBB‚Æ‚©‚©‚ÈH
WinAPIŽg‚Á‚ĂȂ¢‚©‚ç‰ü‘¢‚µ‚È‚¢‚ÆžB–†ŒŸõi“¯Œ`ˆÙ‹æ‚Ì•¶Žš‚â
‘SŠp‘嬕¶Žš‚̈ê’v‚Æ‚©Aj‚Ì‹““®‚ªWSH‚Æ‚©‚ƈႤ‚ÆŽv‚Á‚½‚¯‚Ç

350:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/14 01:41:08
>>346
“D–_‚ÉPC“‚Ü‚ê‚é‰Â”\«‚àl‚¦‚ê‚ÎA
ƒAƒ‹ƒSƒŠƒYƒ€‚͈ËL‚µ‚ÄA‚»‚̂‚ÇoŒü‚¢‚ÄŒvŽZ‚µ‚Ä‚ ‚°‚½‚ç‚æ‚³‚»‚¤B

351:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/14 11:10:07
’蔂ð
const
HAIRETU: Array[0..10] of String = ('a','b','c','d','e','f','g','h','i','j','k');
HAIRETU: Array[100..110] of String = ('z','y','x','w','v','u','t','s','r','q','p');
‚̂悤‚É—£‚ê‚Ä錾‚·‚邱‚Æ‚Ío—ˆ‚é‚̂łµ‚傤‚©H

352:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/14 11:50:35
•Êunit‚É•ª‚¯‚é‚È‚ço—ˆ‚邿B
ƒAƒNƒZƒX‚·‚邯‚«‚Í@ƒ†ƒjƒbƒg–¼.HAIRETU[4]@‚̂悤‚ɃAƒNƒZƒX‚·‚éB

353:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/14 12:22:47
–³—

354:351
08/04/14 18:52:37
’x‚­‚È‚è‚Ü‚µ‚½‚ª‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½
•Ï”‚Å‚â‚鎞‚ɂ͔z—ñ‚Ɉê‹C‚ɒljÁ‚·‚é•û–@‚Í‚ ‚é‚̂łµ‚傤‚©H

355:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/14 20:11:58
Delphi‚É‘a‚È”z—ñ‚ª‚È‚¢‚̂ł«‚ê‚¢‚É‘‚­‚͓̂‚¢B

const
@ @ HAIRETU: array[0..110] of PChar =
@ @ @ @ ('a','b','c','d','e','f','g','h','i','j','k',
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ nil, nil, nil, nil, nil, nil, nil, nil, nil,
@ @ @ @ 'z','y','x','w','v','u','t','s','r','q','p');

if HAIRETU[4] <> nil then ShowMessage(HAIRETU[4]);


const HAIRETU: array [0..2] of record n: Integer; v: String; end = (
@ @ @ @ (n:0; v:'a'),@(n:1; v:'b'), (n:100; v:'z') );
for i := 0 to 2 do if HAIRETU[i].n = 1 then ShowMessage(HAIRETU[i].v);


HAIRETU := TStringList.Create;
HAIRETU.Values['0'] = 'a';
HAIRETU.Values['1'] = 'b';
HAIRETU.Values['100'] = 'z';
ShowMessage(Hairetu.Values['0'])


356:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 09:27:19
ŠÖ”‚ðì‚Á‚Ă݂½

procedure StrToArray(var Hairetu: array of string; Start: Integer; Args: array of string);
@ @ var I: Integer;
begin
@ @ I := Length(Args) -1;

@ @ while (I >= 0) do begin
@ @ @ @ Hairetu[I + Start] := Args[I];
@ @ @ @ Dec(I);
@ @ end;
end;

// ----------------- //

StrToArray(HAIRETU, @ @0, ['a','b','c','d','e','f','g','h','i','j','k']);
StrToArray(HAIRETU, 100, ['z','y','x','w','v','u','t','s','r','q','p']);


357:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 14:18:16
IME‚ÌONAOff‚ÌŽd•ûB
IME‚ÌŒ»Ý‚Ìó‘Ô‚ðŠÄŽ‹‚·‚é‚É‚ÍA‚È‚ñ‚Æ“ü—Í‚·‚ê‚΂¢‚¢‚©‹³‚¦‚Ä‚­‚¾‚³‚¢B

ƒlƒbƒgŒŸõ‚µ‚½‚ñ‚Å‚·‚ªAŽg‚¢•û‚ª‚æ‚­‚í‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½B

358:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 14:28:00
Imm‚È‚ñ‚¿‚á‚ç‚Á‚ÄAPI‚¾‚Á‚½‚Á‚¯‚©‚È

359:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 14:46:32
>>358
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
‚»‚ê‚Ì‹ï‘Ì“I‚ÈŽg‚¢•û‚ª‚í‚©‚ç‚È‚­‚ÄEEEB

360:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 14:53:10
Ž„‚È‚ñ‚ÄAŒ»ÝIME‚ªON‚©‚Ç‚¤‚©‚𒲂ׂ邱‚Æ‚·‚ço—ˆ‚È‚©‚Á‚½‚æIB

361:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 15:31:20
Delphi‚É’¼ÚŠÖŒW‚͂Ȃ¢‚ÈB

URLØÝ¸(m--takahashi.com)

362:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 18:37:32
Delphi5‚Ť—p—˜—p‚Å‚«‚éƒtƒŠ[‚ÌXML‚̃Nƒ‰ƒXƒ‰ƒCƒuƒ‰ƒŠ‚Á‚ĂȂ¢‚©‚ÈH

363:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 19:10:32
Delphi Personal version6 ‚ðŽg‚Á‚Ä‚é‚ñ‚Å‚·‚ª
Ž©•ª‚Åì‚Á‚½ƒ\ƒtƒg‚ðŒöŠJ‚·‚鎞‚É‹C‚ð‚‚¯‚邱‚Æ‚Á‚Ä‚ ‚è‚Ü‚·‚©
ƒRƒ“ƒpƒCƒ‰ƒIƒvƒVƒ‡ƒ“‚ð•Ï‚¦‚½‚è‚Æ‚©A‚»‚¤‚¢‚¤Ž–‚·‚é‚à‚ñ‚È‚ñ‚Å‚µ‚傤‚©H

364:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 22:10:16
Xp ƒXƒ^ƒCƒ‹‚ɑΉž‚µ‚½‚©H Vista ‘Îô‚ÍOKH ‚­‚ç‚¢‚©‚ÈB

365:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 23:23:39
>357
ImeModeƒvƒƒpƒeƒB‚¶‚Ⴞ‚߂ȂñH

366:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 23:45:49
ŠF‚³‚ñƒGƒfƒBƒ^‚Æ‚©‰½Žg‚Á‚Ă܂·‚©B
begin‚Æend‚ð‹­’²•\ަ‚Æ‚©‚µ‚Ä‚­‚ê‚éƒGƒfƒBƒ^‚Æ‚©‚ ‚è‚Ü‚¹‚ñ‚©‚ËB

367:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 23:48:47
ƒTƒNƒ‰ƒGƒfƒBƒ^‚Æ‚©B

368:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 23:49:24
EmEditor ‚ÍADelphi ‚Ì—\–ñŒê‚ð‹­’²•\ަ‚Å‚«‚邿B

369:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/15 23:50:09
IDE‚©GŠÛ‚¾‚ÈB

370:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/16 00:04:37
‚·‚݂܂¹‚ñAŽ¿–â‚Å‚·B
TWebBrowser ‚Å•\ަ‚µ‚Ä‚¢‚éWebƒy[ƒW‚Ì‚‚³‚ð
OleObject.document.body.scrollheight ‚©‚çŽæ“¾‚µ‚Ä‚¢‚é‚̂ł·‚ªA
‚Ç‚¤‚ೊm‚È’l‚ª‚Æ‚ê‚Ä‚¢‚È‚¢Žž‚ª‚ ‚邿‚¤‚Å‚·B

‚¤‚Ü‚­‚¢‚­ê‡‚Ì‚ ‚é‚̂ł·‚ªA
Google ŒŸõŒ‹‰Êƒy[ƒW‚Å‚ÌAscrollheight ‚Ì’l‚ª
–¾‚ç‚©‚É‚±‚Á‚¿‚ª‘z’肵‚Ä‚¢‚é’l‚ƈႤ‚̂ł·B

‰½‚©S“–‚½‚肪‚ ‚é•û‚¢‚ç‚Á‚µ‚á‚¢‚Ü‚µ‚½‚çA
‹³‚¦‚Ä‚¢‚½‚¾‚¯‚½‚ç•‚©‚è‚Ü‚·I
#ƒXƒNƒ[ƒ‹ƒo[•ª‚Íl—¶‚µ‚Ă܂·B

371:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/16 09:07:56
>>370
ƒuƒ‰ƒEƒU“à•”‚̃TƒCƒY‚æ‚èAHTML•`‰æ‚³‚ꂽ“à—e‚ª¬‚³‚¢ê‡‚Æ‚©H

372:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ
08/04/16 09:21:58
ƒƒCƒ“ƒƒjƒ…[EƒRƒ“ƒ|[ƒlƒ“ƒg‚ɂ‚¢‚ÄŽ¿–â‚Å‚·B

‘匩o‚µ
„¥¬Œ©o‚µ‚P
„¥¬Œ©o‚µ‚Q
„¥¬Œ©o‚µ‚R
EEE

‚Æ‚¢‚¤\¬‚̃ƒjƒ…[‚ª‚ ‚Á‚½‚Æ‚µ‚ÄA
¬Œ©o‚µ‚ðu”z—ñv‚ňꊇŠÇ—‚·‚邱‚Ƃ͂ł«‚é‚̂łµ‚傤‚©H

Še¬Œ©o‚µ‚̃IƒuƒWƒFƒNƒgƒCƒ“ƒXƒyƒNƒ^‚Ìname€–Ú‚Å‚ÍAN1AN2AN3...
‚ȂǂƂȂÁ‚Ä‚¢‚é‚Ì‚ÅA”z—ñ–¼‚É‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚¹‚ñB
i‚±‚̂܂܂¾‚ÆAu‘S‚Ẵ`ƒFƒbƒNƒ{ƒbƒNƒX‚ðŠO‚·v‚Ȃǂ̋Lq‚ª‘å•ςł·j

‚æ‚낵‚­‚¨Šè‚¢‚µ‚Ü‚·B


ŽŸƒy[ƒW
ÅVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ÌŒŸõ
—ÞŽ—ƒXƒŒˆê——
˜b‘è‚̃jƒ…[ƒX
‚¨‚Ü‚©‚¹ƒŠƒXƒg
¥ƒIƒvƒVƒ‡ƒ“‚ð•\ަ
‰É‚‚Ԃµ2ch

4926“ú‘O‚ÉXV/238 KB
’S“–:undef