1001コメント295KB

モナーのやさしい Delphi質問スレ Ver.6

レス数が1000を超えています。これ以上書き込みはできません。

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜｜｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

前スレモナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/test/read.cgi/tech/1017803412

>>2-10あたりに関連情報あり
○過去スレ
○関連スレ
○Delphi製品情報
○関連リンク
○質問者へ
○ソース置き場案内

0002Delモナー ◆fPymXWHY

NGNG

■過去スレ

モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/test/read.cgi/tech/1017803412

モナーの *やさしい* Delphi質問スレ Ver4(HTML化待ち)
http://pc.2ch.net/test/read.cgi/tech/1016467137/

モナーの *やさしい* Delphi質問スレ Ver3(HTML化待ち)
http://pc.2ch.net/test/read.cgi/tech/1014474727/

モナーの *やさしい* Delphi質問スレ Ver2(HTML化待ち)
http://pc.2ch.net/test/read.cgi/tech/1011649179/

モナーの *やさしい* Delphi質問スレ(HTML化済)
http://pc.2ch.net/tech/kako/1003/10031/1003113413.html

0003Delモナー ◆fPymXWHY

NGNG

■関連スレ
一番上が新しいスレです。書き込みは新しいスレに。

○ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室
Delphi や Borland に関する話題、雑談や質問をしながらﾏﾀｰﾘくつろごうや
② http://pc.2ch.net/test/read.cgi/tech/1013298748/
① http://pc.2ch.net/test/read.cgi/tech/1003664165/ (HTML化待ち)
（ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室
DelphiやBorlandに関する雑談や質問しながらみなーで、くつろごうや
part4 http://pc.2ch.net/tech/kako/1002/10024/1002469894.html
part3 http://piza2.2ch.net/tech/kako/1001/10010/1001039863.html
part2 http://pc.2ch.net/tech/kako/999/999482946.html
part1 http://piza2.2ch.net/tech/kako/997/997348797.html

○Delphi相談室現在その３
Delphi関連のTips Ｑ＆Ａ　はこちらです。
その３ http://pc.2ch.net/test/read.cgi/tech/1010153466/ (HTML化待ち)
その２ http://pc.2ch.net/tech/kako/995/995950803.html
その１ (逝ってしまったようです)
(続く)

0004Delモナー ◆fPymXWHY

NGNG

■関連スレ(続き)

○***すれ立てるまでもない質問はここで***
どのスレッドに質問したらいいか、わからないときはここで質問してみよう。(略)
第13刷 http://pc.2ch.net/test/read.cgi/tech/1018752281/l50
第12刷 http://pc.2ch.net/test/read.cgi/tech/1016631412/ (HTML化待ち)
第11刷 http://pc.2ch.net/test/read.cgi/tech/1014478527/ (HTML化待ち)
第A刷 http://pc.2ch.net/test/read.cgi/tech/1012536901/ (HTML化待ち)
第9刷 http://pc.2ch.net/test/read.cgi/tech/1010673275/
第8刷 http://pc.2ch.net/test/read.cgi/tech/1008908052/ (HTML化待ち)
第6刷 http://pc.2ch.net/tech/kako/1004/10041/1004183881.html
第5刷 http://pc.2ch.net/tech/kako/1001/10019/1001998049.html
第4刷 http://pc.2ch.net/tech/kako/998/998403891.html
第3刷 http://piza2.2ch.net/tech/kako/993/993933402.html
第2刷 http://piza.2ch.net/tech/kako/990/990082077.html
第1刷 http://piza.2ch.net/tech/kako/975/975576060.html

○Pascal の初心者用の質問・相談所
コンソールのみ。GUI は扱いません。
http://pc.2ch.net/test/read.cgi/tech/1009903617/

○kylix相談室(閑散)
２ http://pc.2ch.net/test/read.cgi/tech/988815580/ (HTML化待ち)
１ (行方不明)

○Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/

○delphiで作られた有名ソフトって何がある？
delphi自身もdelphi？てか、今delphiやってる人へ希望を与えてやって下さい。
http://pc.2ch.net/test/read.cgi/tech/990056026/

0005Delモナー ◆fPymXWHY

NGNG

■Delphi製品情報

○公式サイト
http://www.borland.co.jp/delphi/

○Delphi 6 Personal
無料でダウンロードできる。持っていない人はこれを機にやってみよう。
ダウンロードするファイルはは59MBあり、またサーバーが重いので注意。
使用者登録が必要。
http://www.borland.co.jp/delphi/personal/

○Delphi 6 アップデート・ダウンロードサービス
最新のアップデートは次の通り。
Personal: Update Pack 2 (2002/3/19)
Professional, Enterprise: Update Pack 2 + 追加アップデート (2002/3/29)
http://www.borland.co.jp/delphi/del6up.html

0006Delモナー ◆fPymXWHY

NGNG

■関連リンク

ここに貼っておきました。
どんどん追加して構いません。

こちらへ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538

■質問者へ

○ここはDelphiのプログラミングに関する質問スレです。
スレ違いの質問は罵倒されるので、ほかのスレを探してください。

○厨房並みの初心者の質問はOKですが、厨房は質問するな。

○まずは自分で調べてみよう。回答にGoogleの検索結果を貼られないように。
Google http://www.google.com/intl/ja/
2ちゃんねる検索 http://2ken.net/
Delphi-ML検索 http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/search.cgi

0007Delモナー ◆fPymXWHY

NGNG

■ソース置き場

このスレのソース置き場を作ってみました。
このスレに載せきれないソースはここへどうぞ。
○3000行までOKです。
○ソース書き込み時は等幅に設定してください。インデントが使えます。
○激しく長いソースは、同時にソースファイルを添付しておくと（ﾟДﾟ）ｳﾏｰです。
○置くのはソースでなくても構いません。
ファイルのアップローダーとしてもどうぞ。

こちらへ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1017673221

以上。

0008Delモナー ◆fPymXWHY

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. 前スレが980に行くまでは書き込まないで
　（　　　　）　.| (あるいはsage進行にして)ください。
　｜｜｜　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　（＿_）＿）

0009デフォルトの名無しさん

NGNG

Win16はpascal呼び出しが主流でしたが、これは神の啓示ですか？

0010Delモナー ◆fPymXWHY

NGNG

今回こそ書き込みに成功して（ﾟДﾟ）ｳﾏｰかと思ったが・・・。

>>4
***すれ立てるまでもない質問はここで***の
第13刷のURL末尾、l50をとるのを忘れた・・・。

0011デフォルトの名無しさん

NGNG

|ω･`)つ⑪ 11ｹﾞｯﾄ

|彡ｻｯ

0012>>1にウォンチュ！

NGNG

お疲れ！

ことり。

0013デフォルトの名無しさん

NGNG

下げろってんだろｺﾞﾙｧ!!

0014デフォルトの名無しさん

NGNG

>>13
はい。分かりました。

0015デフォルトの名無しさん

NGNG

　　　@@@@　　　／￣￣￣￣￣￣￣￣￣￣
　　　（゜д゜@　＜　あらやだ。マーくん、反抗期？
　　　┳⊂　）　　＼＿＿＿＿＿＿＿＿＿＿
　　[[[[|凵ノ⊃
　　　◎Ｕ□◎　＝３　ｷｺｷｺｷｺ

0016マーくん

NGNG

母ちゃん、腹減った。メシ！

0017デフォルトの名無しさん

NGNG

>>12
(藁

とでもいうと思ったのか。

0018デフォルトの名無しさん

NGNG

新スレ出来てたんだ。

前スレの932です。
誰かお答え下さい。

0019中日ファン＠結局引き分けお疲れモード

NGNG

>>18
前スレがまだ生きてるのでそっちに書いておいたよ

0020デフォルトの名無しさん

NGNG

　　http://pc.2ch.net/test/read.cgi/tech/1019185100/

0021Delモナー ◆fPymXWHY

NGNG

>>8の再掲です。

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. 前スレが980に行くまでは書き込まないで
　（　　　　）　.| (あるいはsage進行にして)ください。
　｜｜｜　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　（＿_）＿）

くれぐれもよろしくお願いします。

0022デフォルトの名無しさん

NGNG

>>17
(藁

とでもいうと思ったのか。

0023デフォルトの名無しさん

NGNG

>1
おおっ！ついにDelphiと同じバージョンになりましたね！

とでもいうと思ったのか。

0024まだまだ未知の世界

NGNG

今の所↓のように書いてるんですけど、関数内関数を外に書く方法ってないですか？

procedure 処理１;
　procedure 処理２;
　begin
処理２の内容;
　end;
begin
処理１の内容;
end;

↑を↓のようにしたい
procedure 処理１;
begin
処理１の内容;
end;

procedure 処理１.処理２;
begin
処理２の内容;
end;

0025デフォルトの名無しさん

NGNG

こうだろ、普通は。

procedure 処理２;
begin
　処理２の内容;
end;

procedure 処理１;
begin
　処理１の内容;
　処理２;
end;

0026デフォルトの名無しさん

NGNG

>>24
ない。つーかなぜクラスを使わない？

002726

NGNG

インスタンス生成／破棄がめんどくさいと思うのなら、
Clipboardユニットを参考にしてみること。

0028デフォルトの名無しさん

NGNG

forward

002924

NGNG

>>26
ないんですか（＾＾；
forward宣言とかのテクニックでできないかな～と思ってたんですが・・・（＾＾；

>>25
そのように書いていくと数が多くなると
どの処理で使うつもりだったのかとかがごっちゃになって混乱してきます。

>>26-27
実際使用するインスタンスは１つなので
わざわざクラス（型）を用意するのももったいないかな～とか思ってました。

>Clipboardユニットを参考にしてみること。
早速、覗いて見ますね。

0030デフォルトの名無しさん

NGNG

>>26
クラスと関数内関数は用途がちがうのでは・・・

0031デフォルトの名無しさん

NGNG

俺の場合、関数内関数ってその部分を再帰処理したい時、
関数内の流れを見やすくしたい時しか使わないけどみんなはどーなのさ。

0032デフォルトの名無しさん

NGNG

>>31 同じく。

ただ一度はまったのが、まだ初心者の頃EnumWindowsの
lpEnumFuncに関数内関数のポインタ渡しちゃって、
しかもWin2000での動作テストはうまくいっちゃって、
それで調子こいて完成させたら、Win98で動かしたときに
ブルースクリーンだと(苦藁
最初原因全く分からなかったよ…

0033ガイシュツつーか結構常識っぽいような気がするけど

NGNG

おまえらちょっと聞いてください
関数内関数とクラスの動作速度を比較するために、
ほぼ同じ機能を持つクラスと関数を作ってみたんです。

type
　TClassA=class(TObject)
　private
　　　function Left(AStr:String):String;
　　　function Right(AStr:String):String;
　public
　　　function AMain(AStr:String):String;
　end;

{ TClassA }
function TClassA.AMain(AStr: String): String;
begin
　　Result := Left(AStr) + Right(AStr);
end;
function TClassA.Left(AStr: String): String;
begin
　　Result := Copy(AStr,1,3);
end;
function TClassA.Right(AStr: String): String;
begin
　　Result := Copy(AStr, Length(AStr)-3, 3 );
end;

{ FunctionB }
function FunctionB(AStr:String): String;
　　function _Left(AStr: String): String;
　　begin
　　　　Result := Copy(AStr,1,3);
　　end;
　　function _Right(AStr: String): String;
　　begin
　　　　Result := Copy(AStr, Length(AStr)-3, 3 );
　　end;
begin
　　Result := _Left(AStr) + _Right(AStr);
end;

そしてこれらを一秒間に何回実行できるか調べたところ、漏れのマシンでは

ClassA=540000
FunctionB=625000

でした。やっぱりクラスはリソースを浪費するので
何が何でもクラス、というは良くないと思われます

0034デフォルトの名無しさん

NGNG

procedure a();
var
procedure b();
begin
end;
begin

b();

end;

0035デフォルトの名無しさん

NGNG

>>33
場合によっては結構重要だな

0036デフォルトの名無しさん

NGNG

関数内関数って、べつに高速化のためじゃなくて、
識別子を宣言するとき、スコープは必要最小限にすべし、という
構造化プログラミングの基本理念からあるんじゃないの？

0037初心者B　 ◆7wLFJFmg

NGNG

>>33
プログラムの軽量化に使われると思われ。
重量系アプリは参考にした方がいいかも。

0038デフォルトの名無しさん

NGNG

関数内関数ってホント便利なんだよね
　でも、asmで関数内関数にすると　アドレス間違ってやがんの！　プンスカ

0039デフォルトの名無しさん

NGNG

（　´∀｀）プンスカ！by宍戸留美

0040デフォルトの名無しさん

NGNG

関数内関数なんてこの前ギコBASIC見たときに始めて知ったよ。
高速化にも繋がるのか。いい事聞きましたなへらへらへら。

0041デフォルトの名無しさん

NGNG

適当な数の整数値があるとして、
文字列に変換する時に、0を付け足したいのだが・・・
たとえば、5という1桁の整数値があって
05という文字列にしたいのだがどうすればいいですか？

0042デフォルトの名無しさん

NGNG

format

0043デフォルトの名無しさん

NGNG

>>42
小差行きボンヌ

0044デフォルトの名無しさん

NGNG

>>42
詳細きぼんぬ

0045デフォルトの名無しさん

NGNG

ヘ(略

0046デフォルトの名無しさん

NGNG

>>44
Format()

0047デフォルトの名無しさん

NGNG

>>46
詳細キボンヌ

0048デフォルトの名無しさん

NGNG

'0'+IntToStr(5)

0049デフォルトの名無しさん

NGNG

var 検索も出来ねーのか、このタコ！:string;
begin
検索も出来ねーのか、このタコ！:='0';
検索も出来ねーのか、このタコ！:=検索も出来ねーのか、このタコ！+'5';
ShowMessage( inttostr(検索も出来ねーのか、このタコ！) );
end;

0050４９

NGNG

inttostrしちゃアカンな（藁

0051デフォルトの名無しさん

NGNG

>>49
strtointdef

0052中日ファン＠今日から地方巡業モード ◆DRAG8zBg

NGNG

>>41
Format('%2.2d', [aNumber]);

0053野球は糞

NGNG

野球は糞

0054デフォルトの名無しさん

NGNG

>>53
　　　　　　ﾁｬﾝﾁｬﾗﾁｬﾝﾁｬﾗ　　　　　　
　　（⌒）　 /
　（＾＠＾） -
　（⊃⊂）ヽ

0055デフォルトの名無しさん

NGNG

>>53-54
無駄なレスすんな。ハゲ。

0056デフォルトの名無しさん

NGNG

>>55
>>53-56

0057ちょいとひとこと

NGNG

>41じゃないけどさ、
以前にヘルプでformat関数について調べてみたことがあるが
あんな内容じゃ全然わからんぞ。

お手数だが>>52のように用例を出してくれるだけでも１００倍助かる。

0058デフォルトの名無しさん

NGNG

>結果の文字列は指定された桁数以上でなくてはならない。
>指定された桁数より少ないときは，
>結果の文字列の左側にゼロが埋め込まれる
これの何処が分からんのか分からん

005957

NGNG

＞形式指定子の構文を次に示します。
＞"%" [index ":"] ["-"] [width] ["." prec] type

この構文からどうやって>>52を導き出せというのか・・・

0060デフォルトの名無しさん

NGNG

その下も読まないとダメよ

0061デフォルトの名無しさん

NGNG

>>57
そんぐらい読解できないのも問題ですよ。。。

0062デフォルトの名無しさん

NGNG

大体にして「Delphi format関数」で検索かければ
こういう↓まんまの解答が出てくるのにな
ttp://www.borland.co.jp/qanda/delphi/d0000877.html

0063デフォルトの名無しさん

NGNG

>60
その下を読んで、とりあえず「type に指定できる値」だけはわかったが
あとはよくわからん。

「引数インデックス指定子」ってなんのことやら、、どこにも解説ないし。

0064デフォルトの名無しさん

NGNG

インデックス指定子のことは一番下に詳しく書いてるが。

0065デフォルトの名無しさん

NGNG

読むのが面倒なくらい詳しく書いてないか？

006657=59=63

NGNG

>>64-65
７回真剣に読んでやっとわかった。

それでもやっぱり初心者にいきなり
＞"%" [index ":"] ["-"] [width] ["." prec] type
は無理がないか？
以前に調べた時はこの構文を見て挫折したよ。

0067デフォルトの名無しさん

NGNG

>>66
ヘルプでわからなければ、もう次は２ちゃんですか？

0068デフォルトの名無しさん

NGNG

>>66
まがりなりにもプロも使う開発環境。初心者なんぞ想定しておりません。

0069デフォルトの名無しさん

NGNG

>>66
C言語のprintf位は常識として知っておいた方がいいと思う。

0070デフォルトの名無しさん

NGNG

>>57で100倍助かると言っていた>>52のような用例もあるはずだが。

007157

NGNG

とりあえず「引数インデックス指定子」については
食わず嫌いというか、怠けていたことを認める。
これは本当に申し訳ない。

>>62,67
だから、オレは>>41じゃないってば。

>>68
プロ「も」ってことは初心者の利用も見込んでるんじゃん。

>>69
言ってることはよくわかるが、なんか釈然としないなぁ・・。

0072デフォルトの名無しさん

NGNG

（　´∀｀）　「使用上の注意をよく読んでお使いください。」

007357

NGNG

>70
ヘルプの用例は結果が書いてなかったし、
あの構文がどうしてあんな用例になるのかが理解できなかった。
（まぁ、でも実際にコピペして結果がどうなるかとかいろいろ試してみればよかった、と今では反省してる）

0074デフォルトの名無しさん

NGNG

（　´∀｀）　「よく読まずに文句をたれると、暇を持て余していた人たちに、
　　　　　　　(　´ⅴ｀)つ)´Д｀）ｸﾞﾘｸﾞﾘ
　　　　　　　されます。

0075デフォルトの名無しさん

NGNG

>41-42で解決しているのにここまで伸びるとは...
正直DelphiよりVBかHSP使った方が幸せになれるよ。

0076デフォルトの名無しさん

NGNG

>>75
HSPでは幸せになれないと思ふ。
小中学生なら、お友達が増えていいかもしれんが・・・。

0077デフォルトの名無しさん

NGNG

下記C++コードをDELPHIでコードを書くとどうなるのでしょうか？

long key = (VkKeyScan( VK_SHIFT ) & 0x80000000 ? 0x1000000 : 0) | Msg.wParam;

0078デフォルトの名無しさん

NGNG

>>77
key := IfThen((VkKeyScan(VK_SHIFT) and $80000000) <> 0, $1000000) or Msg.wParam;

0079デフォルトの名無しさん

NGNG

>>77

var
　key: LongInt;
begin
　if (VkKeyScan(Char(VK_SHIFT)) and $80000000) <> 0 then
　　key := ($1000000 or Msg.wParam)
　else
　　key := (0 or Msg.wParam);
end;

0080デフォルトの名無しさん

NGNG

>>78-77
ありがとうございました

0081デフォルトの名無しさん

NGNG

>>75
逆に付き合い（フォロー）が良すぎるくらいに思うがね。
煽り負けするなら２ｃｈ来るなって感じ。

0082デフォルトの名無しさん

NGNG

>>80 あんた、postgresqlのMLでも質問してなかったか？
それとも偽者か、もしくは、ML見てわからんからここで聞いてみたか？
どーでもいいのだが、マルチポストならやめてくれよ、それと、本人ならpostgresqlのMLに
間違って投稿しましたって謝りいれとけよな。

0083デフォルトの名無しさん

NGNG

＞57 ：ちょいとひとこと：02/04/21 01:08
＞>41じゃないけどさ、
５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

５７＝４１　５７＝４１　５７＝４１　５７＝４１　５７＝４１　

0084デフォルトの名無しさん

NGNG

Σ(ﾟДﾟ)

0085Delモナー ◆fPymXWHY

NGNG

>>73
Formatについて検索してみたらこんなものを発見！
「ヘルプの説明から形式文字列を作成するのは骨が折れます。
例示があると大変助かりますが。」
http://www.nifty.ne.jp/forum/fdelphi/faq/00149.htm

確かにヘルプは分かりにくい。

0086デフォルトの名無しさん

NGNG

WM_ERASEBKGNDメッセージハンドラで、渡されたデバイスコンテキストを使わずに
元々自分が持ってるCanvasを使って描画するのは問題アリですかナシですか。

0087デフォルトの名無しさん

NGNG

まぁ、ヘルプが分かりにくいってのは概ね同意だが…。
別に簡単なもんじゃないし…。
検索すれば、大概は情報出てくるし…。
例も付けてくれてる場合がほとんどだし…。

008886@Ð ë á t h ¹³

NGNG

「ｽﾚが止まった･･･ﾓﾅ様怖い･･･」
「板がRuby好きの怒りにあふれておる･･･」

008986

NGNG

･ﾟ･(ﾉД`)･ﾟ･｡　2時間経過･･･。
あした起きるとｽﾃｷな答えが返っているに違いない。今日は寝よう･･･

0090デフォルトの名無しさん

NGNG

Delphiのヘルプ全般わかりにくい

英語を訳してるんだけど日本語がおかしいところあるし。

0091デフォルトの名無しさん

NGNG

(　´ⅴ｀)つ)´Д｀）ｸﾞﾘｸﾞﾘ
　　　　　　　　↑
　　　　　　　　89

0092デフォルトの名無しさん

NGNG

RichEdit1に500kbくらいの文字列を貼り付けて
以下のような処理をしようと思ったのですが
固まってしまいます。RichEditで処理できる文字数に制限ってあるのでしょうか？
また解決策などありましたら、教えていただけないでしょうか。

for i := RichEdit1.Lines.Count - 1 downto 0 do
begin
if RichEdit1.Lines[i] = '' then
RichEdit1.Lines.Delete(i);
end;

0093デフォルトの名無しさん

NGNG

>>92
ものすごいゆっくりだけど動作してたよ。
固まったと思ってもループの中にブレークポイント置けば
そこで停止するはず。

009492

NGNG

>>93
レスありがとうございます。
このあとまだfor文を何個か書こうと思ってるのですが
そしたら相当時間かかりそですね。

0095鉄拐

NGNG

>>94
いくらでも速度を向上させる方法はあるけど、例えば StringListを使ったら？

var
　　i:integer;
　　wStrList:TStringList;
begin

　　wStrList:=TStringList.Create;

　　wStrList.Text:=Self.RichEdit1.Text;

　　for i:=wStrList.Count-1 downto 0 do
　　begin
　　　　　if (wStrList.Strings[i]='') then
　　　　　　wStrList.Delete(i);
　　end;

　　Self.RichEdit1.Lines.BeginUpdate;
　　Self.RichEdit1.Text:=wStrList.Text;
　　Self.RichEdit1.Lines.EndUpdate;

　　wStrList.Free;

end;

0096デフォルトの名無しさん

NGNG

>>95

Text を参照するならただの string でいいのでは？

0097デフォルトの名無しさん

NGNG

string に読み込んでから、いちいち削除すると再配列に時間がかかるので

前から巡回して、削除する位置をみつけたら、前に見つけた位置の後ろからコピー
して足しこんでいくとよい

0098デフォルトの名無しさん

NGNG

>>96 stringで？配列を使うってこと？
たぶん折れもこの場合tstringlistを
使うとおもうけどstringでの処理方法
を具体的におしえてくれませんか？

0099デフォルトの名無しさん

NGNG

>>86
渡された　デバイスコンテキストを使わないで　GetDCを使わないと勿体ないお化けが出ます。

Canvas:TControlCanvasはデバイスコンテキストを持っている訳ではありません
TControl.GetDeviceContext　を追いかけると
WM_PAINT以外では GetDCが呼ばれます
VCLはWM_PAINT　の中でBeginPaintを使って用意したものをCanvasで利用しています。
OnPaint等で利用しているのはソレです

安全にやるには、この真似をすべきです。
FCanvas.Lock;
　 try
　 FCanvas.Handle := DC;
　　try
・・・・この間で　使うようにする
　　 finally
　　 FCanvas.Handle := 0;
　　 end;
　 finally
　　 FCanvas.Unlock;
end;

0100デフォルトの名無しさん

NGNG

>>96ではないが…
>>98

str := '';
for i:=0 to StringList.Count-1 do
　if not(i 行目が削除の対象ならば) then
　　str := str + StringList[I] + #13#10;

って事なのでは。

0101デフォルトの名無しさん

NGNG

文字列の削除をループで行うと　N^2 オーダの処理となります

大きな文字列に対しては >>97　の方法を使うべきです

つまり
WINだと #13#10#13#10 という文字を見つけて #13#10　１個に置換
を連続して行うという方法なら N にしか比例しません。

0102デフォルトの名無しさん

NGNG

>>100-101
基本的なことでもうしわけないのですが
stringって文字数の上限ないんですか？

0103デフォルトの名無しさん

NGNG

それよりも…
1) クラス THoge はインターフェイス IAdapter を利用する.
2) インターフェイス IAdapter にはとあるイベントがあり、
そのイベントが発生したら THoge の該当イベントを呼び出したい.

これをどうやって実現するかなんですが、

IAdapter = Interface
　function GetEvent: TMyEvent;
　procedure SetEvent(Value: TMyEvent);
　property OnEvent: TMyEvent read GetEvent write SetEvent;
end;

THoge = class
　property Adapter: IAdapter ... write SetAdapter ;
　procedure DoEvent;
end;

とすると、SetAdapter メソッドで
procedure THoge.SetAdapter(Value: IAdapter);
begin
　if Assigned( Self.Adapter ) then
　　if Assigned( Self.Adapter.OnEvent ) then
　　　Self.Adapter.OnEvent := nil
　if Assigned( Value ) then
　　Value.OnEvent := Self.DoEvent;
end;

とするのがセオリーなんでしょうか。
でも、こうすると万が一ユーザーに OnEvent を上書きされてしまうと
困りますよね。
なんか、丁度良いパターンがありそうなのですが。

0104デフォルトの名無しさん

NGNG

>>102
string 型は 2GB までのテキストを扱えます。
事実上、無制限といっても良いでしょう。

だって、2GBの ○○.txt ってファイルは見たこと無いでしょ。

