‚‚¾‚·‚êDelphi(’´‰ ..
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