くだすれDelphi(超初心者用)その48

くだすれDelphi(超初� ..

268:デフォルトの名無しさん
08/11/30 10:34:14
FastMMがいつの間にやら新しくなってたので落とそうと思ったらアカウントが必要になってたのね
そう思って登録しようとしても、必要事項書いてRegistration押してもその後何にも起こらん
どうすりゃいいの?メール来るのかと思ったら来ないし

269:デフォルトの名無しさん
08/11/30 10:38:09
とりあえずお前が英語苦手だってことは理解した

270:デフォルトの名無しさん
08/11/30 10:41:19
>>268
ダウンロードにパスなんて必要ないんだけど

271:デフォルトの名無しさん
08/11/30 10:41:46
パスじゃなかったアカウントだ

272:デフォルトの名無しさん
08/11/30 10:52:54
あれー？Download押すとトップページに飛ばされるから
そう思ってた。俺だけ？

273:デフォルトの名無しさん
08/11/30 10:58:33
URLﾘﾝｸ(sourceforge.net)→Download→FastMM 4.92→FastMM492.zipだろ？
どこで踏み外せばいいんだ

274:デフォルトの名無しさん
08/11/30 12:18:31
すぐ上で言ってるとおり、Downloadだよ
俺だけのようだ…会社でも家でも同じだったんだよなあ
なんでだろ

275:デフォルトの名無しさん
08/11/30 12:22:10
ブラウザのせいだったようだ
すまんです

276:デフォルトの名無しさん
08/11/30 12:26:34
どんな糞ブラウザ使ってんだよｗ

277:デフォルトの名無しさん
08/11/30 13:40:11
Turbo Delphiを使用しています。

ローカルバックアップの保持ファイル数の上限を増やすことはできるでしょうか？。
私の環境では、どうも100個くらいしか保持してくれないようです。
これを1000個くらいまで保持してくれれば、個人的にはだいぶ楽になるのです。

よろしくお願いします。

278:デフォルトの名無しさん
08/11/30 13:43:03
あまりそれでがんばらずに素直にバージョン管理システム使ったら。
TortoiseSVN + pdumpfsの組み合わせて使ってるけどソース紛失で泣く事はなくなったな。

279:デフォルトの名無しさん
08/11/30 14:02:22
>>278
どうも。

IDE標準の、変更のたびにバックアップが作成されるというのは、
利点でもあり弱点でもありますね。

トイレに行った後、レジストリの方も調べてみましたが、
BDS-4.0-Editor-OptionにあるFile Backup Levelというキーで、
上限を増やせるようです？(実際に増えるかは未確認)。

当座はこれでしの(げるならしの)ぎます。教えていただいたソフトウェアについても、
調べてみたいと思います。ありがとうございました。

280:デフォルトの名無しさん
08/11/30 22:00:56
かなりくだらない質問なんですが
皆さんbegin...endのbeginをどこにで書いてますか？
例えば
if hoge then
begin
hage;
end;

とか

if hoge then begin
hage;
end;

281:デフォルトの名無しさん
08/11/30 22:07:05
>280
俺は上派だな。elseがある場合は下みたいな感じ。

if hoge then
begin
end else if mage then
begin
end else
begin
end;

VCL内でも統一した書式はないと思う。

282:デフォルトの名無しさん
08/11/30 23:55:55
懐かしい議論だ。俺は下派。

283:デフォルトの名無しさん
08/11/30 23:58:51
使ってるモニタ次第
UXGAでちまちま詰める必要はないし
ノートで縦にだらだら書いてたら確実に生産性が低下する

284:デフォルトの名無しさん
08/12/01 00:02:59
モニタでいちいち書式かえたらよけい生産性が下がるわな・・

285:デフォルトの名無しさん
08/12/01 00:15:54
以下のような書き方してる。
if hoge then begin
end
else if uge then begin
end
else then
end;
って書いてる。
ifのブロックとelseのブロックがend挟んで分離されるので、一目でどこまでがifのブロックか見分けることができると思う。

ただし、hogeが長くなったり複数行になる場合は、例外として、
if (hogeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee)
and (ugeeeeeeeeeeeeeeeeeeeeeeeeeeeeee) then
begin
end;
としてる。

beginが右の方に行き過ぎて、書いたかどうか分からなくなるから。
もし本当に書き忘れたり、うっかり削除すると、endの対応が一致しないってエラーに悩まされる。あと、思い込みのミスもあるし。
前回のコンパイルから時間が経ってると、どこ直したか忘れて、一カ所ずつ探すはめになるので。
こまめにコンパイルすればいいんだけど、気持ちよく書いている時って、しばしば忘れるんだよね。

また、質問と外れるけど、
if hoge then
syoti1;
syori2;
って書いちゃって、なんでsyori2が常に走るんだって、悩むことになるから、if hoge then Exitのような単純な場合を除いて、ぶら下がりインデントは使用しない様にしてる。
基本的には、自分は間違っていない！という思い込みのミスを避ける方向に書くようにしてる。

286:デフォルトの名無しさん
08/12/01 01:56:00
パスカルの生みの親ビルトが頭弱かったから、汚い　begin　end　がプログラムを醜くしてしまった。
単文、複文なんて、関係ないのにね。
まあ、おいらもバカだが、if 文は次のようなものが分かり易いと思っている。

<else 句がない場合>　　　　<else 句がひとつある場合>　　　　<else句が複数ある場合 ※ef はelseifの意>

if　条件式　then　　　　　　　if　条件式　then　　　　　　　　　　　if　条件式　then
　　文　　　　　　　　　　　　　　　　文　　　　　　　　　　　　　　　　　　　　文
endif　　　　　　　　　　　　　　else　　　　　　　　　　　　　　　　　　 ef　条件式　then
　　　　　　　　　　　　　　　　　　　文　　　　　　　　　　　　　　　　　　　　文
　　　　　　　　　　　　　　　　　endif　　　　　　　　　　　　　　　　　　ef　条件式　then
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　文
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　else
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　文
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　endif

287:デフォルトの名無しさん
08/12/01 01:59:08

でも、endif　も　ef　も予約語にないから、そこでおいらは次のようにしているんだ

<else 句がない場合>　　　　<else 句がひとつある場合>　　　　<else句が複数ある場合>

if　条件式　then　begin　　　if　条件式　then　begin　　　　　　　if　条件式　then　begin
　　文　　　　　　　　　　　　　　　　文　　　　　　　　　　　　　　　　　　　　文
end　　　　　　　　　　　　　　　end　else　begin　　　　　　　　　　　end　else　if　条件式　then　begin
　　　　　　　　　　　　　　　　　　　文　　　　　　　　　　　　　　　　　　　　文
　　　　　　　　　　　　　　　　　end　　　　　　　　　　　　　　　　　　　end　else　if　条件式　then　begin
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　文
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　end　else　begin
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　文
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　endif

これで begin　end　に目を奪われにくくなるんで、ちょいバグだしにくくなったかな（って気がしてるだけかも）。

288:デフォルトの名無しさん
08/12/01 02:04:49
>>286 で書き忘れたけど、式の中の「文」は、単文でも複文でもいいと思ってくれ。

289:デフォルトの名無しさん
08/12/01 10:31:39
if 条件 then
begin
end
else if 条件 then
begin
end
else begin
end;

よくこういう議論を見かけるが、俺と同じやり方の奴って
見たこと無いんだよなー

290:デフォルトの名無しさん
08/12/01 10:32:54
お前は俺か

291:280
08/12/01 11:43:21
皆さんありがとうございます。
よくbegin...endの数が合わなくてエラー出てたもんで皆さんはどんな感じで書いているのか気になったんです。
教えていただいたものを色々試してみたいと思います。
とても参考になりました。どうもありがとうございました。

292:デフォルトの名無しさん
08/12/01 11:44:03
それはお前の頭が悪いｗｗ

293:デフォルトの名無しさん
08/12/01 12:02:36
でもさ、前々から思ってたんだけど、
ALT+[とかで対応する括弧は追えるのに
なんでbegin/endは追えないんだろ？

294:デフォルトの名無しさん
08/12/01 12:03:28
>>287
くだらねぇ、気持ち悪いルール使ってんじゃねぇよ。基本はdelphiならVCL、JavaならJavaのクラスライブラリ
のソースに合わせろよ。おまえらなみたいな奴のソースは見苦しくてかなわんわ。

295:デフォルトの名無しさん
08/12/01 12:43:40
こういうのが沸くからアンケートネタはWikiの投票pluginかなんかを使ってやってくれ

296:デフォルトの名無しさん
08/12/01 14:32:29
以下のように記述するのが正式だというのを海外のサイトで読んだことがある。
if 条件 then
文
else
if 条件 then
文
else
文;

if 条件 then
begin
文
end
else
begin
文
end;

文が短い場合は
if 条件 then 文 else 文;
って書いちゃうけどね。

297:デフォルトの名無しさん
08/12/01 15:08:49
書き方に正しいも糞もあるかよｗｗ

298:ななしへたぐらま ◆XcB18Bks.Y
08/12/01 16:29:02
>>286
QuickBASICやVisual Basicではまさにそんな感じの構文になっていて使いやすかったです。

>>293
C/C++の { } ほどの地獄ではないからかもしれません。

299:デフォルトの名無しさん
08/12/01 17:54:25
>>286 のおいらだが、おいらが C++ 使いだったころ、次の#define プリプロセッサで >>286 の構文が
コンパイラー通るようにしていたんだ。

#define　if　　　　 if(
#define　then　　 ){
#define　else　　　}else{
#define　ef　　　　}else if(
#define　endif　　}

てな感じだったけかな（？）。しばらくやってないんで忘れてしまったけどね。その他　for(;;)　構文なんかも
「 for 初期値　to　終了条件　step　増加式　do　文　endfor 」とか　if　と同じ要領でやっていた。
プログラムがスッキリしてたね。なんせ、おいら　if　や　for　の後の　(　)　が大嫌いだったからね。
これいらないと思う。C言語作った男もおいらに負けず相当オタンコナスだね。
まあ、この構文（>>286）でソースコードを渡すと、相手はビックリしてたっけ。おいらもかなりバカだね。

300:デフォルトの名無しさん
08/12/01 19:05:19
融通が利かない人はどんな職業でもいい発想ができない。

301:デフォルトの名無しさん
08/12/01 19:30:57
case ofのかっこいい書き方を教えれ
どうもelseだけしっくりこなかったりする

302:デフォルトの名無しさん
08/12/01 19:43:44
たしかにcase文はうざい

303:デフォルトの名無しさん
08/12/01 19:50:59
case n of
　　 1:
　　　　 foo;
　　
　　 2:
　　 begin
　　　　 bar;
　　 end;
　　
　　 else
　　　　 baz;
end;

304:デフォルトの名無しさん
08/12/01 20:13:24
case n of
1:
foo;

2:
begin
bar;
end;

else
baz;
end;

305:Delﾌｻｷﾞｺ ◆A6VzDeLphI
08/12/01 21:52:39
　 ∧,,∧∩　おれ、こんなん。
　ミ,,ﾟДﾟ彡
　ﾐつ旦.ﾐ　
　　　if then
　　　begin
　　　end else
　　　if then
　　　begin
　　　end else
　　　begin
　　　end;

if が何個ならんでも、行頭を揃えたい気がするのです。
Caseはいつも悩む。
ifを、caseに変更したときに、begin...endをわざわざ
インデント変更したくないから
　　case A of
　　B:
　　begin
　　end;
　　C:
　　begin
　　end;
　　end; //case

かな。。行が増えすぎと、caseのendとbeginendが分けにくくていやなのだが。。

306:デフォルトの名無しさん
08/12/01 23:27:22
おいらも　case 文は苦手だったな。どうやってもキレイに書けない。しかし、だいたい次のようにやってた。（case の範囲を字下げではっきりさせたいんだな、おいら）

case A of
　　B:　文　　
　　C:　begin
　　　　　　文;
　　　　　　文
　　　　end
　　D,E: 文
　　else 文
end

case 文を「case A of :値: 文 :値: 文 end 」とビルトが設計すればよかったかもね、次のようにスッキリする。（「文」は単文でも複文でも可だよ）
case A of
　　:B:　文
　　:C: 文;
　　　　文
　　:D,E: 文
　　else 文
end

307:デフォルトの名無しさん
08/12/01 23:34:44
気持ち悪い

308:デフォルトの名無しさん
08/12/01 23:42:18
caseの中はcaseより引っ込める
ラベルの中身も引っ込める、begin-endの中も引っ込める
ラベルの後ろにbeginを書くと、対応するendもおなじインデントに書きたい
横に伸び～

309:デフォルトの名無しさん
08/12/01 23:43:14
case～endの間を字下げで解決。

310:デフォルトの名無しさん
08/12/01 23:44:53
typeのクラス宣言内のprivateなprocedureとか、自動生成で変なインデントを付けられた日にはもうー

311:デフォルトの名無しさん
08/12/01 23:47:30
record型のconstの配列の初期化の記述がめんどくさい
コンパイラサボりすぎ

312:デフォルトの名無しさん
08/12/01 23:51:10
>>308
おいらもおんなじ気持ちだけど、これやるとインデント深くなるんだよなあ。
だからおいらはインデントをスペース３文字分にしてるんだが、それでも深くなる。
これがインデントがスペース８文字分で表示された日にゃー目がぶっ飛ぶ。

313:デフォルトの名無しさん
08/12/02 08:08:53
え！Del党ってインデントはスペース2文字でしょ。

314:デフォルトの名無しさん
08/12/02 08:42:41
オレは2文字だな。
if ～ then begin
　文
end else if ～ then begin
　文
end;

case i of
　1 : begin
　　　文
　　　end;
end;

315:デフォルトの名無しさん
08/12/02 08:51:14
caseとelseとendをそろえてる。
caseに関しては自動インデントを使わずなるべく詰める様にしている。
17インチCRTからの流れで横も縦も圧縮する様な書き方になってしまった。
ifなんかでも改行してbeginの方が見やすいのに。

316:デフォルトの名無しさん
08/12/02 09:22:53
>>305
ifが常に行頭だと、別のif分と区別がつきにくいから嫌だな

case分は無駄にインデントが増えるな

case hoge of
　A:
　　begin
　　end;
　B:
　　begin
　　end;
　else
end;

これでやると、else内だけインデントがずれるのがむかつく

317:デフォルトの名無しさん
08/12/02 09:23:34
if分、じゃなくてif文だし、case分じゃなくてcase文
orz

318:デフォルトの名無しさん
08/12/02 11:01:35
>>313-314
インデント２文字でやってみたことあるんだけど気に入らなかったんだな、おいら。
なぜかっていうと、（一番多用される）if文のときインデント２文字だと

i f a = b then begin
c:= 2;
........

のようになって、この例で説明すると変数 a と c の頭が揃わないので美しくない。それに
if の近くに変数 c がありすぎて if が窮屈に見える。これをインデント３文字にすると

i f a = b then begin
　 c:= 2;
　 ........

となって、こっちの方がスッキリして見えるんだな、おいらの目には。（if文重視なんで）
まあ、バカなおいらの好みだけどね。
そんで、クラス宣言の自動生成がインデント２文字固定なんで、苦労してる。

319:デフォルトの名無しさん
08/12/02 11:05:18
秋田

320:デフォルトの名無しさん
08/12/02 11:07:07
>>318 の最初の例が崩れてたから訂正するね。

if a = b then begin
　c:= 2;
　........

（２ちゃんは左側の半角スペース取っちゃうんだよね.....。）

321:デフォルトの名無しさん
08/12/02 13:14:15
インデントは2文字。
if文は>>305に同じ。
大規模なcase文などではソースを折りたためるようにREGIONを使う。
case hoge of
　A: {$REGION '説明'}
　begin
　end; {$ENDREGION}
　B: {$REGION '説明'}
　begin
　end; {$ENDREGION}
else
end;

322:321
08/12/02 13:19:47
あ、if文は>>305とは微妙に違った。
if then
begin
end
else if then
begin
end
else
begin
end;

個人的には、else（else if）～endまでの処理を消したり、
begin～endまでの複数行の文を単数行の文に書き換える際に自然だからこれで落ち着いた。

323:デフォルトの名無しさん
08/12/02 18:24:36
どうせソースの書き方なんて十人十色なんだからいい加減飽きろよ

324:デフォルトの名無しさん
08/12/02 18:26:21
新しい話題を提供しろよｗ

325:デフォルトの名無しさん
08/12/02 18:36:34
>324
「CodeGear RAD Studio 2009 日本語版」販売開始だって

326:デフォルトの名無しさん
08/12/02 21:47:10
delphiはなかなか良い言語だとは思うけど
C++ライクに記述できるような仕組みがあれば、いいなぁ。
あと、delphiにC++を埋め込めるようにできれば、なおよし。
begin～endはうざい。
あと、function/procedureと区別する意味がわからん。
C++歴５年、delphi歴３ヶ月より。

327:デフォルトの名無しさん
08/12/02 21:52:56
C++に、Pascalライクに記述できたらいいなあ。
なんて言われたら、ウザッとか思わない？

328:デフォルトの名無しさん
08/12/02 21:55:28
DLLとかC++ Builderとか使えば出来るけどね

329:デフォルトの名無しさん
08/12/02 21:55:43
>>327　そんな需要はないから。
delphiでC++ライクに使えれば、ポインタ使いまくれるし
C++脳の人間にとっては、とても楽。

330:デフォルトの名無しさん
08/12/02 21:56:14
でもちょっと違うか

331:デフォルトの名無しさん
08/12/02 21:56:52
>>329
それは工夫が足りないんじゃね？

332:デフォルトの名無しさん
08/12/02 21:59:10
C++記述するときにはいつも
「もっとDelphiライクなら・・・」
って思っちゃう俺はアホなのかもしれん＾＾；

333:デフォルトの名無しさん
08/12/02 22:00:59
じゃあおまいらどんな記述がいいのよ

334:デフォルトの名無しさん
08/12/02 22:21:56
教えてください。

既存のプロジェクトなのですが、DataModuleのSession,Aliasのアイコンが半透明に
なっています。
実行するとデータベースに接続するところで異常終了します。
つなげるべきデータベースはわかっているのですが、どのように設定したらよいので
しょうか。

335:デフォルトの名無しさん
08/12/02 22:28:21
Pythonが綺麗って言われてるよね。

Delphiと似てるからすぐに使えるようになるよ。

336:デフォルトの名無しさん
08/12/02 22:28:27
begin
end
が
{
}
ならDelphiが無敵

337:デフォルトの名無しさん
08/12/02 22:34:17
if True then {
MessageBox(Handle, 'test', 'test', MB_OK);
};
こうですか分かりません＞＜

338:デフォルトの名無しさん
08/12/02 23:07:14
むしろBegin～endの方が俺は見やすくて好きｗ

変態ですので

339:デフォルトの名無しさん
08/12/02 23:10:48
Begin～endよりbegin～endのがよっぽど見やすい

340:デフォルトの名無しさん
08/12/02 23:48:59
細かいやつって嫌われるよな

341:デフォルトの名無しさん
08/12/02 23:58:26
C++のコードは見づらい

342:デフォルトの名無しさん
08/12/03 00:01:42
>>340
C++は嫌われて無いじゃないですか

343:デフォルトの名無しさん
08/12/03 00:38:28
CoolBarの行を1行固定にしたいんだけどどうすればいいの？
アイコンバンド1、アイコンバンド2、検索窓の3つ設置。
実行してCoolBandを弄ってると必ず2行目が出来てしまう。

344:デフォルトの名無しさん
08/12/03 00:42:07
C++ の :: と -> がウザイ。

345:デフォルトの名無しさん
08/12/03 01:02:04
俺も

346:デフォルトの名無しさん
08/12/03 11:57:27
フォーム上の末代までのコントロール数をカウントする方法ってあります？

347:デフォルトの名無しさん
08/12/03 12:12:58
Form1.ComponentCount
子供の子供まで数えたい時はComponents使って再帰とかすればいい
function CountFunc(Compo: TComponent): Integer;
var
I, Count: Integer;

procedure SaikiFunc(Compo: TComponent);
var
I: Integer;
begin
for I := 0 to Compo.ComponentCount - 1 do
begin
Inc(Count);
SaikiFunc(Components[I]);
end;
end;

begin
Count := 0;
SaikiFunc(Compo);
Result := Count;
end;

348:デフォルトの名無しさん
08/12/03 15:51:56
教えてください。

Nscripterで集積ｴﾌｪｸﾄを使いたいのですが，

lsp 0,"****.jpg",208,32
print 99,3000,"breakup.dll/ulP"

これだと左，中央，右の指定ができず困っています。
どうしたらいいですか？

349:ななしへたぐらま ◆XcB18Bks.Y
08/12/03 18:01:45
>>347
それだと非ビジュアルコンポーネントまでカウントしてしまうので
＞ if Components[i] is TControl then
みたいに絞り込むか ControlCount/Controls を使うと良いと思います。

>>326
Delphiはプログラミング教育用に生まれたPascalの血を引いた言語ですから
わかりやすさを捨てることはないでしょうね。

逆にPascalのbegin～endがうざかった人間が作ったのがCですから
突き放したような結論で恐縮ですが
「Delphiのbegin～endがうざいならCPB使え」
ということになってしまうのではないかと思います。
（…なあんてことを書いたときに限ってDelphi2010あたりで{}が実装されたりして）

350:デフォルトの名無しさん
08/12/03 21:11:09
そういえば昔、SQL Anywhere というデータベースを使ったことがあったが、
そのストアードプロシジャーは if文が
　　if　条件　then　文１　else　文２　end
という構文で、文１と文２は単文でも複文でも begin　end が不要だったな。
ありゃあ見やすいし、書きやすかった。
begin　end　や { }　なんて過去の遺物、消え去るよ。

351:デフォルトの名無しさん
08/12/03 21:19:41
graphics32ってMPL1.1ですけど、改造しないで普通に使用して公開する場合は
ソースを公開する必要はないと聞きますけど
ここの Wikipedia項目ﾘﾝｸ
特徴のところで
バイナリ形式で配布する場合には、ソースをバイナリと一緒に公開しないと
いけないみたいな事かいてるんですけどどっちが本当ですか？

352:デフォルトの名無しさん
08/12/03 21:39:55
>>349

どれのことだ

Wikipedia項目ﾘﾝｸ

CPB

* ビルマ共産党
* キャンベル・スープ・カンパニーのNYSEコード。
* 公共放送機構 (Corporation for Public Broadcasting)
* セントラル・パシフィック・バンク

353:デフォルトの名無しさん
08/12/03 21:57:27
BCBだな

354:デフォルトの名無しさん
08/12/03 22:42:57
>>351

Delphi持ってるならGLSceneを使え
ｽﾚﾘﾝｸ(tech板)

の 25 辺りから見るとよいよー

355:351
08/12/04 04:45:25
>>354
やっぱりソースは公開しなくても良いんですね
おかげでスッキリしました、ありがとうございます

356:ななしへたぐらま ◆XcB18Bks.Y
08/12/04 16:30:30
すいません、思いっきり略称間違えました… orz

357:デフォルトの名無しさん
08/12/05 02:03:30
onKeyDown や onKeyPress などを使って、
『キーの同時押し』を検知する方法ってありますか？

たとえばAlt + Tab を検知するなど。

358:デフォルトの名無しさん
08/12/05 02:36:22
Downならif Shift = [ssAlt] thenで

359:デフォルトの名無しさん
08/12/05 18:41:49
GetAsyncKeyStateはだめ？

360:デフォルトの名無しさん
08/12/06 00:02:20
同時押しの検出ならGetKeyStateかShiftパラメータでは？

361:デフォルトの名無しさん
08/12/06 09:00:10
Del7+Win2000
フォームを半透過指定してフォーム上のコンポーネントは非透過ってのは可能？
Transparentみたいな色指定透過っぽい感じ

362:デフォルトの名無しさん
08/12/06 10:45:21
Pascal を C++ っぽくしろって、
日本語は英語と同じ文法にしろっていうような門やん

363:デフォルトの名無しさん
08/12/06 15:16:53
>>362
Begin...Endの事？
そうは思わないな…
日本語だって英語の良いところはカタカナという形で吸収するんだから
コメントと文法くくりはBegin、｛両方サポートしてくれたら私もうれしいな。
でもそうなると過去のソースが動かなくなるわけで、そこまでして言語仕様を拡張することには反対
結果として｛は無理だと思うけど。
コンパイラ指令で切り分けできたら面白いすね、デフォルトはOFFで。

364:デフォルトの名無しさん
08/12/06 15:45:26
TEditの枠線の色を赤色に変えるにはどうしたらいいでしょうか？
よろしくお願いします。

365:デフォルトの名無しさん
08/12/06 15:51:45
OSの管轄なので無理
あるいはオナニードロドロ

366:364
08/12/06 15:58:30
早速回答ありがとうございます。
ちょっと変えてくれと言われたんだけど厳しそうだし、
見た目の問題だけなのでそのまま放置しますｗ

367:デフォルトの名無しさん
08/12/06 16:00:53
>>364
一回り大きいPanelに乗せてPanelの色を変える

368:デフォルトの名無しさん
08/12/06 16:12:37
>>366
ならそいつにVSでも変えてろハゲとでも言ってればいい希ガス

369:デフォルトの名無しさん
08/12/06 19:18:45
Delphi2006でヘルプを使いDelphi終了すると、タスクにdexplore.exeが残り、
再びDelphi2006起動してヘルプを使いDelphi終了すると、タスクにdexplore.exeが２つ残り、
とドンドンdexplore.exeがタスクに増えて行きます。(OSはXPです）
これって、メモリーけっこう食ってますが、Delphiのバグでしょうか？

370:デフォルトの名無しさん
08/12/06 21:16:21
dexplorerのバグでしょう、きっと。

371:デフォルトの名無しさん
08/12/07 09:41:05
VS だとそんなことないから Delphi のIDEのバグじゃないの？

372:デフォルトの名無しさん
08/12/07 11:49:41
食わせてるデータがまずいからだとは思うんだけど、それで逝っちゃうようなのはやっぱりバグだと思うんだ。
DelphiのIDEはDExplorerをキックしてるだけだしね。ちなみにXPで発現することが多いみたい。

373:デフォルトの名無しさん
08/12/07 16:17:50
Borland Developer Studio 2006 (Professional）をデフォ状態でDelphi使うと
ヘルプにC++の内容まで検索されてウザイ。
C++の内容が検索されなくなる設定ができるかどうか調べても未だに分からない。
どなたかＨＥＬＰ！

374:デフォルトの名無しさん
08/12/07 19:34:12
それが円馬鹿クオリテー

375:デフォルトの名無しさん
08/12/08 02:15:33
フィルタ条件ではあかんのか

376:デフォルトの名無しさん
08/12/08 09:20:16
6とかだとヘルプファイルの検索対象の範囲とか設定できるんだけどねぇ‥‥
CLXのヘルプ外したりとか。

377:デフォルトの名無しさん
08/12/08 11:59:47
ヘルプはひどいな
リンクも不十分だし、欲しい情報になかなかとべん

378:ななしへたぐらま ◆XcB18Bks.Y
08/12/08 17:35:10
旧ボーランド時代からヘルプは良くなかったですねぇ。
初代Delphiの頃はまだ良かったのですが…

>>367
さらにEditを枠無しにしたら完璧ですね。

379:デフォルトの名無しさん
08/12/09 16:44:35
>>378
やってみたけど枠を消すと文字がずれて、枠有りの状態のようにはいかなかった。

380:ななしへたぐらま ◆XcB18Bks.Y
08/12/09 17:47:19
確かにうまくいきませんでした。

赤パネル
　Editと同じ色のパネル
　　Edit

の三段重ねでEditの位置を調整してなんとかそれらしく？なりましたがなかなか骨の折れる作業です。
複数貼り付けるならアンカーを使ったり赤パネルの代わりに赤フレームにすると作業効率は多少ましになるかもしれませんが
AutoSizeが利かなくなるのかフォントサイズを変えてもウィンドウサイズが変わらないのはつらいですね。

381:デフォルトの名無しさん
08/12/09 18:32:27
そんなことするよりTCustomEdit継承して新しく作った方が楽じゃない？

382:デフォルトの名無しさん
08/12/09 20:53:08
初心者質問お願いします。
DateTimePickerにMaxDateを設定している時、
プログラムでDateTimePickerのDate プロパティにMaxDateと同じ日付を代入することはできないのでしょうか？
手動ではMaxDateの日付を設定できます。
当方Delphi4です。

～例～
（MaxDate は2008/12/31と設定している）
DateTimePicker1.Date := StrToDate('2008/12/30');　・・・日付が反映される
DateTimePicker1.Date := StrToDate('2008/12/31');　・・・日付が反映されない
DateTimePicker1.Date := StrToDate('2009/1/1');　・・・日付が範囲を超えているとエラーが出る
（手動で2008/12/31を設定することはできる）

383:デフォルトの名無しさん
08/12/09 21:23:34
TEdit も TDateTimePicker もウィンドウズのコントロールだから、その機能は
本質的には Delphi と関係ない。MSDN 読むほうがいい。 >>381 は馬鹿回答。

384:382
08/12/09 21:49:28
>>383
そうでしたかぁ。
ありがとうございました。

385:デフォルトの名無しさん
08/12/10 00:48:07
>382
Timeプロパティに何が入ってるか確認したほうがよいかも。

386:デフォルトの名無しさん
08/12/10 08:21:07
>>373
俺も2006でDelphiだけが表示される正式なヤリ方がしりたい。

前にどこかを見てやったときは、ヘルプのアプリ？がバグバグで
設定したのに設定したことにならなかったり嫌になった覚えがあるな。
しかし、どうやって設定したか憶えてなくて困る。
Delphiヘルプのみってのが確かできたはずなんだが。

6の時はテキスト弄るだけで簡単だったけどな。

387:382
08/12/10 13:20:42
>>385
Timeプロパティを00:00:00にしたら正しく動きました！
ありがとうございました！

388:デフォルトの名無しさん
08/12/11 00:17:14
TEditの枠のありなしでサイズが変わるのはVCL内で実装されているから、
継承してサイズが変わらないようにすればおｋ
それ以前にコントロールは自分でも描画できるから、簡単に枠を描画することが可能
↓にサンプルがある
URLﾘﾝｸ(www.delphipages.com)
VCLはただWindowsコントロールをラップしてるだけでなく独自のコードも追加してるし、
>>383はかなり見当違いの回答なので初心者は参考にしないようにね

389:デフォルトの名無しさん
08/12/11 00:22:03
2006ではDelphi以外のＨＥＬＰも（親切に）表示するのが仕様ということでハイ　{{{{(+＿+)}}}}。
（アーーーーめんどくさい）
しかし、こんな簡単なことがデフォでできてないなんて、何なのこの会社？

390:デフォルトの名無しさん
08/12/11 00:24:47
教えてください。MediaPlayerを使って1から9までの動画をランダムにつなげて流すというプログラムを作っています（例えば2→5→8→1→3→9→4→7→6の順番で動画を流してくれるようなプログラムです）
とりあえず作ってみたのですがボタンを押してもうんともすんとも動きません。ここが間違ってる、こうしたら良いなどのアドバイスをいただけたらと思います。よろしくお願いします

var
cou,new,test,i:Integer;
video:Array[1..9]of integer;
procedure TForm1.Button2Click(Sender: TObject);
begin
cou:=cou+1;
if cou>9 then exit;
Randomize;
new:=Random(10);
repeat
test:=0;
For i:=1 to cou do
if new=video[i] then test:=1;
If test=1 then new:=random(10);
until test=0;
video[cou]:=new;
MediaPlayer2.FileName:=ExtractFilePath(application.ExeName)+'tabidachi'+IntToStr(new)+'.wmv';
MediaPlayer2.Open; MediaPlayer2.Notify:=True; MediaPlayer2.Play;

procedure TForm1.MediaPlayer2Notify(Sender: TObject);
if (MediaPlayer2.DeviceID <> 0) and (new < 10) then
begin
MediaPlayer2.FileName := ExtractFilePath(application.ExeName)+'tabidachi'+IntToStr(new)+'.wmv';
MediaPlayer2.Open; MediaPlayer2.Play; Inc(new);
end;

391:デフォルトの名無しさん
08/12/11 00:44:39
宿題でダイヤモンドパターンのプログラムがあるのですが教えてください!!!!

392:デフォルトの名無しさん
08/12/11 00:45:27
couの初期値って何なの？

393:デフォルトの名無しさん
08/12/11 03:01:18
>>388　そうなんですか。それで変な動作をするんですね・・　TEdit くらい単純なラッパーの方がいいのに。

394:386
08/12/11 10:02:34
ヘルプの編集思い出した。
編集というか、デフォルトのフィルタを変更するだけだけど

「ヘルプ」→「フィルタの編集」
（フィルタなし）を選択して、例えば以下を突っ込んで Save

("DevLang"="Delphi") OR ("DocSet"="bds_Win32") OR ("DocSet"="PSDK") OR ("DocSet"="indy")

これで、デフォルトでDelphiとBDS Win32とPlatformSDK、Indy 10からしか検索されない。

根本的にいらないヘルプをはずすわけではなく、
実質、起動時にフィルタを選択しているのでヘルプ起動時少し重いが難

395:386
08/12/11 10:06:04
根本的に削除する方法みつけた。これでいけるんじゃね？

ヘルプを登録しなおすには：某所：So-net blog
URLﾘﾝｸ(bousyo.blog.so-net.ne.jp)

某所 - C++Builder のヘルプを削除するには
URLﾘﾝｸ(bousyo.blog45.fc2.com)

396:386
08/12/11 10:08:25
ああ、やべえ、 >>394 はやらん方がいいわｗ
（フィルタなし）に Saveすると、以下の様にでて元に戻せなくなるわｗ

---------------------------
Windows Internet Explorer
---------------------------
Filter cannot be saved without a definition
---------------------------
OK
---------------------------

欠陥ヘルプｗｗ

397:デフォルトの名無しさん
08/12/11 10:22:02
>>396 の問題は、deleteで（フィルタなし）を削除しようとしたら大丈夫だった

>>395のヘルプの編集はうまくいった。
以下C++と.NETの削除の方法 for Vista。

まずは、適当なフォルダに %PROGRAMFILES%\Borland\BDS\4.0\Help\Common\mergeWin32.xml をコピー。
以下のパッチを当てる。（といっても該当行を削除するだけ）

---　mergeWin32.org.xml　　2005-11-14　10:00:00.000000000　+0900
+++　mergeWin32.xml　　　　　　2008-12-11　10:12:02.910931700　+0900
@@　-10,16　+10,13　@@
　<CompiledIndex>Help\Win32\bds4Win32devguide.HxI</CompiledIndex>
　<CompiledIndex>Help\Win32\bds4Win32tasks.HxI</CompiledIndex>
　<CompiledIndex>Help\Win32\bds4Win32api_win32.HxI</CompiledIndex>
-<CompiledIndex>Help\Win32\bds4Win32api_cpp.HxI</CompiledIndex>
　<HelpTopic>Help\Win32\bds4Win32guide.HxS</HelpTopic>
　<HelpTopic>Help\Win32\bds4Win32devguide.HxS</HelpTopic>
　<HelpTopic>Help\Win32\bds4Win32tasks.HxS</HelpTopic>
　<HelpTopic>Help\Win32\bds4Win32api_win32.HxS</HelpTopic>
-<HelpTopic>Help\Win32\bds4Win32api_cpp.HxS</HelpTopic>
　</FileList>
　<Filters>
　<Filter　Name="Developer　Studio　2006　for　Win32">"DocSet"="bds_Win32"</Filter>
-<Filter　Name="Language:　C++">"DevLang"="C++"</Filter>
　</Filters>
　</Merge>
　</helpConfig>

（つづく）

398:デフォルトの名無しさん
08/12/11 10:24:29
同じフォルダに以下のregHelp.batファイルを作り、管理者権限で実行

copy mergeWin32.xml "%PROGRAMFILES%\Borland\BDS\4.0\Help\Common"
"%PROGRAMFILES%\Borland\BDS\4.0\Help\Common\regHelp.exe" -7
"%PROGRAMFILES%\Borland\BDS\4.0\Help\Common\regHelp.exe" 5

おもむろにヘルプを起動すると、しばらく後適用された状態で検索ができる

　　　　　　　　　　　　　　　　　／￣＼
　　　　　　　　　　　　　　　　　|　　　　|
　　　　　　　　　　　　　　　　　＼＿／
　　　　　　　　　　　　　　　　　＿＿|＿__
　　　　　　　　　　　　　　／　　　　＼
　　　　　　　　　　　　 /　　　　　　　　＼
　　　　　　　　　　 l　　　　　　　　　 |　
　　　　　　　　　　　　　（　　　　　　　　　 |
　　　　　　　　　　＼　　　　　〃_／
　　　　　　　　　　　　　　　　 >'⌒￣￣､,＼
　　　　　　　　　　　　　　　 /　　　　　　　＼
　　　　　　　　　　　　　　　/　　ｨ　　　,ﾉ'ヾヽ
　　　　　　　　　　　　　（　 /　）,　　　　　　l
　　　　　　　　　　　　）　ﾉ　_,/　　　　､,,　 |
　　　　　　　　　 /⌒￣￣￣　　　　　　 |
　　　　　　　　　　　　l　､_　　　　　　　　 ,ﾉ　,/
　　　　　　　　　　|￣￣￣￣￣￣￣￣￣￣￣￣|
.　　　　　　　 └┬:‐┬──┬‐──┘
　　　　　　　　　　ノ ,‐‐,)　　　丿,‐‐,)　　　　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　　 (,∠／　　　 (,∠／　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

399:デフォルトの名無しさん
08/12/11 10:39:17
>>397
念のため編集前に mergeWin32.xml はバックアップを取っておいた方がよいです

400:デフォルトの名無しさん
08/12/11 12:52:35
>>394-399
サンキューベリーマッチ！　　m(_ _)m

401:390
08/12/11 13:28:48
>>392さん
初期値は設定していません。設定しないとうまくいかないんでしょうか？

引き続きご回答いただければ幸いです。よろしくお願いします

402:デフォルトの名無しさん
08/12/11 13:33:07
cou:=cou+1;
の行にBreakPointを置いて、実行。

止まったときのcouの値は？

cou:=0;
で初期化しないとだめじゃないの？
自動で0にしてくれたっけ？

403:390
08/12/11 13:57:43
>>402さん
cou:=0;で設定し、ブレークポイント置いて実行してみました
couは1で止まってしまっているみたいです…

404:デフォルトの名無しさん
08/12/11 14:22:02
ランダムに再生の前に、普通に再生は出来るの？
video: array[1..9]of Integer に適当に数値を入れて、再生させると再生できるの？
それとも、それでも再生できないの？

ランダムの部分がいけないのか、再生部分がいけないのかの切り分けはしましたか？

405:ななしへたぐらま ◆XcB18Bks.Y
08/12/11 14:41:32
>>402
ローカル変数は初期化されません（０にしてくれません）。
だから自分で初期値として0を代入しなければなりません。
ちなみにグローバル変数は初期化されます（０にしてくれます）。

たまたま0になっているときもありますがこれを当て込んではいけません。

406:390
08/12/11 14:42:17
>>404さん
ボタンを押しても何も起きません。読み込みもしてくれなくてうんともすんともです
再生部は問題ないようです。前半部のランダムの部分が良くないようです
説明不足な点が多くすみません

407:デフォルトの名無しさん
08/12/11 14:50:19
この板の上の方にBINGOの問題があって、
そこで同じようにランダムに数値を並べる例が出てるから、みて見れば？

その例にそってvideo[1..9]にちゃんとランダムに数値を入れるところまで、
頑張ってみようよ。

408:デフォルトの名無しさん
08/12/11 16:18:31
Del7でバックグラウンド、最小化状態のウィンドウを
フォアくグラウンドに持ってきたくて
URLﾘﾝｸ(www.swissdelphicenter.ch)
のコードを組み込んでみたところ
バックグラウンドからは成功したものの
最小化状態からはフォアグラウンド化できません。
どうやればいいんでしょうか。

409:デフォルトの名無しさん
08/12/11 22:52:35
マウスのホイールをフックしたいのですがホイールの上下を感知することってできるのでしょうか？

410:デフォルトの名無しさん
08/12/11 23:00:56
すみません
wParamを見ればいいことがわかりました
お騒がせしました

411:デフォルトの名無しさん
08/12/13 03:08:36
var a: array[0..10] of Byte;
みたいな感じで定義した配列に、@a[0]を対象にMoveMemoryとかをやっても大丈夫なんですか？
配列はメモリ上で常に連続しているものなんですか？
Cardinal型とByte型の配列を相互に入れ替えるとき、Moveは面倒くさくて

412:デフォルトの名無しさん
08/12/13 03:40:11
連続して無いとFileName: array[0..MAX_PATH] of Char;とか使えなくなる
ので連続してるだろう

413:デフォルトの名無しさん
08/12/13 18:39:04
すみません!!!
0から1の乱数randomを200回発生させ、第1項から200項目までの和、その平均、二乗和を求めるプログラムを穴埋めで回答するように。
という課題がわかりません↓↓
教えてください!!
なお、和はedit1、平均はedit2、二乗和はedit3に出力するものとし、
s：和
ss：二乗和
　r： 0 から1の乱数をいれる変数
av：　　平均値　　　　　　　とする。
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
s,ss,r,av:real;
begin
s:=[(1)];
ss:=[(2)];

[(3)] i:=1 to [(4)]
[(5)]

r:=random;

s := s+ [(6)];
ss:= ss + [(7)];
end;
av:=s/[(8)];
edit1.text:=[(9)];
edit2.text:=FloatToStr(av);
edit3.text:=[(10)];
end;

}

414:413の続き
08/12/13 18:42:22
和の値(小数点以下3桁目を四捨五入する)
平均の値(小数点以下3桁目を四捨五入する)
二乗和の値(小数点以下3桁目を四捨五入する)
も是非是非お願いします!!!!

415:デフォルトの名無しさん
08/12/13 18:44:36
これぐらい分からないとしょうがないぞ
0
0
for
do
begin
i
i*i
200
s
ss

416:デフォルトの名無しさん
08/12/13 18:46:11
おれも出来てなかった

417:デフォルトの名無しさん
08/12/13 18:47:08
自力で解く気ゼロだな

418:デフォルトの名無しさん
08/12/13 18:54:21
５にrandomize入れてしまったｗ
４はdo beginで

419:390
08/12/13 22:00:35
>>407さん
いろいろとアドバイスいただきありがとうございました。お礼が遅くなり申し訳ありません

420:デフォルトの名無しさん
08/12/13 22:34:48
>>413
宿題スレはこちら
Pascalの宿題は俺にやらせろ！！Part2
ｽﾚﾘﾝｸ(tech板)

421:デフォルトの名無しさん
08/12/13 23:40:05
宿題を丸投げする413が教授に怒られますように
ﾆﾔﾆﾔ

422:デフォルトの名無しさん
08/12/13 23:44:44
大学でDelphi習うところあるんだね

423:デフォルトの名無しさん
08/12/14 00:05:58
どっちかというとDelphiというよりはPascalだろーけどな

424:デフォルトの名無しさん
08/12/14 00:09:20
Delphi2006でファイルメニューの「開き直す」を選んだとき、過去のプロジェクトがたった４件しか表示されません。
これだと、ちょっと別のプロジェクトをいじっていると肝心のプロジェクトが表示されなくなったりして面倒です。
そこで「開き直す」プロジェクト数を増やそうと思ってオプションを見ましたが、該当するパラメータが見つかりませんでした。
このようなプロジェクト数を増やす設定は可能でしょうか。

425:デフォルトの名無しさん
08/12/14 01:53:01
>>424
それは俺も不便に思ってる。

スタートページも確かパス表示なしな上に、
プロジェクトの履歴少ないよな

426:デフォルトの名無しさん
08/12/14 04:33:00
>>424
プロジェクトのショートカットをデスクトップにでも作っておけ

427:デフォルトの名無しさん
08/12/14 06:18:44
ショートカットだと、もう一個IDEが起動する(´･ω･`)ｼｮﾎﾞｰﾝ

428:デフォルトの名無しさん
08/12/14 11:26:28
Delphi2006なら
HKEY_CURRENT_USER\Software\Borland\BDS\4.0\Closed Projects
を書き換えるだけのソフトを作っておけばいい
コマンドラインにプロジェクトファイルをくっつけて

429:デフォルトの名無しさん
08/12/14 11:42:52
それって簡単？

430:デフォルトの名無しさん
08/12/14 11:45:35
簡単かどうか試せばいいんじゃね？

431:デフォルトの名無しさん
08/12/14 12:04:00
ActiveProjectsとかいうフォルダにショートカット作っておいて
タスクバー右クリツールバーの登録で指定して
>>から起動したいファイルをIDEにドラッグドロップすれば開けるんじゃね。

432:デフォルトの名無しさん
08/12/14 12:41:52
>>430
やってみたけどＩＤＥ起動してると効かないみたい。そしてＩＤＥ終了さ
せるときエラーになる。
ＩＤＥ起動してない状態で書き換え、ＩＤＥ起動させれば確かに効くけど、
ＩＤＥの再起動が面倒かな。

433:デフォルトの名無しさん
08/12/14 13:18:43
>>431
やってみた。

ショートカットだと .lnk ファイルが開かれるだけ。

実プロジェクトファイルだと、現行プロジェクトを非アクティブにしてプロジェクトグループに追加される。
しかし、元々関係ないプロジェクト同士でプロジェクトグループにすると、どのユニットが何がなんだか分か
らなくなる。

434:デフォルトの名無しさん
08/12/15 08:39:54
いくつものスレッドでメインスレッドにある一つの配列をいじくる場合って衝突する危険性があると思います
どうやって衝突を回避するんですか？

435:デフォルトの名無しさん
08/12/15 08:50:37
>>434
補足です
その共通に使う配列は構造体の配列でaddしたりDeleteしたりする関数を呼ぶ事で操作しています
スレッドから操作関数をよぶときにどこかが呼んでいる時は待つ、みたいなことができればいいと考えています
どうすればそういうことができるのでしょうか？

436:デフォルトの名無しさん
08/12/15 09:40:13
mutexやCriticalSectionで衝突する可能性のあるコードを保護する。
TCriticalSectionでも使っとけ。

437:デフォルトの名無しさん
08/12/15 12:17:00
下記スレッドの説明から

異なるスレッドが所有する VCL または CLX のメソッド/関数/
プロパティを別のスレッドの中から扱う場合、排他処理の問題が
発生します。

メインスレッドの所有するオブジェクトに対しては Synchronize
メソッドを使う事ができます。他のオブジェクトを参照するため
のメソッドをスレッドクラスに追加し、Synchronize メソッドの
引数として渡します。

438:デフォルトの名無しさん
08/12/15 13:43:44
>>434 >>437
玄人ではありませんし、add,deleteの頻度にもよりますが、add,deleteが１秒内に何十回も発生するなら
そのたびにSynchronizeを多用するとスレッド化のメリットが失われますのでいかがなものかと思います。
その場合、私なら全配列を丸々コピーしてスレッド内処理後、Synchronizeもしくはterminate後に元にコピーします。
当然、メモリー効率は犠牲にします。
低頻度ならそのたびにSynchronizeで良いのでは？

439:デフォルトの名無しさん
08/12/15 14:04:42
>>438
>434
>いくつものスレッドでメインスレッドにある一つの配列をいじくる場合
ということなので、各スレッドがコピーして保持し処理後にリストアするならばスレッドにする必要が無いと思う

＞Synchronizeを多用するとスレッド化のメリットが失われます
メリットはまさに衝突回避なのだと思うけど、ここで頻度については議論の外でいいのでは？

まー後は434さんが実装して確認するのがはやいわな

440:ななしへたぐらま ◆XcB18Bks.Y
08/12/16 01:20:02
>>411
亀ですが、言語仕様では

　「静的配列はその配列の要素型の連続した変数の並びとして格納されます」

とあります。

わかりにくいのですが「連続した変数の並び」ということなので
連続して並んでいることを保証していると考えて良いと思います。

441:デフォルトの名無しさん
08/12/16 04:00:12
動的配列は連続してないかも、ってそんなことあるかいな・・

442:デフォルトの名無しさん
08/12/16 09:53:45
動的配列はポインタ1個だから、1つのメモリブロックしか扱えない。
だから連続してないってことはありえない。

443:デフォルトの名無しさん
08/12/16 10:44:42
初期化にFillCharルーチンなんぞを使ってるけど、動的配列や静的配列が
どんなに大きくてもここ数年まったく問題なく動いていますんで、間違い
なく連続してると思いますヨ。

444:デフォルトの名無しさん
08/12/16 18:16:34
case文のelseはbegin,endでくくらなくてもOK？
case i of
1: aa;
2: bb;
else
cc1;
cc2;
end;

445:デフォルトの名無しさん
08/12/16 18:21:38
ok

446:ななしへたぐらま ◆XcB18Bks.Y
08/12/16 19:42:58
し、知りませんでした… orz

Delphi 4とDelphi 5の言語ガイド「case文」の項を見るとひとつの文しか記述出来ないような文面なのですが
Turbo Delphi Explorerのヘルプ「宣言と文」の項を見ると複数の文を記述できるという内容が書いてありました。
しかし試してみたところDelphi 5とTurbo Delphi Explorerの両方でコンパイルが通ってかつすべての文が実行されるのを確認しました。

case 文の else 以降にbegin～endを付けなくて良いとなるとコードもかなりすっきりしそうですね。

447:デフォルトの名無しさん
08/12/16 20:28:16
VCLのソース読むとかなり参考になるよ
例えばwith分で,で区切って複数の変数を使える
var

Edit: TEdit;
Button: TButton;
begin
中略
with Edit, Button do

Caption := Text;// ButtonのCaptionをEditのTextに設定
end;
これを知らないと
with Edit do with Button do～とか書くことになる

448:デフォルトの名無しさん
08/12/16 20:30:33
俺も知らなかった
でもcase文ってそんなに使わないよねってか使えないよねcase文って

次ページ