0105デフォルトの名無しさん

NGNG

>>103 OnEventの上書きまで制御したいなら SetOnEventを殺しておけばいいと思うが？

0106デフォルトの名無しさん

NGNG

>>100 それでも十分な場合もあるけど、それより高速にしたいなら
SetLength( str , Length(StringList.Text) ); して
n:=0;
for i:=0 to StringList.Count-1 do
　if not(i 行目が削除の対象ならば) then
　　StrAdd(str,n, StringList[I] + #13#10);
SetLength(str,n);

でStrAdd
procedure StrAdd(var str:string, var cnt; const astr:string);
var i,len:integer;
begin
len:=Length(astr);
for i:=1 to len do begin
inc(n);
str[n]:=astr[i];
end;
end;

0107デフォルトの名無しさん

NGNG

「仮想キーコードについてはWIN32.HLPを参照してください」ってヘルプに書いてたのですが、
英語版のWIN32.HLPしかありません。これって日本語版はないのですか？（DEL５）

0108デフォルトの名無しさん

NGNG

msdnでplatformSDKを落とす

0109デフォルトの名無しさん

NGNG

>>107
http://www.google.co.jp/

検索した方が早いよ。
ttp://www13.cds.ne.jp/~ohsaru/builder/funclist/key.html

011086

NGNG

>>99　
･ﾟ･(ﾉД`)･ﾟ･｡　起きると本当にｽﾃｷｱﾝｻｰが･･･。
　　　　　　　　　やっぱり、与えられたものを使っとけ！ということなんですね。
　　　　　　　　　安全な方法まで示していただいてありがとうございます。

0111ﾁｬﾁｬ

NGNG

>>104 *.txtは見たことないが*.logならざらにある。

0112デフォルトの名無しさん

NGNG

>>111 どっちにしてもメインメモリにリニアには展開出来なんだから

0113デフォルトの名無しさん

NGNG

栞を設定しても、ファイルを閉じてしまうと消えてしまう。
これは仕様なのか？
ブレークポイントなら覚えていてくれるのに。

0114ツッコミage

NGNG

>>88
ナウシカかよっ！！

0115デフォルトの名無しさん

NGNG

>>113
そんなこという人嫌いです

0116デフォルトの名無しさん

NGNG

>>115
直らないから仕様って言うんですよ

0117113

NGNG

>>115
(ﾟДﾟ)ﾊｧ?

>>116
要するにバグなのか？一応Del6Pro(Update2)なのだが。

まあ、ブレークポイントを詳細設定でブレークしないように設定すれば
ブックマークの代わりになるのでとりあえずこれで良しとした。

0118ななしヘタぐらま ◆B18Bks.Y

NGNG

>>52
'%2.2d'じゃなくて'%.2d'が正当なのでは？
ピリオド『.』が０で埋める指定，２が桁数．
'%2.2d'としたときは最初の２は無視されているだけだと思う．

※ヘルプの d の説明，デフォルトでアキを0埋めるみたいにとれるから不適切じゃないかな．

>>66
プログラミング初心者，特に文系人間には
概念だけ教えられても「はぁ？」ってところはありますよね．
実例を一通り見せてくれないと何がなんだかｻﾊﾟｰﾘ．
ここはそんな方々を救済する場なのね．

0119デフォルトの名無しさん

NGNG

(ﾟДﾟ)

0120デフォルトの名無しさん

NGNG

浮動小数点型用　　　　　：FloatToStrF,FloatFormat
日付型用　　　　　　　　　：DateTimeFormat、DateTimeToString
整数型用と文字列型用　：Format,FormatBuf
（他にもある）

正直、DelのFormat関数系はわかりにくい。数が多すぎ。
特にVBからの移行組はそう思うだろう。
せっかく関数オーバーロードが使えるようになったのだから、（ある程度）一本化してくれりゃいいのに…

0121デフォルトの名無しさん

NGNG

関数や手続きの呼び出しにかかる時間を測定したいときなどは
どのコンポーネントを使えばよいのでしょうか？

0122デフォルトの名無しさん

NGNG

Turbo Profiler

...ってのは嘘でQueryPerformanceCounter/Frequency Win32API

0123デフォルトの名無しさん

NGNG

ストップウォッチ！

0124デフォルトの名無しさん

NGNG

function TForm1.Button1Click(Sender:TObject);
var
　　Time:Cardinal;
　　Count:Cardinal;
begin
　　Count:=0;
　　Time:=GetTickCount+1000;
　　
　　while GetTickCount < Time do
　　begin
　　　　TestFunction;//テスト対象関数
　　　　Inc(Count);
　　end;
　　
　　ShowMessage(IntToStr(Count));
end;

多少問題がある方法だが、厳密な測定が不要な場合はこれでいいでしょう。

0125中日ファン＠地方巡業中モード ◆DRAG8zBg

NGNG

>>118
やっぱり突っ込まれたか・・・それでもちゃんと動くから気にしてなかったんだけど

0126デフォルトの名無しさん

NGNG

>>123
なるほど！て・・
>>124
ありがとうございます。

いろいろ検索してこういののはありましたがエラーが出てしまいました。
http://www.nifty.ne.jp/forum/fdelphi/faq/00020.htm

0127デフォルトの名無しさん

NGNG

IndyのTIdHTTP使ってるんだけどGetするとメインスレッドが止まっちゃう。
小さいデータならいいんだけど、5秒以上かかると「ん？」と思っちゃうので
別スレッドで処理したんだけど効果なし。
OnWorkにApplication.ProcessMessages入れても処理が重く感じる。

なんか軽く見せかけるいい方法ないですかね？

0128中日ファン＠地方巡業中モード ◆DRAG8zBg

NGNG

>>127
TIDAntiFreezeはどうでしょ？（まだ自分で使ったことはないのですが）

0129124

NGNG

>>126
漏れの方法は一秒間に何度関数が実行できるかのテストだが、
その方法は関数実行に何msecかかるかのテスト。
つまりその関数の実行に1msecかからないのなら、結果は0になる。
しかもGetTickCountは精度が悪い。（MMSystem.TimeGetTimeは精度こそ高いがGetTickCountと同じ機能。）

そのアプローチで逝くなら122方法がよいと思われ。
procedure TForm1.Button1Click(Sender: TObject);
var
Freq,TimeS,TimeE:Int64;
begin
QueryPerformanceFrequency(Freq);
QueryPerformanceCounter(TimeS);
TestProcedure;//テスト対象関数
QueryPerformanceCounter(TimeE);
ShowMessage( FloatToStr( (TimeE-TimeS)/Freq ) + 'sec' );
end;

0130デフォルトの名無しさん

NGNG

Formから、スレッド内の変数を操作することは出来ますか？

0131教えて君

NGNG

動的配列で使える、 UniqueString と同等の手続きってありますか？
お願いします。

0132121

NGNG

>>129
おお、これはすごい。
出てきた数値も正確っぽい。
ありがとうございます。

他にレス付けてくれた方もありがとうございました。
勉強になりました。

0133デフォルトの名無しさん

NGNG

列挙型でいくつかの型が定義されている場合に、
ComboBoxのＩｔｅｍＩｎｄｅｘの値を元に、変数にその列挙型の値を
保存したいのだけど．

安易に

変数 := 列挙型(ItemIndex);

と型キャストするもん？なんか気持ち悪くて．
かといって、

case ItemIndex of
Ord(A): 変数 := A;
Ord(B): 変数 := B;
Ord(C): 変数 := C;
・・・
end;

と毎回やるのも冗長な気が．項目数多いと大変だし．

こういう処理のセオリーってなんかありますか？
変数をＩｎｔｅｇｅｒで保存すると、あとでその値を判定する際に
マジックナンバーになっちゃったりするのでパスの方向で・・・．

0134デフォルトの名無しさん

NGNG

FloatToStrFで、FormatにffGeneralを指定したときの
Digitsの役割が分かる人いませんか。
Digitsを変えながらいろんな数値を表示してみたんですが、変化が無いのです。

0135デフォルトの名無しさん

NGNG

>>133
最初の手法で全く問題ありません。
Delphiは型キャストしやすいように出来ています。

0136134

NGNG

ﾑｷｰｯ

　　ドカ　　　　ドカ！　　　ドカーン！
　 ( ⌒ )　　((⌒⌒)) 　((⌒⌒⌒))
　　| | |　　　　| | |　　　　 | | | |
　( ﾟдﾟ)　　(( ﾟдﾟ))　　((( ﾟдﾟ)))

ランダムな実数で何百万回試しても、Digitsによる違いが無い！

0137デフォルトの名無しさん

NGNG

>>133 >>135
漏れもこれはいつも悩んで、結局気持ち悪いけど型キャスト使ってた。
でも何度もキャストしてると精神衛生上よくないないんで、

function IntTo列挙型(I:Integer):列挙型;
begin result := 列挙型(I); end;

って関数つくって我慢してます。

0138134

NGNG

「違いの分かる男」募集。

0139デフォルトの名無しさん

NGNG

>>137
どうせ関数にするのなら、範囲チェックを加えてはどうでしょうか？
これだとバグが探しやすくなります。

function IntTo列挙型(I:Integer):列挙型;
begin
　if (Low(列挙型) > I) or (I > High(列挙型)) then
　　raise ERangeError.Create('Integer→列挙型の変換エラー');

　result := 列挙型(I);
end;

逆に、単にキャストして返すだけの関数なら、
(Pascal構文ではキャストと関数呼出しの区別がつかないので)
要らない気が。

0140デフォルトの名無しさん

NGNG

>>134
ヘルプより
＞Digits パラメータには指数部の最小桁数（0 以上 4 以下）を指定する

これ以上のどういう情報が必要？

0141デフォルトの名無しさん

NGNG

作ったアプリが異常にリソースを消費するのですが．．．。
起動しただけで２０％消費し、ページコントロールのタブシートを
クリックしていくと最大で３７％消費します。（子フォームは作成していません）。
デバッグ中にリソースが０になってシステム（WinMe)ごと落ちることもしばしばです。
コンポーネントを使いすぎるとこうなるのでしょうか。
ソースファイルの大きさにも関係ありますか？

0142デフォルトの名無しさん

NGNG

>>141
コンポーネントが多いとそんなものです。仕方がありません。
ですが、その話ではさすがにリソース消費量が多すぎると思います。
コンポーネントの動的生成等、節約するコツを覚えた方がいいと思います。

当然ながら、WindowsNT系だとそんな心配はあまりいりませんので
対象OSを変えるのも手です。

0143デフォルトの名無しさん

NGNG

>>141 ページコントロールを使うと　見えてないWinコントロールもリソースを消費してしまいます

ページコントロールの切替に応じて、リソースを一時的に返還させる事が出来れば良いのですが
Winコントロールが持っている値の多くは Windowsと通信して得なければいけませんから
それも難しいかもしれませんね

0144134

NGNG

>>140
その部分、わからないです･･･。予想した動作はあったんですが違いました。
何か1個Digitsで変わる数値の例を教えてもらえないでしょうか。

0145デフォルトの名無しさん

NGNG

>>144

＞最短の 10 進文字列に変換される＋Digits パラメータには指数部の最小桁数（0 以上 4 以下）を指定する
だから、桁数は指定する・・例えば4を指定すれば 1E1は 1E+001　のようになる筈だけど

それよりも最短である事が優先されるから　効果は無いという結論に

0146デフォルトの名無しさん

NGNG

ffExponentもDigitsを見てない気がする。

0147デフォルトの名無しさん

NGNG

最近のwoodyって日本語が化けないか？

0148デフォルトの名無しさん

NGNG

>>147
誤爆でした。m(．。)m

0149デフォルトの名無しさん

NGNG

>>147
DebianとDelphiの見間違いですか?

0150デフォルトの名無しさん

NGNG

>>149
名前ってより、たまたま開いていたのがdebianスレとココだったんで間違いました。ｍ(．．)ｍ
確かに、微妙に見た感じは似てますが・・・。

0151デフォルトの名無しさん

NGNG

雑談は、よそでやってくれ！LINUX使いとVB使いは逝ってよし。

0152デフォルトの名無しさん

NGNG

>>151
Linux使いは仲間に入れてくれよ・・・
ここでコッソリいつも見てるんだから　＜kylix

0153デフォルトの名無しさん

NGNG

>>151
VB使いは理解できるが、LINUXはOSなわけで、
VBとDelphiの比較とは全く違うと思うけDO!!!

0154134

NGNG

>>145
そう、単純にそれ（指数部の桁数が変わること）を予想していたんですが、変わらないんですよね。
わざわざ値の範囲も指定しているから、意味が無いことはないだろうと思い、いろいろ試してました。

ﾑｷｰｯ意味無いのか！？
　　ドカ　　　　ドカ！　　　ドカーン！
　 ( ⌒ )　　((⌒⌒)) 　((⌒⌒⌒))
　　| | |　　　　| | |　　　　 | | | |
　( ﾟдﾟ)　　(( ﾟдﾟ))　　((( ﾟдﾟ)))

0155134

NGNG

>>141
隠れたタブのウィンドウコントロールは非表示にしてCM_RECREATEWNDをPerformすると、
ハンドルを解放してリソースにやさしくなれますよ。
足りないのがGDIリソースなら、また別の工夫が必要Ð ë á t h。

0156デフォルトの名無しさん

NGNG

>>151
貴様！Kylix使いを敵に回すつもりか（ｗ

0157Delモナー ◆fPymXWHY

NGNG

現在Kylixスレが落ちてしまっているので、
このスレでKylixの質問をしてもいいと思われ。

0158デフォルトの名無しさん

NGNG

Delphi関連の本が書店にあんまり置いてない・・・
ほとんどＣ言語とＶＢばっか。

0159デフォルトの名無しさん

NGNG

>>158
大須で売ってたYO!
丸善にも売ってた。

0160デフォルトの名無しさん

NGNG

どっちかと言えば最近は増えてきた気がするけどな、Ｄｅｌ本．

0161デフォルトの名無しさん

NGNG

amazon.co.jpに充実してるよ。
ただし立ち読み不可。

0162回し者じゃないアルヨ

NGNG

インプレスだっけか？の、１５０のなんちゃらって本、欲しいなぁ。
けっこう、「こーやるのは、こーだ！」って感じで読みやすかった。
立ち読みで暗記してやろうかと思たヨ。
しかし、なんであんなに高いんだか…。
貧乏人には本に３０００円以上出すのはためらわれるアルヨ。

0163Delフサギコ ◆zE1iiRdQ

NGNG

　　,,,,,,,,,,,,,∧,,∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,ミ,,ﾟДﾟ彡＜　好きな事に3000円くらいは出した方がいい
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
いくら貧乏人でもね

最近、読む暇がイッコもないよ。トホホ

0164デフォルトの名無しさん

NGNG

あのさ、似たような内容の本が乱立していて、結局どれを読んでも
同じことしか書いていない言語と、
最初に覚えるべき内容が小数の本にきっちり詰まっていて、すぐに
実作業に入れる言語とでどっちを選ぶよ？

0165デフォルトの名無しさん

NGNG

独習C#買った。
ハーバート･シルトが独習Delphiを書いてくれれば初心者向け文法解説は一発で済むんだけどなあ。

0166デフォルトの名無しさん

NGNG

新しい書き込みがあったのでageます。

0167デフォルトの名無しさん

NGNG

Delphiの知識なんてアプリオリに備わってんだから本なぞいらん

0168デフォルトの名無しさん

NGNG

Memo1.Lines[n]
n行目の文字列を全て選択状態にしたいときは
どうしたらよいのでしょうか？

0169デフォルトの名無しさん

NGNG

>>168
Memo1.Select.All(Memo.Lines[n])

0170デフォルトの名無しさん

NGNG

SelStart
SelLength
を使う

0171デフォルトの名無しさん

NGNG

１．どうもＧＰＬだのＧＮＵだのがよく分からない。簡単に言うとどゆことなの？

２．TUIWebBrowserがインストール出来ないので（vclusrがどーのこーの怒られる）、
EmbeddedWbってのをＤＬしたんだけど、これってくだんのＧＰＬだかＧＮＵなのかな？

0172デフォルトの名無しさん

NGNG

＞171の１
お前のものは俺のもの
俺のものは俺のもの

0173デフォルトの名無しさん

NGNG

>>171
http://hogehoge2001.tripod.co.jp/note-delphi.html
UIWebBrowserは、このサイトの言うとおりに
SHDocVw_TLBに書き直してみたらインストール出来た気がする。
ちなみに、Delphi6Personalです。

0174デフォルトの名無しさん

NGNG

>>171
http://piza2.2ch.net/tech/kako/1001/10010/1001035627.html

んで自分の覚えだとrequiresコンパイル指令をてきとーに書き換えた。
SHDocVw_TLBも要るね。

0175１７１

NGNG

>>172
うーん。言いたいことは分かる気がする（＾＾；。よーするに、「これ使ったら
ソース開示しろよ！」ってことなのかな？って勝手に思ってたんだが…違うかな。

>>173
どもです。過去ログ読んで、それ試してみたんです。そこ（SHDocVw_TLB）は
パスしたんですけど、「vclusrが作成出来ない（かな？）」って怒られるんですよ。
トホホ。ま、違うの試したいと思ってますが…。

0176１７１

NGNG

>>174
すれ違っちゃいましたね…。

ところで、UIWebBrowserの作者さんのページは作者さんが作ったエディタで
作ってるんですよね。
あの…「なんとも言えない雰囲気」の…。微妙にカラーリングが…。
バックと文字の色と大きさの…。
いえ、別にだからなんだっていうワケじゃないんですが（＾＾；。

0177デフォルトの名無しさん

NGNG

>>176
俺もはじめて行ったときは、クラクラした。

0178173

NGNG

こんな事でつまずいたの俺くらいだろうけど、ついでだから書いておく。
[フォルダにパスを通すの巻]
コンポーネントを追加する際、コンポーネントの置いてあるフォルダにパスを通して置かないと、
そのコンポーネントを実際に使ってコンパイルする際に何とかが無いとかって怒られます。
パスを通す方法は、メニューの[ツール | 環境オプション]を選択して、
現れたウインドウのライブラリタブを選択、ライブラリパス(B)：の右の[...]ボタンを押す。
で、現れたウインドウの真ん中あたりの右端にある[...]を再び押す。
で、コンポーネントの有るフォルダを選択して、あとは[OK]を押していって閉じる。
これでOKです。
と。

0179デフォルトの名無しさん

NGNG

Σ(ﾟДﾟ)

0180173

NGNG

追記！
最後[OK]押す前に[追加]押さなきゃダメです。

0181デフォルトの名無しさん

NGNG

>>178
よくわからんが、意気込みは気に入った！

0182デフォルトの名無しさん

NGNG

Σ(ﾟДﾟ)

0183173

NGNG

Σ(ﾟДﾟ)

0184デフォルトの名無しさん

NGNG

Σ（´Д｀ｽﾞｶﾞｰﾝ

0185Delフサギコ ◆zE1iiRdQ

NGNG

　　　　　　
　　 ∧,,∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　＜　・・・・・
　　 U　　つ∀　＼＿＿＿＿＿＿＿＿＿＿＿＿
　～ﾐ　　ﾐ　┴
　　 ∪''∪　
　　その昔、そちらのHTMLEditorの使い勝手にも
　　クラクラきたような気がするです。確か
　　>>176-177

0186Delフサギコ ◆zE1iiRdQ

NGNG

　　　　　　
　　 ∧,,∧　　　／>>178そうすると
　　ミ,,ﾟДﾟ彡　＜　コンポーネントをフォルダごとに
　　 U　　つ∀　＼管理しようとすると
　～ﾐ　　ﾐ　┴　　　大量のパスを通す事になって鬱になる罠
　　 ∪''∪　

その罠を回避するには
Packageを作って、各フォルダあるコンポを追加して
Packageのユニット出力ディレクトリを指定して
そこだけに環境オプのライブラリパスを通せば
沢山のコンポをひとつのライブラリパスで
管理できます。

>>173、みんな通ってきている道だと思われ

0187デフォルトの名無しさん

NGNG

>>176
あれって、全然説得力無いような・・・。
宣伝よりむしろマイナスになっているような・・・。

0188デフォルトの名無しさん

NGNG

TUIWebbrowser のサイトってどこ？
気になる…

0189173

NGNG

>>Delフサギコさん
なるほど、そんな方法が有ったんですね。
勉強になったです。
Packageとか作ったこと無かったので思いつかなかった…

>>188
一応誤解の無いように言っておくと、UIWebBrowser自体は、
とても優秀なコンポーネントです。

0190デフォルトの名無しさん

NGNG

ガイシュツかもしれぬが聞いてみる
TCustomGrid（とその継承オブジェクト）の
インプレースエディタの替わりにドロップダウンコンボやチェックボックスを利用する方法教えてくれよぉ

0191Delフサギコ ◆zE1iiRdQ

NGNG

　　 ∧,,∧　　　／
　　ミ,,ﾟДﾟ彡　＜　蛸薬師へ逝ってよし
　　ﾐつ　つ゛　　＼UIWebBrowserはデフォで
　＠ﾐ　　ﾐ　　　　　ｲﾝｽﾄしていい感じのｺﾝﾎﾟです。
　　 ∪''∪　　
　…あのページは...ある意味ｻｲｹなセンスがあるかも…
　　　70年代ﾁｯｸなのだろうか。

>>189さん
がんばってください。相当試行錯誤しました。
いまだに、TGIFImageとか特定のｺﾝﾎﾟ(どうやらFormを含むｺﾝﾎﾟ)だけは
ｺﾝﾎﾟｰﾈﾝﾄフォルダにﾊﾟｽを通さなければならなかたりしたり…
します。
実際に設定するとき、ややこしいﾄｺもあるので
また言ってくださいまセ

>>190さん
DelphianでMOStringGridを見たらいいんでないかしら？

0192デフォルトの名無しさん

NGNG

>ﾌｻｷﾞｺ
>MOStringGrid
さっき見たのだがDCUしか付いていない（しかもDel5用まで）
Del6使いなのでソースがないとお手上げだ( TДT) ｺﾞﾙｧ！

0193デフォルトの名無しさん

NGNG

UIWebbrowser サイトみたけどさー
もう少しデザイナーとしての才能のかけら、いや、
微塵ぐらい見えてもいいんじゃないかしら。
たとえ本職がプログラマでも…

0194デフォルトの名無しさん

NGNG

>>193
二年前の折れのページよりはマシ。

そんな事より、Delphiって将来性あるかな？

0195デフォルトの名無しさん

NGNG

あのう、コンソールアプリで以下のようなコードを書いたのですが、
エラーが発生してしまうのです。
TStringList に手続き番号および、手続きを登録します。
で、入力された手続き番号に対応する手続きを呼び出すというものなのですが…

{ 手続き番号 }
const ProcID1 = 1;
const ProcID2 = 2;

{ 手続き }
procedure Proc1; begin WriteLn('Proc1 Called.'); end;
procedure Proc2; begin WriteLn('Proc2 Called.'); end;

{ 手続きの型 }
type TProc = procedure;

{ 手続きリスト }
var ProcList:TStringList;

{ リストに手続きを追加 }
procedure AddProc(ID:Integer; Proc:TProc);
begin
ProcList.AddObject( IntToStr(ID), @Proc);
end;

{ 指定番号の手続きを得る }
function GetProc(ID:Integer):TProc;
var
I:Integer;
P:Pointer;
begin
I := ProcList.IndexOf( IntToStr(ID) );
P := ProcList.Objects[I];
Result := TProc( P^ );
end;

{ １か２を入力すると、対応する手続きを呼び出す }
var
I: Integer;
Proc: procedure;
begin
ProcList := TStringList.Create;
AddProc( ProcID1, Proc1);
AddProc( ProcID2, Proc2);

ReadLn(I);
Proc := GetProc(I);
Proc;
ReadLn;
end.

0196デフォルトの名無しさん

NGNG

そういえば、
function Hoge: procedure;
と宣言されている場合に

Hoge;

と書いた場合、Hogeによって返された手続きは実行されるのだろうか…
Hogeによって返される手続きが引数を持つ場合は

Hoge;
と
Hoge(Param);
で違いが生じるけど。

明確にするには、単に Hoge 関数を実行するだけなら
Hoge;

Hogeによって返された手続きを実行したいのならば
Hoge();

と書くしかないのかな。

0197デフォルトの名無しさん

NGNG

いや Hoge() だと、
"Hogeによって返された関数()"
ではなく、"Hoge() によって返された関数"　になるのか…

とすると、

Hoge()();

とかくのが正しいのかな？

0198デフォルトの名無しさん

NGNG

もしくは (Hoge)() とか…

0199デフォルトの名無しさん

NGNG

あれ？これだけでも「互換性がありません」といわれる…

type TProc = procedure;

procedure Proc;
begin
　WriteLn( 'PROC CALLED.' );
end;

function GetProc:TProc;
begin
　Result := Proc;
end;

var
　P:TProc;
begin
　P := GetProc;
　P;
　ReadLn;
end.

0200デフォルトの名無しさん

NGNG

P := GetProc;

を、

P := GetProc();

としたらコンパイルできた。どうしてだろう…

0201無責任だが

NGNG

function GetProc:TProc; 　のように訳が判らなくなる関数を書かない方がいい　やりたいなら

procedure GetProc(var ret:TProc);　のようにして retで返すようにする方が判り易いだろう

0202デフォルトの名無しさん

NGNG

　　　　貴様の将来性は貴様次第
　　　　Delphiの将来性も結局貴様次第>>194

　　　￣￣￣￣￣￣)ノ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　 Å,,,,,Å
　　　　　　ﾐ悲Дﾟミ　　　　　　　　　γ　　　　　　γ
.　　　　　ﾐ(ﾞﾞ"~Ｈ~)　　　　　　　　　　　　γ
　　　　ﾐミ| 　｜｜　　　　　　　　　　......................................
　　　　彡ﾐ（＿__）._）　　　　　　　　 .::::::::;;;;;;;;;;;;;;;;;;;;;;;;;;;;::::........
　　　　 ~"''"""゛"゛""''･、　　　 ...:::::;;;''　　　　　　　　';;;:::::.......
　""゛""''""""゛゛""''' "j'　　　...::::;;;''　　　　　　　　　　 '';;;::::::.........
　:::::ﾍ　:::::....ヽ :::;;;ﾉ　 ::(　　....::::::;;　　　　　　　　　　　　　 '';;;::::::::::.......
　::　ゝ　　:::::......ﾉ:;;..／　　~~^^　~~~~~^^^~　　~~^^~~~^ ~~~^^~~~~

0203デフォルトの名無しさん

NGNG

>>202 つれたよ　ケケ！

0204194

NGNG

>>202
あー、なるほど。レスｔｈｘ。

0205デフォルトの名無しさん

NGNG

ラベルコントロールなどで、数値項目をFormatFloatを使用して３桁毎に区切って
表示したのですが、その項目（Caption）をStrToIntで変換して使おうとすると
カンマが邪魔して変換できません。なにか良い方法はございませんでしょうか。

0206デフォルトの名無しさん

NGNG

>>205
変換する元の数字使えば？

0207デフォルトの名無しさん

NGNG

カンマが邪魔なら
削除すればいい。
それぐらいは思いつくんでないかい？

0208デフォルトの名無しさん

NGNG

>>162-163
ちょうど昨日買ってきてたよ。
知ってたところもあるけど、けっこう知らなかったこともいろいろあって
まだまだ初心者な漏れにはいいと思った。
インターネットの章がちょっと寂しすぎる気もするが・・・・。

DelフサギコがDelphi相談室の方で聞いてたFDDのエラーの回避法も載ってたよ(笑
ちなみに、2800円だから、3000円以上出す必要は無いよ（w >>162

0209173

NGNG

>>191
フサギコさん
なるほど。色々とあるのですね。
とりあえず、色々やってみますです。

0210nanasi

NGNG

２バイト文字に対応した RightStr ってどうすれば良いですか？

Right('ばかまるだし',3)

とすると、「ｾし」となってしまします。
「るだし」にしたいのですが。

0211デフォルトの名無しさん

NGNG

>>210
そう言う用途ならWideString使えば(･∀･)ｲｲ

0212デフォルトの名無しさん

NGNG

DirectXインストールできなくて鬱・・・

Delphi6.0を昨日ボーランドからダウソしてインストールしたんだが
とりあえず何をすればいいのかわからん・・・（プログラミングした事無し）
どこかわかりやすいページあったら教えてください。

0213デフォルトの名無しさん

NGNG

function Right(Str:widestring; Count:Integer):string;
begin
　Result := Copy(Str, Length(Str)-Count+1, MaxInt);
end;

0214195

NGNG

どなたか >>195 の謎について教えてください…（；´Д｀）

0215デフォルトの名無しさん

NGNG

{ 指定番号の手続きを得る }
function GetProc(ID:Integer):TProc;
var
I:Integer;
P:Pointer;
begin
I := ProcList.IndexOf( IntToStr(ID) );
P := ProcList.Objects[I];
Result := TProc( P );
end; ↑^がいらないのでは。

0216Delフサギコ ◆zE1iiRdQ

NGNG

FDDのエラーの回避法も載ってたよ(笑
　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　／
　ミ；ﾟДﾟ彡＜　なんですとーーー・
　ﾐつ　つ　＼
～ﾐ ,,　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　 ∪∪　　　やっぱTips本は
　　　　　　　何冊でも欲すいね。
　ｴｷｽﾊﾟギグの8000円超えはちょっと買わなかったんだけど...

> function RightStr(const AText: string; const ACount: Integer): string;
> begin
> Result := Copy(WideString(AText), Length(WideString(AText)) + 1 - ACount, ACount);
> end;
RightStrはVCLで元々WideString扱いされると思うのだけど。。。
VB互換関数ってことじゃなかったかな？

>>212
本買ってきた方がいいとおもうよ。

0217195

NGNG

>>215
あああああああ
本当だ…
Pの指す物を TProc と解釈させると言う意味だと思ってました。
そういえば手続き型はポインタであるとヘルプに書いてありましたね。

どうもありがとうです！

0218195

NGNG

たびたびすみません.

TProc 型を procedure of object にかえると
以下のコードの Proc2 := TProc( P ); の部分でコンパイルエラーが起こるのですが…
なぜなのでしょうか？？

type
　TProc = procedure of object;
　THoge = class
　　procedure Proc;
　end;

procedure THoge.Proc;
begin
　WriteLn('HELLO');
end;

var
　Test:THoge;
　P:Pointer;
　Proc1, Proc2: TProc;
begin
　Test := THoge.Create;
　Proc1 := Test.Proc;
　P := @Proc1;
　Proc2 := TProc( P );
　Proc2;
　ReadLn;
end.

0219デフォルトの名無しさん

NGNG

メソッド型はポインタ型にはキャストできない。
TMethodをヘルプとかで調べると意味がわかるかと。

0220デフォルトの名無しさん

NGNG

直接出来ないのなら、
TMethodRec = record
　Method:TProc;
end;
PMethodRec = ^TMethodRec;
として、

var
　P :TMethodProc;
　Ptr:Pointer;
　Proc:TProc;
begin
　New(P);
　P^.Method := Hoge.Proc;
　Ptr := P;
　Proc := PMethodRec(Ptr)^.Method;
　Proc;
end.

ではどうだろう…
やってみよっと。
　

0221nanasi

NGNG

>211,>213

さんくす。素晴らしい。

0222中日ファン＠横浜さんが好きモード ◆DRAG8zBg

NGNG

>>195　結構面白かったですよ（PProc=TProc^ではうまくいかなかったとか・・・）
以下のコードはちゃんと動くと思います
const ProcID1 = 1;
const ProcID2 = 2;
type
　TProc = procedure;
　TProcObject = class
　private
　　FProc: TProc;
　public
　　constructor Create(aProc: TProc);
　　property Proc: TProc read FProc write FProc;
　end;
constructor TProcObject.Create(aProc: TProc);
begin
　FProc:=aProc;
end;
procedure Proc1; begin WriteLn('Proc1 Called.'); end;
procedure Proc2; begin WriteLn('Proc2 Called.'); end;
procedure AddProc(ProcList: TStringList; ID:Integer; Proc:TProc);
var
　ProcObject: TProcObject;
begin
　ProcObject:=TProcObject.Create(Proc);
　ProcList.AddObject( IntToStr(ID), ProcObject);
end;
function GetProc(ProcList: TStringList; ID:Integer):TProc;
var
　I:Integer;
begin
　I := ProcList.IndexOf( IntToStr(ID) );
　Result:= TProcObject(ProcList.Objects[I]).Proc
end;
procedure ReleaseProcList(aProcList: TStringList);
var
i: Integer;
begin
for i:=0 to aProcList.Count-1 do
　aProcList.Objects[i].Free;
aProcList.Free;
end;
var
　ProcList:TStringList;
　ProcID: Integer;
　Proc : TProc;
begin
　ProcList := TStringList.Create;
　AddProc(ProcList, ProcID1, Proc1);
　AddProc(ProcList, ProcID2, Proc2);
　repeat
　　ReadLn(ProcID);
　until (ProcID=1) or (ProcID=2);
　Proc := GetProc(ProcList, ProcID);
　Proc;
　ReleaseProcList(ProcList);
　Readln;
end.

0223デフォルトの名無しさん

NGNG

命令と命令の間を時間をあけたいのですが、どうすればよいのですか？

0224デフォルトの名無しさん

NGNG

５秒待ち
n := GetTickCount;
while(GetTickCount - n < 5000);

0225中日ファン＠横浜さんが好きモード ◆DRAG8zBg

NGNG

あれ・・・もう解決してたのか・・・

0226デフォルトの名無しさん

NGNG

>>224
ビジーループやめれ（´д｀；）
Sleep(5000);とか
(スレッド止まるが)

0227中日ファン＠横浜さんが好きモード ◆DRAG8zBg

NGNG

>>195
おかげでTStringList.AddObjectのAObject引数に
ただのポインタでも入れられることを知りました・・・今まで試したことなかった

サンクス

0228今レス読んでる途中

NGNG

>>208
いや、「プログラミング関係の本は大抵３０００円あたり～上はキリ無し」
だって意味だけど。
その本が３０００円とは書いてないんだが。
あまり面白くないツッコミはしないように。

0229デフォルトの名無しさん

NGNG

じゃあつっこまれるような文章書かないように。

0230デフォルトの名無しさん

NGNG

>>229
ＭＳみたいな論法だな（藁

0231デフォルトの名無しさん

NGNG

>>228 あの文章からどうすればそう解釈できるのかー

0232デフォルトの名無しさん

NGNG

228=230 (ﾋｬｸﾊﾟｰ)

0233デフォルトの名無しさん

NGNG

（´-`）。o ○ （つまんねーことウダウダやってんなよガキ）

0234デフォルトの名無しさん

NGNG

ｵﾔｼﾞがAA使ってんなよ。ｷﾓ

0235デフォルトの名無しさん

NGNG

personal出てからお子ちゃまが増えつつあるな...
俺はもうC#逝くからどうでもいいが

0236デフォルトの名無しさん

NGNG

（´-`）。o ○ （オイ、この寒いツッコミくらって激しくむかついてるらしい
ガキ(229=231=232=234)をどうにかして、delphiの話に戻してくれよ（藁）

0237デフォルトの名無しさん

NGNG

ﾊﾞｲﾊﾞｲ

0238デフォルトの名無しさん

NGNG

>>233　>>236
無視できないの？大人気ない。
そういうレスが一番ガキを呼び込んでしまうのがわからないのか･･･。

0239デフォルトの名無しさん

NGNG

>>238
ってレスをすることによって執着しなくなることが分からないのか…。

0240デフォルトの名無しさん

NGNG

執着しなくなるって？

0241２３９

NGNG

終着だ（藁

0242238

NGNG

　231=232=234=237ﾃﾞｼﾀ!

0243デフォルトの名無しさん

NGNG

ガキはほっとけ。

0244Delフサギコ ◆zE1iiRdQ

NGNG

　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　|　208=229かしら。
　＼＿　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　|/
　　 ∧,,∧
　　ミ,,ﾟДﾟﾐy━~~
　　 U　　ﾐ
　～ﾐ　　ﾐ
　　　Ｕ''Ｕ
　その本に載っているって事は、結構、ﾎﾟピﾗｰなTipsなのかと
　思ってTipsサイトを検索してみたらBorの
http://www.borland.co.jp/qanda/delphi/d0000064.html
http://www.borland.co.jp/qanda/delphi/d0002383.html
　"しか"ヒットしなかった(FDELPHIもあったけどね)
どっちも微妙に俺の欲しいTipsとは違ってた。

ほかの場所では扱ってないTipsが載っているのは
なかなかよい本のようですね。

0245デフォルトの名無しさん

NGNG

Tipsって、どうなんだろう。先に作ったから他の誰も載せるなって
主張が通っちゃうと変な気もするし。
かといってコピペ掲載しほうだいなのも変だし。

0246デフォルトの名無しさん

NGNG

Tips ってつくるもんなんか

Tipsの著作権主張するくらいなら、はじめから公表するな
Tips本は暇があって、WEBにアクセスできればだれでも書けそう

まぁ、Tipsは陳腐化した時点でTipsでなくなるが

0247デフォルトの名無しさん

NGNG

使用許諾コードって作成したexeに埋め込まれてるのかな？

0248デフォルトの名無しさん

NGNG

こういうのってエラーの原因になることって有りますか？
全く問題無いですか？
Node.data := Pointer(2); //NodeはTTreeNode
こういう風にポインタに整数を格納して、
別の手続きで
if Node.data = Pointer(2) then
て感じで使うの。
または、
i := integer(P); //PはPointer
URL := SL1.Strings[i]; //SL1はTStringList;
みたいな感じ。
とりあえず、これが原因のエラーは起きていないみたいだけど。
型キャストしたintegerが、そのまま別の手続きでも取り出せるから
便利で使ってしまっているのだけれど。

0249デフォルトの名無しさん

NGNG

>>244
「クラスを作りたい」の難易度が４／５だから
入門者が２冊目に買うにはいいかも
たぶんそれ以上の人には物足りないかも

0250デフォルトの名無しさん

NGNG

>>248
君とは仕事したくない。

0251248

NGNG

>>250
大丈夫。
趣味でやってるだけだから。
まだ、フリーソフトとか作ったことないけど、
作るとしても怪しげなコードを含むものは出さないよ。
てか、やっぱまずい？

0252デフォルトの名無しさん

NGNG

行儀の悪いコードの典型じゃない？
自覚しているならやめておいたほうがスマートかと。

0253248

NGNG

>>252
なるほど。
とりあえず、見本と呼べるようなエレガントなソースを一度見てみたい。
どこかに無いですか？
あんまり長くないやつで、とりあえずこれで動くよってのじゃなくて、
例外処理とかもちゃんとしてあるやつ。

0254デフォルトの名無しさん

NGNG

>>253 VCLのソースを見たら？　あるいはソース付きのフリーコンポーネントとか

0255デフォルトの名無しさん

NGNG

先生！>>169がうまくいきません

0256デフォルトの名無しさん

NGNG

なぜなら、そんなメソッドもプロパティも存在しないからだ。

0257中日ファン＠今日はお休みモード ◆DRAG8zBg

NGNG

>>255(=168？)
procedure TForm1.SelLine(aMemo: TMemo; aLine: Integer);
const
　nEOL = 2;
var
　i: Integer;
　nStart : Integer;
begin
　nStart:=0;
　for i:=0 to aLine-1 do
　　nStart:=nStart+Length(aMemo.Lines[i])+nEOL;
　aMemo.SelStart:=nStart;
　aMemo.SelLength:=Length(aMemo.Lines[aLine]);
　aMemo.SetFocus;
end;
ちょっと鈍くさいかも知れんけど・・・とりあえず動きます

0258デフォルトの名無しさん

NGNG

グリッドの内容を一発でクリアする事はできないのでしょうか？

0259デフォルトの名無しさん

NGNG

>>258
Grid.free();

0260デフォルトの名無しさん

NGNG

>>259
freeで開放したのち、Createでグリッドを作成しなおすのでしょうか？
VBだとGrid.Clearで空のグリッドができたのですが...

0261デフォルトの名無しさん

NGNG

＝使えねぇーーー。

0262デフォルトの名無しさん

NGNG

>>260
DelphiはVBと違ってまともなコンパイラですから1個づつクリアして下さい
　そうしたからといって別に遅くなる訳ではありませんから

0263デフォルトの名無しさん

NGNG

>>260
よく解らないのですが、貴方にとってFree; Create; に何か問題があるのでしょうか？
ならば、262氏が語っているように、１つづつクリアして行く方法もありますが、こっちの
方がVBに慣れた人には苦痛でしょう、より多くのキーパンチを必要としますから。

私の場合は、セル１つづつクリアしていては面倒なので行単位で消します。
もっと云えば、クリアする時＝次のデータが入ったときと考えると、
差分の行だけをクリアすれば良い事になります、この辺りを考えるのが
面倒なら free; create; した方がバカチョンで消せるので楽でしょう。

クリアする一例
var
　　i:integer;
begin
　　StringGrid1.Rows[0].BeginUpdate;

　　for i:=0 to StringGrid1.RowCount -1 do
　　　　StringGrid1.Rows[i].Text:='';

　　StringGrid1.Rows[0].EndUpdate;

0264デフォルトの名無しさん

NGNG

>>258
for文で消せば？
これが一番楽

0265デフォルトの名無しさん

NGNG

262,263,264の方、ありがとうございました。
Delphiでは263の方の例題のようにやるのが一般的なのですね。
楽なやり方ばかり考えてはダメですね。

0266デフォルトの名無しさん

NGNG

何かキーが押されているか判断するときに、シフトもいっしょに押されているか調べるときには
どうすればいいですか？

0267デフォルトの名無しさん

NGNG

>>266
なんか聞き覚えのある質問だなぁ。

0268デフォルトの名無しさん

NGNG

>>267
どういう意味ですか？

0269デフォルトの名無しさん

NGNG

>>268
過去ログ読めよ(ﾟДﾟ)ｺﾞﾙｧ！　という意味です。

0270デフォルトの名無しさん

NGNG

>>269
なるほど。わかりました。

0271266

NGNG

探したけどなかったです

0272中日ファン＠今日はお休みモード ◆DRAG8zBg

NGNG

>>271
先ずヘルプを調べる（今回は OnKeyDown ）それで分からなかったら質問する
というのが望ましいです

0273266

NGNG

>>272
すみません、ヘルプ読んだんだけど意味がわからなくて（；´Д｀）

0274中日ファン＠今日はお休みモード ◆DRAG8zBg

NGNG

>>273
フォームにエディットとラベルを貼り付けて
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s: String;
begin
if ssShift in Shift then s:='[Shift]+' else s:='';
Label1.Caption:=s+IntToStr(Key);
end;
↑このコードをEdit1のOnKeyDownに書いてください

うまく動作するキーとそうでないキーがあることなども分かると思います
（Tab、CapsLock、テンキーの数字などは駄目だったりとか）

0275266

NGNG

>>274
おぉ、ありがとうございます。

0276デフォルトの名無しさん

NGNG

時々、Ctrl+クリックでも
他ユニットの宣言部に飛んでくれない場合があるんだけど、
どうしてだろう。ちゃんとパスは通っているのに…

0277デフォルトの名無しさん

NGNG

http://hogehoge2001.tripod.co.jp/note-delphi.html
で、

Indy

受信中のデータの取出し
TIdHTTP.Getに渡すストリームの Write 関数をオーバーライドすれば適当に取り出せる。

と書いてありますが、オーバーライドとはなんでしょうか？
ストリームとはTStringStreamのことでしょうね。

0278デフォルトの名無しさん

NGNG

>>277
オーバーライド
http://isweb24.infoseek.co.jp/computer/kirip/delphi/override.html

0279デフォルトの名無しさん

NGNG

オバＱ

0280デフォルトの名無しさん

NGNG

280

0281デフォルトの名無しさん

NGNG

Delphiのプロジェクトから仕様書のようなモノを吐いてくれるツールって
ありませんか？
仕事で使うんじゃないんで出来れば、フリーソフトがいいです。
（安ければシェアや製品版でも良いですが）

0282デフォルトの名無しさん

NGNG

（´-`）。o ○ （自分で作るって選択肢は無いのだろうか…）　　　

0283デフォルトの名無しさん

NGNG

>>281
C#には標準でついてるよ。

0284デフォルトの名無しさん

NGNG

http://pasdoc.sourceforge.net/は日本語通るか知らないけどオプソ。
http://www2.big.or.jp/~osamu/Delphi/MyLibrary.htmのUnit Reporterは
非営利なら無料らしい。
ウザイ＞283

0285デフォルトの名無しさん

NGNG

>>282
選択肢としてはあるけど、今は時間ないから。

>>283
C#って素晴らしいのですね。

>>284
ありがとうございます試してみます！

0286デフォルトの名無しさん

NGNG

>>257

procedure TForm1.SelLine(aMemo: TMemo; aLine: Integer);
begin
aMemo.SelStart := aMemo.Perform(EM_LINEINDEX,aLine,0);
aMemo.SelLength := Length(aMemo.Lines[aLine]);
aMemo.SetFocus;
end;

0287中日ファン＠今日はお休みモード ◆DRAG8zBg

NGNG

>>286
サンクス！

0288中日ファン＠もうお休みモード ◆DRAG8zBg

NGNG

>>286
おかげで Messages.pas が宝の山だということに気がつきました

0289中日ファン＠もうお休みモード ◆DRAG8zBg

NGNG

・・・結局はMSDNの世話になるということも分かりました

0290野球はゴミ ◆T.Oo2lOQ

NGNG

>>287
野球馬鹿、１レスにまとめろ。無駄レスすんな。ハゲ。

0291デフォルトの名無しさん

NGNG

Button1を押して行っている処理をButton2を押して終了させるには
どうしたらよいのでしょうか？
また、Button1を押してfot文を行っているとき、
他のボタンからfor文の一回分をスキップさせることは出来ますでしょうか？

0292中日ファン＠もうお休みモード ◆DRAG8zBg

NGNG

>>290
どうして俺がハゲだということを知っている？

0293デフォルトの名無しさん

NGNG

　　　　　　　／⌒彡　　　～　,～
　　　　　　　/　冫、）　　　ξ～~
　　　　　／/　 ` ／)――┛
　　　／　||　　「 |´･･････喧嘩すんじゃねぇ。
　　 < ,　| ||ニ⊃ Ｊ　　_
　　 ,/＿|ｿ　|/￣￣￣ヽ|
　　|　　　　 |: 大江戸 :|
　　`ー――|ヽ. . . . . . ノ|

0294デフォルトの名無しさん

NGNG

素人考えで　for文の中にif文突っ込んでそこで判断すればいいと思うッス。

例えば　ボタン２を押すとフラグが立って、for文の最後では毎回そのフラグをoffにしておく

for i:=0 to 10 do
if flag=true then begin
処理文
end; // if end
flag:=false;
end;//for end

とか

0295デフォルトの名無しさん

NGNG

とおもったけどダメだなこれ

0296素人

NGNG

>>291
自前のフラグ　boolean作って、ループなりなんなりで、
それが立ったら処理やめるって仕様にすんのはどうよ？
Application.ProcessMessages入れてさ。

0297素人

NGNG

かぶった…

ガク…

0298デフォルトの名無しさん

NGNG

　　　　　　　／⌒彡　　　～　,～
　　　　　　　/　冫、）　　　ξ～~
　　　　　／/　 ` ／)――┛
　　　／　||　　「 |´　　　いいじゃねぇか。
　　 < ,　| ||ニ⊃ Ｊ　　_ 　　俺なんかレス書いてる途中で
　　 ,/＿|ｿ　|/￣￣￣ヽ| 　　　　お前のレスだ。
　　|　　　　 |: 大江戸 :|
　　`ー――|ヽ. . . . . . ノ|

0299デフォルトの名無しさん

NGNG

>>291
＞Button1を押して行っている処理をButton2を押して終了させるには
＞どうしたらよいのでしょうか？

これはもうちょっと具体的な話が欲しいな。アプローチが複数あるから。

＞また、Button1を押してfot文を行っているとき、
＞他のボタンからfor文の一回分をスキップさせることは出来ますでしょうか？

これは、forの中にApplication.ProcessMessagesを入れることで解決できる。

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to 100 do
begin
{何らかの処理}

Application.ProcessMessages;
if Button1.Tag = 1 then
begin
Button1.Tag := 0;
Continue;
end;

{なんらかのスキップしたい処理}
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Tag := 1;
end;

もし、最初の質問が同じようにforを使うものならば、
Continue;をBreak;に変えれば終了を実現できる。

0300299

NGNG

コード書いてる間に上でレスがついてるな。
まあ、いいか。
それにしても、<PRE>タグくらいは使えるようにして欲しいな。

0301291

NGNG

>>294
>>296
レス有難う御座います。
速い処理にはこれ使います。
>>299
説明不足スマソです。
Button1を押したときスレッドを使ってTIdHTTPでTRichEditにソースを取得しています。
スキップの説明ありがとうございます。
そうすればいいのかー。助かります。

0302デフォルトの名無しさん

NGNG

>>276
私も！

0303デフォルトの名無しさん

NGNG

相手から接続要求があったときに
相手のIPアドレスを取得するにはどうしたいいのでしょうか？
アクセス制限機能をつけたいのです
windows2000 delphi6personal serversocketを使用しています

0304デフォルトの名無しさん

NGNG

.libファイルってどうやって書いたらDelphiで使えるのかなぁ。

0305208

NGNG

>>244 >229は漏れじゃないよ。このスレではこれが2度目のカキコ。
>294の言うとおりで、この本は基本的に入門者向けの本。
説明はあまり難しいことには触れてないし、Tipsも基本的なものが多い（と思う）
漏れはまだまだ初心者だから役に立つの多いけどね(笑

ただ、Tipsって使う人のレベルが高い低いよりも、単に知ってるかどうかの要素が
大きいからな。どんな熟練者でも知らんことは知らんだろうし。
てことで中を見てみて、欲しい項目が載ってれば買ってもいいかと(笑

0306208

NGNG

>294じゃなくて、>249だった・・・・・

0307デフォルトの名無しさん

NGNG

Buttonが10個あって、全部を処理したいんだけど、ループじゃ無理？

var
Int: Shortint;
begin
for Int := 1 to 10 do
Button Int .Caption := '～～';

っていうような感じでやりたいんだけど、もちろん（？）エラーでます。
一つずつ書くしか無理？

0308デフォルトの名無しさん

NGNG

配列でやれば何とかなる

0309かっこつけないで

NGNG

Button
Button
Button
Button
Button
Button
Button
Button
Button
Button

ってやる！

0310デフォルトの名無しさん

NGNG

>>303
OnClientConnectのSocket

0311デフォルトの名無しさん

NGNG

>>307
配列使うとか、パネルに乗っけてControls使うとか。
ﾊｧｰﾄｶﾄｶ

0312＞３０７

NGNG

var
Int: Shortint;
cp: TComponent;
begin
for Int := 1 to 10 do
cp := findcomponent('button'+IntToStr(int));
if cp <> nil then
TButton(cp).Caption := 'チンコ';

0313デフォルトの名無しさん

NGNG

（´-`）。o ○ （あーあ、ソース書いちゃったよ…）

0314デフォルトの名無しさん

NGNG

(;´Д｀) ﾁﾝｺ･･･ﾊｧﾊｧ

0315素数２

NGNG

>>312　勉強になりました。

0316デフォルトの名無しさん

NGNG

>>312
そのやりかたはオススメできない
なぜなら・・・

0317デフォルトの名無しさん

NGNG

>>316
正解

0318デフォルトの名無しさん

NGNG

>316-317
何が駄目なんだ？別にいーじゃん。

0319デフォルトの名無しさん

NGNG

FormCreateで最初の1回だけ配列に入れておく方法として
使うなら良いと思うよ

0320デフォルトの名無しさん

NGNG

わけわからん

0321デフォルトの名無しさん

NGNG

チンコが気に入らないみたい・・・

0322デフォルトの名無しさん

NGNG

for i := 0 to ComponentCount-1 do
　if Components[i] as TButton then
　　TButton(Components[i]).Caption := 'マンコ';

0323デフォルトの名無しさん

NGNG

俺なら、Buttonを配列で定義したりするけどなぁ。FormCreateとかで

0324デフォルトの名無しさん

NGNG

ださっ
VBに帰れ

0325デフォルトの名無しさん

NGNG

>>322
as じゃなくて is だろ。英語勉強汁。
つうか、
for i := 1 to 10 do
　Buttons[i] = TButton(FindComponent('Button'+IntToStr(int)));
をコンストラクタでやっとけばいいのでわ。

0326デフォルトの名無しさん

NGNG

TPageControlのOnChangingイベントにおいて、選択されようとしている
TabSheetのIndexを知るにはどうしたらいいですか。

0327327

NGNG

　pCharを含む構造体をファイルに保存するルーチンを作っています。
f: File of 構造体名
という感じで型付きファイル型にWriteを使っているのですが、
Readで読み直してみると文字列が保存されていません。
どうすればいいでしょうか

0328デフォルトの名無しさん

NGNG

>>327
PChar は文字列を指すポインタ
ポインタを保存しても文字列そのものは保存されるわけではない

0329名無し募集中。。。

NGNG

>>327
文字列の長さを決めとけばいいと思う

0330デフォルトの名無しさん

NGNG

>>326

ＭＬの過去ログから

uses
Commctrl;

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
var
PT:TPoint;
HI:TC_HITTESTINFO;
ret:integer;
begin
GetCursorPos(PT);
PT := PageControl1.ScreenToClient(PT);
HI.pt := PT;
ret := TabCtrl_HitTest(PageControl1.Handle,@HI);
if (HI.flags and TCHT_ONITEM) <> 0 then
Label1.Caption := 'On Tab of '+IntToStr(ret);
end;

0331デフォルトの名無しさん

NGNG

>>326
OnChangeでActivePageIndex

0332デフォルトの名無しさん

NGNG

>>330

それだとtabキーによる選択に対応できないのですが。

0333デフォルトの名無しさん

NGNG

>>332

誤：tabキー
正：キーボード

です。すいません。

0334デフォルトの名無しさん

NGNG

>>333

キーボードって、矢印キーのこと？
そうなら、どっちの矢印キーが押されているかで ActivePage.PageIndex
からどっちに行くか簡単にわかるでしょ

0335デフォルトの名無しさん

NGNG

>>331

まだtabが切り替わっていない時に、切り替わるtabに対してある処理を
したいのです。そのためOnChangingである必要があります。
それだとtabが切り替わった後になってしまいます。

0336327

NGNG

>>328
>ポインタを保存しても文字列そのものは保存されるわけではない
　やっぱりそうですよね…。
でもStringだと保存できないし、ShortStringだと足りないかもしれないし…。
方法はありませんか？

>>329
>文字列の長さを決めとけばいいと思う
　それはどうすれば良いのでしょうか？

0337334

NGNG

>>333

uses
Commctrl;

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);

function GetVK(VK:Integer):Boolean;
begin
result := (GetAsyncKeyState(VK) and $8000) <> 0;
end;

var
PT:TPoint;
HI:TC_HITTESTINFO;
ret:integer;
begin
if GetVK(VK_HOME) then
Label1.Caption := 'On Tab of '+IntToStr(0)
else if GetVK(VK_END) then
Label1.Caption := 'On Tab of '+IntToStr(PageControl1.PageCount-1)
else if GetVK(VK_RIGHT) then
Label1.Caption := 'On Tab of '+IntToStr(PageControl1.ActivePageIndex+1)
else if GetVK(VK_LEFT) then
Label1.Caption := 'On Tab of '+IntToStr(PageControl1.ActivePageIndex-1)
else begin
GetCursorPos(PT);
PT := PageControl1.ScreenToClient(PT);
HI.pt := PT;
ret := TabCtrl_HitTest(PageControl1.Handle,@HI);
if (HI.flags and TCHT_ONITEM) <> 0 then
Label1.Caption := 'On Tab of '+IntToStr(ret);
end;
end;

0338デフォルトの名無しさん

NGNG

>>334

OnKeyDownと組み合わせて処理するという事ですか。分かりました。
有り難うございました。

0339338

NGNG

>>334

じゃなくてそうするのですね。やってみます。

0340338

NGNG

>>339

誤：>>334
正：>>337

0341デフォルトの名無しさん

NGNG

入力されたパスがファイルであるかフォルダであるかを判断する方法を教えてください。
拡張子がなければフォルダ、なんて単純な処理をすると大変なことになるかとおもいます。

0342デフォルトの名無しさん

NGNG

if DirectoryExists( Path ) then
　{ Path はディレクトリです }
else
　if FileExists( Path ) then
　　{ Path はファイルです }
　else
　　{ Path に該当するものは存在しません }

0343341

NGNG

全然信用できなかったのですが、やってみました。
拡張子のないサイズゼロのファイルを、ファイルとして認識しました。
名前をf.txtとしたフォルダをフォルダとして認識しました。
とても嘘くさかったので、あっけにとられました。
トイレ行って良いですか？

0344デフォルトの名無しさん

NGNG

>>343
だめ、と答えたら行かないのか小一時間問い詰めたい。
問い詰め終わったら行って良し。

0345デフォルトの名無しさん

NGNG

>>341
一生トイレに入っといれ。

0346334

NGNG

>>341
342にサンクスコくらいしれ

0347デフォルトの名無しさん

NGNG

レベル低すぎる、HELP読まない奴多すぎる、google使わない奴多すぎる。

0348デフォルトの名無しさん

NGNG

>>347 ウザすぎる。

0349デフォルトの名無しさん

NGNG

とりあえず>>343は失礼すぎるので氏ね

0350デフォルトの名無しさん

NGNG

とりあえずこれでも見て落ち着けよ。
http://coke.rotten.com/all-kings-horses/0002

0351デフォルトの名無しさん

NGNG

>>343
信用できないなら初めから聞くな。
礼儀のなっていない奴は、逝ってよし。

0352デフォルトの名無しさん

NGNG

ファイルのパスがShortStringに収まりきらないことはありますか？

0353デフォルトの名無しさん

NGNG

深く掘ればあり得る。

0354デフォルトの名無しさん

NGNG

winsocKでステルスとかハーフスキャンのプログラムを作成したいのですが。

0355デフォルトの名無しさん

NGNG

winsockでハーフコネクトとかステルスとかのプログラムを作成したのですが。

0356期待されてるレス

NGNG

>>354
そうですか。頑張ってくださいね。

>>355
わあー。それはよかったですね。

0357デフォルトの名無しさん

NGNG

>>354
許可する。早速取り掛かるように。

>>355
却下する。>>354が作るから君は別のものを作りなさい。

0358デフォルトの名無しさん

NGNG

355.誰もわからないんだー、世の中馬鹿ばっか

0359デフォルトの名無しさん

NGNG

超難問だね。

0360デフォルトの名無しさん

NGNG

インターフェイスにプロパティを定義したいのですが、

IHoge = Interface
　property OnEvent:TEvent;
end;

としたいだけなのに, 実際には GetProp, SetProp も書かないと行けませんよね

IHoge = Interface
　procedure SetEvent(Value:TEvent);
　function GetEvent:TEvent;
　property OnEvent:TEvent read GetEvent write SetEvent;　
end;

これは、こういうものとして
あきらめるしかないのでしょうか。

0361デフォルトの名無しさん

NGNG

>>358
本当、そう思いますよね。

0362360

NGNG

訂正です.

誤：GetProp, SetProp
正：GetEvent, SetEvent

0363デフォルトの名無しさん

NGNG

354と355は同一人物で、358なんかも同じ

0364デフォルトの名無しさん

NGNG

procedure 手続き名; での手続きの中に、変数とかLabel.Captionとか使うと
未定義の識別子になる。
こういうのってダメなの？

0365デフォルトの名無しさん

NGNG

procedure 名前; //←単なる名前だけの場合は、メソッドではなく単なる手続きだから
begin
　Form1.Label.Caption;
end;
↑みたいに、Form1 等と言う変数（？）名をかかないとだめだよ。
↓の場合は必要無いけど。違いってわかる？
procedure TForm1.名前;
begin
　Label.Caption;
end;

0366364

NGNG

補足修正です。
未定義の識別子になるのは、interface部のPublic宣言の場所で宣言した変数です。

0367364

NGNG

早っ！
interface部でTForm1のメソッドとして設定してあるか否かの問題ですかね。
↑が間違えで、理論的には間違えていても、何となくわかったかもです。
ありがとう！

0368デフォルトの名無しさん

NGNG

pascalの勉強になるようなサンプルで、凄いの何処かに転がってませんか？
例えば、コンパイラ　例えば、エディタ　例えば、DBサーバ　等で当然オープン
ソースがいいかも。
色々と探したんですが、オープンソースでなかったり、Cだったりで楽しくあり
ませんでした。

0369デフォルトの名無しさん

NGNG

>>368
こことか
http://home1.infonia.ne.jp/~delphian/delphi/index.html

0370364

NGNG

Label1.Captionはとりあえずでけたよ～！
で、変数は何でダメなの？
LabelみたいにForm1,を付加しても無理だったんですが。

0371デフォルトの名無しさん

NGNG

変数は、グローバル変数か、その手続きもしくは
メソッド内で宣言されたものしか使えないよ。例えば、

procedure Hoge;
var
　Giko: Integer;
begin
　....
end;

procedure Piyo;
begin
　～ := Giko; //← 未定義の識別子エラー
end;

他のユニットの interface 部に有るあるグローバル変数ならば、

Unit1.変数名

なんて風に書けば使える。
interface 部で宣言されていない変数は、他のユニットからは見えないよ。

0372デフォルトの名無しさん

NGNG

363.
for
begin
sock()
connect()
close()
end
って知って、分る360～367さんへ

0373デフォルトの名無しさん

NGNG

いまどき宣言無しで変数使える言語ってそんなに多くないよね？

0374デフォルトの名無しさん

NGNG

interface 部の public

…それは、interface で宣言されたクラスの publid 部という意味？
そしたら、それはそのクラスに所属する変数（＝フィールド変数）になるから、

クラス名.変数名

としないとダメ。

>>371補足
他ユニットで宣言されている変数でも、必ずしもユニット名を
指定する必要はない。が、見やすさという点では
ユニット名も指定した方が良いとおもう。

0375デフォルトの名無しさん

NGNG

>宣言無しで使える言語

ソースコードを読む方の身になってみれば、
それは非常にわかりにくいと思う。
宣言無しどころか、「変数をどこでも宣言できる」系言語のソースも読みにくいと思う。

それから、コンパイラの負担も…

0376デフォルトの名無しさん

NGNG

374さん馬鹿じゃない、面白くないです。
publid =public広域です。
一回死んでください。

0377デフォルトの名無しさん

NGNG

↑なにをそんなに怒ってるんだか…

このスレにも無礼な奴が増えたな。

0378364

NGNG

　>>371=374
説明は超わかりやすい！！！(･∀･)
神！神！神！

＞…それは、interface で宣言されたクラスの publid 部という意味？
＞そしたら、それはそのクラスに所属する変数（＝フィールド変数）になるから、

＞クラス名.変数名

＞としないとダメ。
interfaceのTForm1 = class(TForm)の下にあるpublic部です。
その場合、TForm1.変数名にすればprocedureの中で使えるのかな？
と思いましたが、無理でした。

0379364

NGNG

　>>376
わかりやすかったからいいのっ！！！
神に向かって死んでくださいとか言わないで下さい。

ってか、>>378は「説明は」じゃなくて、「説明が」ね。
なんか語弊が…すまそ。

0380デフォルトの名無しさん

NGNG

別にそんな使い方わざわざしなくても・・・・
>>371

0381デフォルトの名無しさん

NGNG

HSP厨が流れてきてるのか？

0382デフォルトの名無しさん

NGNG

var
　Form1: TForm
begin
　Form1.変数名

↑クラス（設計図）に対してではなくて、インスタンス（実体）に対してじゃないとダメ。

TForm1 は単なる設計図のようなもので、実体ではないの。

たとえば、家の設計図（＝クラス）に書いてあるドア（＝フィールド変数）を操作することは出来ないでしょ。「こういうのがあるよ」って書いてあるだけで、実際にドアが存在しているわけじゃないから。

家の設計図を元にしてできた、「実際の家（＝クラスのインスタンス）」についてるドアでないと、あけたり閉めたりはできないハズ。

0383デフォルトの名無しさん

NGNG

いいから黙って言語ガイド嫁よ

0384デフォルトの名無しさん

NGNG

364は、ひょっとして「var」節の存在を知らないの？

0385デフォルトの名無しさん

NGNG

（´-`）。o ○ （無礼な馬鹿が増えたな…）

0386デフォルトの名無しさん

NGNG

要は、自分の考えたことが最短でプログラミングできて、よりWindowsに近い部分で簡単にプログラミングできるのがDelphiなんでしょう
理屈だけじゃプログラムは作れないよ、そんな解りにくいお手本見せられても困っちゃうなぁ
私は、発想でプログラミングしてるから細かいことはワカンナイヨォー
でも、>>382見たいな教科書さん、なら何でも思ったこと組めるんだろうね

0387デフォルトの名無しさん

NGNG

ようするにクラスの概念がわかってない、と。

0388デフォルトの名無しさん

NGNG

>>386
いいから寝ろ。

0389デフォルトの名無しさん

NGNG

同じクラスの●●ちゃんとエッチな事しました。
「待って、まだ準備が出来てないの」
「なに言ってるんだここはこんなにnil nil言ってるじゃないか」

0390訂正

NGNG

同じクラスの●●ちゃんとエッチな事しました。
「僕自身を君に入れても言いかい？」
「待って、まだ準備が出来てないの」
「なに言ってるんだここはこんなにnil nil言ってるじゃないか」

0391デフォルトの名無しさん

NGNG

>389
ちゃんとインスタンスを作成しないと何も入れれないよ。

0392寒いギャグ、訂正しないでいいから

NGNG

寝ろ。

0393>>386

NGNG

教科書さんつうか、>>382の内容は
ちょっとまともなプログラマならば誰でも書けることだろう。

0394364

NGNG

　>>382
どうもありがとー！

　>>383
誰に言ってんの？

0395デフォルトの名無しさん

NGNG

自信作だったのに・・・

0396364

NGNG

　>>384
var節は知ってるんだけど、クラスの概念がわかってないのだと思います、はい。

0397デフォルトの名無しさん

NGNG

>>386
プログラムは論理の固まり。
少なくともお前のような屁理屈の固まりには扱えない代物だ。

0398デフォルトの名無しさん

NGNG

>396
では「スコープ」はわかる？
ヘルプにキーワードで「スコープ」を探してみ

0399デフォルトの名無しさん

NGNG

387.解るんだ

0400デフォルトの名無しさん

NGNG

〈名〉（〈複〉～･es［～_z］）
６［同等のもの］〈C〉種類，部類; ある種類のもの［人］.be in a class with..と同類である
/houses in the $100,000 class 10万ドルクラスの家．

0401デフォルトの名無しさん

NGNG

>>398
～のスコープ：～が有効な範囲。

0402デフォルトの名無しさん

NGNG

元ネタはヌルヌルだったんだろうな。。。

0403デフォルトの名無しさん

NGNG

>>364
何を悩んでいるのかがわからなくなった。

多分、宣言の仕方間違ってるんじゃない？
TForm1の宣言の所だけでもコピペしてくれない？

0404デフォルトの名無しさん

NGNG

　　　　／⌒＼
　　　　（　　　　）
　　　　｜　　｜　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　｜　　｜　　／　クラスとかなんて必要ない人には
　　　　（・∀・　）　＜　どうでもいいことかもしれないけどさ
　　　ノ'⌒｀　´⌒ヽ　＼　結局のところ無料で配ってるとはいえ
　　（　,､　ﾟ　人ﾟノ'ヽ　＼　遊びでやってるｵﾅｰﾆ野郎のために
.　　( ﾉヽミ仝ミ/>' 〉　＼　　作ってるわけじゃないんだよね
　　　｀ξ~~~~~~~ヽ´　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　|＿＿/＿_|
　　　（ ,　ﾉ（､ﾉ
　　　 |　/　 |　/
　　（＿_）（_＿）　　某土地社員

0405デフォルトの名無しさん

NGNG

Delphiでオブジェクトとかって、自分で作れるんだ

0406364

NGNG

　>>398
スコープはわかってるつもりなんですが。
interface部に書いてあれば、全て。
実装部に書いてあれば、宣言した以降がスコープだと思います。

　>>403
かなり長くてごめんなさい。

type
TForm1 = class(TForm)
cmd1: TButton;
cmd2: TButton;
cmd3: TButton;
cmd4: TButton;
cmd5: TButton;
cmd6: TButton;
cmd7: TButton;
cmd8: TButton;
cmd9: TButton;
cmd0: TButton;
cmd00: TButton;
cmdplus: TButton;
cmdminus: TButton;
cmdkakeru: TButton;
cmdwaru: TButton;
cmdequal: TButton;
Label1: TLabel;
Label2: TLabel;
cmdC: TButton;
cmdAC: TButton;
procedure cmd1Click(Sender: TObject);
procedure cmd2Click(Sender: TObject);
procedure cmd3Click(Sender: TObject);
procedure cmd4Click(Sender: TObject);
procedure cmd5Click(Sender: TObject);
procedure cmd6Click(Sender: TObject);
procedure cmd7Click(Sender: TObject);
procedure cmd8Click(Sender: TObject);
procedure cmd9Click(Sender: TObject);
procedure cmd0Click(Sender: TObject);
procedure cmd00Click(Sender: TObject);
procedure cmdplusClick(Sender: TObject);
procedure cmdminusClick(Sender: TObject);
procedure cmdkakeruClick(Sender: TObject);
procedure cmdwaruClick(Sender: TObject);
private
{ Private 宣言 }

public
{ Public 宣言 }
dblNum, dblAnswer : Double;
strNum : string;
fugou :(plus, minus, kakeru, waru);
end;

よろしくです。

次のレス、かなり遅くなると思われますので、ご了承ください。m(_ _)m

0407デフォルトの名無しさん

NGNG

>>364
もういいって。ｶｴﾚ！！放置しる！

0408デフォルトの名無しさん

NGNG

もしかして、DelphiでDIRECTXとか使えたりして・・・・・
まじ、うそ、ほんと>>404

0409デフォルトの名無しさん

NGNG

ここまでひっぱっておいて
「実はスペルミスでした」なんて言い出すんじゃないだろうな・・・

0410デフォルトの名無しさん

NGNG

>>408
http://www.google.co.jp/search?q=delphi+directx&hl=ja&lr=

0411違ってたらスマソ

NGNG

>>364
ははぁ、最初の方にしてた質問と合わせて考えると
こんなことしたんだろ。↓

type
　TForm1 = class(TForm)
　　Memo1: TMemo;
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　function calc : String ;
　private
　　{ Private 宣言 }
　public
　　{ Public 宣言 }
　　i , j : integer ;
　end;

var
　Form1: TForm1;

implementation

{$R *.dfm}

function calc : String ;
begin
　　result := IntToStr(i + j);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
　　i := 1 ;
　　j := 2 ;

　　Memo1.Lines.Add(calc);
end;

end.

0412デフォルトの名無しさん

NGNG

>>411
何か変か？

0413デフォルトの名無しさん

NGNG

>>412
理解。微妙だね・・・。

0414中日ファン＠昨日は試合がなかったんだモード ◆DRAG8zBg

NGNG

クラスの宣言部に i,j を書いているコードというのは
多分、初めて見たよ

0415野球はゴミ ◆T.Oo2lOQ

NGNG

野球はゲリ糞。

0416デフォルトの名無しさん

NGNG

いい湯加減だね。

0417403

NGNG

>>364
グローバル目的の変数は特別な理由があるんじゃないなら
public部で宣言したりしないで
var
　Form1 : TForm1 ;
の下で宣言してればいいと思うけどな。

わざわざコピペしてもらったのにスマン。
おれには何が悪いのかよくわからん。

0418デフォルトの名無しさん

NGNG

>312
こういう手法ってよく見るけど、このロジック使う人って
みんなボタンとかButton1とかの名前のまま使ってるの？
ソースすげえ見づらくならない？

もしどうしても連続処理が必要な場合は

Buttons : array [0..x] of TButton;

みたいの宣言しといて

Buttons[0] := btnOK;
Buttons[1] := btnCancel;
・・・

ってかんじで全部直に入れちゃうけど・・・．

0419デフォルトの名無しさん

NGNG

人それぞれとしか言いようがないが･･･。
つか、その方法は>>308と>>311で既出だし。

0420中日ファン＠昨日は試合がなかったんだモード ◆DRAG8zBg

NGNG

>>406
このコードは電卓ですよね・・・その場合に限れば
多分cmd1～cmd00までは、数字がそのままCaptionになっているはずだから
cmd1～cmd00のOnClickイベントハンドラをcmd1のものに統一して
procedure TForm1.cmd1Click(Sender: TObject);
begin
　sDisp:=sDisp+TButton(Sender).Caption; // sDispは表示用のstring型変数
end;
という手も使えますね、一般的じゃないけど

横レス、スマソ

0421デフォルトの名無しさん

NGNG

>>420
まだTagプロパティを使った方が気持ちがいいんですけど。

0422野球はゴミ ◆T.Oo2lOQ

NGNG

野球は糞蛆虫。

>>420
横レスすんな。ハゲ。

0423中日ファン＠昨日は試合がなかったんだモード ◆DRAG8zBg

NGNG

あ、sDispは変数ではなくプロパティにすべきですね

0424中日ファン＠昨日は試合がなかったんだモード ◆DRAG8zBg

NGNG

>>422
だから、俺がハゲだということをどうして知っているのだ？

0425デフォルトの名無しさん

NGNG

まあ、なげえハンドルで無駄にレス付けてりゃ目に付くわな。

0426デフォルトの名無しさん

NGNG

　20年近く朝鮮に住んで現地の人々と交わりつつ成長し、い
まも学生時代からの親友を持つ私には、韓国・北朝鮮の虐げら
れた歴史や人々の屈折した感情が痛いほどわかる。日本が支
配していた時代、確かに朝鮮(韓国)人の日本化教育が推し進め
られ"創氏改名"や軍需産業への徴用が行われ兵役も課せら
れていたが、現在の日本の歴史教科書に載っている"従軍慰安婦"
などの事実はまったくなかったと確信している。私も、「朝鮮靴を
履いて学校にくるな！」と級友を叱りつけたことがありいまは
反省しているが、"驕り高ぶった"日本人庶民の朝鮮(韓国)人
に対する支配者的な態度はその程度ではなかったかと思う。
(RJ2001/8 p112「亜欧"鉄路"連絡の夢遥か…」ｹｹ島紀元)

●鉄ｦﾀ少年ｹｹ島が、軍隊の裏で行われていた(かもしれない)非人道的行為を
　把握していた訳がない。なのに「確信している」などと断定的表現を
　もちいている。コイツは本当に社会派雑誌の編集長か？
●よくもまぁ級友にそんな事言えますなぁ。
　「学生時代からの親友を持つ」…相手は友達だなんて思ってないんじゃない？
●「"創氏改名"や…」名前や文化という人間・民族の尊厳の根本を否定するような
　ことをして、さらに「軍需産業…兵役も課せられていた」侵略者の都合により
　生存権すら脅かしていたのに「程度ではなかったかと思う」
　まぁｹｹは逆の立場でも我慢できる寛大な人間なんでしょうな。

0427デフォルトの名無しさん

NGNG

>>426
コピペ誤爆した！スマソ

0428デフォルトの名無しさん

NGNG

ホントはこっちに爆撃するつもりでした。
鼬害・・・
http://cocoa.2ch.net/test/read.cgi/rail/1019891858/l50

0429デフォルトの名無しさん

NGNG

誤爆荒らしは１０倍返し。

0430中日ファン＠昨日は試合がなかったんだモード ◆DRAG8zBg

NGNG

>>428
妙に親しみの湧くスレですね

0431デフォルトの名無しさん

NGNG

TIdHTTPでソースを取得しているのですが処理中でも
強制終了させるにはどうしたらよいでしょうか？
IdHTTP1.DisconnectSocket;
IdHTTP1.Disconnect;
こういうのなら探しましたがほかに良いものありますか？

0432デフォルトの名無しさん

NGNG

>>431
IdHTTP1.free

0433デフォルトの名無しさん

NGNG

Delphi初心者向けにブラウザの作り方を解説してくれた人いたよね？
ブックマーク忘れて探せないよー！

0434デフォルトの名無しさん

NGNG

Delphi相談室その４の175

0435デフォルトの名無しさん

NGNG

>>433
http://delphi.sakura.vg/
ここ？

0436デフォルトの名無しさん

NGNG

>>430
お前、その糞みたいに長いくだらねぇＨＮ変えるか、他逝くか、どちらかに決めろ。
ウザすぎ。

0437中日ファン＠昨日は試合がなかったんだモード ◆DRAG8zBg

NGNG

>>434
コードエディタの色設定が DOS版 Turbo Pascal を思い出させてとってもｲｲですね

0438433

NGNG

ありがとう！
内容がすげー増えてるよ。

0439 ◆DRAG8zBg

NGNG

>>436
これでいいか？

0440デフォルトの名無しさん

NGNG

>>436
HNがそんなに気になるの？
彼みたいにハゲるぞ。

0441デフォルトの名無しさん

NGNG

>>435
良心的なサイトですな。

0442デフォルトの名無しさん

NGNG

まあ、あんまり長い名前は見づらいな。

0443デフォルトの名無しさん

NGNG

>>435
初めて見たけど、すげーよさそうじゃん。
「関連リンク」にのっけてほしいぐらい。

0444デフォルトの名無しさん

NGNG

>>408
最近VC使いに、DelphiってDirectX使えるの！？みたいに聞かれて、
正直Delphiってなめられてるのかなあって思ったよ。

0445 ◆DRAG8zBg

NGNG

>>444
今でも「VBのPascal版」という程度の認識の人はいるみたい

0446デフォルトの名無しさん

NGNG

扱いづらいのは確か。

0447デフォルトの名無しさん

NGNG

>>445
どちらかというとRADなVC--

0448デフォルトの名無しさん

NGNG

素人に VB と Delphi って見た目一緒だけど何が違うの？
という質問をされました。以下のように答えたのですが正しいですか。

1) コンポーネントが充実している(と言っても、「コンポーネント」なんて分からないだろうな)
2) コンポーネントを Delphi 自身で作ることが出来る (VBはどうだか知らないけど)
3) 他会社製のコンポーネント以外は、全てのクラスやコンポーネントのソースコードが付いている (これもVBどうだかしらんけど)
4) コンパイルが激速
5) VBよりも言語、文法的に格調高い（独断と偏見）
6) ランタイムライブラリを配る必要がない

フリーソフトがVB製ってだけでDLする気をなくすのは偏見ですか。
なんか胡散臭いのですが…

0449デフォルトの名無しさん

NGNG

「自分も素人だから分からない」が正解。
自信が無いなら答えるな。

0450デフォルトの名無しさん

NGNG

というか、Delphiに関してなら分かるけど、
VBは VB3.0 ～ VB4.0ぐらいしか(しかも４年前に)使ったことがないのですよ。

0451 ◆DRAG8zBg

NGNG

>>448
素人相手なら技術的に細かく説明する必要はないですよね
「Delphiの方が高速で高機能なアプリケーションを楽に作れる」
で十分では？

0452デフォルトの名無しさん

NGNG

Pascalっていうちゃんとしたプログラミング言語で制作ができる。

0453デフォルトの名無しさん

NGNG

しかし、商用となると微妙だよね。
フリーのコンポーネントでも商用は色々と制限があるのが多いから、
面倒を避けるために結局自作してしまう・・・。
早い、ライブラリを配る必要がないってのも、
最近のVBと比べての利点にならないし。
Pascalで記述できるくらいかな。

0454デフォルトの名無しさん

NGNG

VBってポインタ周りはどうなの？

0455デフォルトの名無しさん

NGNG

>>454
そう言う概念自体がない。

0456デフォルトの名無しさん

NGNG

そうするとさ、VBからWinAPIはどうやって呼び出してるの？
構造体へのポインタとか、文字列へのポインタとか、指定しないといけないし…

0457デフォルトの名無しさん

NGNG

>>456
ああ、ByVALとかいうダサイ参照が使えたっけ。
後、void *(PascalはPointerか)はAnyとか言うこれまた（略

0458デフォルトの名無しさん

NGNG

[pascal]
var Something: Pointer;

[C]
void* something;

[VB]
Dim Something As Any ?

0459デフォルトの名無しさん

NGNG

ダサイ参照って・・・痛いやつがいるなぁ。

0460Delモナー ◆fPymXWHY

NGNG

>>454
VBでは「ポインタ」の概念自体ないから、
ポインタを扱おうとすると、かなり不便を強いられる。
VB6の話だけど、変数のポインタを得るには、ヘルプにも載っていない
隠し関数のVarPtr関数を使う。他にも、StrPtr,ObjPtr関数がある。
関数のポインタは、AddressOfという演算子(ヘルプに掲載)で得る。
逆参照には、APIのCopyMemory関数を使う。
Anyは、WinAPI呼び出し専用の、型チェックなしの型でしたな。

>>458
Anyという型こそあるけど、実際に変数として宣言することはできません。
APIの宣言でこのように使います。
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
　　　　　　(Destination As Any, Source As Any, ByVal Length As Long)
そして、呼び出すときは、
Dim x(3) As Byte, u(3) As Byte
CopyMemory x(0), y(0), 4
のようにします。

0461Delモナー ◆fPymXWHY

NGNG

>>460 ｽﾏｿ。
×Dim x(3) As Byte, u(3) As Byte
　　　　　　　　　　↓
○Dim x(3) As Byte, y(3) As Byte

0462デフォルトの名無しさん

NGNG

結論：
Del使いがＶＢのコード書くと普通のＶＢ使いには
理解出来ないコードが出来上がる。

0463デフォルトの名無しさん

NGNG

>>462
結論：
逆もまた真なり。

0464デフォルトの名無しさん

NGNG

Delをしばらく使った後に、
VBでコード書くと、

Dim Str1,Str2,Str3 as String
　　　↑　　↑　↑
　　　｜　　Variant型
　　String型

というミスをやったり、文末に"；"付けたりするのは漏れだけですか？

0465464修正

NGNG

Dim Str1,Str2,Str3 as String
　　　↑　　↑　↑
　　　｜　　｜　String型
　　Variant型

0466デフォルトの名無しさん

NGNG

>>464-465
今度のVB.NETでは直されてるらしい。しかし、
良く今までそのままだったものだ。

0467激泣

NGNG

つーか、win95を「根本から」捨てるなよ！
と嘆いてみる。

0468デフォルトの名無しさん

NGNG

>>464
＞というミスをやったり、文末に"；"付けたりするのは漏れだけですか？

おもいっきりやる

＝と：＝も間違える

0469デフォルトの名無しさん

NGNG

オレは「bigon」って書いちゃったり、
ＩＮＳキー誤押しで上書きモードにしちゃって変なことになったりとか…。
ＩＮＳキーって無効に出来ないのかなぁ？
いつも「そうにぅ」モードでいいんだけど…。

0470デフォルトの名無しさん

NGNG

>>469
INSキーにドライバ差し込んでてこの原理で。

0471デフォルトの名無しさん

NGNG

>>464
最初、それ知らなくてさ。あとで懸命に直したよ。
めんどくさいったらありゃしない。
VB(A)は型がはっきりしないから嫌いだよ。

>>468
それもよくやる。あと、forやwithのあとに付けるdoとか
細かい部分で間違える。

0472４６９

NGNG

>>470
いいかも（いいのかよ！？）。

あと、ウィンドウズキーもいらねー。もっと別の場所に「全ての窓を最小化ボタン」
って名前で付けてくれ。「＋Ｍ」自動で。

話は変わるが、brcc32.exeってラッパー無いの？

0473デフォルトの名無しさん

NGNG

>>471
まさか全部手動で直したとか？(笑)
その程度の書き換えツール、簡単に自作できそうだが。

0474デフォルトの名無しさん

NGNG

473=ネット弁慶

0475デフォルトの名無しさん

NGNG

>>473
あー、その時はまだ覚えたてだったからね。そこまで頭まわらんよ。
「やっぱVBしょぼいよ！」って怒りながら直した気がする。

0476デフォルトの名無しさん

NGNG

>>472
BRC32.EXE

詳しくはBCBもしくはBCCのヘルプ参照。

0477４７２

NGNG

>>476
？
よく分からんが…。スマソ。忘れてくれ。

0478名無しヘタぐらま ◆B18Bks.Y

NGNG

>>465-466
こういうミスはエラーにはならないからやっかいですね．
今まで直されなかったのは基本的文法だからだと思います．

もともと DIM 文は配列宣言文ですが

DIM A$(10),X%(20)

※左は文字列，右は２バイト整数

みたいに末尾の文字で変数ごとに型を指定していたので
そこを変えたくなかったのかもしれません．

（だったらいっそのこと変数宣言のステートメントを別に作れば良かったような気もしますが）

0479364

NGNG

　>>411
変数の使い方はそんな感じで使っていましたね。

　>>417
そうですね。
とりあえず、その方法では変数が使えるので、そうしておきます。
サンクスコ。

　>>420
そうです、電卓です。
なるほど、エレガントですね。
私は手続きを使って同じ処理の部分をまとめ、変数にそのボタンの数字を入れてました。
が、例外が出ました。（ｗ

0480４７２

NGNG

>>476
リソースコンパイルを楽にしたかったんだけど、探してみたら
それらしきのがあった。
だから忘れてくれ。

0481デフォルトの名無しさん

NGNG

リソースコンパイラか…
RCファイル作るのが面倒で結局VisualStudioに頼ってしまう罠

0482デフォルトの名無しさん

NGNG

QuickReportにて印刷を行っているのですが、
DetailBand1BeforePrintイベントでデータをセットする前に改頁されるか
どうか判断できないでしょうか？
今だとデータをセットしてDetailを印刷しに行く時にもう印刷できないから
自動的に改頁されているようなのです。
やりたいことは、１件前のデータとコードが同じだったらコードは表示しない（空白）
ようにし、但し改頁された時は表示するようにしたいのですが。

0483デフォルトの名無しさん

NGNG

StringGridで指定範囲を上下左右に動かす方法ってありますか？
Move専用のクラス作ったのですが、左右なら左右全体が、
上下なら全体が上下に動いてしまうんです。
何か良い方法無いでしょうか？

クラス部分
type　　TStringGridX　=　class(TStringGrid)
　public
　　procedure MoveCol(FromIndex, ToIndex: Longint);
　　procedure MoveRow(FromIndex, ToIndex: Longint);
　end;

関数部分
procedure TStringGridX.MoveCol(FromIndex, ToIndex: Longint);
begin
　inherited;
end;

procedure TStringGridX.MoveRow(FromIndex, ToIndex: Longint);
begin
　inherited;
end;

0484デフォルトの名無しさん

NGNG

>>483
セル内の値を移動させるってこと？

0485483

NGNG

>>484
うん

0486デフォルトの名無しさん

NGNG

>>485
Cellsで地道に移動させちゃ駄目なの？

0487デフォルトの名無しさん

NGNG

cells[x1,y1]:=cells[x2,y2];

0488デフォルトの名無しさん

NGNG

if key = vk_left then vx:=0;
if key = vk_right then vx:=0;
という2つの文を1つの文にしたいのですが、どうすればいいのでしょうか？

0489デフォルトの名無しさん

NGNG

>>488
どうやったらできなかったのか、それが知りたいくらい

0490デフォルトの名無しさん

NGNG

>>489
if (key = vk_left then) or (key = vk_right) then vx:=0;

と書いたんですけど、できませんでした。

0491デフォルトの名無しさん

NGNG

>>488
ObjectPascalとはイワン、せめてPascalの文法位覚えてから来てください・・・。

0492デフォルトの名無しさん

NGNG

>>490
ごめん、コンパイルエラーで質問してくるってどういうことじゃ？

0493デフォルトの名無しさん

NGNG

if文にthenは2つもいらん

0494デフォルトの名無しさん

NGNG

if (key = vk_left) or (key = vk_right) then vx:=0;
でした。今したら出来ました。ゴメンナサイ。

0495デフォルトの名無しさん

NGNG

うさぎさん、またね～

0496デフォルトの名無しさん

NGNG

こんなのはどう？
if key in [vk_left,vk_right] then vx:=0;

0497デフォルトの名無しさん

NGNG

>>494
Pascalの文法とかそれ以前にVBとごちゃごちゃになってない？

orくらいおぼえようよ。

0498デフォルトの名無しさん

NGNG

VBってthen２つかくの？

0499デフォルトの名無しさん

NGNG

>>498
きっとorがないんですよｗ

0500デフォルトの名無しさん

NGNG

500はもらったッス

0501デフォルトの名無しさん

NGNG

今日からレベルの低い質問、厨房、などは以下のスレへ隔離することになりましたのでよろしく

Delphiでアクションゲームが作りたい！！
http://pc.2ch.net/test/read.cgi/tech/1019654975/

0502デフォルトの名無しさん

NGNG

>>501
じゃあ君は

Delphiでアクションゲームが作りたい！！
http://pc.2ch.net/test/read.cgi/tech/1019654975/

に常駐するんだ。寂しくなるよ。がんばって。

0503デフォルトの名無しさん

NGNG

こっちじゃ駄目か？
http://pc.2ch.net/test/read.cgi/tech/1019743589/l50

0504デフォルトの名無しさん

NGNG

もっとまともなところ教えてあげなよ。

ここなんか気合い入ってて良いかも
http://game.2ch.net/test/read.cgi/gamedev/1013170036/

作ってる人（>>1）はプログラム経験無し、パソコン触って１年目らしい。
でもちゃんと動いてるから凄い。

0505デフォルトの名無しさん

NGNG

>>503-504
どこかで見たことあるやりとり！　　　

0506デフォルトの名無しさん

NGNG

いい加減棲み分けしようぜ

Delphi相談室その４
http://pc.2ch.net/test/read.cgi/tech/1018211735/
ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室②
http://pc.2ch.net/test/read.cgi/tech/1013298748/
モナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/test/read.cgi/tech/1019134412/
Pascal の初心者用の質問・相談所
http://pc.2ch.net/test/read.cgi/tech/1009903617/
ヘタレ＆初心者　専用
http://pc.2ch.net/test/read.cgi/tech/1019743589/

0507デフォルトの名無しさん

NGNG

>>506　　　　　　　　　
もう…遅いねや…（ｂｙ　さんちゃん）　　　　　　　　　　　　　　　　

0508デフォルトの名無しさん

NGNG

>>490
if (key = vk_left) or (key = vk_right) then vx:=0;

0509デフォルトの名無しさん

NGNG

>>508
>>494

0510デフォルトの名無しさん

NGNG

Memo1.SelectAllの「SelectAll」みたいのって何ていうんだっけか？
そんなのを、ヘルプで調べる時ってどこに載ってる？

0511248

NGNG

>>510
VCLリファレンス
　　オブジェクト/コンポーネント（アルファベット順）
　　　　TM
　　　　　　TMemo
で、メソッド。

0512デフォルトの名無しさん

NGNG

ありがとー。

0513デフォルトの名無しさん

NGNG

引数はどうやって変数に渡すんだったっけ？？

0514デフォルトの名無しさん

NGNG

>>513
意味が不明です。

0515デフォルトの名無しさん

NGNG

>>513
スタックで。

0516デフォルトの名無しさん

NGNG

スポックで。

0517デフォルトの名無しさん

NGNG

スキップで。　　　　

0518デフォルトの名無しさん

NGNG

ステップで。　　　　　　　　　　　　

0519デフォルトの名無しさん

NGNG

スパッツで。　　　　　　　

0520デフォルトの名無しさん

NGNG

スコップで。　　　　　　　　　　　　　　　　　　　　　　　

0521デフォルトの名無しさん

NGNG

スリップで。　　　　　　　　　　　　　　　　　　　

0522デフォルトの名無しさん

NGNG

最近、ネタスレと化しつつあるな。

0523デフォルトの名無しさん

NGNG

アフォは（・∀・）ｲｲ！

0524デフォルトの名無しさん

NGNG

トラップです。

0525デフォルトの名無しさん

NGNG

いまさら昔のことをほじくり返すのもなんですが
どうしても吐き出しておきたいので・・・

Delphi 3ではエディタのポップメニューに「切り取り、コピー、ペースト」がなくてえらく不便でした。

今の（Delphi 6）には付いてるので重宝してます。

0526デフォルトの名無しさん

NGNG

そうですか。へー。

0527デフォルトの名無しさん

NGNG

>>525
放置しようとおもったが、
どうしても言いたくなったので・・・

まさか、いつもマウスで操作してるの？
[Ctrl]+[X]、[Ctrl]+[C]、[Ctrl]+[V]に早く慣れて下さい。

0528デフォルトの名無しさん

NGNG

>>527
Delphiってマウス操作の方があたりまえだと思うが？
まさかフォームとユニットの切り替えもキーボードでやってるの？

0529デフォルトの名無しさん

NGNG

>>527
放置しようとおもったが、
どうしても言いたくなったので・・・

いつもじゃなくても、あって当然のものがないというのは変だよね。
あまり使わないからなくてもいいって話にはならない。

0530デフォルトの名無しさん

NGNG

>>528
エディタはキーボード操作が常識だと思うが。

0531デフォルトの名無しさん

NGNG

>>528
F12一発の方が個人的には楽。確実。早い。

0532デフォルトの名無しさん

NGNG

>>530
コピペもキーボード操作が常識？

0533デフォルトの名無しさん

NGNG

>>532
コピーアンドペーストをマウスでやる奴なんぞ聞いたこと無いけど。
合理的じゃないと思うけど。

0534デフォルトの名無しさん

NGNG

オブジェクトインスペクタの右クリックからコピーや貼り付けができないのが不便すぎる。

0535デフォルトの名無しさん

NGNG

だからDelphi厨とかって叩かれるんだろうか・・・。
.NETにするか。

0536デフォルトの名無しさん

NGNG

Delphiもキーボードでの操作がVS並に揃ってるといいのにね。
キーボードもマウスも中途半端すぎるんだよな。

0537デフォルトの名無しさん

NGNG

>>533
>コピーアンドペーストをマウスでやる奴なんぞ聞いたこと無いけど。
>合理的じゃないと思うけど。
ええっ（＾＾；
そんなこと言われても・・・。

じゃあ「合理的でない」その要望が殺到して某が重い腰をあげたってことだね。

0538デフォルトの名無しさん

NGNG

CPU窓の逆アセ表示が１行づつしかコピー出来ないのがツライ

0539デフォルトの名無しさん

NGNG

キーバインドを標準で使ってる人はマウスでも変わらないような。
範囲選択時にカーソルキーへ手をやるためにホームポジションから
移動しないといけないから・・・。
ダイアモンドカーソルな使ってる人はキーボードオンリーの方がいいね。

0540525=528=532=537

NGNG

今、気が付いて見ると

マウスで範囲選択→[Ctrl]+[C]→マウスでペースト

と、まぁコピーの操作の時だけキーボード使ってるのに気づいたけど・・
ふつうGUI環境って自然とマウス操作が主体にならない？
>>533の発言はオレにとってすんげーカルチャーショック!!

0541デフォルトの名無しさん

NGNG

>>540　短期集中ならいいけど　長期にやると　マウス操作は目に優しくないよ

マウスで範囲選択するのはいいけど、それをコピーするときはキーボードを
使うようにすれば目を休めれられル

0542デフォルトの名無しさん

NGNG

PGなんてディスプレイ見てない時のほうが多いのだから大丈夫だよ
好きな方でやれ

0543デフォルトの名無しさん

NGNG

ドラッグは認めるわ。

ドラッグ－＞右クリック－＞コピーを探す－＞クリック－＞貼り付けたい場所をクリック－＞右クリック－＞ペーストを探す－＞クリック

ドラッグ－＞CTRL+C－＞カーソル移動（遠い場合はPageUP/Down）－＞CTRL+V

差は歴然。俺の理論では。

0544デフォルトの名無しさん

NGNG

俺は　飛蚊症が出はじめてるから

コピペの時は　ドラッグしない　先頭をクリック　後は目は宙を見据えて
行の時はシフト押しながらマウスを下　単語の時はシフト+CTRLマウス右

その間目を休める。
　もちろん文字は黒背景に白

0545543

NGNG

>>544
＞ドラッグしない　先頭をクリック　後は目は宙を見据えて行の時はシフト押しながらマウスを下

今試したら俺もそうだわ。
よっぽど広い範囲でない限りSHIFT+カーソル。

0546544

NGNG

マウスじゃなくてカーソルだ・・・　鬱

0547540

NGNG

オレは普段は、マウスで範囲選択→[Ctrl]+[C]→マウスでペースト

１画面に収まらないぐらいの範囲なら
マウスでスクロールさせるのは不便＆目が疲れるので
shift+PageDown(up)で範囲選択→マウスで切り取り→マウスでペースト

0548デフォルトの名無しさん

NGNG

まぁ、好きなようにやれや。

0549デフォルトの名無しさん

NGNG

普通はドラッグしながらホイール移動で行選択できるのだが、
Delphiはできないんだよな。不便。

0550デフォルトの名無しさん

NGNG

ドラッグ－＞左横ボタンクリック－＞貼り付けたい場所をクリック－＞右横ボタンクリック
5ボタンマウス・キーボードみたいに両手使う必要がない。

0551デフォルトの名無しさん

NGNG

5ボタンマウス・キーボード->5ボタンマウスならキーボード

0552デフォルトの名無しさん

NGNG

5ボタンマウスの左端と右端のボタンはなんていうメッセージを送るわけ？
OSとか限定されてるの？

0553デフォルトの名無しさん

NGNG

comboBox4.AddItem(Cells[2,i],comboBox4);

AddItemの２個目の引数って必要ない気がするのですが何か

0554デフォルトの名無しさん

NGNG

>>553
必要無いなら Items.Add(Cells[2,i]) にしたら？ nil が入るだけから

0555デフォルトの名無しさん

NGNG

>>541-542
ちょっと理解困難
キーボードでパターン化した操作をするときは目をつぶるようにしてるとか？

0556デフォルトの名無しさん

NGNG

>>554
省略できないよ

0557デフォルトの名無しさん

NGNG

ハァ？

0558デフォルトの名無しさん

NGNG

AAをギコペに登録するときは
トリプルクリック - Ctrl+C - Alt+Tab - 中略 - Ctrl+V
IEコンポ上でキーボードで範囲選択ってできる？

0559デフォルトの名無しさん

NGNG

>>553は2番目の引数の意味がわかってないに5000コンボ

0560デフォルトの名無しさん

NGNG

同じこと。
ComboBox1.AddItem('', nil);
ComboBox1.Items.Add('');
ComboBox1.Items.AddObject('', nil);

0561デフォルトの名無しさん

NGNG

漏れもListBoxとかComboboxのAddItemの2番目の引数はなんに使うか分からん。
いつもListBox1.AddItem(str, nil);って書いてる。
どんな風に使うの？

0562デフォルトの名無しさん

NGNG

>>560
ComboBox1.Items.Append("");
は？俺Addの戻り値使わんときはこっちで書いてるんだけど。

0563デフォルトの名無しさん

NGNG

AddItem は ComboBoxのアイテム文字列に、とくていのデータを関連付けたいとき
につかう。
AddItem( 'Button1', Self.Button1 )
とか。
たんに文字列を追加するだけなら、
AddItem('Button1');
でいいじゃん。

例)
AddItem('Button1', Button1);
AddItem('Button2', Button2);
AddItem('Button3', Button3);

ComboBox1.OnChange イベントで、

Button := TButton( ComboBox1.Items.Objects( ComboBox1.ItemIndex ) );
Button.Caption := 'OK';

これは文法エラーの可能性が有るけど、使い方はこんな感じ。

0564デフォルトの名無しさん

NGNG

>>525
GExpertsを入れていたので当時から、ポップアップメニューに出ていました。
しかし、自分は使わなかったので便利か不便か分かりませんでした。

0565デフォルトの名無しさん

NGNG

>>552
WM_XBUTTONDOWN/UP/DBLCLKでは？
確認してないけど。
OSはWin2k+、Me。

0566デフォルトの名無しさん

NGNG

みなさんにお聞きしたいのですが、キーボードの入力時の
強さを測る事ってできるのでしょうか？
OnKeyUpとOnKeyDownの時間を比べてもどうもうまくいきません。
どうにかなりませんか？

0567デフォルトの名無しさん

NGNG

なりません。

0568.............

NGNG

ウイルスに感染して駆除できずに隔離した場合
ウイルスはまだ悪さをしますか？
（トロイです＾＾；）

0569デフォルトの名無しさん

NGNG

>>567
そうですか。
でも、あきらめがつかないので続けて調べてみます。

0570デフォルトの名無しさん

NGNG

Delphiって日付関係が最低だよな。

「選択された年月日の１日と最終日の取得」とか。
関数入り乱れてシボンヌ

0571デフォルトの名無しさん

NGNG

キーボードは圧力を関知しないだろ。ｱﾌｫ

0572デフォルトの名無しさん

NGNG

>>570
JavaScriptでもやってろ。

0573デフォルトの名無しさん

NGNG

>>572
JSP以下じゃん＞日付

0574デフォルトの名無しさん

NGNG

>>571
昔、「キーを押している間だけカウントする。」って処理で
カウントを比べて押し具合を判別するプログラムをN88-BASICで書いたことがあるが
>>566はそういうことを言ってるんじゃないの？

0575デフォルトの名無しさん

NGNG

>>571
キーボードが圧力を感知しないのは初めからわかっていますが
それと同等の機能が無いかなぁと思ったのです。
それで押している時間で何かできないかと思ったのですが
思った結果が得られずに何か無いかと思ったのです。
まだまだあきらめません。

0576デフォルトの名無しさん

NGNG

圧力と同等の機能って何？？？
圧力と長さじゃ性質が違うだろ。

0577574

NGNG

>>575-576
昔、そのN88-BASICで作ったプログラムでは
「スーパーマリオの小ジャンプ、大ジャンプ」ぐらいの判別はできたよ。

アクションゲームとか作ってるところ見て回ってみたらどう？

0578デフォルトの名無しさん

NGNG

押してる時間だったら、
OnMouseDownで
T1 := Time; //T1:TDateTime;
として、
OnMouseUpで
T2 := Time - T1;
とすればいいんじゃないの？
値が分かりずらいなら、
(Time - T1)*24*60*60*1000として、単位をミリ秒にするとかして。

0579578

NGNG

あ、マウスじゃなくてキーボードだったね。

0580デフォルトの名無しさん

NGNG

TToolBarに実行時に動的生成したボタンを追加するにはどうしたら良いのでしょうか。
TToolButtonを継承してSetToolBar(ToolBar)で追加しようとしてみたのですが、
読込違反エラーが出て、追加できませんでした。

0581デフォルトの名無しさん

NGNG

>>580
試してないが
これじゃだめなのか？
helpみれ
procedure AddButtons(ToolBar: TToolBar;
Const ButtonCaptions: array of String);
var
I: Integer;
begin
for I := 0 to High(ButtonCaptions) do
begin
with TToolButton.Create(ToolBar) do
begin
Parent := ToolBar;
Caption := ButtonCaptions[I];
if (ButtonCaptions[I] = '|') then
Style := tbsSeparator

else
Style := tbsButton;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
ToolBar: TToolBar;
begin
ToolBar := TToolBar.Create(Self);
ToolBar.Parent := Self;
AddButtons(ToolBar, ['新規作成', '保存', '|', '切り取り', 'コピー', '貼り付け']);
ToolBar.ShowCaptions := True;
ToolBar.Height := 40;
end;

0582デフォルトの名無しさん

NGNG

>>528 当然でしょ？

0583デフォルトの名無しさん

NGNG

>>582
おせーよ！（藁

0584582

NGNG

>>583　下があるの気が付かなかった！スマソ！

0585デフォルトの名無しさん

NGNG

Delphiで作成したフォームアプリケーションで、デバッグ用の
コマンドラインウィンドウのようなものを表示したいのですが
なにか方法はありますでしょうか？
JavaでSystem.out.println("xx"); のような感じで使うように
デバッグに使いたいと思っています。

0586デフォルトの名無しさん

NGNG

OutputDebugStringでええのではないですかね。

0587デフォルトの名無しさん

NGNG

>>581
その辺も試したのですが、
TToolButton.Create(ToolBar)の所でAccess viorationになってしまいます。

0588デフォルトの名無しさん

NGNG

>>587
普通に、CreateしてParentにToolBarを指定するだけでうまくいったよ

0589デフォルトの名無しさん

NGNG

>>588
出来ました。ちょっとした勘違いだったみたいです。ｽﾏｿ。

0590デフォルトの名無しさん

NGNG

２chnの存在を友人から最近聞きまして、お便りいたします。
Delphiを初めてまだ数ヶ月初心者です。
今度、LinuxのＣアプリケーションをPasscalアプリケーションに移植しようと思ったのですが、Cの#InculdeのライブラリとpasscalのusesライブラリでCに有ってPasscalに無いのがあります。
Linuxの"*.h"をPasscalのライブラリに移植するしかないのでしょうか。
又Cのライブラリの移植は、初心者には無理でしょうか。

0591デフォルトの名無しさん

NGNG

>>590
FAQ

0592デフォルトの名無しさん

NGNG

>>590
プラットフォームすら違うのに何を・・・？

0593デフォルトの名無しさん

NGNG

綴りが違いすぎる点で寝たでしょ…
Cやってるのに#Includeの綴りすら間違うはず無い。

0594デフォルトの名無しさん

NGNG

>>593
あなたもぎりぎりアウト

0595デフォルトの名無しさん

NGNG

#intrudeやね

0596デフォルトの名無しさん

NGNG

それよりも俺は、一行目の
お便りいたします。
が気になって仕方が無い…

0597デフォルトの名無しさん

NGNG

またしてもチョンのの仕業かよ

0598デフォルトの名無しさん

NGNG

if Linux.Count<=0 then ShowMessage( '需要ねーよ（藁' );

0599デフォルトの名無しさん

NGNG

>>598
オマエモナ

0600デフォルトの名無しさん

NGNG

（´-`）。o ○ （>>599そのリアクションは意味不明だな…）

0601デフォルトの名無しさん

NGNG

if Linux.Count <= 0
の意味するところは何だろ

0602デフォルトの名無しさん

NGNG

>>601
リナックス回数だよ。DQNか？

0603デフォルトの名無しさん

NGNG

>>602
リヌクス回数って何さ（藁
クラッシュした回数か？使った回数か？インストール回数か？
そもそも count=回数か？件数じゃねーの？DQNか？

0604デフォルトの名無しさん

NGNG

>>603　　　　　　　　　
バーカ、バーカ、バーカ。　　　　　　　　　

0605デフォルトの名無しさん

NGNG

ボタンを押したら終了するようにしたいんですけど、
フォームをデストロイすればいいんですか？

0606デフォルトの名無しさん

NGNG

>>605
デストラクタを直接呼んじゃ駄目ですよ
FormならCloseでOK

0607デフォルトの名無しさん

NGNG

>>605
マジ→close;
ネタ→電源抜いて！

0608デフォルトの名無しさん

NGNG

ﾈﾀだと思うがClose;

0609デフォルトの名無しさん

NGNG

>>606-608
いやいや、ネタじゃなくて思いっきり初心者です。
素早い返答感謝いたします

0610６０７

NGNG

606に負けた…
608には勝った…

0611デフォルトの名無しさん

NGNG

どうでもいいがデストロイ知ってたらデストロイしちゃいかんって書いてあるはずだぞ

0612デストロイヤー

NGNG

アッコサン、ツヨイ…。

0613デフォルトの名無しさん

NGNG

TBitmapのPixelFormatを、描画の速い順に並べると、うちの環境では

pf8bit >>> pf16bit > pf32bit >> pf24bit

ですが、ぜんぜん違う結果になる人はいますか。

0614デフォルトの名無しさん

NGNG

ReleaseとFreeとDestroyの違いをきぼんぬ。

0615デフォルトの名無しさん

NGNG

>>614　ヘルプに全部詳しく書いとる

0616デフォルトの名無しさん

NGNG

>>613
それだけじゃ何とも言えんな

>>614
全部ヘルプに書いてある

0617デフォルトの名無しさん

NGNG

>>1-1000
ヘルプ読め！

0618なんだかなぁ、、

NGNG

[モナーの *やさしい* Delphi質問スレ Ver.6]
このスレ必要ないじゃん。

0619デフォルトの名無しさん

NGNG

>>618
ヘルプ読め！

0620デフォルトの名無しさん

NGNG

ここはやさしい質問に、答えるスレです。

0621デフォルトの名無しさん

NGNG

>>620
ヘルプ読め！やさしい質問の答えならほとんど載ってるぞ

0622デフォルトの名無しさん

NGNG

つまり初心者が、簡単な質問に答えてみるスレなのです。

0623デフォルトの名無しさん

NGNG

ちゃんと「ヘルプ読め」と答えてるので問題なし
それとも、ヘルプからコピペしろとでも？

0624デフォルトの名無しさん

NGNG

すいません。ネタスレだと思ってました。

0625デフォルトの名無しさん

NGNG

>>624
そう思うのも仕方のないことです。
答えているのは初心者なので、
ネタと思えてしまうような答えをする人もいるでしょう。

0626デフォルトの名無しさん

NGNG

このスレは質問に対し「ヘルプ嫁！」と返すためだけに存在しています。

0627ＢｏＡ

NGNG

四面楚歌ﾀﾞﾅｧ～～

0628デフォルトの名無しさん

NGNG

でも、ヘルプわかりづらいよ。

0629パソナラー

NGNG

ループになるが、
パソナラーでタダで使ってるヤツは文句言えないって。
気持ちは分かるけど＜ヘルプ
前に「もっといい感じのヘルプ」と「詳細なリファレンス」が付いたらいいなってレスしたんだが…。
またしばらくたったら同じレスが来るんだろうな…。
ま、金払って買った人はボーランドさんに文句言えばいいんじゃないの？

0630デフォルトの名無しさん

NGNG

>>625
>答えているのは初心者なので
そ、そうだったの・・・

0631デフォルトの名無しさん

NGNG

「ヘルプが理解できないなら、インターネットで検索しろ。」

と、ますますこのスレの存在意義が揺らぐ。（ｗ

0632パソナラー

NGNG

検索もなかなか難しい。バッチリいくのはよほどうまくいかんとアカン。
頼むからｸﾞｰｸﾞﾙも「本の紹介」と「英語以外のdelphi系」を載せるのは
堪忍してほしいと個人的には思う。前にも書いたけど。

0633デフォルトの名無しさん

NGNG

http://pc.2ch.net/test/read.cgi/tech/1018211735/l10
http://pc.2ch.net/test/read.cgi/tech/1013298748/l10
（´-`）。o ○ （この二つは閑古鳥だねぇ…）

0634デフォルトの名無しさん

NGNG

>>632
そりは検索の仕方が悪いからでは。

0635デフォルトの名無しさん

NGNG

>>634
はいはい。お前はさぞかし１発で検索出来るんだろうよ。

0636デフォルトの名無しさん

NGNG

本はよくヒットするね、買ってくれていってるみたいに

0637デフォルトの名無しさん

NGNG

>>635
Googleのオプションを覚えれば絞り込みやすいということだよ。

0638デフォルトの名無しさん

NGNG

>>637
はいはい。お前はさぞかし１発で検索出来るんだろうよ。

0639デフォルトの名無しさん

NGNG

>>632
「本の紹介」は、 -ISBN とか -著とかを入れればだいぶ除外できる。
「英語以外のdelphi系」は、表示設定や言語ツールで除外できる。

0640パソナラー

NGNG

>>639
ほほー。さんくす。

0641639

NGNG

結局、>>639に書いたこともGoogleのヘルプを見れば、
>>632が前（いつの事か知らんが）から持つ不満も減ってたわけだ。

だから「ヘルプ読め！」も、まぁアリだろ。
読んで分からなかったら、また質問すれ。

「あんな簡単なヘルプ読んでも分からん奴は知らん！」
とか言われたら、そいつはシカトして、
アドバイスをくれる人を待ってれば、結構現れてくれると思うんだが。

現れなかったら、他人の振りして
「漏れもそれ知りたい」とか言って話を伸ばせ。

それでもだめなら、
2chで*やさしい*に期待した自分がﾊﾞｶだったと悟りなされ。>>618以降の何人か

0642素数２

NGNG

検索オプションを知っていても
＞　-ISBN とか -著とかを入れればだいぶ除外できる。
というのは技術だと思われ。まぁ想像力で補える範囲ですが。

0643639

NGNG

>>642 なんだ、その見当違いなツッコミは。

0644素数２

NGNG

>>643　そう？

0645素数２

NGNG

つまり、検索オプションというのは知識。
知識は技術に転換して初めて役に立つわけで
例えば　＜「　-ISBN とか -著とかを入れればだいぶ除外できる。」というもの。
「 - 」は知っていても何をマイナスすると効率が良いかというのが技術の域なのではないか。(TIPS程度だが)

このスレのスタンスもこのあたりを押さえるための物じゃないのかな。
っつうことを言いたかったわけだが、伝わらんかったようだ。

0646ウィグル獄長

NGNG

>>645
んん～～～？
つ～た～わ～ら～ん～な～～～。

0647639

NGNG

>>645
俺は、
ヘルプを見て→オプションのことや表示設定の事を知る
わからなければ→オプションをどう使えば知りたいことを効率的に検索できるのか
アドバイスをもらえ→　-ISBNや -著を教えてもらう

と言ってるんだが、
>>645の言う、知識（オプション）を得てそれを技術（-ISBN）に転換する
とどう違うんだ？繰り返してるだけ？もしそうなら>>642のツッコミは何だ？

0648デフォルトの名無しさん

NGNG

Del厨だなぁ。

0649素数２

NGNG

>>647　解った、俺が悪かった。
>>642は>>641を読む前に書いた物。んでつっこまれて良く読みもせずあわてて書いたのが>>645と言うわけだ。
639=641=643　だと気づいたのも今だ。こうなると>>645は完全蛇足だね。

0650デフォルトの名無しさん

NGNG

>>646
ﾜﾗﾀ

0651デフォルトの名無しさん

NGNG

モナジラプロジェクトに参加しようと画策中です。
取りあえず、

T2ch has T2chBoard[]
T2chBoard has T2chThread[]
T2chThread has T2chKakiko[]
T2chKakiko is record

って感じのクラス群を作成しようと思ったのですが
たとえばT2chThreadを仕様変更に伴って継承させた場合、
継承させたクラスはこのクラスのチェインから外れてしまいます。
いくら継承させてもでT2chBoardが生成するのはスーパークラスのT2chThreadになりますよね。

この問題はTMemoのLineのクラスであるTStringListを継承したクラスに差し替えたいというのと同じかと考えます。

何か良い方法は無いでしょうか？
そもそもオブジェクト思考的に問題でしょうか？

ああ、テンプレートが使えればなぁ・・・。

0652デフォルトの名無しさん

NGNG

>>651
T2chThread を継承したクラスはT2chThread*でも*ある。
だからクラスのチェイン(て何だ?)からは外れない。

T2chBoardが固定でT2chThreadを生成する問題については
クラスを作るためのクラスを作って解決すれ。
世間一般にはデザインパターンの Abstruct Factoryと呼ばれるアレ。

0653デフォルトの名無しさん

NGNG

>>652
チェイン：造語でした。
私の設計では、

T2ch - T2chBoard - T2chThread - T2chKakiko

がhas aの関係で繋がっています（これをチェインと勝手に呼びました）。

上位のコンストラクタが自分がhasしているクラスのコンストラクタを適切に呼び出していくイメージです。

よって例えばTThreadをオイスター作戦に対応させたくてT2chThreadを継承した場合、

　　　　　　　　　　　　　　　T2ch - T2chBoard 　T2chThread 　T2chKakiko
こうしたい（T2chBoard修正が必要？）→＼　　　　　　|　　　／←こうしたい（これは可能）
　　　　　　　　　　　　　　　　　　　　　　　　　　　T2chOThread

と、なって上位クラスの修正が必要になるのはスマートじゃないなと感じたわけです。

Abstruct Factoryがんばって調べてみます。
参考になりました。

0654デフォルトの名無しさん

NGNG

クラス化せずに全部関数でMonazillaアプリを作っている私は古いですか？

0655デフォルトの名無しさん

NGNG

オイラ、クラス群の作成とか良くわかんない。
ちょっとやってみようかな。
で、どういうメリットがあるの？

0656デフォルトの名無しさん

NGNG

>>655
みんな自分の処理は自分でやってくれるようになるから管理が楽。

0657デフォルトの名無しさん

NGNG

>>654
師匠、教えてください！
TClientSocketでpc.2ch.net/index.htmlを取得すると、

HTTP/1.1 200 OK
Date: Fri, 03 May 2002 00:53:01 GMT
Server: Apache/1.3.6 (Unix) PHP/4.0.3pl1 mod_gzip/1.3.19.1a mod_ssl/2.3.6 OpenSSL/0.9.3a
Last-Modified: Wed, 01 Jul 1998 08:51:04 GMT
ETag: "81e004-61-3599f878"
Accept-Ranges: bytes
Content-Length: 97
Connection: close
Content-Type: text/html

<title>HURRICANE ELECTRIC</title>
<META HTTP-EQUIV="Refresh" CONTENT="0;
URL=http://www.he.net">

と、謎の鯖に飛ばされるっす！
師匠はどうやって取得してます？
後、どんなAPIとかコントロールでHTTP使ってます？

0658デフォルトの名無しさん

NGNG

Monazilla関連はあっちに逝けや。
Delphi使いもたくさんいるから。

monazilla Part 3
http://pc.2ch.net/test/read.cgi/tech/1012544484/l50

0659デフォルトの名無しさん

NGNG

>>657
＞TClientSocketでpc.2ch.net/index.htmlを取得すると、
ここ取得して何するの？何の情報もないけど…

0660デフォルトの名無しさん

NGNG

>>654
数千行未満のちっこいツールとか
自分一人がソースメンテする場合は全然問題ないと思われ。

0661デフォルトの名無しさん

NGNG

Abstruct FactoryをObjectPascalでやる場合、「クラスを作るクラス」は独立したクラスとして作らなくても、
仮想クラスメソッドのオーバーライドとクラス参照で済んでしまいますけどね。
ObjectPascalはJavaに無い機能をいくつか持っているので、Java用のパターンをそのまま適用するよりももっといいやりかたがあったりして

0662デフォルトの名無しさん

NGNG

>>661
部分的に同意。
ただ、生成対象クラスのconstructorで新しい引数を指定する必要が
できちゃって、クラス分割しなければいけない罠があったりして。

0663匿名

NGNG

MIDIのAIPについて、聞きたいんですが・・・
AIPを使って、MIDIを再生させたいのですが
ソースが分かりません。

0664デフォルトの名無しさん

NGNG

>>663
マルチポストですか。イイ度胸ですね。
二回も間違ってるってことはあなた本気ですね？

0665匿名

NGNG

紹介してもらってはじめてでしたから、何もわからなかったのですみません
消えます。。。

0666デフォルトの名無しさん

NGNG

>>663=マルチ野郎
首釣って氏ね

0667匿名

NGNG

>>666
あんたの家の前で名！

0668匿名

NGNG

　　　　　　.　　 .
　　　　 . 　 -‐-　　.
　　 __ 〃　　　　ヽ :
　　: ヽ＼　ノﾉﾉ）ﾍ)､!〉 :
　　 '. l(0_)!｡-‐　‐〈ﾘ　.
　　　; Vﾚﾘ､" (ﾌ／ ;　　　マルチが663ゲットですぅ～～
　　　　 : l´ヾＦ'Fl :
　　　　　 ;. 〉､_,ノ,ﾉ :　　　　（ﾌﾞﾙﾌﾞﾙｶﾞﾀｶﾞﾀ…）
　　　　　. /ゝ/´, ヽヽ　 .
　　　 : く/l |_ノﾄ‐'⌒),)　:

0669デフォルトの名無しさん

NGNG

2chで*やさしい*に期待した自分がハ?カだった

0670デフォルトの名無しさん

NGNG

>>669
いや、あなたはっきり言ってWindowsプログラミングする資格なし。
まだきづかんか。

0671終了

NGNG

━━━━━━━━━━━━ 終了 ━━━━━━━━━━━━

0672デフォルトの名無しさん

NGNG

たしかにこのスレはおわったな。。

0673名無し募集中。。。

NGNG

揚げ足取りを放置しすぎますた

0674デフォルトの名無しさん

NGNG

まぁもともと大して役に立ってなかったし。

0675名無しヘタぐらま ◆B18Bks.Y

NGNG

>>663
>>669
同じ方？
多分ネット初心者だと思いますけど．
マルチポスト（同一内容を複数で書き込む）は２ちゃんに限らず嫌われますよ．

質問に答えるまでにはそれなりに手間暇（てまひま）がかかっていることを忘れないで．
（私もマルチポストではありませんが
　それを忘れてご迷惑をかけた前科があるので
　偉そうなことはいえないのですが．
　というか思い出すと，非常に痛い(T_T ）

0676デフォルトの名無しさん

NGNG

＞質問に答えるまでにはそれなりに手間暇（てまひま）がかかっている

あの、、結局、質問に答えてないと思うんですけど・・・

0677ソース

NGNG

begin
MIDI.AIP.Play;
end;

0678デフォルトの名無しさん

NGNG

>>676 読解力0ですか

0679676

NGNG

>>678
はぁ？

0680デフォルトの名無しさん

NGNG

>>678
自分のことしか目に入らないので、
一般論として受け取れないのでしょう。

0681デフォルトの名無しさん

NGNG

>>676

＞質問に答えるまでにはそれなりに手間暇（てまひま）がかかっている

というのは、マルチポストがなぜ悪いのかを説明してるんであって、
今回のことに限定した話じゃないだろ。

0682デフォルトの名無しさん

NGNG

しかも、はぁ？ときたか

0683676

NGNG

>>681
了解。読解力０でした。

0684デフォルトの名無しさん

NGNG

>>663
MIDI のどの APIを使いたいのですか？　低レベル APIですか？
WIN32 APIの日本語ヘルプで低レベルオーディオの概要を見て下さい

それか、ここからソース付きのコンポを探してみて下さい
http://home1.infonia.ne.jp/~delphian/delphi/compo/graphmul.html

再生するだけなら低レベルよりMCIが楽です

0685デフォルトの名無しさん

NGNG

たくさんのデータがあって、それを操作・管理しようとするとき
recordとして扱うか、classとして扱うか、の判断基準はなんですか？

0686デフォルトの名無しさん

NGNG

メソッドがあるならclass、ないならrecord.

0687685

NGNG

そのデータは階層構造になってるんですが
階層ごとにclass化したほうが良いですか？
それとも一番上の階層だけをclassにしてあとはrecoedにした方が良いですか？

0688685

NGNG

>687
>recoed→record

綴り間違いましたが煽りではないです。

0689デフォルトの名無しさん

NGNG

オーバーヘッドが大きいんであれなんだが、一番最初はTComponentを継承させた
クラスでやるのが階層関係を書かなくてすむから楽だなあ、とおもっている。

0690デフォルトの名無しさん

NGNG

>>687
そういうのって、他人に聞くことじゃないと思うが。

> たくさんのデータがあって、それを操作・管理しようとするとき
> recordとして扱うか、classとして扱うか、の判断基準はなんですか？

じゃなくて、どう扱えば、操作・管理が楽に出来るかを考えたまえ。

0691685

NGNG

classにすると、そのデータを関数に渡すときにポインタが渡されちゃうのが、ちょっとネックなんです。

もしかして、わたし変なところでつまづいてる？

0692デフォルトの名無しさん

NGNG

object型とつぶやいてみるテスト。

（たぶん無意味だと思います。）

0693デフォルトの名無しさん

NGNG

>そのデータを関数に渡すときにポインタが渡されちゃうのが、ちょっとネックなんです。
大きなサイズのデータをまるまるコピーされる方が便利だと思いますか？

クラスの場合、ポインタであることを意識しなくでも使えるはずなんだけど・・・
（アドレス渡しのレコードの方こそ、ポインタを意識しなければならなくなる）

0694685

NGNG

>大きなサイズのデータをまるまるコピーされる方が便利だと思いますか？

うーん。そういわれると便利だと思います。
以前に自作クラスを作った時にその関連で苦労したので
ちょっとclassに苦手意識を抱いているのかもしれません。

もう一度、用途をよく考えてみますね。
どうもありがとうございました。

0695デフォルトの名無しさん

NGNG

>>693
クラスを値渡しで渡す必要性ってあんまりない気がする・・・コンソール出力クラスとか除いて。

0696デフォルトの名無しさん

NGNG

またＶＢ（以下略）

0697685

NGNG

>693
あ、わたし誤読してますね。（すいません）
うーん。言われたことを参考にして
もう一度、用途とよく相談してみます。

0698デフォルトの名無しさん

NGNG

おまいらDockManagerって何ですか？使い方おせーろ！

0699デフォルトの名無しさん

NGNG

FTPコンポーネント何使ってます？
NMFTPと色々使い比べて見たいのですが。

0700デフォルトの名無しさん

NGNG

>>685
極端かもしれんけど、漏れrecordは基本使わない。
データのみといっても、結局生成時の初期化処理やらで
結局class化させる必要が出てくるものだし。
あと、個人的な好みだけど disposeは生理的に嫌い。

>>699
Indy の IdFtp。漏れの場合、List のオプションを指定する
必要があったので、FastNetやICSでなくこれを選んだ。

0701デフォルトの名無しさん

NGNG

一つしかＰＣ持ってない人はどーやって
プログラムの動作確認すればいいの？
うまくメモリが開放されたかも分からない…

0702デフォルトの名無しさん

NGNG

>>701
デバッガ。

0703デフォルトの名無しさん

NGNG

>>701
127.0.01って知ってる？

0704701

NGNG

>>702
ボーランドのページで調べてみたけど
CPUウィンドウってのでいいの？
もちろん見方も分からないけど。

>>703
いえぜんぜん。

0705デフォルトの名無しさん

NGNG

マジレス。
>>701
はまずネットワークアプリを作る前に、
ネットワークについて勉強しましょう。

0706701

NGNG

>>705
いえあの、PC一個で動く簡単なゲーム作ってるんだけど…
ネットワークなんて高等なものは(((（ ;゜Д゜)))

0707デフォルトの名無しさん

NGNG

"プログラムの動作確認" とか、意味不明な書き方するほうが悪い >>701
メモリ解放の確認だけ答えると、堀さんのMemCheckはどうよ？
これ、”メモリリーク検出 DELPHI” でGoogle検索のトップに出てくるんだけど。ちゃんと探した？

0708デフォルトの名無しさん

NGNG

MS Office のツールバーにあるようなフラットスタイルなコンボボックスを作りたいのですが、
TCustomComboBox から派生させるのと、TCompornent から自前で作るのと
どちらが効率的でしょうか？

0709デフォルトの名無しさん

NGNG

>>708
Delphi Super PageとかDelphian Worldとかで探した方が早いです。

0710デフォルトの名無しさん

NGNG

ひそかに>>703は勘違いさん。

0711デフォルトの名無しさん

NGNG

>>701
　俺は友人にICQで送って使ってもらってるよ。
　使ってるPCの環境の違いだけじゃなく、自分とは違った操作・入力をしてくれるから、
　自分じゃ気付かないバグが出てきたりして有り難いです。

0712708

NGNG

一般的な話として、ComboBox などのコントロールの境界線のスタイルを変更するにはどうすればいいのでしょう？
SetWindowLong などを試してみたのですが、うまくいきません。

0713701

NGNG

>>707
何でかそれ動かなかった。delphi6だから？
きっとやり方はあるんだろうけど…

>>711
は～、なるほど、それですね。ありがとうございました(感謝

0714デフォルトの名無しさん

NGNG

CreateParams
で、出来ないスタイルなら自分で描く

0715デフォルトの名無しさん

NGNG

>>701
仕事で動作確認をする場合に、取りあえずVirtual PCって製品で仮想ＰＣ上に
Win98/SE/ME/2000環境を１台のＰＣに構築して動作確認を取ってます。
（厳密にはＳＰやＩＥのバージョンでより細かく分けてあります）
正式にはやはり専用のＰＣでやってますが、Virtual PC上で動かないソフトは、
本物のＰＣでも動かないのでかなりの確立で動作確認になっていると考えられる。

0716デフォルトの名無しさん

NGNG

IndyTIdHTTPコンポーネント2つ以上同時に通信する方法ありますか?

2つめで通信をすると1つめが中断(?)してしまう。。。

0717デフォルトの名無しさん

NGNG

ちょっと質問です。

整数型→実数型のキャストってどうやるんすか？

Double(整数型)とかやると、「不正なキャスト」言われてしまうんですが。
実数型の変数を用意して整数型変数から代入すれば文句を言われないんだけど、
関数の引数の都合上とかでちょっとキャストしたいときにどうすればいいのかなと。。。
よろしくお願いします。

>>716
TIdHTTPのインスタンスを２つ以上作っちゃえばできるよ。
もちろん別々のスレッドで使おうね。

0718名無しヘタぐらま ◆B18Bks.Y

NGNG

>700
私もrecordはまず使わないです．
Delphiを始めた頃はclassの使い方がいまいちわからなくて
recordに頼ることも多かったのですが．

0719デフォルトの名無しさん

NGNG

レコード型とか構造体って何ですか？

構造体って言うのは変数をひっくるめたものだと考えれば良いのでしょうか。
でもって構造体の別の呼び方をRecord。
あってますか？

疑問に思うのですが変数をバラバラに宣言するのとまとめてしまうのとは、何か違いがあるのですか？

0720デフォルトの名無しさん

NGNG

データの受け渡しに便利

0721デフォルトの名無しさん

NGNG

おっさん「今なら、構造体圧縮袋が20枚セットで
　　　　　　たったの1万円！！1万円でご提供させていただきます。」

おばはん「いいえ！今回は、構造体圧縮袋90万枚突破キャンペーンにつき
　　　　　　さらに20枚をおつけいたします。」

おっさん「えっ？40枚で1万円？これはすごい。」

ﾅﾚｰｼｮﾝ「さらに今回は小さな構造体を持ち運ぶのに便利な
　　　　　　構造体圧縮袋ミニ10枚と、
　　　　　　構造体圧縮袋の使い方を丁寧に説明した
　　　　　　ビデオをおつけいたします。
　　　　　　お申し込みは、今すぐお電話かFAXで」

ぜろいちにーぜろ～

0722デフォルトの名無しさん

NGNG

>>719
＞疑問に思うのですが変数をバラバラに宣言するのとまとめてしまうのとは、何か違いがあるのですか？
おまえな、
カバンぐらい持ってるだろ？小学生ならランドセルでもいいや。
会社や小学校に荷物まとめて持っていくのと、バラバラに持っていくの、
どっちが楽だと思う？

0723デフォルトの名無しさん

NGNG

>>719
＞疑問に思うのですが変数をバラバラに宣言するのとまとめてしまうのとは、何か違いがあるのですか？

すでに自分で答えを書いていますよ。
「バラバラ」で扱うべきか「まとめて」扱うべきかは、便利な方を
選択すればよい。
例えば、関数を作ったときに、引数に多くの変数を渡したいときは、
それら変数をまとめてレコード（構造体）にした方がすっきり記述できる。

＃わたしはレコード使いまくりです。クラスはめんどいから使わない。

0724デフォルトの名無しさん

NGNG

>>717
実数と整数のキャストは出来ません（ヘルプの「型キャスト」に書いてあります）。

整数→実数の変換には「Int」を使います。
実数→整数の変換には、「Ceil」「Floor」「Trunc」などがあります。

0725デフォルトの名無しさん

NGNG

>>724
>整数→実数の変換には「Int」を使います。
？

>>717
値渡しならキャストしなくてもそのまま通ります

参照渡しなら実数型の変数を用意する必要があるでしょう

0726717

NGNG

>>724-725
ありがとう。やっぱり出来ないのか、意外だね。

>>725
>値渡しならキャストしなくてもそのまま通ります
ということは、暗黙の型変換はしてくれるんだ。むむむ・・・

0727719

NGNG

>>723
えっと。
文法上の事ではなく動作的に一緒なのかとお聞きしたのです。
レコードでまとめた方とバラバラで宣言して動作させた物とではやはり変わってくるんですかね。

そりゃ人間では体感できないでしょうけど。

0728名無しヘタぐらま ◆B18Bks.Y

NGNG

>>719
構造体は C や C++ での言い方．
Pascal ではレコード型と呼びます．

プログラムが小さいうちは必要はないかもしれませんね．

0729デフォルトの名無しさん

NGNG

小さくても使うけどな・・・。結局は作るもの次第じゃない？

0730デフォルトの名無しさん

NGNG

>>716
winsockの話とか読んでみ。なんとなくわかるかもしれん。
www.asahi-net.or.jp/~nk2w-ishr/winsock0.htm

>>727
レコード型の長所を一言でいうと類似する変数のグループを繰り返し
コーディングしなくても済むことに尽きるのです。
よって記述方法を無視すればバラで書いてもほぼ同じなんだけど。
だからといってバラで書くメリットがあるかというと、「ない」です。
扱うデータの質にも依るけど長期的にみると、構造体でまとめた方が
ソースの可読性が上がって幸せになることが多いので、
まとめて扱うデータが３つ超えたら構造体に纏めてく方向で一つ。

>>729
ん。プログラムが～、というより扱うデータが小さいうちは、かな。

0731デフォルトの名無しさん

NGNG

２つでも　意味があるんじゃない？例 TPoint

0732デフォルトの名無しさん

NGNG

プログラマー板で聞いたら誘導されたので、こっちにきました

で、質問です

Flash 再生コンポって無い？
もしくは、Macromedia の技術資料の URL

一応、Delphian World ってところで探したんだけど無いんだよね
しょうがねぇから自分で作ろうと思ったんだけど、Macromedia の
サイト行っても技術資料ないし…

0733デフォルトの名無しさん

NGNG

>>728
Record=構造体で良いんですよね？

クラスはobjectとかいうのもO-Pascalの呼び方でしょうか？
普通にClassとも呼んでたりしますが。

0734デフォルトの名無しさん

NGNG

>>732
ActiveXの取り込みで　Flashを取り込むのを普通の人は選択すると思いますが？

0735デフォルトの名無しさん

NGNG

>>733
構造体：レコード型
Record：レコード型

もっともシンプルなデータ構造の一つ。

0736デフォルトの名無しさん

NGNG

>>732
ActiveXの取り込みでFlash使えますよ。
黒い枠が出てくるのであとは再生させるだけです。
凄い簡単です。

使い方はVBと一緒です。

0737デフォルトの名無しさん

NGNG

クラスのインスタンスがオブジェクトだと思います

ただDelphiにはオブジェクト型というのも残っています。
これはレコード型にメソッドが追加されたようなもので
変数宣言するだけでメモリが確保されるタイプのものです
　ただし、C++Builder等では使えないし、将来無くなる可能性大です

0738733

NGNG

>>735
自分は最初Record型って言うからデータベースの管理などに重宝する型なのかと思いました。

「数字、文字列、Yes/No、」

でもよく考えたら構造体そのまんまですね。

0739732

NGNG

activeX で再生するとブツブツとノイズ入るから嫌なんです。細かい制御できないし…
SDK の資料手に入りましたので、これからコンポ作ります。レスありがとう

0740デフォルトの名無しさん

NGNG

>>738
うん。DBにおけるレコードと構造体。何が違うと言われれば何も違わない。

0741デフォルトの名無しさん

NGNG

>>738
正直、ボーランドの入門書の説明が下手だというワナもある。

「レコード＝構造体なんだよ」って率直に書いてくれれば良いのに変な回りくどい書き方するから
余計こんがらがった。

おれも最初「レコードって何だ？」って思ったし。

Delphiのマニュアル全体は理解しにくすぎ。英文を無理に訳してる部分もあるし。
別で金払うからもう少しマシなの作ってと言いたい。
あ、Delphiの解説書があるか・・・　

0742デフォルトの名無しさん

NGNG

俺は素直にレコードみてああ、構造体だなって思ったが・・・。
そんなに迷うことなのか？

0743名無し募集中。。。

NGNG

pascalのレコードは
cの構造体＋共有体みたいなもん

0744デフォルトの名無しさん

NGNG

共有体ってなあに？

0745名無し募集中。。。

NGNG

>>744
unionです
一つの領域をいろんな型として利用できます

0746デフォルトの名無しさん

NGNG

最初、APIに触れたときに、構造体＝recordって理解したけどなぁ。
それからrecordを使い出した記憶がある

0747デフォルトの名無しさん

NGNG

共有体ってキャスト不要（っていうか肩代わり）の変数みたいに見えるけど
レコードと関係あるの？

0748名無し募集中。。。

NGNG

>>747
pascalではレコードの可変部分ってのを使うと
cの共有体と概ね同じ事ができるのです。

0749デフォルトの名無しさん

NGNG

>>745
>>744 は、共有体じゃなくて共用体ではないかと言いたいのではないか ?

>>747
> 共有体ってキャスト不要（っていうか肩代わり）の変数みたいに見える
> けど
その認識は、ちょっと痛い。キャストと共用体では動きが異なる。
union {
　float f;
　int i;
} u;
u.f = 1.0;
とした時の (int)u.f の値と u.i の値は一緒にならないよ。
どっちかって言うと、VB の Variant みたいにどの型がくるかわからない
時に構造体で定義すると領域がもったいないので一つの領域を使い回しす
るようにしている。そう言う意味では Pascal の方が徹底していて、代入
した型と違う型で読み出したらエラーにするような処理系もある。

0750デフォルトの名無しさん

NGNG

>>717
なんか誤解があるようなので言っておくと、

「型キャスト」の場合、
実数 := 整数
はそのままでＯＫ。
整数 := 実数
は Trunc(X),Floor(X), Ceil(X) 等の関数を使う必要がある。

procedure Hoge(E:Extended); ...

という手続きの引数に、例えば実数型である I を指定したいときも

Hoge( I )

だけでＯＫ．
問題なのは、

procedure Hoge(var E:Extended); ..

という引数の場合。これは、変数のコピー（値渡し）ではなく、
変数その物（参照渡し）を受けとるって意味だから、型が一致する
必要があるの。そのばあいには、

Hoge( I )

ってやると、文法エラー。

0751デフォルトの名無しさん

NGNG

共用体は固定小数点で使ったな。

0752デフォルトの名無しさん

NGNG

>>751
俺、RGBで使ったな。

0753デフォルトの名無しさん

NGNG

共用体はヘッダで使った。

THeader = record
case Integer of
0: (Bytes: array [0..7] of Byte)
1: (Param1, Param2, Param3, Param4:Word)
end;

のように。
結構便利。

0754デフォルトの名無しさん

NGNG

指定した文字だけのフォント設定を変換するには
どのような記述をしたらよいでしょうか？

0755デフォルトの名無しさん

NGNG

>>754
変換するには変換するには変換するには変換するには変換するには変換するには変換するには

0756デフォルトの名無しさん

NGNG

>>754
意味不明

0757デフォルトの名無しさん

NGNG

「DELPHI4プログラミング技法vol1」のP403で

var ColNames:TStringList;

ColNames.AddObject('LAST NAME',pointer(StrToInt(edtLastName.Text)));

となっていますが、なぜ pointer( なのですか？
TObject( ではダメなのでしょうか？

0758デフォルトの名無しさん

NGNG

>>757
だって、Intって組込型だし。

0759デフォルトの名無しさん

NGNG

AddObjectの第２引数って Pointer 型じゃなかったっけ。

0760７５７

NGNG

レスありがとうございます。
ヘルプではAddObjectの第２引数はTObject型となっています。
なのになぜわざわざpointer型を用いているのかを疑問に思ったしだいです。

0761デフォルトの名無しさん

NGNG

>>760
確かに不思議だね。

0762デフォルトの名無しさん

NGNG

たんなる直感で
Integer と TObject の結びつきよりも、
Integer と Pointer の方がより関係付けやすいってことじゃない？

TObject ←→ Integer は、「ハァ？」って感じがするけど
Pointer ←→ Integer は、まだ理解しやすいとか…？

0763754

NGNG

分かりにくい質問だったので、書き直します。すみません。

実行中に指定した文字例だけのフォントを変えれるようにするには
どうしたらよいでしょうか？
文字例はRichEditの中にあります。

0764585

NGNG

>>768
例：　大きさなら
RichEdit1.SelAttributes. Size:=30;

フォント名なら
RichEdit1.SelAttributes. name

0765768

NGNG

ハァ？聞いてねえよ。

0766デフォルトの名無しさん

NGNG

ボタンを押したらMemoのカーソルに位置に文字を書き込むにはどうすればいいのかわかりません
lines.add();だったらカーソル関係なく行ごとにしか書けないし・・・。

0767デフォルトの名無しさん

NGNG

Memo1.SelText := 'アホ';
ヘルプ読めよ。

0768デフォルトの名無しさん

NGNG

>>767
それでも教えてくれるあなたはとてもいい人。ｻﾝｸｽｺ。
ヘルプ読んだんですけど、それでも俺はアホなんでわからなかったです。

0769デフォルトの名無しさん

NGNG

SelText プロパティは，編集コントロールのテキストの選択部分を指定します。

property SelText: string;

説明

SelText プロパティは,現在選択されているテキストです。SelText を設
定すると選択したテキストを新しいテキストで置き換えることができます。
範囲選択されていない編集コントロールに SelText を設定すると，カーソ
ル位置に新しい文字列を挿入できます。

うーむ、まんまだと思うが。

0770デフォルトの名無しさん

NGNG

何とかの継承とかいっぱいあってどこ見ればいいのかわからなかったんですよ。

0771デフォルトの名無しさん

NGNG

>>770
プロパティとかメソッドへのリンク開いて上から読んでいくだけだ。

0772デフォルトの名無しさん

NGNG

ヘルプの使い方を覚える

というのが一番の情報源かもね！

0773デフォルトの名無しさん

NGNG

雑談しなくていいからヘルプ見る癖つけようぜ。

0774754

NGNG

返信ありがとうございました。追加質問ですが
指定した文字例のフォント設定を、FontDialogのフォント設定に
合わせたいのですが、どうしたらようでしょうか？

0775764

NGNG

>>774

SelAttributes:TTextAttributes　の Assign メソッドを見て下さい

そして　TFontDialogにはFontプロパティがあります。　もう判りますね？

0776デフォルトの名無しさん

NGNG

なかなかの追い詰め上手。

0777764

NGNG

え？　そんなつもりはないよ。　じゃサンプルコード

with TFontDialog .Create(Self) do try
if Execute then
RichEdit1.SelAttributes.Assign(Font);
finally free;end;

0778デフォルトの名無しさん

NGNG

最近のObjectPascalって例外使えるのね。勉強になった。

0779デフォルトの名無しさん

NGNG

>>774
代入すればいいだろ。それも和歌欄なら、君向いてないんじゃない？

0780デフォルトの名無しさん

NGNG

>>778
Delphi1から使えるけど。

0781デフォルトの名無しさん

NGNG

>>778
with でインスタンス作って tryをbegin代わりに使ってるだけだと思うが？

例外というより、finallyは　例外除けって感じだけどな

0782デフォルトの名無しさん

NGNG

777って778と別の話？誤爆だろ？

0783754

NGNG

解決しました。ありがとうございました。
また、質問があったらHELPを見てから質問しますので
よろしく。
>>779
どのように代入するのでしょうか？

0784デフォルトの名無しさん

NGNG

>>782
推測しろよ。お前はコンパイラかｗ

0785デフォルトの名無しさん

NGNG

16進数を2進数に変換するにはどうしたらいいですか？

0786デフォルトの名無しさん

NGNG

>>785
まんまなＴＩＰＳあるから検索すれ。

0787デフォルトの名無しさん

NGNG

>>785
つぅかちょっと前にそれで盛り上がったぞ。

0788785

NGNG

>>786 >>787
どこにありますか？

0789デフォルトの名無しさん

NGNG

　じ　ぶ　ん　で　さ　が　し　や　が　れ

0790デフォルトの名無しさん

NGNG

>>789　漏前、非道いこと言うな。激しく同意。

0791785

NGNG

自己レス

あ　り　ま　し　た

0792デフォルトの名無しさん

NGNG

>>789
教えてあげてもいいだろ？

やさしいスレなんだから

0793デフォルトの名無しさん

NGNG

>>792
Delphiがやさしいだけでこのスレッドとスレッドに書き込む人はやさしくない。

0794デフォルトの名無しさん

NGNG

>>792
×優しい
○易しい

0795デフォルトの名無しさん

NGNG

>>792
Delモナーが降臨するのを待て。

0796デフォルトの名無しさん

NGNG

>>793
というより愛の鞭だな
甘えるのはよくない

0797デフォルトの名無しさん

NGNG

ファミレスで　幼稚園児に親がハシでアーんとか食べさせてるのを見て　やさしい親だと思うか？

自分で食べさせるだろ？　食べ方を覚えさせるのが優しい親だろうが？

0798デフォルトの名無しさん

NGNG

>>797
魚を与えるより釣り竿を与えろ。ですな。

0799デフォルトの名無しさん

NGNG

D6が出て随分になるけど、MyBaseの評価がWWW上に見当たらない。
特に検索,保存のロジックなんてアプリ毎にシコシコ書くのは面倒だが、
他のDBMSは頒布が面倒なので、使いたくない。

例えば以下の観点で、是非評価を教えてたもれ＞使った事あるヒト
1) 使い勝手(主に開発時)
　－DB関連コンポ使えば他のMyBaseと他のDBを気にする事なく
　　例えば特有のロジック抜きで扱えるのか？
2) 速度
　－オンメモリで処理する時点であきらかに高速なんだが。
　　扱うデータ量が増えればスワップでメリットが相殺される筈。
　　MyBaseで扱うデータ量上限の目安を知りたい
3) 頒布
　－Install Shield 嫌いなんだが、MyBaseを使用するアプリは
　　実行ファイル以外に何か配布する必要はあるのか？
4) その他
　－その他、気になるトコロとか。
　　自前で記述するのとMyBaseを使うのとでどちらがオススメか、とか。
　　MyBaseの評価ならココにあるじゃねーかボケ！とかも歓迎。

いじょ、よろしくおながいします

0800デフォルトの名無しさん

NGNG

>>799　前にもちょっと話題に上がったがまるで盛り上がらなかった
使っている人間が少ないと思われ。
実行ファイルが約300K増えるだけで、他に必要な物はデータファイルのみ。だったと思う。

0801799

NGNG

>800　ありがとう。過去スレが軒並みHTML化待ちで見れなかったので
前回話題をまとめて返答くれたのは非常にありがたい。

0802デフォルトの名無しさん

NGNG

実行ファイルの最小サイズってどのくらいなんでしょうか？
delphi６で何もしないで実行ファイル作ると500KB位なんですが。
それより小さくなることあるんでしょうか？

0803デフォルトの名無しさん

NGNG

VCLを使わず自分でウィンドウを作れば数10kBに収まる。

0804デフォルトの名無しさん

NGNG

>>792
Delphiに関することなら教えるが
レス検索の代行をする必要はまったくない。

0805デフォルトの名無しさん

NGNG

>>802
ありがとうございます。
具体的にはどうすれば？と訊きたいのは山々ですが
その前に調べて見ます！

0806デフォルトの名無しさん

NGNG

>>802 FAQにも関わらず答えてくれる803に敬意を表して補足。
VCLを使わないとDelphiで記述するメリットの80%が消滅する
だから日々を幸せに暮らしたいなら実行ファイルを小さくする事は
基本、忘れた方が良い。
上記を踏まえた上でというならば、パッケージ化とかDLL化とか
（邪道くさいがUPX圧縮とか）があるので、自分で適当に探ってくれい。

0807悪魔のささやき

NGNG

>>802
下のスレッドが参考になりますよ。
VCLを使わず自力でやれば実行ファイルのサイズも小さくなりすっきり！！

Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/

0808デフォルトの名無しさん

NGNG

>>806
メリットはなくなってもそんな真似が出来てしまうのがDelphiのすごいところ。
VBにはまねできません。

0809802です

NGNG

806,807,808のみなさん！ありがとう。
そして気づけばsage進行のこのスレを上げてしまっててごめんでした。
これから807さん紹介のスレを熟読してきます。
感謝！

0810デフォルトの名無しさん

NGNG

sage進行じゃないよ。質問はageるべき。

0811デフォルトの名無しさん

NGNG

>>808
同感！

0812デフォルトの名無しさん

NGNG

>>806
>VCLを使わないとDelphiで記述するメリットの80%が消滅する

同感だが、806 さんの場合、あとの２０％のメリットってなに？

0813デフォルトの名無しさん

NGNG

>>812
コンソールアプリが組める＝１０％、小さいEXEが作れる＝９％では？

0814デフォルトの名無しさん

NGNG

>>812
806さんじゃないけど、　俺低レベルのwavAPIコンポとかACMコンポとか
作ったもんだから、他の言語使う時でもその部分はDLLにして使ってるよ

0815812

NGNG

>>813
>>814

なるほど。
でもＶＢは圏外だとしても、ＶＣ++でもそれは楽勝では？
なぜ、ＶＣＬなしの Delphi のメリットといえるの？

0816デフォルトの名無しさん

NGNG

>>815
VC++ > Delphi≒VBって前提の話よ。世の中そう考えてる人が多い。

0817812

NGNG

>>816

あっ、そういう流れのハナシだったわけね。

VC++ は Delphi より、優れているところもあるけど、総合的にみれば
Windows アプリ開発環境として Delphi の方が優れている、と思っています。

それで、ＶＣＬなしでＭＦＣなしのＶＣ＋＋と比較して、どうなのかな？
と思っていたんです。ドキュメントの多さではＣも使えるＶＣ＋＋の
勝ちだと思うけど、その他で Delphi のメリットってなんだろうね。

813,814,816 ありがと

0818悪魔のささやき

NGNG

>>815
VC++だと楽勝も何も・・・

0819悪魔のささやき

NGNG

>>817
ドキュメントが激烈に少ないから結局C++のサンプルも読むようになる、
その結果、DelphiとC++の両ドキュメントを参照できる分、Delphiが有利(藁

冗談は置いておいて(あながち冗談じゃないが
まあ、後は言語の好き嫌いじゃないですかね。VCLなしで考えると。

0820デフォルトの名無しさん

NGNG

Delphiのエディタって、前方検索はショートカットキーではできないんでしょうか？
ヘルプのショートカットキー一覧を見てもないんですが…

検索ダイアログで前方検索にチェックを入れないとダメ？

0821デフォルトの名無しさん

NGNG

個人的にはObjectPascalが使えるのとコンパイルが早いというのが
Delphiを使う理由の20%くらいを占めている。

0822デフォルトの名無しさん

NGNG

Delphiで「最大公約数」を計算するプログラムｇｃｍを作成せよって課題
が出たんだが、どういうプログラムソースを作るか全くわからん　教えて
ください。

0823　

NGNG

>>822
全ての約数を求めるプログラムを書いて、共通するものだけを抜き出す。

0824812

NGNG

>>819
>>821

回答ありがとう。

そうなんだよね。ObjectPascal すきです、オレ。

あと、激速コンパイルというのも、プログラマの環境としては
重要な要素だとね。本質的でない、という主張も聞きますが、
結構重要なことだと思うよ、確かに。

個人的には、ＶＣＬなくてもＭＦＣありのＶＣ++ より Delphi を
使いたい。状況が許せば....。

0825デフォルトの名無しさん

NGNG

>>822 　ユークリッド　互除法　で検索してごらん

http://pc.2ch.net/test/read.cgi/tech/1009903617/

0826デフォルトの名無しさん

NGNG

>>820
残念ながらないみたい。俺も不便で困っている。
検索を通り過ぎた場合なら、undoで前の位置にもどることができるが、
やはり、現在位置から上方に一発で検索できない。
Delphi使い始めたころからの不満。

>>821
コンパイルが速いのはでかいよね。
10万行近くのものを再コンパイルしても、10秒もかからないとそりゃ離せなくなるさ。

>>822
http://www.google.co.jp/search?hl=ja&lr=lang_ja&q=%8D%C5%91%E5%8C%F6%96%F1%90%94+gcm

0827デフォルトの名無しさん

NGNG

>>826
10万行もの長いプログラムを一つのファイルに書く人はいない。

0828デフォルトの名無しさん

NGNG

ローカル変数の宣言は関数の先頭でしか出来ないのでしょうか？
ストレスがたまりまくって困っています。

0829デフォルトの名無しさん

NGNG

>>828
C++厨?

0830822

NGNG

プログラムソースを提示してくれれば一番いいんだけど
誰か作ってくれー

0831デフォルトの名無しさん

NGNG

>>828
ソープ逝って抜いて来い

0832デフォルトの名無しさん

NGNG

>>830
課題は自分でやるものだろ？
ヒントはもらっているんだから自分でやれよ。
http://www.nara-edu.ac.jp/~asait/c_program/sample/euclid.htm

0833デフォルトの名無しさん

NGNG

>>828
関数の行数が多すぎなければ気になりませんけど

0834デフォルトの名無しさん

NGNG

関数の先頭で変数宣言するのが嫌な人はよほど長い関数を書いているのだろうか。

0835デフォルトの名無しさん

NGNG

ローカル変数の宣言は関数の先頭でしか出来ないです
ここにはローカル変数の宣言のほかに、
型の宣言、ラベルの宣言、そして関数内関数も宣言出来ます

長すぎるようなら　関数内関数に別けて構造化すると良いでしょう

0836828

NGNG

通常の関数はせいぜい数十行とかですが、
長さがどうのというよりも、関数を書いていて新しい変数が必要だと気付いたときに
いちいち関数の先頭まで戻って変数の宣言を書かないといけないのが面倒です。

0837デフォルトの名無しさん

NGNG

>>836
ﾊｧ!!!!!?????
プログラミングなんかやめちまえ!

0838デフォルトの名無しさん

NGNG

>>836
あちこちで宣言されたら、後から読む人が面倒です。

0839837

NGNG

というより、Perlでもやれ。

0840828

NGNG

>>837
そんなに煽らないでも

>>838
そうでしょうか？
ローカル変数を先頭でまとめて宣言しようが、初出時（初使用時）に宣言しようが別に変わらないと自分は思います。
むしろ、初出時の方が分かりやすいと思うんですが…

とりあえずできないということなので諦めます。
ありがとうございました。

0841デフォルトの名無しさん

NGNG

>>836

言語仕様ですからねぇ。

どうしてもストレス溜まってイヤなら、

１．開発言語を変える
２．関数書くのやめる
３．プログラマやめる

のうちから自由に選べます。

0842デフォルトの名無しさん

NGNG

>>840
Delphiの元になったpascalは教育用として開発されました。
　ですから教師が読みやすい必要があります。

あなたに後輩が出来たとして　後輩のコードを読まなければならない時、
どこに書いても良いのと　書くべき場所が決まっているのと、どちらが好
ましいですか？

同じアルゴリズムなら　出来るだけ同じコードになった方がいいでしょう？
独自性はアルゴリズムで表現すべきで、　コードの表現方法で出しても
意味ないですしね

0843デフォルトの名無しさん

NGNG

しかしBEGINとENDの嵐のDelphiはもともと読みにく(以下略

0844デフォルトの名無しさん

NGNG

>>843
beginとendならそうでもないよ(w

0845デフォルトの名無しさん

NGNG

>>817　コンパイルの速さ、なんだけど。先に書かれてしまった。
20%つーのは異論はあるかもだけど、漏れせっかちさんなので
まったりコンパイルされると、やる気が削がれて首吊っちゃう(w

アマからプロまで間口が広く、良い意味で中庸＞メリット
ホントは教科書の Pascal評にならって教育用と言いたいけど
実際の教育現場ではシェア優先でC++やJavaを教えちゃう事が多い現実が(w

0846デフォルトの名無しさん

NGNG

>>843

なにと比べて？

C, C++, Basic でコード書いたことがあるが、Pascal が一番可読性が
あると思っています。慣れの要素が大きいんだろうけど。

普通は、begin end ともに小文字で書きます。

0847デフォルトの名無しさん

NGNG

>>841
１＝２では？
関数書かずにpascal書くのは無理だと思われ
変数をまったく使わないというなら話は別だが

0848デフォルトの名無しさん

NGNG

>>843
慣れの問題だろ、慣れの。
俺はCから入ったから比較的違和感感じたけど。

0849デフォルトの名無しさん

NGNG

>>847
関数書かずに Pascal 書けるだろ・・・

0850デフォルトの名無しさん

NGNG

begin end は深いネストや　1行書きを防ぐのに役立っているよ
　複雑になったら構造化するクセがつく

0851845 = 806

NGNG

817 → 812、ね。スマン

0852デフォルトの名無しさん

NGNG

Begin End
beGin eNd
begiN enD
BEGIN END
BEgIN EnD
とか対応させたら見やすくならないだろうか。どのendなのか、とか・・・

0853デフォルトの名無しさん

NGNG

>>852
ますます混乱する罠
インデントで十分やろｗ

0854デフォルトの名無しさん

NGNG

begin end は別に嫌いじゃない。
むしろ、if とかにも end が欲しい。

0855デフォルトの名無しさん

NGNG

Trueをtrueって書くのは嫌われますか？

0856デフォルトの名無しさん

NGNG

if を If って書くのは嫌われますか？

0857812

NGNG

>>845 = 806

ありがとう。

いま話題になっている、ローカル変数の宣言の場所が固定されていること
や begin end も実はコンパイルの速さに貢献しているのですね。

ＶＣ＋＋ではコンパイルが遅いのと、関連する多数のファイルが生成されるのが
気が滅入ります。

0858デフォルトの名無しさん

NGNG

>>855
>>856
好きな方でいいと思うけど、統一されてないのは美しくない・・・

0859デフォルトの名無しさん

NGNG

>>854
> if とかにも end が欲しい
だから、begin end があるだろ。

0860デフォルトの名無しさん

NGNG

>>859
else がついたときにちょっと変になる

if ～～ then begin
end <---------------ここの end で if 関連全部終わったかのような感じがする
else begin
end

0861デフォルトの名無しさん

NGNG

>>860
if ～ then
begin
　～
end else begin
　～
end;

こーかいとけ。

0862デフォルトの名無しさん

NGNG

何度も外出だけど・・・
if ～ then
begin
　～
end else
if ～ then
begin
　～
end else
begin
　～
end;
と書くと
if ～ then
begin
　～
end else
の部分がブロック化できてなにかと便利

0863デフォルトの名無しさん

NGNG

たしかに微妙にCを勉強してからPascalやってみたらやりにくかったなぁ。
それはそうと、
if () then begin
　　～～
end
else begin
　　～～
end;

って書いてる折れはやっぱ駄目ですか？

0864デフォルトの名無しさん

NGNG

>>863　駄目な書き方ということはないですけど
自分の場合
end
だけの行だと、手が勝手に
end;
と打ってしまうことが多いので
コンパイルエラーを減らすために862のような書き方になったわけで

0865デフォルトの名無しさん

NGNG

なるほど、>>862をよく見てみたら結構(・∀・)ｲｲね。
今度からその書き方にしよ。

0866866

NGNG

｡･ﾟ･(ﾉД`)･ﾟ･｡

0867デフォルトの名無しさん

NGNG

Delphi.NETが糞だって解って少しガッカリ、俺だけじゃないだろ。
ま、いいけど。

0868デフォルトの名無しさん

NGNG

（´-`）。o ○ （ソースに半角スペース入れて思いっきり無意味になってるヤツがいるな…）

0869デフォルトの名無しさん

NGNG

（´-`）。o ○ （どのソースのことだろう？誤爆かな？）

0870868

NGNG

　　　　　　　　∧＿∧
　　　　　　　（ ´Д｀） Σ　ｽﾏﾝ　誤爆･･･
　　　　　　　／,　　/
　　　　　　(ぃ９　　|

0871８６８

NGNG

>>870
はぁ？アホですか？

0872868

NGNG

>>871 あんた誰？

0873デフォルトの名無しさん

NGNG

関係無いけどインデント幅いくつにしてる？

基本は 2, 4, 8 のどれかだと思うんだけど、
2 は幅が少なすぎて深くネストしやすくなってしまうし、かといって
８は深すぎて使いにくいので、初心者にはいつも４を勧めているのだが。

0874デフォルトの名無しさん

NGNG

男は黙ってインデント幅1。
しかしこれをやると友人から嫌われるという諸刃の剣。
素人にはお勧めできない。

0875デフォルトの名無しさん

NGNG

>>873 俺も４

0876デフォルトの名無しさん

NGNG

>>867
Delphi.NET発表されたの？

0877デフォルトの名無しさん

NGNG

>>874
あんた、漢だな。ホレたぜ。

0878デフォルトの名無しさん

NGNG

俺の場合、インデント幅によってはプログラム構造に影響を受けないつもりだから
画面が少しでも広く使えるように 2

0879デフォルトの名無しさん

NGNG

どこかでPascalは2、C/C++は4使う人が多いって聞いたような…

0880デフォルトの名無しさん

NGNG

>>854
COBOLのＩＦ文にはIF～ENDIFという形式がある。
けっこう見やすくて好きだ。

0881デフォルトの名無しさん

NGNG

わたくしもインデント1です。
てか、1バイトスペース入れるだけ。

0882デフォルトの名無しさん

NGNG

インデントは3がもっとも美しい。

0883デフォルトの名無しさん

NGNG

今試しにインデントを4->2にしたんだがなかなか見やすい。
深いインデントが嫌いで避けていたんだが、これで多い日も安心。

0884デフォルトの名無しさん

NGNG

あんまりだ｡･ﾟ･(ﾉД`)･ﾟ･｡

0885デフォルトの名無しさん

NGNG

VCLは2でしょ？
C/C++は8が多い。

0886デフォルトの名無しさん

NGNG

つか、なんで深いインデントは駄目ですか
ソースが見やすければ、全然問題ないのでは・・・？
（インデントを2にする前提だとしても）

0887デフォルトの名無しさん

NGNG

それより俺は、どれくらいだと「深い」のか基準が知りたい。

0888デフォルトの名無しさん

NGNG

誰も駄目だなんていってないだろ
883が嫌いなだけじゃねえのか？

0889デフォルトの名無しさん

NGNG

やっぱインデント幅は16だろ。
一目でわかるぞ。

0890デフォルトの名無しさん

NGNG

画面が狭いと横スクロールしないと全文が見えないからかな？＜深いインデント嫌

0891デフォルトの名無しさん

NGNG

会社の上司が「Delphiのパーソナルは商用でも使えるらしいぞ」などと言ってました。
本当でしょうか？

自分は絶対無理と言い切りましたけど。
馬鹿らしい質問ですいません。

0892デフォルトの名無しさん

NGNG

>>891
使えません。
-------------
※Delphi 6 Personalでは、商用・業務アプリケーションの開発はできません。
http://www.borland.co.jp/delphi/personal/

0893デフォルトの名無しさん

NGNG

社員にフリーソフト（フリーコンポーネント）として公開させて、
それを会社が採用したって形にするって事かな？

0894デフォルトの名無しさん

NGNG

上司はワレザー

0895デフォルトの名無しさん

NGNG

ﾀｲｰﾎ

0896891

NGNG

>>892
上司にそのURLを突きつけます

マジムカツクので。

自分で開発してるDelphiProも自腹で払ってるって言うのに。（何故か領収書は会社・・・）

0897デフォルトの名無しさん

NGNG

>>896
いい気になるなよ。

0898デフォルトの名無しさん

NGNG

>>891
がんばって路頭に迷ってくらさい。

0899名無し

NGNG

学校の授業中にカキコ

0900デフォルトの名無しさん

NGNG

900get

0901デフォルトの名無しさん

NGNG

procedure TForm1.Button1Click(Sender: TObject);
begin
Thread1 := TThread.Create(False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　//スキップ
IdHTTP1.DisconnectSocket;
end;

スレッド
procedure Thread1.Execute;
var
i:Integer;
begin
with Form1 do
begin
for i := 0 to ComboBox1.Items.Count-1 do
begin
try
Memo1.Text := IdHTTP1.Get(ComboBox1.Items[i]);
//処理
except
//スキップ処理
end;
end;
end;
end;

Button1を押すとComboBox1に登録されているURLからソースを取得して
処理し、Button2を押すとソースの取得をスキップして
次のComboBox1に登録されているURLへ行くプログラムを作りたいのですが、
上のようなコードだとWin2000だとスキップしても次の処理に行ってくれるのですが
WinMEだと止まってしまいます。WinMEでも止まらないようにするにはどうしたらよいのでしょうか？

0902デフォルトの名無しさん

NGNG

とりあえず、VCLを生で犯すのをやめてみてくらさい。

0903901

NGNG

>>902
すいません。。Synchronizeしてないですね。。
やってみたのですがうまくいかんです。

0904デフォルトの名無しさん

NGNG

ハムスターをチン
http://tmp.2ch.net/test/read.cgi/cat/993907424/

0905デフォルトの名無しさん

NGNG

delphiのグリッドコントロールでセルの結合とかって出来ますか？
OnDrawCellとかで罫線を自分で書くっていう方法しか思いつかないのですが、それしかない？

0906デフォルトの名無しさん

NGNG

>>905
よく使うならコンポーネント化しますね

凛太郎さんだったかな・・・実際にそういうコンポーネントを作ったとか書いてたっけ
（更に多機能だったと思うけど）

0907905

NGNG

>>906
情報どうもです。
やはり自分で書くことになるということですね。頑張ります。

0908デフォルトの名無しさん

NGNG

やはりインデントは2．タブも使わない．
人それぞれなんだろうが、人のソースでタブ使われてるのを
修正するときはちょっとイライラする・・・．

まあ、それはその人のソースそのものが糞なせいもあるが．

0909デフォルトの名無しさん

NGNG

常にタブでインデントする。何桁かなんて気にしない。タブ1コが1インデント。
見る方で2でも4でも8でも好きなようにタブ幅を変更すればよし。

0910デフォルトの名無しさん

NGNG

>>909
（´-`）.｡oO（たぶんそれが理想的だと思うけど、なんでみんなスペース使うんだろう？

0911デフォルトの名無しさん

NGNG

>>910
Delphiは自動手に気変換されるじゃん。

0912デフォルトの名無しさん

NGNG

今日から１ヶ月出張に出るので、購読を中止します

bye

0913デフォルトの名無しさん

NGNG

>>912
定期的に同じ文章を書いてしおり機能を無効化しようと思います。

0914デフォルトの名無しさん

NGNG

>>913
うぅ～ん　いーーけーーずぅーーー

0915デフォルトの名無しさん

NGNG

そろそろ　次すれたてたらどう？　埋めちゃうと見えなくなるよ。

0916デフォルトの名無しさん

NGNG

Delモナーを召喚しる！

0917デフォルトの名無しさん

NGNG

うめ～

0918デフォルトの名無しさん

NGNG

梅

0919デフォルトの名無しさん

NGNG

産め

0920Delモナー

NGNG

　　　　　＿＿ヘ＿ヘ＿　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　　／∴∵(・) (・)∴＼　　　　／
　　　/∴∵∴∵○∴∵ ヽ　　＜　こんな糞スレ終了でいいだろ？
　　（∵∴∵●～～～●∴）　　　＼　＿＿＿＿＿＿＿＿＿＿
　　　＼∵∴∵∴∵∴∵／　　　　　
　　　　　＼ ∵∴∵∴／

0921書けませんよ。。。。。

NGNG

真・スレッドストッパー。。。(￣ー￣)ﾆﾔﾘｯ

0922Delモナー ◆fPymXWHY

NGNG

>>916
　　　　　ガラッ
＿┃＿┃　　　　　　＿┃
━╋━╋ ∧＿∧　━╋　／￣￣￣￣￣
○┃×┃（　´∀｀）＿┃＜　呼んだ？
━╋━⊂　　/　　　━╋ 　＼＿＿＿＿＿
＿┃＿┃　/　　　　＿┃

0923デフォルトの名無しさん

NGNG

>>922
次スレの準備よろしくおながいします。

0924デフォルトの名無しさん

NGNG

もはやスレ立て専門職だな(w

0925デフォルトの名無しさん

NGNG

マジでここもう終了するんですか？結構良かった時もあったのにねぇ。

0926デフォルトの名無しさん

NGNG

【質問】Delphiワッショイ！！Ver.7【解答】
名前：　
E-mail： sage
内容：
　　　　　　　　　　Delphiワッショイ！！
　　　　　　　＼＼　 CPBワッショイ！！　／／
　　　+　　　+　＼＼　Kylixワッショイ！！／+
　　　　　　　　　　　　　　　　　　　　　　　　　　　　+
.　　　　　+　　／■＼　　／■＼　／■＼　　+
　　　　　　　　（　´∀｀∩（´∀｀∩）（　´∀｀）
　　　+　　（(　（つ　　　ノ（つ　　丿（つ　　つ　)）　　+
　　　　　　　　ヽ　（　ノ　（　ヽノ　　）　）　）
　　　　　　　　　（＿）し'　し（＿）　（＿）＿）

今度はDelphiファミリーにまで話を広げようかと。
.NET登場で一気に逆転か！？

前スレモナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/test/read.cgi/tech/1019134412

>>2-10あたりに関連情報あり
○過去スレ
○関連スレ
○Delphi製品情報
○関連リンク
○質問者へ
○ソース置き場案内

0927デフォルトの名無しさん

NGNG

>>926
それだけは、やめてくれ。

0928デフォルトの名無しさん

NGNG

>>926
CPBって言うかな。BCBの方がよく聞かない？

0929■質問者A

NGNG

Delphi始めようと思い、DelphiのObject Pascalについて詳しく書かれた本を探しています。
お薦めの本を紹介してください。
（コンポーネントとかは適当でいいので文法について詳しい本が欲しいです。）
ちなみにプログラミングはCを少しかじった程度です。

0930デフォルトの名無しさん

NGNG

冗談抜きで付属の ObjectPascal 言語ガイド
これより詳しい文法本なんてあるのかな？

0931■質問者A

NGNG

>930
パッケージ版を買った方がいいということでしょうか？

0932デフォルトの名無しさん

NGNG

>>930
付属マニュアルはわかりにくい。
お店で買った方が良いよ。

0933デフォルトの名無しさん

NGNG

>>929
文法についてなら930が言っていることは正しい。ダウンできるPDFがあるはず。
プログラミングの手順全般、テクニックなら本を買おう。
俺は確か「基礎からわかるDelphi6」とかいう本を買ったと思う。

0934デフォルトの名無しさん

NGNG

>>933
俺はそれを一昨日買ったよ～。2,400円。
分厚い本は5,800円とか6,200円とかあったな。

0935■質問者A

NGNG

本がないと安心できない気質なのでパッケージ版を買ってしまおうと思います。
ありがとうございました。

Personalはフリーだから始めようと思ったのに、結局買ってしまう罠？

0936デフォルトの名無しさん

NGNG

全半角混在文字列よりcopy関数を使用して文字列を抜き出すと場所が悪いと
後ろが文字化けしたのがくっついてきます。バイト数で抜き出したいのでLeftStr等
は使用できない状況です。
例えば
s1:='ああｱああ';
s2:=copy(s1,1,6);

とやると、s2の値が'ああｱ'#$82となってしまうのです。
後ろの#$82を切り捨てたいのですが良い方法はないでしょうか。

0937デフォルトの名無しさん

NGNG

ByteTypeだけ、あれ使えばよいよ。＞936

0938デフォルトの名無しさん

NGNG

×ByteTypeだけ、
○ByteTypeだっけ、

すつれー。。

0939デフォルトの名無しさん

NGNG

文字が漢字かそうでないかを判断するにはどうすれば良いんでしょうか？
例えば'亜'という字が一つあったとして、それが漢字なのか平仮名なのか片仮名なのか判断したいなと。

0940デフォルトの名無しさん

NGNG

937>の方へ
>>936　の例だと
ByteTypeで6ﾊﾞｲﾄ目が2バイト文字の最初のバイトかどうか判断して
そうであるなら5ﾊﾞｲﾄ目までを対象とする考えでよろしいのですよね。
一発変換できるわけではないですよね。
確認でした。

0941デフォルトの名無しさん

NGNG

>>939
文字コード表を眺めれば答えは出るよ。

0942デフォルトの名無しさん

NGNG

>>936
↓こういうのがご希望？
function MyCopy(S: String; Index, Count: Integer): string;
begin
if IsDBCSLeadByte(Ord(S[Index+Count-1])) then
Result:=Copy(S, Index, Count-1)
else
Result:=Copy(S, Index, Count);
end;

0943デフォルトの名無しさん

NGNG

>>942
ありがとうございました。
これでバッチリです...この部分はたぶん。

0944デフォルトの名無しさん

NGNG

変な質問でしたらすみません。
windowsNT4 or 2000でdelphi6personalにKodak Image Edit Ctrl
をactivXの取り込みでインストールして、コンパイルすると
「ファイル 'DBOleCtl.dcu' が見つかりません」とでてインストール出来ません
DBOleCtl.dcuというファイル自体がどこにも見当たらないのですが、
どうすればインストール出来るでしょうか？

0945デフォルトの名無しさん

NGNG

>>944
Professional以上を買う

0946無責任だが

NGNG

手で
uses から DBOleCtl を消して

TDBOleControl -> TOleControl
にしてみたら？　ダメ？

0947944

NGNG

>Professional以上を買う
ぐぅ..そうなんですか.....
>TDBOleControl -> TOleControl
にしてみたら？　ダメ？
　さっそくやってみたのですが今度は
「'TOleControl.dcu' が見つかりません」と出てしまいました.

imagingを使わなくてもtiffファイルをグレースケールがかかった状態で
表示できる方法が(無料で)あればいいのですが、どなたか知らないでしょうか？

0948無責任だが

NGNG

違う　それはたぶん uses の DBOleCtl を変更したのでしょう？　これは消して

なんとか = class(TDBOleContorl) をなんとか = class(TOleContorl) としてみて

でも、そのコントロールの使い方は知らないんだけどね

0949944

NGNG

やってみましたが70個くらいエラーが出てきました....考えてもらったのに
上手く出来なくて申し訳ないです..

0950デフォルトの名無しさん

NGNG

次スレできたよ。
http://pc.2ch.net/test/read.cgi/tech/1018211735/

0951デフォルトの名無しさん

NGNG

>>950
２点。

0952デフォルトの名無しさん

NGNG

マジでスレ立てろや！

0953デフォルトの名無しさん

NGNG

>>942

IsDBCSLeadByte() は２バイト文字の２バイト目でも true を
返すことがあるのよ。ちゃんと先頭から評価しないとだめ。

Label1.Caption := MyCopy('部部部',1,6);

これは失敗するよ。

0954953

NGNG

function MyCopy(S:string;Index,Count:integer): string;
var
i:integer;
begin
i := Index;
while i < Count+Index-1 do
if IsDBCSLeadByte(Ord(S[i])) then Inc(i,2) else Inc(i);

Result:=Copy(S,Index,i-Index);
end;

0955デフォルトの名無しさん

NGNG

>>939
漢字／平仮名／片仮名程度なら、これで解決しる。
www.nifty.ne.jp/forum/fdelphi/samples/00357.html
あと、サンプル蔵は玉石混合だけど一通り目を通した方がいいよ

0956デフォルトの名無しさん

NGNG

何気に16進数を2進数に変換する方法は多いけど、
2進数を16進数に変換する方法はどうやればいいんですか？

0957デフォルトの名無しさん

NGNG

>>956
n進m進変換って公式確立してなかったっけ？

0958デフォルトの名無しさん

NGNG

>>956
4ビットずつ読んでテーブル引き。

0959デフォルトの名無しさん

NGNG

>>958
ソースきぼんぬ

0960デフォルトの名無しさん

NGNG

>>959
ごめん、10進変換してテーブル引きの方が簡単だわ。

0961デフォルトの名無しさん

NGNG

>>960
ソースきぼんぬ。
10進数に変換したら、IntToHexで（・∀・）イイ!! よね

0962デフォルトの名無しさん

NGNG

きぼんぬじゃねえよ、暇人

0963デフォルトの名無しさん

NGNG

Delphi忘れたからCっぽくてもいい？

char data = "01001101";

for(i = 8;i >= 0;i--)
{

if(data[i] == 1)
{
temp = 1;

//power
for(j = 0;j < i;j++)
{
temp *= 2;
}

result += temp;

}

}

printf("%x",result);

コンパイルしてないのでつっこみどころ満載（予定）。

0964デフォルトの名無しさん

NGNG

Delphiでコンパイル成功版。

var
data :Array [0..8] of char;
i,j,temp,result :Integer;
begin
strcopy(data,'10000011');
result := 0;
for i := 7 downto 0 do
begin

if(data[i] = '1') then
begin
temp := 1;

for j := 7 downto i + 1 do
begin
temp := temp * 2;
end;

result := result + temp;

end;
end;

ShowMessageFmt('%d',[result]);
end;

0965デフォルトの名無しさん

NGNG

downto止め版。

var
data :Array [0..8] of char;
i,j,temp,result :Integer;
begin

strcopy(data,'10000001');
result := 0;

for i := 0 to 7 do
begin

if(data[i] = '1') then
begin
temp := 1;

for j := 0 to i - 1 do
begin
temp := temp * 2;
end;

result := result + temp;

end;
end;

ShowMessageFmt('%d',[result]);
end;

0966942

NGNG

>>953
サンクス、勉強になった

0967Delフサギコ ◆zE1iiRdQ

NGNG

　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧,,∧　　　／
　　ミ,,ﾟДﾟ彡　＜　この辺り参考にドゾ
　　ﾐ⊃　ﾐ⊃　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　～ﾐ　　ﾐ
　　 ∪''∪
[Delphi-ML:32648] Re: 2進数への変換
[Delphi-ML:32992] Re: 2進数文字列 ->数値(BinToInt)変換

0968Delモナー ◆fPymXWHY

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. 新スレ立てました。
　（　　　　）　.| でもこのスレ埋まるまでは、
　｜｜｜　| 新スレはsageておいて下さい。
　（＿_）＿）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

新スレはここ
モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/test/read.cgi/tech/1021201697/

0969デフォルトの名無しさん

NGNG

埋めると　お金払ったした人しか見えなくなるよ。

あ！、埋めて皆で金払おう運動展開中？

0970デフォルトの名無しさん

NGNG

あっちもこっちもだと面倒だから、早く埋めよう。

0971デフォルトの名無しさん

NGNG

1000取りやる?

0972デフォルトの名無しさん

NGNG

タイトルバーのないウインドウのサイズを変更したい

0973デフォルトの名無しさん

NGNG

>>972
どうぞ。

0974デフォルトの名無しさん

NGNG

>>972
そんなことはオレ様が許さねぇ！！

0975デフォルトの名無しさん

NGNG

ジンギスカンは出るなよ！絶対だぞ！

0976デフォルトの名無しさん

NGNG

いつから「ＨＴＭＬ化するのを待っているようです」とかぬかすようになった
のかねぇ？
で、我慢出来ないヤツは金払ってんの？

0977デフォルトの名無しさん

NGNG

>>976
ガタガタ言わずに払え。
ただで使わせてもらえるだけありがたいと思え。

0978ガタガタ

NGNG

ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ
ガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタガタ

0979デフォルトの名無しさん

NGNG

EmbeddedWbってのを今ＤＬしたんだけど、readmeすらついてないのな…。
ちょっとﾋﾞｸｰﾘ。

0980なかなか埋まりませんネ

NGNG

EmbeddedWb使ってる人、手を挙げてー！

0981デフォルトの名無しさん

NGNG

易しい
優しい

0982デフォルトの名無しさん

NGNG

　　　　　　∧∧　　ミ　＿　ドスッ
　　　　　 (　　,,)┌─┴┴─┐
　　　　　/　　　つ　やらしい? |
　　　～′　/´　└─┬┬─┘
　　　　∪ ∪　　　　　││　_ε３
　　　　　　　　　　　　゛゛'゛'゛

0983デフォルトの名無しさん

NGNG

>>980
俺も気にはなっていたんだ。感想きぼん。

0984デフォルトの名無しさん

NGNG

　　　　　　　v
　　　　　　(ﾟωﾟ)　＜おいらのこと呼んだ？
　　　　　／(　 )＼
　　　　　　／'＼

0985デフォルトの名無しさん

NGNG

>>984
氏ねアピッシャー

0986デフォルトの名無しさん

NGNG

こそー

0987デフォルトの名無しさん

NGNG

0988デフォルトの名無しさん

NGNG

ｂ

0989デフォルトの名無しさん

NGNG

ｃえーと。

0990デフォルトの名無しさん

NGNG

昔、こうゆうことしてたらね、

0991デフォルトの名無しさん

NGNG

とちゅうで、さらしあげされちゃってね、

0992デフォルトの名無しさん

NGNG

ほんとにうつになっちゃったの。

0993デフォルトの名無しさん

NGNG

それで、こううつざいのんでたんだけど、
。。。

0994デフォルトの名無しさん

NGNG

なかなかよくならなくて・・・。

0995デフォルトの名無しさん

NGNG

で、きづいちゃったのね、

0996デフォルトの名無しさん

NGNG

やっぱり１０００とらなきゃ治らないって。

0997デフォルトの名無しさん

NGNG

だから、こうしてがんばってるわけ。
。。わかる？

0998デフォルトの名無しさん

NGNG

でも、そうすると次のスレへの誘導もする必要があるの。
それは大切でしょ？

0999デフォルトの名無しさん

NGNG

モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/test/read.cgi/tech/1021262086/l50

1000デフォルトの名無しさん

NGNG

1000!!!

1001１００１

Over 1000Thread

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

レス数が1000を超えています。これ以上書き込みはできません。