くだすれDelphi（超初心者用）その１１

1 ：デフォルトの名無しさん：04/02/13 03:14

このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、お礼はDelphiの布教と初心者の
救済をお願いします。

＜類似スレ＞
Delphi相談室（中級者以上）その１２
http://pc2.2ch.net/test/read.cgi/tech/1064420818/
Delphi相談室（上級者用）その１２
http://pc2.2ch.net/test/read.cgi/tech/1064766880/
ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室その12
http://pc2.2ch.net/test/read.cgi/tech/1076095856/
Pascal の初心者用の質問・相談所
http://pc2.2ch.net/test/read.cgi/tech/1009903617/

2 ：デフォルトの名無しさん：04/02/13 03:15

★前スレ
Delphi相談室（超初心者用）その１０
http://pc2.2ch.net/test/read.cgi/tech/1074523803/

★過去ログ
http://pc2.2ch.net/test/read.cgi/tech/1071294733/
http://pc2.2ch.net/tech/kako/1065/10651/1065195699.html
http://pc2.2ch.net/tech/kako/1063/10632/1063202727.html
http://pc2.2ch.net/tech/kako/1061/10610/1061090908.html
http://pc2.2ch.net/tech/kako/1058/10588/1058834815.html
http://pc2.2ch.net/tech/kako/1055/10559/1055986736.html
http://pc2.2ch.net/tech/kako/1053/10537/1053757982.html
http://pc2.2ch.net/tech/kako/1051/10518/1051882835.html

DelWiki
http://onigiri.s3.xrea.com:8080/delphi/

★ご注意
・質問者は捨てで良いのでなるべくトリップを付けましょう。
・言語叩きは他のスレで。
・煽り荒らし騙りは放置しましょう。悪質な場合は削除依頼へ。
・環境やコードを全く書かずに、「○○することは出来ますか？」という質問には
　多くの場合答えようがありませんから、質問はなるべく具体的に。

3 ：デフォルトの名無しさん：04/02/13 03:35

「くだすれ」に戻したのか.... 戻したかったんだね...
ま、俺はスレに関係なくコメント/回答をつけるからいいけど。

4 ：デフォルトの名無しさん：04/02/13 03:54

Thread.Terminate;

5 ：デフォルトの名無しさん：04/02/13 04:18

>>4
http://pc2.2ch.net/test/read.cgi/tech/1076610073/10

ここで、"Thread.WaitFor"ってレスすると、向こうのスレが削除されるまで、
このスレへ書き込めなくなるのか？？

6 ：デフォルトの名無しさん：04/02/13 04:19

Thread.WaitFor;
Thread.Free;
Thread:=TThread.Create(False);

7 ：デフォルトの名無しさん：04/02/13 04:24

かぶった…
TThreadは抽象クラスだし(´･ω･`)ｼｮﾎﾞｰﾝ

8 ：デフォルトの名無しさん：04/02/13 04:24

mutex使わないから重複するんだよ

9 ：デフォルトの名無しさん：04/02/13 04:26

・煽り荒らし騙りは放置しましょう。

超初心者向けなんだからさ。普通に使おうよ。

10 ：デフォルトの名無しさん：04/02/13 04:28

先に1000取ったほうが正当な後継すれということでFA?

11 ：デフォルトの名無しさん：04/02/13 04:36

リンク張り忘れたので失格

＊＊＊　終　了　＊＊＊

12 ：デフォルトの名無しさん：04/02/13 09:36

キー入力待ちの状態(アイドル)から処理中になった場合、ある一定時間のうちに
アイドル状態にならなかったら、キャンセルボタン付きのメッセージのフォームを出したいのですが、
どのようにしたらいいのでしょうか?

13 ：ずぶしろうと：04/02/13 09:45

初めまして
昨日Delphi落として
↓見ながらやってるんですが
ttp://wrentch.niigataum.ac.jp/hasano/nsu/progc-03/#0925
他にも役立つ初心者用ページのありかを教えてやって下さい

14 ：デフォルトの名無しさん：04/02/13 09:47

>>10
先にって、、、後からじゃ取れん

15 ：デフォルトの名無しさん：04/02/13 09:50

>>12
タイマー？

>>13
Delphi 入門でググッて上の方とか。

16 ：デフォルトの名無しさん：04/02/13 09:51

>>13
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%A5%EA%A5%F3%A5%AF%5D%5D#content_1_3

17 ：デフォルトの名無しさん：04/02/13 09:53

>>7
別に、TThreadを継承したクラスのインスタンス変数名に"Thread"と命名した、と
考えれば矛盾はないけど・・・判りにくいな。

18 ：ずぶしろうと：04/02/13 09:57

>>15さん
>>16さん
ありがとうございます　今から見てきます

19 ：デフォルトの名無しさん：04/02/13 09:58

フォームを開いたときに、フォーカスをセットしたいのですが、どこに記述すればいいのでしょうか?

20 ：デフォルトの名無しさん：04/02/13 10:12

>>19
Button1.SetFocus?

21 ：19：04/02/13 10:17

あ、フォームじゃなくてフレームでした。

22 ：デフォルトの名無しさん：04/02/13 10:27

>>21
OnResize は？

23 ：ずぶしろうと：04/02/13 11:22

打ち込み作業がラクチンになるエディタは
sakuraエディタが一番なんでしょうか？

24 ：デフォルトの名無しさん：04/02/13 12:21

エディタは好みだからなんとも言えないのでは。
漏れはDelのエディタで十分だけど。

開発環境以外では秀丸つかってるが。

25 ：デフォルトの名無しさん：04/02/13 15:15

印刷部分を作る時、今はQuickReportじゃなくて、RaveReportでするのがいいのかな？
文字化けとかよくきくけど、ここの方はRave派？それともQuickReport派？それともその他？

26 ：デフォルトの名無しさん：04/02/13 15:55

>>24
俺も

27 ：デフォルトの名無しさん：04/02/13 15:55

TPrinterしか使ったことない・・・

28 ：デフォルトの名無しさん：04/02/13 17:01

フリーコンポーネントに手を加えて改良して使ってるんですが
改良中、急に挙動が変になったのでそのファイルを破棄して
バックアップしてある正常に動いていたファイルに戻したのですが何故か元に戻りません。
コンポーネントの削除等したのですが変なままです。
こんな事ってあるのでしょうか？

そういえば前にもなったような気がします。そのときは多分DEL再インスコしました。

29 ：デフォルトの名無しさん：04/02/13 17:03

パッケージ切り離せ

30 ：デフォルトの名無しさん：04/02/13 17:12

改良

31 ：デフォルトの名無しさん：04/02/13 17:28

なんか「優しくコメント」って感じじゃなくなってきたね

32 ：デフォルトの名無しさん：04/02/13 17:53

重複で少し殺伐とした空気になったから

33 ：デフォルトの名無しさん：04/02/13 18:22

今まで｢デルフィ｣と思っていました。
｢デルファイ｣なんですね。

34 ：28：04/02/13 18:28

緊急事態用のＨＤＤに入っているＯＳとdelphiで試してみました。
完全に前の時とはＯＳもdelも別物のはずなのでまともに動くはず・・・

何故か同じ症状・・・もはや呪としか思えん

35 ：デフォルトの名無しさん：04/02/13 19:04

プロジェクト再構築してみれ

36 ：28：04/02/13 19:14

いや、呪じゃ無かったよ、たぶん。

現存のexeも別マシンでもみんななってる。
コンポの問題のようですた。
失礼おば

37 ：デフォルトの名無しさん：04/02/13 19:20

それは日付関係のやつで、今日あたりにたまたま発生するバグのようです。
あーつかれた

38 ：デフォルトの名無しさん：04/02/13 22:03

日付？Half2038年問題？TDateTimeは関係ないような気が・・・

39 ：デフォルトの名無しさん：04/02/13 23:16

スレたてる前に「これから新スレたてます！」と宣言すればいい。

40 ：デフォルトの名無しさん：04/02/13 23:19

これから新スレたてます！

41 ：デフォルトの名無しさん：04/02/13 23:40

>>40
勘弁して・・・というか氏ねよ。

42 ：デフォルトの名無しさん：04/02/13 23:53

43 ：デフォルトの名無しさん：04/02/14 01:14

あれ？せっかくタイトルを統一したのに何でくだすれに戻すわけ？>>1

おまえは関数や変数宣言するときに適当に名前つけるのか？
プログラマに向いてないからやめちまえ！

44 ：1：04/02/14 01:50

誘導し忘れてｽﾏﾝｶｯﾀ。

>>43
> 何でくだすれに戻すわけ？
過去ログからコピペしたんで、深い意味はないですよ…

> おまえは関数や変数宣言するときに適当に名前つけるのか？
整数はiとかnとか。適当かも？

45 ：デフォルトの名無しさん：04/02/14 01:54

integer「オレにiって付けるの、よせよー！」
string「そうそう。sってなんだよ！」

46 ：デフォルトの名無しさん：04/02/14 01:55

>>44
＞過去ログからコピペしたんで、深い意味はないですよ…

おまえは継承したクラス作るときに深い意味を考えずに適当に継承先見つけるのか？

47 ：デフォルトの名無しさん：04/02/14 01:57

関数「hogeって何だよ！hogeって！」

48 ：1：04/02/14 02:00

ttp://heim.ifi.uio.no/~mortehu/files.txt

4133 07-26-00 22:00 win2k/private/ntos/w32/ntuser/kernel/ddemlsvr.c
1536 07-26-00 22:00 win2k/private/ntos/w32/ntuser/kernel/ddemlsvr.h
77805 07-26-00 22:00 win2k/private/ntos/w32/ntuser/kernel/ddetrack.c
4172 07-26-00 22:00 win2k/private/ntos/w32/ntuser/kernel/debug.c
172841 07-26-00 22:00 win2k/private/ntos/w32/ntuser/kernel/desktop.c
51 07-26-00 22:00 win2k/private/ntos/w32/ntuser/kernel/dirs
12953 07-26-00 22:00 win2k/private/ntos/w32/ntuser/kernel/dragdrop.c

本物なのかな？

49 ：デフォルトの名無しさん：04/02/14 15:46

age

50 ：デフォルトの名無しさん：04/02/14 17:34

>>43
プログラマ以前に人間なので、ソースコード以外では必要以上の合理性は
求めませんが何か？

51 ：デフォルトの名無しさん：04/02/14 18:24

TEditの文字列を全角スペースや半角スペースを区切り文字と見なして語句ごとに分割するのはどうするんでしょうか？
DelimitedTextでDelimiter:Char;に複数の文字指定できませんし(できるなら教えてください
そもそも2バイト文字は無理だし
正規表現を使うしかないんでしょうか？

52 ：デフォルトの名無しさん：04/02/14 19:17

URLの半角スペースを%20とかにするエスケープは
Delではどうすればよいでしょうか。

53 ：デフォルトの名無しさん：04/02/14 19:29

var c: Char; s: String;
c := ' ';
s := '%'+IntToHex(Ord(c),2);

54 ：デフォルトの名無しさん：04/02/14 21:25

Delphiでa^(b/c)とかを計算するにはどうすればいいの？
べき乗の使い方を教えてください。

55 ：デフォルトの名無しさん：04/02/14 21:41

exp?

56 ：デフォルトの名無しさん：04/02/14 22:12

>>55
それはe^n

>>54
Power

57 ：デフォルトの名無しさん：04/02/14 22:23

RichEdit1.SelAttributes.Style := [fsBold];
とすると
[エラー] Unit1.pas(78): 未定義の識別子 : 'fsBold'
になってしまいます。
選択部分のスタイルを変更するにはどうすればいいのですか？

58 ：54：04/02/14 22:30

>>56
Thanks!

59 ：デフォルトの名無しさん：04/02/14 22:55

>>57
ウチでは通るよ。
Graphics を uses してる?

60 ：デフォルトの名無しさん：04/02/14 22:55

>>56
http://forum.nifty.com/fdelphi/faq/00256.htm

61 ：デフォルトの名無しさん：04/02/14 23:00

>>59
Graphics を uses したら通りました。
どうもありがとう御座います。

62 ：56：04/02/14 23:10

>>60
知ってますが、何か問題でもありますか？

63 ：デフォルトの名無しさん：04/02/14 23:13

「それはe^n」
「知ってますが、」

64 ：56：04/02/14 23:29

>>63
Powerで事足りるし、ExpならLnも必要だし、
>>54の質問に対する回答ならPowerが適切だと
思いますが、何か問題がありますか？

65 ：デフォルトの名無しさん：04/02/14 23:36

>>64
昔のDelphiのStandard版(現在のPersonal版)では、Mathユニットが無かったから、
対数表で対数を二回引いて、計算尺で足し算して、対数表で二回指数を調べてたんだよ。

66 ：56：04/02/14 23:47

>>65
Pro版しか使ったことがなく、Std版にMathがなかったのは知ってましたが
それは知りませんでした。
計算尺は部屋のどこかにあるはずだけど、使ったことないし。

67 ：デフォルトの名無しさん：04/02/15 00:04

>>66
リンク先に書いてあったことですが

68 ：56：04/02/15 00:39

>>67
>>60のリンク先には、計算尺だの対数表だのとは書いてないと
思うけど、どこのリンク先ですか？

69 ：65：04/02/15 00:45

>>68
洒落が通じない奴だな…>>65は下半分はジョークですよ。
ちなみにカキコしてから気づいたのですが、計算尺は乗算をする道具なんで、
対数表は一回だけ使えば十分でした。
計算尺が無いときは、基数は二回、指数は一回対数表を引いて、算盤で加算を・・・

つーか、対数表なんて最近の人間は知らないのかな？
計算ツールとしてのマニアック度は
電卓＜算盤＜＜＜計算尺＜＜対数表＜手回し計算機
だからなぁ・・・

70 ：56：04/02/15 01:04

>>69
>>65≠67だと思ったから>>68でマジレスしたんだけど・・・。

計算尺は転職した時に初めて一緒に仕事をした人にもらった。
対数表はそういうものがあるということだけ知ってる。
タイガー計算機が有名だということは知ってるけど実物は
みたことない。

71 ：デフォルトの名無しさん：04/02/15 03:46

例外処理について質問があります。

特定のブロック内での例外処理は、try...finally...endやtry...except...endで
できますが、プログラム全体にわたる例外処理はどのようにすればよいのでしょう？

具体的には、たとえば、プログラム全体で使うメモリストリームがある場合、
グローバル変数としてvar MStream:TMemoryStream;と宣言し、
フォームのOnCreateでメモリストリームのコンストラクタを呼び、
フォームのOnDestroyでメモリストリームのデストラクタを呼ぶような場合、
プログラムの中でいつ何どき例外が発生しても、MStream.Freeを呼ぶように
したい場合、どのようにすればよいのでしょうか・・・？

当然、複数のブロックにまたがってしまうので、try...finally...endは
使えないと思います．．．

initialization・finalizationを使うのかなあとも思ったのですが、
ヘルプを読んでも、これらのブロックが例外処理として実行されるような
ことは書かれていなかったので・・・。

どなたかご存知の方、よろしくお願いします！

72 ：デフォルトの名無しさん：04/02/15 04:23

＞グローバル変数としてvar MStream:TMemoryStream;と宣言し、
＞フォームのOnCreateでメモリストリームのコンストラクタを呼び、

そのフォームのインスタンスを２個作ると、有効なメモリストリームのアドレスを
上書きしますよ。
フォーム一つにつき一つのインスタンスを持つなら、フォームのフィールド変数に
ストリームを持たせて、プログラム一つにつき一つのインスタンスとするなら、
initialization・finalizationでストリームの生成、破棄をすべきでしょう。

で、問題解決ですけど、Forms.pasのメッセージループの所を書き換えないと
無理なのでは・・・？
多分設計変更すべきだと思うけど・・・

73 ：デフォルトの名無しさん：04/02/15 04:27

＞特定のブロック内での例外処理は、try...finally...endやtry...except...endで
try...finally...endでは例外処理はできません。

というか、try...except...end は例外処理のためだけに存在しますが、
try...finally...end は例外対策のためだけに存在するのではありません。

74 ：デフォルトの名無しさん：04/02/15 08:03

>>71
確か、Application.OnExceptionだっとおもう。

75 ：デフォルトの名無しさん：04/02/15 09:28

> try...finally...end は例外対策のためだけに存在するのではありません。
例外対策以外になんにつかうって言うんだ？ｗ

76 ：デフォルトの名無しさん：04/02/15 09:35

こんな使い方もあるよ。

Screen.Curosr := crHourGlass;
try
　... // 重い処理
　if Foo then
　　Exit; // 処理を中断
　...
finally
　Screen.Cursor := crDefault; // Exitしてもしなくても実行される。
end;

77 ：デフォルトの名無しさん：04/02/15 09:44

>>76
別に、重い処理じゃなくてもいいような気が・・・
つーか、俺はいつ自分が気まぐれを起こしてBreakとかExitとか呼んでも開放し忘れの
無いようにfinally節は書いているが。
特に、Threadでは、どこに "if Terminated then Exit;" と書いても安全に停止できる
ように書くのは重要だと思う。

78 ：デフォルトの名無しさん：04/02/15 09:47

＞生成された例外がfinally で処理されない場合，その例外はtry...finally 文を
＞越えて伝わり，try 節で既に生成されている例外は失われます。したがって，ほかの
＞例外の伝播の妨げにならないよう，ローカルに生成された例外はすべてfinally 節で
＞処理するようにしてください。

なんでDelphiのヘルプにはこんな間違いが堂々と記述されているんだろ？？

79 ：71：04/02/15 11:18

なるほど．．．よく理解できました。
また、finallyは例外対策以外にも使えると初めて知って、とても参考になりました。
本当にありがとうございました！

80 ：デフォルトの名無しさん：04/02/15 14:25

delphiでWindowsを再起動するにはどのようにすればよいのでしょうか？

81 ：デフォルトの名無しさん：04/02/15 14:27

http://ww4.tiki.ne.jp/~yonyon/programing/delphi/tips/tips-api.htm#10

82 ：デフォルトの名無しさん：04/02/15 14:47

>>81
thanks

83 ：デフォルトの名無しさん：04/02/15 18:01

メインのUNIT内でサブのUNITにあるオブジェクトをクリエイトで生成した場合
メインで破棄しないといけませんが

サブのUNIT内で更に別UNITを生成した場合
サブを破棄すればそれらも全部破棄されますか？
それとも破棄するための手順が何か必要ですか？

84 ：デフォルトの名無しさん：04/02/15 18:22

設計をやり直せ。無茶にもほどがある。

85 ：デフォルトの名無しさん：04/02/15 18:30

ラジャー

86 ：デフォルトの名無しさん：04/02/15 18:50

＞サブのUNIT内で更に別UNITを生成した場合
＞サブを破棄すればそれらも全部破棄されますか？
＞それとも破棄するための手順が何か必要ですか？
「UNITを生成」の意味がわかりませんが・・・

87 ：デフォルトの名無しさん：04/02/15 19:16

UNIT１をメイン
BORDUNITをサブ
CPUAIUNITを更にまた下として

UNIT内で、BORDUNITの宣言にあるオブジェクトをクリエイト。
PLAYUNIT内のプロシージャでCPUAIUNITのオブジェクトをクリエイト
という具合です。

複数の盤面とそれに対応するCPUを別UNITで作りたかったのですが
やっぱり設計を変えたほうが良さそうですね。

88 ：デフォルトの名無しさん：04/02/15 19:17

カキミス

UNIT内で、BORDUNITの宣言にあるオブジェクトをクリエイト。
BORDUNIT内のプロシージャでCPUAIUNITのオブジェクトをクリエイト
という具合です。

89 ：デフォルトの名無しさん：04/02/15 19:32

>>87-88
別に何も問題も無いんじゃないかな？

90 ：デフォルトの名無しさん：04/02/15 21:06

オレも思った。

91 ：デフォルトの名無しさん：04/02/15 21:07

スペルが間違ってるな

92 ：デフォルトの名無しさん：04/02/15 21:09

各種クラスインスタンスはTGameApplicationで一括して生成して
その参照を必要なオブジェクトに渡すようにするとか。

93 ：デフォルトの名無しさん：04/02/15 22:05

＞メインのUNIT内でサブのUNITにあるオブジェクトをクリエイトで生成した場合
＞メインで破棄しないといけませんが

そもそも、こういう決まりが存在するのか？

94 ：デフォルトの名無しさん：04/02/15 22:06

ないだろ

95 ：デフォルトの名無しさん：04/02/15 22:19

しかし、OnCreateで生成したらOnDestroyで、constructorで生成したらdestructorで、
initializationで生成したらfinalizationで開放するのが望ましい。

思いついたところで開放したり生成したりしていると破綻する。

96 ：デフォルトの名無しさん：04/02/15 22:34

TPopupMenuについて質問。
タスクトレイにアイコンを表示し、それを右クリックでポップアップした場合、
普通ポップアップメニュー以外の場所をクリックすればポップアップメニューは消えますが、
消えずに残ってしまいます。（画面上にゴミが残るのではなくウィンドウが消失しません）

右クリックを感知したら
GetCursorPos(Point);
PopupMenu1.Popup(Point.X,Point.Y);

としているのですが、きれいな動作をさせる為には他に何か必要なのですか？

97 ：デフォルトの名無しさん：04/02/15 22:42

Borland Delphiリファレンスガイド―6&7 Personal対応
http://www.amazon.co.jp/exec/obidos/ASIN/4798004626/qid=1076852305/sr=1-2/ref=sr_1_10_2/250-8049588-6371452

超初心者なのですが、この本は買って役立つでしょうか？
購入された方、または本屋でチラッと見た方がおられたらご意見よろしくお願いします。
ちなみにDephi6無料版ユーザーです。

98 ：デフォルトの名無しさん：04/02/15 22:44

SetForegroundWindow(Handle);
GetCursorPos(Point);
PopupMenu1.Popup(Point.X,Point.Y);

99 ：デフォルトの名無しさん：04/02/15 22:44

レビュー嫁

100 ：デフォルトの名無しさん：04/02/15 22:47

>>97

超おすすめです。

101 ：デフォルトの名無しさん：04/02/15 22:47

>>99
レビュー読んで買って失敗したことあるんす
関係者とかが印象よくするために捏造してることとかがあって・・・
買ってみたら酷い本で８０００円損してしまった

102 ：デフォルトの名無しさん：04/02/15 22:48

>>100
では貝ます

103 ：96：04/02/15 22:54

>>98
巧く動いてくれました。
ありがとう御座います。

104 ：デフォルトの名無しさん：04/02/15 22:56

>>97

駄目駄目。金の無駄だから買わないほうがいい。

105 ：デフォルトの名無しさん：04/02/15 23:00

>>104
金の無駄ですか・・・
では、もうちょっとネット上のDelphi関連サイトで勉強してから、
何らかのリファレンス本を購入するかどうか考えることにします。
ども。

106 ：デフォルトの名無しさん：04/02/15 23:44

Delphiを覚えたいのですけど、本自体少ないし
いったいどういう手順で覚えればいいのかさっぱりわかりません。
ヘルプもＶＢのように簡単ではないし・・・
これから学習していくうえでの参考にしたいので教えてほしいの
ですが、皆さんは基本構文とかアクティブＸの使い方とか
どうやって覚えたのでしょうか？

107 ：デフォルトの名無しさん：04/02/15 23:48

webで

108 ：デフォルトの名無しさん：04/02/15 23:51

>>105
無駄っつーか、「色々分かるようになった頃」には
多分「別に買わんでも良かったかなー…」って思うようになってるかも。
オレは「オフィシャルコース」買ったけど、そう思ってる（藁
TIPS本なんてのは、何冊買っても無駄にはならないかと。
ネタが被ってなければ。

>>106
何度も書いてるけど、「自分の欲しいツールなどを作ってみる」。
で、分からないことが出てくるから検索する。
これの繰り返し。

109 ：105：04/02/15 23:53

>>108
ご意見ありがとうございました。
たいへん参考になりました。感謝。

110 ：デフォルトの名無しさん：04/02/15 23:54

複数のフォームで同じ変数を扱いたいのですが
どこ変数宣言に書けばいいんでしょうか？

111 ：デフォルトの名無しさん：04/02/15 23:55

DataModule

112 ：１０８：04/02/15 23:57

>>109
いや、感謝されるほど大したこと書いてないけど（＾＾；。

図書館利用も有効だやね。金使いたくなければ。
そこそこあるもんだよ。あるっつっても、１館１冊くらいだろうけど。

113 ：デフォルトの名無しさん：04/02/15 23:58

>無駄っつーか、「色々分かるようになった頃」には
>多分「別に買わんでも良かったかなー…」って思うようになってるかも。

レファレンス本は必要です。いろいろ分かるようになるためにも。
>>97 の本はよい本です。超初心者には最適です。VCL 全体をざっと眺めて見通しよく
するためにもよい本だと思います。「無駄だ」と感じることができるようになるためにも。

> TIPS本なんてのは、何冊買っても無駄にはならないかと。

これこそ無駄。WEB で検索した方が１００倍まし。

WEB でも優れた入門サイトはあるよ。どこかにリンクがあったような。

114 ：デフォルトの名無しさん：04/02/15 23:59

>>106
personalだったので付属のPDFのドキュメント

115 ：デフォルトの名無しさん：04/02/16 00:26

106です。どうもありがとうございます。
こうしてみるとＷＥＢで検索が一番多いようですね。
なんか感心してしまう・・・ＶＢの次に簡単っていうイメージが
あるけど果たして自分にできるのだろうか・・・

116 ：デフォルトの名無しさん：04/02/16 00:27

煽りじゃなくVBやってりゃいいじゃん。
今から乗り換えるメリットはかなり少ないぞ。

117 ：デフォルトの名無しさん：04/02/16 01:22

>>116
煽りじゃないですよ。
自分のキャパが簡単なのしか受け付けてくれないから
「できるだけ簡単なのを」っていう意味です。
※お馬鹿な私からしたら「言語」は思いっきり難しいです。

メリットは以下を考えています。

★ＶＢと比べて
・実行速度が早いって聞いたので・・・
・ランタイムいらないし・・
・無料だし・・・

★将来性について
・netはPerlが少しできるので今のところ必要性を感じない。
・趣味程度なので大規模なコードは組まない。

>>115の
なんか感心してしまうっていうのは

釣りでも煽りでもなく本気でそう思ってます＾＾；

よくフリーソフトとかでDelphi使ってますってありますよね。
そういう人達って実際、少ない資料の中で覚えていった
わけですよね。なかなか凄くないですか？

118 ：デフォルトの名無しさん：04/02/16 01:29

>>116の「煽りじゃなく」ってのは、
「オレの、このレスは煽りじゃなくて」って意味だと思うがどーか。

119 ：デフォルトの名無しさん：04/02/16 01:33

>>118
俺もそう思う

120 ：デフォルトの名無しさん：04/02/16 01:36

>>118
ありゃ。
そういった意味だったんですね（汗
すみませんでした。

ところで、明日から参考になるようなＨＰをいくつか
ピックアップしてみようとおもうのですが
どこかよさげなＨＰってごありますか？

今のところ、ここなんか良いかな？って思ってますが・・・

＜Delphi 入門＞
ttp://kakinotane.s7.xrea.com/dirDelphi/mainmenu.html

121 ：デフォルトの名無しさん：04/02/16 02:00

>>120
言語仕様だけですが・・・・
ttp://santamartadotnet.hp.infoseek.co.jp/

122 ：デフォルトの名無しさん：04/02/16 03:28

これは無視ですか？
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%A5%EA%A5%F3%A5%AF%5D%5D#content_1_3

123 ：デフォルトの名無しさん：04/02/16 09:08

http://forum.nifty.com/fdelphi/faq/00201.htm

>バージョン情報フォームを表示させ、Alt押下のまま team と入力すると
これってバージョン6でも出るのね(w

124 ：デフォルトの名無しさん：04/02/16 15:22

>>123
さらにそのスタッフロールの視点を十字キーで動かせる。
Use the Source, Lukeって隠しメッセージもある。

125 ：デフォルトの名無しさん：04/02/16 17:27

Delphi6使ってます。
EUCコードで書かれたテキストファイルを読みこむと
文字化けするんですけど、
http://homepage1.nifty.com/project21/delphi/tips03.htm#4
みたいに変換するしかないんですか？

126 ：デフォルトの名無しさん：04/02/16 18:27

変換したほうが無難と思われ。

127 ：デフォルトの名無しさん：04/02/16 18:54

テキストボックスから入力した数字をLavel.Captionに表示するのに、
例えば、iを2倍したのを表示するとすると

e1 := Edit1.Text;
i1:=strtoint(e1);
i1:=i1*2;
e1:=inttostr(i1);

いちいちstringに変換しないとだめなのはどうしようもないんでしょうか？

128 ：デフォルトの名無しさん：04/02/16 19:03

あたりまえ

129 ：デフォルトの名無しさん：04/02/16 19:09

融通きかん言語ですね
ソースだらだら。。。

130 ：デフォルトの名無しさん：04/02/16 19:19

>>127
Label1.Caption := Variant(Edit1.Text) * 2;

131 ：デフォルトの名無しさん：04/02/16 19:26

> 融通きかん言語ですね

ははははは、おまいはセンスなさすぎ。
融通きく言語に乗り換えることをつよくすすめるよ。

132 ：デフォルトの名無しさん：04/02/16 19:28

>>129
ストロングタイピングだからね。
不満ならVBにすることだね。
ちなみにC／C++はもっと融通が利かないから
近づいちゃ駄目だよ。

133 ：デフォルトの名無しさん：04/02/16 19:33

>>132
ｽﾏｿ。ストロング・タイピングてなに？
ぐぐったけど分からんかった。

134 ：デフォルトの名無しさん：04/02/16 19:35

>>133
タイプってキー入力のことじゃなくて、型のことだぞ。

135 ：デフォルトの名無しさん：04/02/16 19:37

強い人が好き・・・

136 ：デフォルトの名無しさん：04/02/16 19:40

>>134
ごめん、それでもわからないや。
ググッたら下のような記述があるから言語関係の言葉なんだろうけど・・・おせーてください。

Python と Java
Java は、あらゆるタイプ、スレッド・サポート、ストロング・タイピング、および必要とされるその他の機能を網羅している、フル機能プログラム言語です。Python はスクリプト言語です。

137 ：デフォルトの名無しさん：04/02/16 19:42

>>133
型チェックが厳しいということさーね。
曖昧さのないプログラムが要求されるため
コンパイルの段階で直ぐに間違いが分かるという利点がある。
VBのように型チェックが緩いと実行してみないと間違いが分からない場合も出てくるでしょ。
（VBもOption Explicitを使えば大分ましになるようだけど）

138 ：デフォルトの名無しさん：04/02/16 19:44

あ、Option Explicitでましになるのは
「未宣言の変数をVariantとして認める」
という無茶がなくなるだけだっけ？

139 ：デフォルトの名無しさん：04/02/16 19:44

>>137
そうなのか、勉強になりました。ありがど。

140 ：デフォルトの名無しさん：04/02/16 19:52

で、結局は

>>127と>>130どっちがいいの？

141 ：デフォルトの名無しさん：04/02/16 20:02

>>140
Pascalらしいのは127の方だけど130もちゃんと動くので、まあ好き好きかと。
あとEdit1に入っている文字列が数値を表しているという保証がない場合は
StrToIntDefを使ったり、例外処理をしたりする必要があるよね。

142 ：デフォルトの名無しさん：04/02/16 20:03

Variantはクソ遅いからあんまり使わないほうがいいんじゃないの。

143 ：デフォルトの名無しさん：04/02/16 20:07

>>141
漏れPascalはじめたばっかだから

try
e1:=Edit1.Text;
i1:=StrToInt(e1);
except
i1:=-1;
end;

ってやってたよ・・・

144 ：デフォルトの名無しさん：04/02/16 20:12

>>142
そんなもの場合による。

145 ：130：04/02/16 20:13

俺自身はVariantは使わないけど、試しに書いてみたら動いたので。

146 ：デフォルトの名無しさん：04/02/16 20:15

>>142
確かにCOMとか以外ではほとんど使わないよね。
でもユーザーの入力に応答する処理ならたかが知れてるから、どっちでもいいかと…

147 ：デフォルトの名無しさん：04/02/16 20:17

>>145
参考になりますた、アリガ㌧

148 ：デフォルトの名無しさん：04/02/16 20:20

あの、
Cで言う
if((a==b) && (c!=d))
はどうすれば・・・
if(a=b) and (not (c=d))
でいいのでしょうか？

149 ：デフォルトの名無しさん：04/02/16 20:21

if(a=b) and (c<>d)
でもよろし。

150 ：デフォルトの名無しさん：04/02/16 20:23

>>148
(not (c=d)) は　(c<>d) の方がすっきりしてるけど、それでも桶

151 ：デフォルトの名無しさん：04/02/16 20:23

>>149
化豚なり

152 ：デフォルトの名無しさん：04/02/16 20:24

>>149
ありがとうございます。「<>」なんてあったんですね

153 ：デフォルトの名無しさん：04/02/16 20:26

(not (c=d)) は (c xor d = 0)でもOK

c,d共に整数なら。

154 ：デフォルトの名無しさん：04/02/16 20:30

var内で初期化ってできないのでしょうか？
n:=0 : Integer;
だとエラーが出るんです・・・
それと、
n=m=k=0;(n,m,kに0を代入)ってのはどうすればいいでしょうか？
n:=m:=k:=0;
ではできなくて・・・
Delphi難しいです。。

155 ：デフォルトの名無しさん：04/02/16 20:33

>>154
グローバル変数以外では初期化は無理。
残念ながら逐一書いてください。
まとめて代入も無理。
残念ながら逐一書いてください。

長らくPascalに触れているけど、やはり面倒に感じることが多い点ではあるな・・・
ただ、代入演算子が値を返すと、とんでもなく可読性の悪いコードが書けてしまうから、
これはこれでいいのかも。

156 ：デフォルトの名無しさん：04/02/16 20:35

>>155
そうですか、ありがとうございます。
Cを1年やってるのでDelphiは不慣れな部分が多そうです。。。
ともあれがんばってみます。

157 ：デフォルトの名無しさん：04/02/16 20:40

∩(　´Α｀)＜　先生、pasとかdprとかプロジェクトとか、ファイル多すぎでよく分からないのですが、その辺の関係のこと教えてください。プロジェクト保存して、名前をつけて保存、をすれば次回からも編集の続きができるんですか？

158 ：デフォルトの名無しさん：04/02/16 20:50

*.dprはmain()関数がある*.cに相当。

*.pasは、それ以外の*.hと*.cが組み合わさったものに相当
(implementationより上が*.h、下が*.cに相当)
ポトペタしたコンポの情報は*.dfmに保存される。

*.dcuは*.objみたいなもの。
その他の設定は*.cfgとかに保存される。

159 ：デフォルトの名無しさん：04/02/16 20:54

>>158
うーん、よくわからないです・・・

まずは、新規作成→アプリケーション
で作成しますよね？

そして、今日は終わり、ってときはどうするんですか？
プロジェクトを保存、すればいいんですか？

160 ：デフォルトの名無しさん：04/02/16 20:56

>>159
「すべて保存」

161 ：デフォルトの名無しさん：04/02/16 20:59

>>159
まぁそれでOKです。
プロジェクト名＝dprファイル名＝exeファイル名になります。
あとはプロジェクト内で、ユニットを複数持つのが普通です。
ユニット名＝pasファイル名です。

最初のうちは、一つのプロジェクトのファイルは一つのフォルダに
まとめておけば、それで良いのはないでしょうか？
手の込んだことをしだすと、複数のプロジェクトで共有するpasファイルとかが
出てきますが・・・

162 ：デフォルトの名無しさん：04/02/16 21:01

>>160
うぉ、ありがとうございます。
名前をつけて保存→プロジェクトを保存
だったら同じ名前で保存できないとか出てこまってたんです・・

163 ：デフォルトの名無しさん：04/02/16 22:55

多次元配列の代入方法が分かりﾏｾﾝ

var
　　myarray: array[0..2] of array[0..3] of Integer;

myarray[0][0]:=2;
myarray[0][1]:=3;
myarray[0][2]:=4;
をしたいのですが
myarray[0]:=(2,3,4);
ではできませんでした・・・
どうしたらいいですか？

164 ：デフォルトの名無しさん：04/02/16 23:30

>>163
ヘルプを見る。

165 ：デフォルトの名無しさん：04/02/17 00:09

var
　　myarray: array[0..2,0..3] of Integer;
って指定できるよ。

166 ：デフォルトの名無しさん：04/02/17 00:16

>>165
彼が知りたいのは代入の方法らしいぞ。大丈夫か？あんた・・・

167 ：デフォルトの名無しさん：04/02/17 00:56

>>166
固い事言っちゃ駄目。

168 ：163：04/02/17 01:02

400,3の多次元なので、定数で宣言しました。。・

169 ：デフォルトの名無しさん：04/02/17 01:29

>>166
彼は質問に答えたつもりではないらしいぞ。大丈夫か？あんた・・・

170 ：デフォルトの名無しさん：04/02/17 01:44

>>169┐(ﾟ～ﾟ)┌

171 ：125：04/02/17 01:44

>>126
回答ありがとうございます。
スレをずっと読んでいたのですが皆さんとても優しい方ばかりですね。
またお世話になる事があると思いますがよろしくお願いします。

172 ：デフォルトの名無しさん：04/02/17 01:57

ボーランドさんの方で標準の漢字コード変換ユニットを用意して欲しい
ってのは、贅沢ですか？
某ユニットのサイトは閉鎖してるそーだし…。

173 ：デフォルトの名無しさん：04/02/17 02:11

>>172
漢字コード変換なんて、そんなに難しい作業じゃないだろ。
EUC～SJISなら20行程度、JIS絡みでも40行程度、
半角かなを意識しても、それぞれ＋20行程度で書けるよ。
後学のためにも、一度書いてみるといいと思うけど。

174 ：１７２：04/02/17 02:18

>>173
へー。

175 ：デフォルトの名無しさん：04/02/17 02:32

n := (EUC1 - $A1) * 94 + (EUC2 - $A1);
SJIS1 := n div 188 + $81;
if SJIS1 >= $A0 then SJIS1 := SJIS1 + $40;
SJIS2 := n mod 188 + $40;
if SJIS2 >= $7E then SJIS2 := SJIS2 + 1;

ほい、昔書いたEUC→SJISの核の部分。EUC1とかは、EUCの日本語2バイト文字の
1バイト目に相当。
これに、文字全体をまわすループとか、アルファベットやら改行やら・・・を
意識すると、20行くらいになる。

176 ：デフォルトの名無しさん：04/02/17 08:57

>>173

変換のためにいろいろ調べないといけないのは大変。
それに作ったものがちゃんと動くのか、すべてテストするのも大変。
自分で作るのは大変だよ。

177 ：デフォルトの名無しさん：04/02/17 09:01

変換のためのルールに例外はないの？
このルールってちゃんとした規格で定められているの？

178 ：デルファイの名無しさん：04/02/17 09:12

こんちわ。

ちょっとおききしたいんですが、
グローバルな変数宣言はＤａｔａｍｏｄｕｌｅ使うと言うことになっているようですが、
単なるＵｎｉｔ使うのと比べてなんかメリットはあるんでしょーか。。

いままで、Ｕｎｉｔを新規作成して、必要があれば自分でＣｌａｓｓを書いてやってました
が、このスレでＤａｔａｍｏｄｕｌｅと言うのを知ってしまい、夜も眠れませんｗ

ヘルプを見ると非ビジュアルコンポーネントをを配置でき、自動作成に入れられる
ようですが、なら非ビジュアルコンポーネントを使わずに、自分でＣｒｅａｔｅ、
Ｄｅｓｔｒｏｙする場合は今まで通り、じぶんでＣｌａｓｓ作ってやってもかわらないん
でしょーか。

その他にＤａｔａｍｏｄｕｌｅを使うメリットなどがあればお教えください。

ではでは

179 ：デフォルトの名無しさん：04/02/17 09:18

メリットといえば、ほら、あれだよ。あれ。

180 ：デフォルトの名無しさん：04/02/17 09:20

>>178
自前でCreateしてもいいけどプロパティとかの設定が面倒じゃね？
面倒じゃなければ好きにしとけ。

181 ：デフォルトの名無しさん：04/02/17 09:28

新規作成メニューから簡単に継承できる、とか。

182 ：デフォルトの名無しさん：04/02/17 10:25

>>178
設計中にデータを診ることができるちゅうのは、どうだい？

183 ：デフォルトの名無しさん：04/02/17 15:56

>>178
DataModuleって
基本的に非ビジュアルコンポーネントを使いやすくするためのものだと思ってたけどな。
非ビジュアルコンポーネントを使わないんなら必要ないんじゃない？

184 ：デルファイの名無しさん：04/02/17 17:39

こんちわ。

>>179-183
いろいろご意見ありがとうございます。参考になりました。

いまいちぴんとこないところもあったりしますが、これからは、ＤａｔａＭｏｄｕｌｅも
使い倒していこうと思います。

使い倒していくウチに何か見えてくるだろうと思いますしね。

ではまた質問が出来たときにおじゃまいたします。

ごきげんよう

185 ：デフォルトの名無しさん：04/02/17 18:01

バージョンの付け方を教えてください。
マイナーとか、ビルドとか、どうすればいいのでしょうか

186 ：デフォルトの名無しさん：04/02/17 18:44

BDEで新しいエリアスを作るのを、コードから実行できないでしょうか？

やりたい事は、
ユーザーがテーブルのあるフォルダを指定するだけで、
BDEに登録され、アプリから使用できるという事です。

ユーザーにＢＤＥアドミニストレーターを起動させて、エリアスの設定をさせるのは
嫌ですし、複数のＰＣのネットワークフォルダを指定する必要があるので、
ＩｎｓｔａｌｌＳｈｉｅｌｄでは無理なんです。

宜しくお願いします。

187 ：デフォルトの名無しさん：04/02/17 18:47

>>185
プロジェクト　＜　オプション　＜　バージョン情報

188 ：デフォルトの名無しさん：04/02/17 18:47

>>185
プロジェクト＞オプション(O)...
その中に「バージョン情報」ってページがあるはず。

ところで、「リポジトリ」って機能使ってる人いるの？

189 ：188：04/02/17 18:48

ｹｺｰﾝしちゃった（*´Д｀）

190 ：デフォルトの名無しさん：04/02/17 18:49

>>187 >>188
すいません、言い方悪かったです。
バージョンの付け方の、”定義”みたいなもんが知りたいです。
桁が4つあって、どうしたときはどれを数上げるとか、
バージョンを決める時の基準、インターネット関連でいうとRFCみたいな、きまりごとはないのですか？

191 ：デフォルトの名無しさん：04/02/17 18:58

>>190
好きにしろよ。

192 ：125：04/02/17 19:00

EUCで書かれた文字列をS-JISに変換したいので↓ここのコードを
使おうと思うのですが、
http://homepage1.nifty.com/project21/delphi/tips03.htm#4
WideString型の文字列sを引数としてEucToSJis(wrd:word)に渡すには
どうすればよいのでしょう？
わかる方いましたらよろしくお答え願います。

193 ：125：04/02/17 21:03

t,s:WideStringで、sにはEUCの文字列が入っています。

for i:=1 to Length(s) do
t:=t+widechar(EucToSJis(word(s[i])));

でそれっぽいかな？と思ったんですが化けてしまいます。
もしお時間ある方がいましたら、お答え頂けたら幸いです。

194 ：デフォルトの名無しさん：04/02/17 21:33

>>190
決まりはないけど、一般的に
・メジャーは、ソフトの機能ががらっと変わったときに使う
・マイナーは、ソフトの機能が多少増えたり、大バグを直したときに使う
・それより下の桁は、機能をちょこっと増減したり、小さなバグを直したときに使う

あんまし細かく考えるとバージョン管理に悩むから、３桁程度でいいと思うけどね。
気分の問題や戦略的にバージョンを上げる場合もあるし。

195 ：デフォルトの名無しさん：04/02/17 21:33

>>193
WideString型には、普通EUCじゃなくてUTF-16の文字列が入っているんですけど。

196 ：デフォルトの名無しさん：04/02/17 21:34

nkfでも使っとけ

197 ：125：04/02/17 22:46

>>195
基本的な事でしたね。すいません。。
>>196
検索で出てきたnkf32.pasを使ったらできました！ありがとうございます。

198 ：デフォルトの名無しさん：04/02/17 23:00

>>194
ありがとうございます。

でも、Delphiだと絶対4桁になりませんか？

199 ：デフォルトの名無しさん：04/02/17 23:02

>>194
何の変化もなく、
ちょこっとしたバグ修正で
1.1～1.9まで行ったら、次はメジャーを1あげて2.0でいいんですか？

200 ：デフォルトの名無しさん：04/02/17 23:15

自分で作成したDLL内で宣言している集合型(Record)を
EXEから使用することは可能でしょうか？

201 ：デフォルトの名無しさん：04/02/17 23:23

>>200
dllで、Recordの宣言を独立したUnitにして、それをexeにも取り込めば、可能。
でも、安易にRecordの構造は変更できなくなる。
cとかでexeを作るなら、Recordとまったく同一構造のstructを定義すれば可能。

202 ：デフォルトの名無しさん：04/02/17 23:25

>>199
ルールなんて無いと思うよ。好きにしなされ。これ以上聞くのは愚問だと（略）

203 ：デフォルトの名無しさん：04/02/17 23:25

>>199
１.１０でもいいと思う
別に小数ではないのだし
まあ、好きにすればいいんだが

204 ：デフォルトの名無しさん：04/02/17 23:41

>>202 >>203
どうもありがとうございました。

205 ：125：04/02/18 00:59

タブ文字って#9ですよね？実行した時に

while (stl[1]<>' ')or(stl[1]<>#9) do
Delete(stl,1,1);

の文でエラーが出るようなのですが、どうしたら解決できますか？（stlはString型）
行頭の空白かタブ文字を削除したい（飛ばしたい）のです。

206 ：125：04/02/18 01:03

orじゃなくてandでしたね…スレ汚しすいません。。

207 ：デフォルトの名無しさん：04/02/18 01:13

not ((stl[1]=' ') or (stl[1]=#9))
当然ながら一緒

208 ：デフォルトの名無しさん：04/02/18 01:13

>>205
TrimLeftじゃダメなのか？

209 ：デフォルトの名無しさん：04/02/18 01:19

#32と#9以外を削除するコードに見えるが…。
エラーは文字が無いからでしょ。

210 ：デフォルトの名無しさん：04/02/18 01:22

＃32以外、もしくは＃9以外だから、結局全部削除か・・・。

211 ：デフォルトの名無しさん：04/02/18 01:34

copy(stl,1,1)

212 ：デフォルトの名無しさん：04/02/18 01:51

Length(str)>0の時はどうなるの？
いずれ、str[1]=#0 になるけど、これも Delete 出来るのかな？

213 ：デフォルトの名無しさん：04/02/18 02:03

Length(stl)=0 なら Deleteされないが、
少なくとも範囲チェックが有効なら stl[1] でエラーになる。

214 ：125：04/02/18 02:05

>>208
あはは…そんな便利な関数があるとは。ちょっとショックです。
便利なのに知らないっていう関数が多くて。
>>209
あはは…その通りでした。道理で変な空白が…

215 ：デフォルトの名無しさん：04/02/18 02:49

>>186
Borland Database Engine オンラインリファレンス
└ BDE関数リファレンス
　　└ 環境関数
　　　　└ DbiAddAlias
uses に Bde を追加すると BDE関数が使えるようになります。

216 ：デフォルトの名無しさん：04/02/18 07:27

Socketで文字列をやりとりしたいのですが
その時に文字列を転送時だけ圧縮したような状態に
できないのでしょうか・・・
Packed recordとか近い気がするのですが
圧縮されている状態を取り出せないみたいなので・・・

217 ：186：04/02/18 10:24

>>215
助かりました。ありがとうございます。

218 ：デフォルトの名無しさん：04/02/18 11:36

>>216
packedはメモリ上の圧縮で、そういうことは出来ないんじゃないかと
想像してみる。
もしやるとしたら、ポインタとサイズ（これができるかどうか不明）を
取得して圧縮データを得てSocketで転送。受信側でも同様にその
構造体に対してデータを入れてやるとか？←できるかどうか不明

それより、１回の送信（DelphiのTIdTCPServer等で指定する送信
サイズ）ごと、または一つのまとまりのデータ（送信すべきデータ
すべて）ごとTMemoryStreamに格納し、自作の圧縮コンポで圧縮後に
送信、受信側ではそれを解凍すればいいかと。

フローとしては、

送るべきデータ→一括して圧縮→数ｋバイトずつ取り出して送信
すべての圧縮データ受信→一括して解凍→受信データ

または

送るべきデータ→数ｋバイトずつ取り出す→その数ｋを圧縮→送信
データ受信→解凍→解凍したデータを追加格納していく→受信データ

圧縮についてはDSPのCompression、Encryptionあたりにたくさん
あるので、みてみるといいかも。

219 ：216：04/02/18 14:49

>>218
返事ありがとうございます
>圧縮についてはDSPのCompression、Encryptionあたりにたくさん
>あるので、みてみるといいかも。
やはりZIPやLZH形式が大半で・・・　(´Д｀υ)
独自ロジックで圧縮してる人いないのかな・・・

220 ：218：04/02/18 14:58

>>219
なんでZipやLzhじゃだめなのかと小一時間

つか、こんなんあったよ
TCompressionStream
TIdCompressionIntercept
TIdConnectionIntercept

221 ：216：04/02/18 15:14

すいません
ミスしてあげてました　/_;)

>>なんでZipやLzhじゃだめなのかと小一時間
Zip、Lzhでも問題ないのですが配布時に別にDLLをつけないと
いけなくなると嫌だなと思ったもので・・・

わざわざコンポーネントまで調べてもらって　(TдT)/
ありがとうございます
早速、TCompressionStream から調べてみます

222 ：216：04/02/18 15:26

あーまた上げてる・・・
(TдT)すいません・・・

223 ：216：04/02/18 15:34

>>218
TCompressionStreamで調べていたら見つけました
ありがとうございました　謝謝！

ちなみにここです
ttp://chiragdalal.tripod.com/howto/compress_strings.html

224 ：218：04/02/18 15:46

cabならWindows標準でDLLありそーだから、
それでもいけるかも。

>>223
不用謝

225 ：デフォルトの名無しさん：04/02/18 23:21

procedure TForm1.Timer1Timer(Sender: TObject);
begin
　Iconno:=Iconno+1;
　if Iconno >= 3 then Iconno:=0;
　SpinEdit1.Value := Iconno; // test

　case Iconno of
　　0 : Form1.ImageList1.Draw(Image1.Canvas,1,1,0);
　　1 : Form1.ImageList1.Draw(Image1.Canvas,1,50,1);
　　2 : Form1.ImageList1.Draw(Image1.Canvas,1,100,2);
　end;
end;

とするとSpinEditは0 1 2 0 1 2 と変わるのにアイコンは最初から
2 : Form1.ImageList1.Draw(Image1.Canvas,1,100,2);が表示されて止まってます。
どうすれば～

226 ：デフォルトの名無しさん：04/02/18 23:41

Refreshしてみたら？
ていうか最近描画関連の話題多いな
描画イベントの中にコード書けばいい

227 ：デフォルトの名無しさん：04/02/19 00:10

重複スレのほうに書いてしまったのでこちらに書き直します

自分のオブジェクト名がNameプロパティと違う場合ってどういう場合が考えられますか？
プロシージャのパラメータとしてSelf.Nameを渡していたら挙動がおかしかったので
ブレイクポイントを設定してSelf.Nameを確認したらＸＸ(名前)_1とかって入っていたのですが・・・

228 ：デフォルトの名無しさん：04/02/19 00:16

>>227
動的（実行中）にオブジェクトのインスタンスを作成した場合とか。勝手に番号が振られる。

229 ：228：04/02/19 00:21

×勝手に番号が振られる。
○この場合Nameプロパティは空

230 ：デフォルトの名無しさん：04/02/19 01:02

ちょいと助けておくれよ。Memo4には6行入っててそれをMemo3にまるまる移したいんだけども、

Memo3.Clear;
for i:=0 to Memo4.Lines.Count do
Memo3.Lines[i]:=Memo4.Lines[i];
showmessage('Memo4は'+IntToStr(Memo4.Lines.Count)+'行あるよ');
showmessage('Memo3は'+IntToStr(Memo3.Lines.Count)+'行あるよ');

ってやるとMemo3は1行しかないらしいんだ。Memo4は6行あるんだけども。
Memo3:=Memo4;
ってやるとその後Memo3を書きかえるとMemo4が変わっちゃうんだ。
基本的な事かもしんないけどわかんないんだ。解決策を聞かせておくれよ。

231 ：デフォルトの名無しさん：04/02/19 01:09

>>230
Delphiのオブジェクト変数は、実はポインタなンだ。
よってMemo3=Memo4をやると、Memo3が指し示すオブジェクトはMemo4の物になるンだ。
Memo4の内容をMemo3にコピーするには、Assignというメソッドを使い、
Memo3.Assign(Memo4)とやる必要があるンだッ！

232 ：デフォルトの名無しさん：04/02/19 01:13

>>230
お前はジョニーか？

233 ：デフォルトの名無しさん：04/02/19 01:14

>>233
ほんでもって、お前は池上遼一か、それともガフガリオンか？

234 ：デフォルトの名無しさん：04/02/19 01:16

http://content.mail.ru/arch/10051/437171.html
このページに
pQ, pP: BigNum;
という宣言がありますが、このBigNumって何者なんでしょうか？
Helpにもありませんし、ググってもDelphiにはないようで...(Ruby?
でもコンパイルは通るのでないはずはないと。
整数型だとは思いますが範囲などはどうなってるのでしょうか？
コンポーネントはこちらのものだと思います
http://www.crypto-central.com/index.html
このコンポーネント内で定義されてるってことはありませんよね･･･?

とりあえず使えるようなので問題ないのですが気になって気になって

235 ：デフォルトの名無しさん：04/02/19 01:27

(1)↓たぶん何か足りない
Memo3.Lines.Add(Memo4.Lines[i])
(2)単純なの
Memo3.Text := Memo4.Text;

236 ：230：04/02/19 01:34

>>231
せんきゅう！
でも'TMemoをTMemoに代入する事はできません'風なエラー出たぞ！

>>235
蝶センキュー！
単純なのでできた！

あと俺をジョニー呼ばわりするな！てか誰だ？

237 ：デフォルトの名無しさん：04/02/19 01:35

>>230
Indexなんたらエラーが出るはずだが。

>>234
オブジェクトブラウザってもうついていないの？

238 ：デフォルトの名無しさん：04/02/19 01:42

>>230
大人なんだから、敬語使ってください。
大人じゃないんだったら、寝なさい。

239 ：230：04/02/19 01:44

>>238
申し訳ありませんでした。反省してます。

240 ：デフォルトの名無しさん：04/02/19 01:51

>>237
レスありがとうございまし
もう好奇心より眠気が勝ってきたので起きたら使い方調べてみます。
オブジェクト・インスペクタとは別物ですよね？

241 ：デフォルトの名無しさん：04/02/19 01:52

>>230
Memo3.Lines.Text := Memo4.Lines.Text;
とか。

242 ：デフォルトの名無しさん：04/02/19 02:03

>>240
別物。

243 ：デフォルトの名無しさん：04/02/19 07:58

>>234
ロシア語読めば、詳しく載っているんだが...
翻訳ソフト/サービスを使いなさい

244 ：225：04/02/19 08:44

>>226
(*^ーﾟ)b ｸﾞｯｼﾞｮﾌﾞ!!

245 ：重複スレの４４：04/02/19 09:01

テキストエディタからソースをカット＆コピーしたらソースが

result:=false;

filename:=ChangeFileExt(application.exename,'.ini');

selfini:= TIniFile.Create(filename);

と言うように１行おきに書いているのにF8でステップ実行させると
空白行も実行したり中身がある行を飛ばしたりしてしまいます。

これを元に戻す方法を教えていただけないでしょうか。

[プロジェクト]-[オプション]-[コンパイラ]-[最適化]のチェックボックスをクリア。
をやってみたのですが、それでも変わりません。
ソースに@@@等と書いてもえらーになりません。

246 ：デフォルトの名無しさん：04/02/19 09:19

テキストデータを保存する時に、保存した物を直接テキストエディタ
で見られたくないのですが、どうすればいいか教えて下さい。
TFileStreamとか型無しファイル形式での保存とかやってみたのですが、
エディタで開くと普通にデータが読めてしまうので、どうしたらよいのでしょう？

247 ：デフォルトの名無しさん：04/02/19 09:21

>>245
重複スレを見ましたが、デレクトリーの中にあるdskファイルを
削除してからコンパイルするとどうなるか。。。

248 ：デフォルトの名無しさん：04/02/19 09:26

>>246
簡単な暗号化をしてみれば？
シーザー暗号とかバーナム暗号とか。

249 ：デフォルトの名無しさん：04/02/19 10:03

>>248
レスありがとうございます。
あ、暗号ですか？
もちっと簡単なのないですか？

250 ：デフォルトの名無しさん：04/02/19 10:28

簡単な暗号化なら、そんなに難しくないが・・・ソースも公開されてるし、
作っておくと便利。

イヤなら、上の方ででてた圧縮するのを利用してみたり、データをビット
シフトしてスクランブルかければいいんでないのかねぇ。

暗号、VCL、Delphi、スクランブルの組み合わせで検索すべし。

251 ：デフォルトの名無しさん：04/02/19 10:29

>>249
わざわざ簡単な暗号まで書いたのに・・・。

252 ：246：04/02/19 10:32

了解しました。
暗号という言葉に、びびりました。
ぐぐってきます。

253 ：デフォルトの名無しさん：04/02/19 11:54

SynchronizeってExecute内でしか使えないんでしたっけ？

でも、そうなると、Execute関数がすごくながーくなって不便じゃないですか？
普通はどうやってこの問題を回避するんでしょうか？

254 ：デフォルトの名無しさん：04/02/19 12:02

>>253
まず自分でコードを書いてみてください。
たぶん勘違いをしてるのではないかと。

255 ：253：04/02/19 12:27

>>254
下記を実行したらDelphi自体が死亡しました。
procedure TTestThread.Execute;
begin
　 { ToDo : スレッドとして実行したいコードをこの下に記述してください }
　 while not terminated do begin
　　 Method;
　　 Suspended := true;
　 end;
end;
procedure TTestThread.Method;
begin
　Synchronize(Method_1);
end;
procedure TTestThread.Method_1;
begin
　form1.button1.OnClick;
end;

256 ：デフォルトの名無しさん：04/02/19 13:02

Suspended := true; ?????????

257 ：デフォルトの名無しさん：04/02/19 13:07

>>255
form1.button1.OnClick の定義は？

258 ：253：04/02/19 13:11

>>257
ごめんなさい。
再起動したら直りました。

259 ：デフォルトの名無しさん：04/02/19 13:25

>>234

コンパイルしてエラーが出ないんだったら
その単語を Ctrlを押しながらマウスで下線をクリックして
定義元へいけばよい。

260 ：デフォルトの名無しさん：04/02/19 14:45

sndPlaySound(Pchar('sound.wav'),SND_ASYNC);
これでサウンドを鳴らせましたが連続再生（無限に続ける）にはどうしたら良いのでしょうか？

261 ：デフォルトの名無しさん：04/02/19 14:50

>>230 >>241
遅レスだが、
Memo3.Lines.Assign(Memo4.Lines);
たぶん、これが一番効率の良いコード。
Textで渡すと、内部で一度改行を挟んだ文字列を生成し、改めてそれを改行で
切り分ける作業が発生するので非効率かと。

262 ：デフォルトの名無しさん：04/02/19 14:58

>>260
sndPlaySound(Pchar('sound.wav'),SND_ASYNC or SND_LOOP);

263 ：260：04/02/19 15:07

>>262
出来た。ｻﾝｸｽ

264 ：デフォルトの名無しさん：04/02/19 15:15

間違えて重複スレに書きこんでしまったようなのでもう一度質問します

TStringGridで特定の個所だけ文字の色を変えたいのですが
どうやればできるでしょうか？

265 ：230：04/02/19 15:41

>>261
ありがとうございます。効率が良いということなのでそちらでやらせていただきます。

266 ：デフォルトの名無しさん：04/02/19 16:00

>>264
OnDrawCell で自分で表示しなおすしかない。

267 ：デフォルトの名無しさん：04/02/19 20:39

DataModuleにグローバル変数持たせるやり方がいまいちわかりません。
検索してみたのですがなかなかいいページが見つからないので
どなたか参考になるページ紹介してもらえませんか？

268 ：デフォルトの名無しさん：04/02/19 20:44

DataModuleにグローバル変数を持たせるのではなく、
DataModuleをグローバルなクラスとして扱おうという話。

普通にフィールドなりプロパティなりを定義して、他のユニットからusesすればいいだけ。

269 ：デフォルトの名無しさん：04/02/19 20:44

DataModuleはフォームの一種ですから、DataModuleにグローバル変数を持たせるというのは今ひとつ意味判りません。

270 ：デフォルトの名無しさん：04/02/19 20:47

＞DataModuleはフォームの一種
これも意味わかんねーよｗ

271 ：267：04/02/19 20:56

意味がやっとわかりました。
ありがとございました。

272 ：デフォルトの名無しさん：04/02/19 20:58

非ビジュアルなコンポーネントのコンテナの役目
を持つ不可視なフォームと考えればいい。

ところでグローバル変数ならユニットのInterface部に書けばどこでも
定義できるのだが。

273 ：デフォルトの名無しさん：04/02/19 21:04

> TStringGridで特定の個所だけ文字の色を変えたいのですが

こんな感じ

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
　Rect: TRect; State: TGridDrawState);
begin
　if Assigned(StringGrid1.Objects[ACol,ARow]) then begin
　　StringGrid1.Canvas.Font.Color := TColor(StringGrid1.Objects[ACol,ARow]);
　　StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[ACol,ARow]);
　end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
　StringGrid1.Objects[3,3] := TObject(clRed);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　StringGrid1.Objects[3,3] := nil;
end;

274 ：デフォルトの名無しさん：04/02/19 21:04

>>272
>>267は百も承知と思われ。

275 ：重複スレの４４：04/02/19 22:03

>>247
きちんと出来ました。

出先のマシンのエディターでソースファイルを改変してカット＆ペースト
を良くしていてするたびにエラーになったのですが、回避策が分かったので
助かりました。ありがとうございました。

276 ：重複スレの４４：04/02/19 22:07

もしかしたら前のエラーと関連があるかもしれないのでコテハンで。

integer型の配列変数を使っているのですが、初期値０からいきなり1072941865等に
変わってしまいます。
その変数を使っているところすべてにブレークポイントを設定して確認したのですが、
どこでも初期値の状態から変更していないでした。

このような症状って聞いたことありますか？
もしご存知でしたら対策を教えてください。

277 ：デフォルトの名無しさん：04/02/19 22:09

>>266,273
うまくできました。ありがとうございます

278 ：デフォルトの名無しさん：04/02/19 22:10

>>276
最適化オフはやってたと思うので、別の配列等で範囲外に書いてるとかしか
思いつかないな。

279 ：デフォルトの名無しさん：04/02/19 22:43

>>278
最適化をオフにしたところで、動かないプログラムが動くようになることなんて、
(基本的に)ありえない。最適化の責任にしないように。
最適化オフなんて、デバッガで変数の中身をいじるときくらいしか使わんでしょ。

280 ：デフォルトの名無しさん：04/02/19 23:07

>>279
最適化ONの場合、デバッガで変数を見ると意図しない値になってたりするとがあるけど
重複スレの方で最適化をOFFにしろという話が出ていたので、あれからONにしてない
よね？という確認ですが。

＞最適化をオフにしたところで、動かないプログラムが動くようになる
誰もそんなことは言ってない。
俺への指摘はどうでもいいから、>>276にアドバイスしてやれよ。

281 ：デフォルトの名無しさん：04/02/19 23:14

＞最適化ONの場合、デバッガで変数を見ると意図しない値になってたりするとがあるけど
＞重複スレの方で最適化をOFFにしろという話が・・・
何故そこで最適化が出てくるのか・・・

282 ：281：04/02/19 23:16

自己レスだが、もしかしたら最適化ONにしていると、代入しても
使われない値は、代入処理自体がパスされるのかもしれない。
でも宣言した変数に、まったく無関係な値が保存されるのは無いと思うが…

283 ：デフォルトの名無しさん：04/02/19 23:18

>>276
デバッガのウォッチの値がおかしいのか実際の値と実際の挙動がおかしいのか？

284 ：重複スレの４４：04/02/19 23:25

最適化はONにしています。
デバッガのウォッチ値と実際の値、両方ともおかしいです。

285 ：デフォルトの名無しさん：04/02/19 23:27

じゃあ普通に純粋なバグだ。
デバッグしろ。質問するならもっと具体的かつ簡潔にコードを示して聞け。

286 ：デフォルトの名無しさん：04/02/19 23:27

わけわからんことが起こったときには最適化切ってみれってよく聞くのだが
どうしてなのか、あんまりわからん

287 ：デフォルトの名無しさん：04/02/19 23:33

>>286
最適化をオフにすると、
・無用な代入がパスされる→デバッグしにくい。
・ローカル変数がメモリ上ではなく、レジスタ上に確保され、デバッガから
　見難くなる→デバッグしにくい。
・でも、オフにしたから正常に動作するなんてありえない。

288 ：デフォルトの名無しさん：04/02/19 23:35

・ステップ実行が見かけ上おかしくなる。

>・でも、オフにしたから正常に動作するなんてありえない。
潜在的なバグの挙動が変わって結果的に正常に動作する可能性はありえるな。
とかいってみたり。

289 ：デフォルトの名無しさん：04/02/19 23:37

>・でも、オフにしたから正常に動作するなんてありえない。

オフにして正常に動作するなら「最適化」とは言わない罠。確かに。

290 ：重複スレの４４：04/02/19 23:39

すみません。ではソースを貼り付けます。
filename:=ChangeFileExt(application.exename,'.ini');
selfini:= TIniFile.Create(filename);
for i:=1 to comboBox2.items.count do
begin
WC1[i] :=selfini.Readinteger('anal','WC1['+inttostr(i)+']',0);
end;
別の処理が色々と・・・ただしWC絡みは一切無し。
for i:=1 to comboBox2.items.count do
WC:=WC+WC1[i];
　　　　　↑
　　　ここで0でなくなっています。
inifileから読み取ったところでデバッガから覗くときちんと０になっています。

291 ：デフォルトの名無しさん：04/02/19 23:39

>>289
Delphiは知らないけど、他のコンパイラでは最適化バグは聞くよ。

292 ：デフォルトの名無しさん：04/02/19 23:40

>>291
Delphiはある時期からコンパイラが停滞しているのでその心配はありません。

293 ：重複スレの４４：04/02/19 23:40

あっ、ずれた。
WC:=WC+WC1[i];
　　　　　↑↑↑
　　　ここで0でなくなっています。

294 ：デフォルトの名無しさん：04/02/19 23:41

> Delphiは知らないけど、他のコンパイラでは最適化バグは聞くよ。

最適化のバグの有無はどっちにしても2chでは解決できん罠。

295 ：デフォルトの名無しさん：04/02/19 23:44

WC は初期化してるんか？

296 ：デフォルトの名無しさん：04/02/19 23:45

for抜けたらiの値は出鱈目だぞ。参照すんな。

297 ：デフォルトの名無しさん：04/02/19 23:46

>>296
してないように思うが。

298 ：デフォルトの名無しさん：04/02/19 23:47

WCとかanalとか変な変数名

299 ：デフォルトの名無しさん：04/02/19 23:48

WC1の宣言がおかしいんだな

300 ：デフォルトの名無しさん：04/02/19 23:49

>>294
コンパイラはソースが公開されてなければ直せないけど
アプリの方は最適化オフというアドバイスができると思うんだけど
そういう意味でなくて？

301 ：デフォルトの名無しさん：04/02/19 23:50

まずソースを疑え！というのはデバッグの基本

302 ：デフォルトの名無しさん：04/02/19 23:55

最適化のON/OFFで挙動が変わるのもデバッグするための
情報のひとつになるでしょ

303 ：重複スレの４４：04/02/19 23:55

＞＞２９５
はい。０に初期化しています。

＞＞２９９
宣言がおかしいって言うのはどういうことでしょう？

でも、一時的にでもWC1に０がきちんと代入されているので宣言は関係ないと思いますが。

304 ：デフォルトの名無しさん：04/02/19 23:57

範囲チェックをONにすれば分かる

305 ：デフォルトの名無しさん：04/02/19 23:58

関係ないことばっか言ってみる
>'WC1['+inttostr(i)+']'　
ここ一瞬何だ？って思った。スペースないと見難いね
それと、添字は0からにして欲しいね。
WC1の型はどうなってる？
この例なら動的配列になると思うけど
WC1: array[1..comboBox2.Items.Count] of Integer;
とかなってない？
WC1: array of Integer;
SetLength(WC1,combobox2.Items.Count);

306 ：デフォルトの名無しさん：04/02/19 23:59

プロジェクトオプションのコンパイラタブで、範囲チェックをオンにして再構築してみるのはどうかな？

307 ：デフォルトの名無しさん：04/02/20 00:01

>for i:=1 to comboBox2.items.count do
0オリジンにしとけ

308 ：デフォルトの名無しさん：04/02/20 00:04

> 最適化のON/OFFで挙動が変わるのもデバッグするための
> 情報のひとつになるでしょ

最適化なんぞはリリースバージョンまでオフにするもんじゃないのか？

309 ：デフォルトの名無しさん：04/02/20 00:08

>>308
元質問者や>>279によるとそうでもないみたいです。

310 ：デフォルトの名無しさん：04/02/20 00:12

>>308
そしてリリース直前になって最適化オプションで不具合がでるｗ

311 ：デフォルトの名無しさん：04/02/20 00:15

>>310
基本的にありえないそうです。

312 ：デフォルトの名無しさん：04/02/20 00:15

>>310
じゃ、最適化のバグだとすぐわかるでしょ？
>最適化なんぞはリリースバージョンまでオフにするもんじゃないのか？
これって常識じゃないのか？オレは先輩から教わったんだけど？

313 ：重複スレの４４：04/02/20 00:18

＞＞３０５
WC1はarray[1..10]にしています。

＞＞３０６
今、手打ちで元バージョンのソースから変更しています。
コピペを使わなかったらきちんと動作するのか確認したいので。
その後にやってみます。

＞＞３０８
最適化はオフが基本なのでしょうか？

314 ：デフォルトの名無しさん：04/02/20 00:23

>>312
最適化をOffにするのはVC++使ってたからじゃないの？
Delphiは昔からデフォルトでONだよ。
そのセンパイは昔からのDelphi使いじゃないでしょ

315 ：デフォルトの名無しさん：04/02/20 00:23

>>312
ここは厨房が多いので常識は通用しない

316 ：デフォルトの名無しさん：04/02/20 00:25

> そのセンパイは昔からのDelphi使いじゃないでしょ

そうかもしれない。Delphi使いはデフォルトで非常識なんだね

317 ：デフォルトの名無しさん：04/02/20 00:25

お前ら最適化しないと駄目なようなアプリなんて作ってないだろ。
へたれはリリースもOffにしとけ。

318 ：デフォルトの名無しさん：04/02/20 00:26

>Delphi使いはデフォルトで非常識なんだね
Delphiつかってる時点で（ry

319 ：デフォルトの名無しさん：04/02/20 00:27

最適化オフにしてる。
MLでループ変数が逆回り(いい表現が浮かばない)することもあるというのを読んで
デバッグしにくそうと思ったから。

リリース時もそのままなわけだがｗ

320 ：デフォルトの名無しさん：04/02/20 00:39

リリースと違うオプションでコンパイルして何か意味あるの？
そんなバイナリをテストしても意味ないし
バグを追いかけるときに便宜的にわざわざ切り替える程度
まあ、Delphiはそのあたりを気にしなくても大して意（ｒｙ

321 ：デフォルトの名無しさん：04/02/20 00:41

>>313
コンボボックスのCountでループまわしてるのは何で？
WC1の値が全部0になってるとかじゃないの？
0は何回足しても0
IniFileの中に　[　]　この括弧を使うのも激しく疑問
誤認されてるんちゃうか？
括弧部分をなくして
WC1[i] :=selfini.Readinteger('anal','WC1'+inttostr(i),0);
でどう？

322 ：デフォルトの名無しさん：04/02/20 00:42

>そんなバイナリをテストしても意味ないし
開発・テストが渾然一体となってる零細企業勤務ですか？

323 ：デフォルトの名無しさん：04/02/20 00:43

x:Integer;
y:Expanded;として
y:=7.777;とします。
で、xに7（整数をyの少数切り捨て)でいれたいんだけど…いろいろやってみたがだめでした。
どうしたらよいでしょうか？

324 ：デフォルトの名無しさん：04/02/20 00:43

> そんなバイナリをテストしても意味ないし
最適化on・offを切り替えられるようにする必要はない、と主張しているように聞こえるな。

325 ：デフォルトの名無しさん：04/02/20 00:45

trunc()

326 ：デフォルトの名無しさん：04/02/20 00:46

Expandedという型はない

327 ：323：04/02/20 00:48

Extendedだった。

328 ：デフォルトの名無しさん：04/02/20 00:48

「少」数ではない
いろいろって何か他にやるようなことあるの？ｗ
思いつかないｗ
公開きぼんぬ

329 ：323：04/02/20 00:57

x := StrToInt(FloatToStr(y));　超初心者が・・・。

330 ：デフォルトの名無しさん：04/02/20 00:59

ﾜﾗﾀ

331 ：デフォルトの名無しさん：04/02/20 01:01

>>329
よく頑張ったｗ

332 ：323：04/02/20 01:05

ｲｲと思ったんだが・・・＿|￣|○

333 ：デフォルトの名無しさん：04/02/20 01:15

Trunc()津カット家

procedure TForm1.Button1Click(Sender: TObject);
var
　x:Integer;
　y:Extended;
begin
　y := 7.777;
　x := StrToInt(Copy(FloatToStr(y),1,Pos('.',FloatToStr(y))-1));
　Label1.Caption := IntToStr(x);
end;

334 ：デフォルトの名無しさん：04/02/20 01:36

メニュー項目別じゃなくて、メニューのポップアップそのものをオーナードローしたい。
そうしないと、一瞬メニュー色で塗りつぶされた後にオーナードロー色になる。
メニューバーも塗りつぶしたい。
オーナードローでは文字の背景しか塗りつぶせない。

というわけで何か知ってる人はいないですか？

335 ：323：04/02/20 01:37

なんか難しいねぇ。y:=7.000とかだとエラーになるし。
ってことは、タイマー使ってy:=y-0.1;ってやっていくとエラーになるってことだよなぁ。
y := 7.777;もy := 7.000;もＯＫなようには出来ますか？

336 ：デフォルトの名無しさん：04/02/20 01:37

どこかにいる

337 ：デフォルトの名無しさん：04/02/20 01:39

>>323
だからTrunc()つかえって
条件は後出しするなよ

338 ：デフォルトの名無しさん：04/02/20 01:42

小数点以下が3桁に限られるのなら1000倍した値を保持し、
必要に応じて1000分の一して使えばいいのに。

339 ：デフォルトの名無しさん：04/02/20 01:44

>>335
どうしてもTrunc()使いたくないなら

x := StrToInt(Copy(Format('%.3f',[y]),1,Pos('.',Format('%.3f',[y]))-1));;

340 ：323：04/02/20 01:52

x := Trunc(y);でよかったのか。
>>333の下のやつはなんだよぅ(ﾉ∀`)ありがとう。

341 ：333：04/02/20 01:54

>>340
なんだよう、325でレスしただろ。
てっきりジョークかと思ってつきあったのに。

342 ：デフォルトの名無しさん：04/02/20 02:08

>>333 >>339
ご苦労

343 ：デフォルトの名無しさん：04/02/20 02:20

以前、小数点以下2桁で四捨五入という主旨の質問で、100倍して整数化して
100で割るという回答したら、ダサいと言われた。

今日、SimpleRoundToという関数を見つけた。
俺ってまだまだやね。

344 ：デフォルトの名無しさん：04/02/20 02:25

>>343
で、ダサクない解決法はどうだったの？

345 ：デフォルトの名無しさん：04/02/20 02:26

ｱﾋｬﾋｬ
function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
LFactor: Double;
begin
LFactor := IntPower(10, ADigit);
Result := Trunc((AValue / LFactor) + 0.5) * LFactor;
end;

346 ：デフォルトの名無しさん：04/02/20 02:50

>>344
教えてもらえなかった。

347 ：デフォルトの名無しさん：04/02/20 02:54

関数を発見するのもいいが、自分の頭で考えるのもいいと思うよ。
>>345 みると、うふふ、となるね。

348 ：343=346：04/02/20 08:09

数学(というか算数)の知識に乏しい俺でもSimpleRoundToは考えれば
作れるかもと思ったけど、その中のIntPowerはのアルゴリズムは
すげーと思った。知識のある人にはなんのことはないのかも知れないけど。

349 ：デフォルトの名無しさん：04/02/20 10:34

ここで、何のことはない、と思っても書き込んだ奴は負けだ！
つまり俺は負けている！
ただ君>>350、君には負けて欲しくないのだ！

350 ：デフォルトの名無しさん：04/02/20 10:40

自作コンポーネント作っています。
それをフォームに２つ以上置いた時、１つ目のコンポのある変数が
２つ目以降のコンポに引き継がれてしまっているのです。
なぜ１つ１つのコンポ自体独立してないのでしょうか？
それを考慮したプログラムを組まないといけないのは普通の事なんでしょうか？
どうも何かコンポのありかたが違う気がします。

351 ：デフォルトの名無しさん：04/02/20 10:44

>>350
一つ目のコンポの変数？　って部分が良く判らないのだが、

その変数は　そのコンポ（クラス）のどういう場所で宣言したメンバーなんだい？

普通にpublicとかprivateなメンバーなら、当然Createされる都度に独立してるよ。

352 ：デフォルトの名無しさん：04/02/20 10:46

>>350
どう考えても、グローバル変数を見ているような気が・・・
その「ある変数」の前に「Self.」という文字を付けてもコンパイルできますか？

353 ：334：04/02/20 11:38

ここらでもう一回アピールしておきます

354 ：デフォルトの名無しさん：04/02/20 12:56

>>334
某所にそれを実現したコンポがあるけど、1から作ったほうが簡単であるのも事実。
メニューは実は単なるウィンドウなんですよ。

355 ：デフォルトの名無しさん：04/02/20 13:20

なるほど。簡単ですか。
ありがとうございました。

356 ：デフォルトの名無しさん：04/02/20 13:55

>>351
出来たコンポを設計時に複数貼り付け、実行時に１番目にアクティブになった
コンポの変数の値の事です。
もともとimplementationの下のvarで宣言してたのですがprivateに移動しても
変わりませんでした。
でもどっちにしても、同じコンポを複数貼っても
それぞれ影響しあわないような気がするのですが。

>>352
すいません、修正を加えて無理やり正常にしたので
さっきのがどうやってたのか再現できなくなりました・・・
グローバル変数って影響し合うんですか？
例えば設計時にフォーム上に貼り付けた自作コンポのcompo1とcompo2は
グローバル変数共用ってな感じに動いたのですが。

357 ：重複スレの４４：04/02/20 13:56

ソースを手打ちで打ち直したのですが、やっぱりエラーが出ます。
なんかの設定を引き継いでいるのかもしれません。
余計なファイルをすべて削除してから再コンパイルやってみたいのですが、
コンパイルに必要なファイルはpas,dpr,dfmと他に何が無いといけないのでしょうか？

＞＞３０６
やってみましたが駄目でした。

＞＞３２１
＞コンボボックスのCountでループまわしてるのは何で？
追加する場合があるためです。

＞WC1の値が全部0になってるとかじゃないの？
はい。０にしているはずなのですが、とんでもない数字になってしまいます。

＞誤認されてるんちゃうか？
読み取りのときに誤認されているのは絶対にありえないです。
デバッガで毎回確認しています。

358 ：デフォルトの名無しさん：04/02/20 14:09

>>356
＞implementationの下のvarで宣言してたのですが
だったらコンポ毎に同じ値になるのは当たり前。interface部か
implementation部かは関係ない。
コンポ(というかインスタンス)毎に別の値にするなら、クラスのフィールドなりにしないとダメ。

>>357
この話はどうなのよ？
http://pc2.2ch.net/test/read.cgi/tech/1076610073/56

359 ：デフォルトの名無しさん：04/02/20 14:23

>>358
ええっ！そうだったのかぁ・・・
どうもです。

360 ：デフォルトの名無しさん：04/02/20 14:25

dbExpressってDBGridとか使えないんでしょうか？

もし使えるなら、接続の仕方を教えて下さい。
宜しくお願いします。

361 ：デフォルトの名無しさん：04/02/20 14:31

>>360
ttp://www.atmarkit.co.jp/flinux/rensai/webserv02/webserv02b.html
？？

362 ：360：04/02/20 15:00

>>361
レスありがとうございます。
TSQLClientDataSetが見つからず、出来ませんでした。
kylixしかないのかも。
（TClientDataSetは見つかったんですが、SQLConnectionと接続できませんでした。）

開発環境はDelphi7でWindowsXPです。

363 ：デフォルトの名無しさん：04/02/20 15:13

var
x: Integer;
begin

で、宣言した直後のｘの値は常に0なのですか？
配列で宣言した場合も全部0になりますか？

364 ：デフォルトの名無しさん：04/02/20 15:19

ローカル変数は初期化されない。

365 ：デフォルトの名無しさん：04/02/20 15:24

ってそのまま使えばそういう警告が出るよね。

366 ：デフォルトの名無しさん：04/02/20 15:34

変数は宣言した時点では不定だよ。
ちゃんと初期化しないと。
これはローカル変数でもグローバル変数でも関係なし。

367 ：重複スレの４４：04/02/20 15:35

＞＞３５８
ファイル名を別の名前に変えて確認しましたが大丈夫でした。

368 ：デフォルトの名無しさん：04/02/20 15:39

>>366
＞明示的に初期化されていないグローバル変数はコンパイラによって0 に初期化されます。

369 ：デフォルトの名無しさん：04/02/20 17:02

>>357
誤認されてるにしろ、されてないにしろ
IniFile中に[]を入れるのは喜ばしくない
IniFile開いて見たことある？
1オリジンも気持ち悪い。
別の処理中にも逐一止めて値を確認してみれ
>追加する場合があるためです。
だったら動的にしとけ

370 ：360：04/02/20 17:30

自己解決しました。必要ないかもしれませんが、一応やり方を書いておきます。

TSQLConnection
TSQLQuery
TDataSetProvider
TClientDataSet
TDataSource
TDBGrid

これらを上から順番に接続していって、
TSQLQuery.SQL にSQL文を書いて、
TClientDataSetのActiveをTrueにすれば
表示されました。

371 ：デフォルトの名無しさん：04/02/20 17:55

SendMessage(Handle, WM_LBUTTONUP, 0, 0)
のような感じでマウスをクリックした事にしたいのですが
SendMessageのパラメータの 0, 0　部分をどう指定してよいのか解かりません。
クリックした事にしたい座標の指定の仕方を教えてください。

372 ：デフォルトの名無しさん：04/02/20 18:02

クライアント領域だから、その窓ハンドル相対で与えてやればいいよ。

でも、相手がボタンなら BM_CLICKでいいんじゃないの？

373 ：デフォルトの名無しさん：04/02/20 18:06

パラメータに座標を指定する方法自体が解からないんですが。
どんな書き方をすればいいのでしょうか？具体例をくだちゃい。

374 ：デフォルトの名無しさん：04/02/20 18:13

数字入れればイイだけ
左上が0、x軸が右向き、y軸は下向き
座標はピクセル単位

375 ：デフォルトの名無しさん：04/02/20 18:16

きっと、　PointToSmallPoint　が見当たらなかったんだと思うよ。

windows.pasにあるからさ
座標を var POINT:TPoint ; としたらさ

Longint( PointToSmallPoint(POINT) )

376 ：デフォルトの名無しさん：04/02/20 18:18

>RSA1.DecryptStringFromT(, ToT);
ﾜﾗﾀ

377 ：デフォルトの名無しさん：04/02/20 18:43

>>374-375
㌧クス！できました。

378 ：デフォルトの名無しさん：04/02/20 20:09

WM_LBUTTONUP
fwKeys = wParam; // key flags
xPos = LOWORD(lParam); // horizontal position of cursor
yPos = HIWORD(lParam); // vertical position of cursor

なんだから

SendMessage(Handle,WM_LBUTTONUP,0,MakeLParam(xPos,yPos));

だろうさ。ヘルプ読めよなぁ

379 ：デフォルトの名無しさん：04/02/20 20:23

ヘルプ読めとかいいながら、サンプルまで書いてしまう>>378萌え

380 ：デフォルトの名無しさん：04/02/20 20:56

関数を抜けるのはendですか？
何かあるのですか？breakとか
もしくはResultに値が代入されたら関数を抜けるのですか？

381 ：デフォルトの名無しさん：04/02/20 21:01

>>380
Exit

382 ：デフォルトの名無しさん：04/02/20 21:02

> 関数を抜けるのはendですか？

ふつうはそう

> 何かあるのですか？breakとか

exit;
とすると途中で抜ける

> もしくはResultに値が代入されたら関数を抜けるのですか？

ちがう。たんなる戻り値への代入

383 ：デフォルトの名無しさん：04/02/20 21:07

そう　で、Exitは手続きって所がpascal系の面白いところかもね。　

384 ：デフォルトの名無しさん：04/02/20 21:09

haltが手続きはいいんだけど、　exit も break も手続きってのがねえ。

385 ：デフォルトの名無しさん：04/02/20 21:13

ｃのreturnより、戻り値の設定が自由に出来るだけ柔軟なんじゃないかな？
まぁ、こんなこというと「宗教戦争」とかになるけど

386 ：380：04/02/20 21:14

あ、breakはループを抜けるのでしたね・・・

>>382
>> 関数を抜けるのはendですか？
>
>ふつうはそう
これは、関数の最後にend;って書くんですよね？
ifで分岐させて、途中で終了するときはexit;ですよね？

387 ：デフォルトの名無しさん：04/02/20 21:14

begin end が、とか言うヤツがきっとあらわれるぞ（藁

388 ：デフォルトの名無しさん：04/02/20 21:15

ヘルプを読めないとか？

389 ：380：04/02/20 21:17

読むのが面倒臭いのです。
このスレは辞書みたいで便利なんです。
特に週末は即答辞書代わりになりますので

390 ：デフォルトの名無しさん：04/02/20 21:20

TeditのText、TlabelのCapiton、ComboBoxのTextを初期化する命令ってありますか？
ある処理をした場合は、今までの入力をすべて破棄したいのですが

391 ：デフォルトの名無しさん：04/02/20 21:32

>>390
まさか
Edit1.Text :='';
Label1.Caption :='';
ComboBox1.Text := '';
という意味じゃないだろうね？
もうちょっと詳細を書け。

392 ：デフォルトの名無しさん：04/02/20 21:35

>>389
悪いがそういうやつには2度と来てほしくないな。

393 ：デフォルトの名無しさん：04/02/20 21:36

>>391
それです。
やっぱりそう書くしかないですか？

394 ：デフォルトの名無しさん：04/02/20 21:36

>>389
さりげなくすごいこといってるなｗ

395 ：デフォルトの名無しさん：04/02/20 21:41

> やっぱりそう書くしかないですか？

うふっ、ほかにどう書くのかこっちが訊きたい

396 ：デフォルトの名無しさん：04/02/20 21:43

週末は「くだすれ」どおりになって愉快。ふ、愉快。

397 ：デフォルトの名無しさん：04/02/20 21:44

ExitWindowsEx(EWX_REBOOT,0);
でリブートするときにFormCloseやDestoryは実行されるのでしょうか？
確実に実行させるにはどこに書けばいいのか教えてください。

398 ：デフォルトの名無しさん：04/02/20 21:46

>>393
例えばEdit等が大量にあるならそれ相応の対処方法があるから詳細を書けと言ってる。

3行程度で文句言ってるならプログラムなんてやめた方がいいと思う。

関係ないけど、おまいら>>389に釣られてはいけない。

399 ：デフォルトの名無しさん：04/02/20 21:48

>>395
Procedure FormReset;
begin
Edit1.Text :='';
Label1.Caption :='';
ComboBox1.Text := '';

end;

こんなの書いてみたのですが、定義されてないとか出ます・・・
なぜでしょう・・・

400 ：デフォルトの名無しさん：04/02/20 21:50

メソッドになってないから

Form1.Edit1.Text :='';

とか書かないと

401 ：デフォルトの名無しさん：04/02/20 21:52

>>399
メインフォームがForm1だとすれば
interface部にある
TForm1の宣言内に
procedure FormReset;
を書いて
implementation部には
procedure TForm1.formReset;
begin
　…
end;
とならなきゃ駄目だよ。

402 ：399：04/02/20 21:53

>>398
Teditが7つあって、そこに数字を入力します。
そして、25個のTlabelに処理結果を出力します。
で、もしTeditの1個目（Tedit1）が0なら、何も表示しない、という処理をしたいのです。

>>400
メソッド・・・
難しそうな言葉です。たしかオブジェクト指向とかいうやつですか？
メソッド、インスタンス、クラスって言葉で拒否してたので、これを気にじっくり勉強しようと思います・・・

403 ：デフォルトの名無しさん：04/02/20 21:57

> メソッド、インスタンス、クラスって言葉で拒否してたので、これを気にじっくり勉強しようと思います・・・

そうそう、これを知らずに Delphi をさわるなら、コンソールアプリしかつくってはいけませんよ。
是非、入門サイトで勉強してください。必須です。

404 ：399：04/02/20 22:01

なるほど、type部に
procedure Formreset;で
procedure Tform1.formReset;
begin
・・・
end;

って書くと、メソッド省略時に、Tform1のコンポーネントに向くってことですね？

>>403
やっぱり必須なのですね。これには時間をかけて確実に理解します。

405 ：デフォルトの名無しさん：04/02/20 22:02

>>402
このままじゃ動かないと思うので、一つ一つヘルプで調べて、適当に改変しる。
var
i: Integer;
begin
if Edit1.Text = '0' then
begin
for i := 1 to 25 do
begin
(FindComponent('Label' + IntToStr(i)) as TLabel).Caption := '';
end;
end;
end;

＞メソッド、インスタンス、クラスって言葉で拒否
帰れ・・・としか言いようがないなｗ
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%A5%EA%A5%F3%A5%AF%5D%5D#content_1_3

406 ：デフォルトの名無しさん：04/02/20 22:05

>>404
>って書くと、メソッド省略時に、Tform1のコンポーネントに向くってことですね？
意味がよく分からないんですけど…
type
　TForm1 = class(TForm)
　　Edit1: TEdit;
　　Label1: TLabel;
　…
　private
　　procedure FormReset;
public
　end;
に対して
procedure TForm1.FormReset;
begin
　…
end;
という感じになります。

407 ：399：04/02/20 22:07

>>406
やはり全然理解できてないみたいですね・・・
勉強しなおしてきます。

408 ：51：04/02/21 01:55

流れちゃった(´･ω･｀)
文字列を一文字ずつ見ていって空白じゃなけりゃバッファに溜めて
空白だったらTStrings辺りに溜まったバッファを追加するのでいいのかな?

409 ：デフォルトの名無しさん：04/02/21 02:09

どうも釣りの臭いがしないでもないような…。
とりあえず「メソッド」だけは、そんなに深く考えるほどの言葉じゃないと思う。

410 ：デフォルトの名無しさん：04/02/21 02:32

>>408
パーサ書け

411 ：デフォルトの名無しさん：04/02/21 02:43

>>408
ダサめなアイデアとして、
半角スペースと全角スペースを統一しちゃったらどう？
StringReplaceあたりを使ってさ。

412 ：411：04/02/21 02:46

つーか、「流れちゃった」って限度を超えてる気がする（藁

413 ：デフォルトの名無しさん：04/02/21 03:12

> どうも釣りの臭いがしないでもないような…。

いや、週末はメソッドと関数の区別がつかないのとか、Trunc() つかえないやつとか
break と exit の違いが分からないのとか、ほんとにくる。どうも、そのあたりは
「くだすれ」なんだからしょうがないんじゃないかと

414 ：デフォルトの名無しさん：04/02/21 07:46

書き込み不可プロパティと、引数の無い関数って、どう違うのですか？
クラス設計のとき、変数を読むだけのプロパティなら作るのが楽、という以外に。

415 ：デフォルトの名無しさん：04/02/21 11:19

くだすれだからある程度許容してあげようよ。
そこまで排除すると「くだすれDelphi（超初心者にも達しない厨房向け）」スレが
できてしまい、それもPart5くらいになると、そこも知らぬ間にレベルが上がってしまい、
「くだすれDelphi（箸にも某にもかからない香具師向け）」スレができてしまい
以下…

でもまあ、質問するときの最低限のルールはどっかで教えなきゃな。

416 ：デフォルトの名無しさん：04/02/21 11:56

readのみでfunction呼んでるものは、property書く必要ないよね。
でも、両方書くなら、functionの名前はGetHoge、propertyの名前はHogeだ。
それから、protectedのプロパティにしておけば、後々良いことあるかは知らん。

417 ：デフォルトの名無しさん：04/02/21 11:57

>>408
全角スペースを半角に変換して、それから
TStringでも、自作split関数でも何でも使えばいいのでは。
例えばYahooなんかの検索エンジンだと、全角スペースを
半角スペース２個に変換してる。

>>414
書き込み不可プロパティは
property Nullpo: String read GetNullpo;
のようにSetするメソッドそのものがないし、もし書込プロパ
が設定されていたとしたら、それは
procedure SetNullpo(Nullpo);と同義なので引数がある。
引数の無い関数は単純に
procedure NullpoExecute();
というだけの話。

418 ：デフォルトの名無しさん：04/02/21 12:11

スレ違いだけど一応お約束だから
　（　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　　 |　|
　　Ｙ　/ノ　　　人
　　　 /　）　　 < 　>__Λ∩
　＿/し'　／／. Ｖ｀Д´）/ ←>>417
　（＿フ彡　　　　　　　/

419 ：414：04/02/21 12:33

>>416
プロパティにしてprotectedにGet関数を書いても、最初からvirtualの引数無し
関数にしても、得られるメリットは同じような気がしますが。

>>417
聞いておいて失礼ですが、その程度のことは100も承知です。

420 ：デフォルトの名無しさん：04/02/21 13:54

んなこといったらプロパティはいらないべｗ

属性や性質を参照するものをプロパティ、
オブジェクトの機能をメソッドとして判断するしか
ないんでないの？

publishedでインスペクタでみれるという利点はあるかも。
あと、オーバーロードもオーバーライドもできない。

421 ：デフォルトの名無しさん：04/02/21 13:56

functionじゃなくてpropertyをプロテクトにするのさ。
それを継承したクラスでどのプロパティを公開するか決めるのが楽になる。

422 ：デフォルトの名無しさん：04/02/21 13:57

継承してwriteを付け加えることができる

423 ：デフォルトの名無しさん：04/02/21 14:03

【ﾌﾘｰ】 Firebird ってどうよ ODS2 【ｺﾝﾊﾟｸﾄ】
http://pc2.2ch.net/test/read.cgi/tech/1058992146/
1.5記念コピペ

424 ：デフォルトの名無しさん：04/02/21 14:24

delphi6 personalをDLしてエディターを作ろうと思うんですけど
メニューバーとステータスバーが無くて、ツールバーだけという
形でもOKなんでしょうか？

425 ：デフォルトの名無しさん：04/02/21 14:27

そんなエディターは使いたくないが、自分が好きなら作ればいいんじゃないの？

あと、D6パーソナルのチュートリアルはめちゃくちゃだから先にどっかで情報仕入れといてね。

426 ：デフォルトの名無しさん：04/02/21 14:33

るるとん＠Ｋ 2004/02/21(土) 09:47:05
procedureってなんて読むんでしょうか？
プログラムが読めないんです
るるとん＠Ｋ 2004/02/21(土) 09:57:20
[[解決]]
すみません、プロシージャでした

427 ：397：04/02/21 14:37

相手してください。。。

428 ：デフォルトの名無しさん：04/02/21 14:40

>>427
それは答えの出ない質問だと思うよ。　どうなるかどこにも書いてないからその質問なんでしょ？

実験してみて結果を調べるか、Win2000のソース追いかけて調べるか。

429 ：４２４：04/02/21 14:41

ありがとうございましたー

430 ：デフォルトの名無しさん：04/02/21 15:09

>>397
OnCloseQueryだったかな。いや、逆かも
OnCloseQueryかOnCloseのどちらかが確実に実行されるものだったと思う。
実験してみたほうが早いと思うよ

431 ：デフォルトの名無しさん：04/02/21 15:14

便乗的な質問なんですが、Form1からForm2を
Form2 := TForm.Create(Self);
と作成したとき、Form2のOnCloseで
Self.Release;
とすれば、Form1でForm2.Releaseなり、Freeなり
してあげなくても大丈夫ですか？

432 ：デフォルトの名無しさん：04/02/21 15:41

Form2のメソッド実行中にForm2を破棄できるかどうか
流しそうめんで流してる途中にレール(?)をぶった切ったらどうなるか
if Assigned(Form2) then　～

433 ：デフォルトの名無しさん：04/02/21 15:52

>>431
form.Create( 親 ) としたら、親が死んだら子も死ぬ。
でも、子が自分で死んでも親はそのままさ。

Self.Release;とすればそれで十分。

434 ：デフォルトの名無しさん：04/02/21 15:53

Self.Releaseを選んだのは賢明。
Self.Free と違ってSelf.Release　は、その時に開放するわけじゃないから安全

435 ：デフォルトの名無しさん：04/02/21 15:54

ごめんなさい。

436 ：デフォルトの名無しさん：04/02/21 15:59

test.txt
という文字列を
test
という拡張子を外した文字列にするには
どのようにすればよろしいのでしょうか。。
ﾍﾙﾌﾟﾐｰ（;´Д｀）

437 ：デフォルトの名無しさん：04/02/21 16:02

>>436
ExtractFile　って打って、F1 押して探したら見つかると思うよ。

438 ：デフォルトの名無しさん：04/02/21 16:03

>>432-434
大丈夫みたいですね。ありがとうございました。

439 ：デフォルトの名無しさん：04/02/21 16:05

>>436
ChangeFileExt

440 ：デフォルトの名無しさん：04/02/21 16:06

ぬるぽ

441 ：デフォルトの名無しさん：04/02/21 18:16

　∧＿∧
（　；´∀｀）
人　Y　/
(　ヽωつ ο°ｏ。
（＿）＿）　　 ∩ 　_, ,_
　　　　　　⊂⌒（　`Д´）　>>440
　　　　　　　｀ヽ_つ ⊂ノ

442 ：ななしへたぐらま ◆XcB18Bks.Y ：04/02/21 22:03

>>260
本筋と関係ありませんがリテラル文字列（変数や定数ではない文字列）はPCharでキャストしなくても大丈夫ですよ．
>>402
『メソッド』はコンポやその他のオブジェクトに専属の関数または手続きの事です．
ちなみに『オブジェクト』はモノ（物），『クラス』はオブジェクトの型，『インスタンス』はオブジェクトの実体のことです．

443 ：デフォルトの名無しさん：04/02/22 00:59

TLabelにファイル名を表示しているのですが、
ファイル名に＆が含まれていると下線になってしまうのを禁止できませんか？

444 ：デフォルトの名無しさん：04/02/22 01:02

ShowAccelChar

445 ：デフォルトの名無しさん：04/02/22 01:09

一発的確な回答ありがとうございました

446 ：デフォルトの名無しさん：04/02/22 01:51

>>430
CloseQueryが確実に実行されると思った。
MLの過去ログにあると思う。

自分では検索しようともしないのだがｗ

447 ：デフォルトの名無しさん：04/02/22 02:26

>>434 Self.Releaseを選んだのは賢明。
OnClose なんだから

Action := caFree;

がベストでは？

448 ：デフォルトの名無しさん：04/02/22 02:44

最大化や最小化から戻ったときというのをどうやって感じればいいですか？

449 ：デフォルトの名無しさん：04/02/22 03:07

目で見る

450 ：デフォルトの名無しさん：04/02/22 03:14

>>448
セブンセンシ…

もとい。
wm_syscommand、SC_MAXIMIZE、SC_MINIMIZE、SC_RESTORE
あたりを検索しなはれ。

451 ：デフォルトの名無しさん：04/02/22 03:28

>>450
どうでもいいけど、セブンセンシズって、どう考えても訳すると「七つの感覚」だよな・・・
「第七感」なら、セブンスセンスだろうが・・・＞クルマダセンセ

452 ：デフォルトの名無しさん：04/02/22 05:31

すいません初心者です。
これからDelphiをはじめようと思うのですが
バージョン６，７，８、。NET版といろいろあって
よくわかりませんどれを使えばいいのでしょうか。

453 ：デフォルトの名無しさん：04/02/22 06:20

>>452
自分に出来るかどうか、確かめてからにするなら、
「タダの６（いわゆるパソナル）」が一番でせう。
フリーなんで、死ぬほどいじりたおしてから製品版の７か８を買えばよろし。
他は知りませぬ。

454 ：452：04/02/22 06:38

まじめに質問しているので、まじめにレスしてくれる人だけレスしてくれればよいです。

455 ：デフォルトの名無しさん：04/02/22 06:43

まじめにレスしているので、まじめに質問してくれる人だけ質問してくれればよいです。

456 ：デフォルトの名無しさん：04/02/22 06:46

なんかすげー失礼な奴が来たな

457 ：452：04/02/22 07:09

454は別人です！

453さんレスありがとうございます。
６を使ってみます。

458 ：デフォルトの名無しさん：04/02/22 09:57

MessageDlg('削除しますか？',
mtConfirmation,[mbYes,mbNo],1) ;

これだとなぜかNoにフォーカスがあったっていないのですが、
何故でしょうか。。教えてくださいまし＿|￣|○ |||

459 ：デフォルトの名無しさん：04/02/22 11:39

削除しませんか？

にすると解決

460 ：デフォルトの名無しさん：04/02/22 11:54

ﾜﾛﾀ

461 ：デフォルトの名無しさん：04/02/22 12:06

>>458
あれ？次の引数にデフォルトフォーカスボタン指定するんじゃなかったっけ？　と思ったらVCLではまだそうなってないのか。

じゃさ、　CreateMessageDialog　で作成してフォーカスボタン指定したらいいんじゃないの？

462 ：デフォルトの名無しさん：04/02/22 12:27

Application.MessageBox('削除しますか？', '確認',
MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2);

463 ：デフォルトの名無しさん：04/02/22 12:53

var res:Integer;
begin

with CreateMessageDialog('削除しますか？',
　 mtConfirmation,[mbYes,mbNo])
　do try
　 HelpContext := 1;
　 with FindChildControl('No' ) as TButton do begin
　 Default:=True;
　 TabOrder:=0;
　 end;
　 res := ShowModal;
finally free end;

464 ：485：04/02/22 14:20

>>463
おをををを。ありがとうございます

その場合は変数resにmrYesかmrNoが代入されるんですよね。
Integerでも例外があるなんて知らなかった。。
どうもありがとうございます。

465 ：デフォルトの名無しさん：04/02/22 14:23

>Integerでも例外があるなんて知らなかった。。
？？？

>>462にもお礼を言っておいたらどうなのよ

466 ：485：04/02/22 15:17

464は偽物です

467 ：デフォルトの名無しさん：04/02/22 16:51

未来人ｷﾀｰ

468 ：デフォルトの名無しさん：04/02/22 20:02

うぉい！先週始めたばかりでさっぱりわからん。助けてくれぃ！！
Delphi7を起動してﾌﾟﾛｸﾞﾗﾑを書く(修正)→実行を繰り返しているわけですが、
実行して修正点をみつけ、またﾌﾟﾛｸﾞﾗﾑを書く画面に戻る際になぜかエラー「ビジー状態です。応答がありません。」
と出て、しばらく待つか強制終了かと聞いてくるので強制終了を選ぶと今度は不正な処理を行ったので強制終了します。
と出たまま固まって動きません。

毎回エラーが出るわけではなく確立は1/3くらいです。あと今のところ特定のﾌﾟﾛｸﾞﾗﾑを実行した時にだけ出るようです。
ﾌﾟﾛｸﾞﾗﾑの問題だとしたらどんな事が考えられるでしょうか？

469 ：デフォルトの名無しさん：04/02/22 20:22

> あと今のところ特定のﾌﾟﾛｸﾞﾗﾑを実行した時にだけ出るようです。

うんじゃ誰にも分からないと思われ

470 ：デフォルトの名無しさん：04/02/22 20:29

>>468
おおかた、条件によって無限ループになることがあるのでしょう。

471 ：デフォルトの名無しさん：04/02/22 21:35

>>468
メモリーの解放忘れとか。
つい最近同じようなことが起きて、
原因は解放忘れだった。

472 ：デフォルトの名無しさん：04/02/22 21:37

delで.Netって、JavaとJBilみたいな関係？

473 ：デフォルトの名無しさん：04/02/22 22:13

VB と VB.NET みたいな関係

474 ：デフォルトの名無しさん：04/02/22 22:15

>>468
ソースをうぷしれ

475 ：４６８：04/02/22 22:30

>>474
今からいろいろやってみる。だめぽならうｐしてもいいが…

476 ：４６８：04/02/22 22:58

ってかDelphi自体を終了させたら「コード02A・・・・に対する読み込みエラーが発生しました」
ってのがブラクラみたいに永遠と出てきた＿|￣|○
見るだけ見てください。決して(ﾟдﾟ)ｳﾏｰではありません。

ttp://www.pandora.nu/tv/src/img20040222225015.txt

477 ：おしえて下さいⅡ：04/02/22 23:04

Delphi相談室（超初心者用）その１１で質問させて頂いたのですが、
CSVファイル以外の既存のエクセルファイルを開き、内容をStringGridに移したいのですがどうやれば
良いのでしょうか？
CSVファイルの場合に関しては教えて頂けたのですが、普通のエクセルファイルを開きたかったものですから。。。
色々検索掛けたのですが”TExcelApplication”による新規作成以外見つからなかったんです。
宜しくお願いします。

478 ：デフォルトの名無しさん：04/02/22 23:06

ｵﾚｵﾚ

479 ：デフォルトの名無しさん：04/02/22 23:25

Delimiter

480 ：デフォルトの名無しさん：04/02/22 23:26

>>477
セルに値をセットする方法がわかればゲットもできるだろ。
詳細はExcelのリファレンス嫁。

481 ：デフォルトの名無しさん：04/02/22 23:27

http://pc2.2ch.net/test/read.cgi/tech/1076610073/61,67

BorlandDelphiPersonalEditionJP.exeの中をｱｰｶｲﾊﾞで覗いても
\Lib\DebugやXmlxform.dcuが無いですが、\Debug以下が
無いのは正常ですか？
XP非対応なせいですか？

482 ：デフォルトの名無しさん：04/02/22 23:32

>>481
こっちもないよ。

483 ：デフォルトの名無しさん：04/02/22 23:32

　ちょっと板違いのようなきもするのですが・・・
　計氏のSusie Plug-in 読込コンポの今のバージョンはＤ５に非対応になっていてインスツールがで
きません。専用のＨＰもないようです。どこを修正すればいいのか、あるいは以前のバージョンをが
アップされているところを知らないでしょうか？

484 ：おしえて下さいⅡ：04/02/22 23:34

478・479・480さん回答ありがとうございます。
Excelのリファレンスを読んでみます。

485 ：デフォルトの名無しさん：04/02/22 23:42

>>482
ども

http://www.borland.co.jp/delphi/readme_d6_variants_jp.txt

↑「上記のファイルは，Delphi 6 の全エディションに存在します」が気になったんで。。。

ｺﾝﾊﾟｲﾙ自体はｴﾗｰ無く出来るです。。。

486 ：Delﾌｻｷﾞｺ ◆A6VzDeLphI ：04/02/22 23:52

　　　　 ∧,,∧,,,,,, ）　　　　　　(´⌒(´
　　⊂ミﾟДﾟ⊂　｀つ≡≡(´⌒;;;≡≡≡
ｽﾞｻﾞｰｰｰｯ """""　 (´⌒(´⌒;;
var
　Excel: Variant;
　WorkBook: Variant;
　WorkSheet: Variant;
procedure TForm1.Button1Click(Sender: TObject);
begin
　 try
　　　Excel := CreateOleObject('Excel.Application');
　 except
　　　on EOleSysError do begin
　　　　 ShowMessage('Excelが起動できません');
　　　　 Excel := Null;
　　　　 Exit;
　　　end;
　 end;
　 Excel.Visible:= True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
　 WorkBook := Excel.WorkBooks.Add;
　 WorkSheet := WorkBook.WorkSheets[1];
　 WorkSheet.Activate;
end;

487 ：Delﾌｻｷﾞｺ ◆A6VzDeLphI ：04/02/22 23:54

　　　　 ∧,,∧,,,,,, ）　　　　　　(´⌒(´
　　⊂ミﾟДﾟ⊂　｀つ≡≡(´⌒;;;≡≡≡
procedure TForm1.Button3Click(Sender: TObject);
begin//
　WorkBook := Excel.WorkBooks.Open(C:\Temp\test.xls');
　WorkSheet := WorkBook.WorkSheets[1];
　WorkSheet.Activate;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
　i, j: Integer;
　x, y: Integer;
begin
　x := 1; y := 1;
　for i := 1 to 3 do
　begin
　　for j := 1 to 3 do
　　begin
　　　WorkSheet.Cells[x+i-1,y+j-1] := IntToStr(i) + '-' + IntToStr(j);
　　end;
　end;
end;

488 ：デフォルトの名無しさん：04/02/23 00:21

+ '-' +
かわいい

489 ：デフォルトの名無しさん：04/02/23 01:18

>>476
明日みてみるから、そのままおいといてくり。
つか、どうせあげるなら、pasやプロジェクトごと
圧縮してくれよん。

ﾏﾝﾄﾞｸｾｰよ

490 ：デフォルトの名無しさん：04/02/23 01:19

バグ入りコンポ登録しただけだろ

491 ：デフォルトの名無しさん：04/02/23 01:51

>>476
D7終了時ブラクラは、認証クラック版の使用をやめれば解決するよ。

492 ：デフォルトの名無しさん：04/02/23 08:06

>>476
とりあえず、不要ファイルを削除してみたら？

参照
http://pc2.2ch.net/test/read.cgi/tech/1029120920/77

493 ：デフォルトの名無しさん：04/02/23 10:04

ワレザだってば

494 ：デフォルトの名無しさん：04/02/23 11:53

初めて1週間でACT作るというのが気に食わんな
だから把握できなくなるんだろ

495 ：デフォルトの名無しさん：04/02/23 11:54

オリジナルのコンポーネント製作中なんですが、
それをフォームに乗っけて起動時に２回keyDownイベントを通ってるんです。
それでそのイベントの中のコードのVK_LEFTに反応してるんです。
別に意図してそのような事はしてないのですが何故なのでしょうか？

496 ：デフォルトの名無しさん：04/02/23 11:55

>>495
パーソナルでないなら、誰が呼んでるか、トレースしていってみたら？

497 ：495：04/02/23 13:37

TCustomMaskEditを敬称して使ってるんですが、
どうやらEditMaskを設定した時に飛んでるようです。
またEditMaskを設定した後にTEXTを設定しても飛ぶようです。
それがどうKeyDownを呼んだりVK_LEFTにだけ反応するのか理由がわからない・・・

498 ：デフォルトの名無しさん：04/02/23 16:28

ShowModalで表示させたフォームを右クリックで閉じようとしております。
表示させたフォームからカーソルが外れても、メインフォームの範囲内にある場合は
右クリックで閉じたいのですが・・・
とりあえずApplicationのOnMessageで右クリックを掴もうかと思ったんですけど、
表示したフォーム上でしか反応しないんですね。
こういう場合、どうすればいいんでしょう。
ご存じの方いらっしゃいますか？

499 ：デフォルトの名無しさん：04/02/23 16:49

TPoint　TRect

500 ：デフォルトの名無しさん：04/02/23 17:03

ボタンとかをLunaスタイルにするにはどうすればいいですか？
何か内部で記述するのでしょうか？
.face??なんとかってファイル作ってやるソフトを使わずに、初期の状態からLunaスタイルにしたいんです。

501 ：デフォルトの名無しさん：04/02/23 17:09

Label1.Caption:=IntToStr(Length(Edit1.Text));
なんでコンパイル通らへんのや(´･ω･｀)
教えてエロい人
他のアプリのLabel1.Caption:=IntToStr(Length(Memo1.Text));
はちゃんと通ってるのに(´･ω･｀)
演算子またはセミコロン(';')が必要です

502 ：デフォルトの名無しさん：04/02/23 17:14

ぁ、ごめ。
他のところでlengthって名前使ってしまってた(´･ω･｀)

503 ：デフォルトの名無しさん：04/02/23 19:24

>>501
SysUtilsを usesに加えてないだけかと思われ。
ちゃんとコンパイルは通るぞ。

504 ：デフォルトの名無しさん：04/02/23 22:34

質問させてください。
PageControlを継承してコンポーネントを新しく作りました。
このコンポーネントはPageControlでタブを生成すると、そのタブ上に最初からパネルが置かれている状態のものが作られます。
タブを増やすのは作ったプログラムの実行時ではなく、プログラムの開発中にタブを作り、パネル上にコンポーネントを配置していきます。

実際にタブを作ってパネル上にコンポーネントを配置するまでは出来たのですが、保存が出来ません。
自分なりに調べたところ、タブが作られたという情報が保持されないので、このことをiniファイルかレジストリに書き込む必要があることが分かりました。
しかし、iniファイルやレジストリへの書き込みは今までにやったことがありません。
もし宜しければ、解決手段か分かりやすく解説してあるHPを教えて頂けないでしょうか？

505 ：デフォルトの名無しさん：04/02/23 22:39

コンポーネントレベルで設計時の情報を ini やレジストリに保存する、というのは
ヘンじゃないかな？そのコンポーネントを使って、また違ったアプリを作りはじめたら
前の情報はどうなるの？

506 ：デフォルトの名無しさん：04/02/23 22:44

>>504
publishedでプロパティを設定して、
インスペクタの内容を参照できるように
したら？

507 ：デフォルトの名無しさん：04/02/23 22:50

>505
作るアプリごとにiniファイルを用意しなければいけないということですか？

508 ：デフォルトの名無しさん：04/02/23 23:18

ちゃんとコンポーネントのインストールという手順を踏んでるんだろうか？
自作のコンポーネントは自分のパッケージに入れるのが普通だと思うけど。

コンポーネントなんていくつ作ったか知れないけど
そのためにiniファイルやレジストリをいじったことは一度もないよ。

509 ：デフォルトの名無しさん：04/02/23 23:19

>>508
君、出てこなくていいから。

510 ：504：04/02/23 23:20

もう少し質問させてください
Iniファイルへの書き込み方法の基礎は過去スレからリンクされていたHPで解ったのですが
タブが作られたという情報は、単純にタブの数を書き足せば良いのでしょうか？
それと、タブで作られたパネル上にどのコンポーネントが置かれたかと
そのコンポーネントのプロパティはどうなっているのかも保持しようと思えば
WriteStringで一つずつプロパティを書き込んで、次に開く時にiniからReadIntegerや ReadStringで
読み込めば良いのでしょうか？

511 ：デフォルトの名無しさん：04/02/23 23:20

>>509
釣りだったのけ？

512 ：デフォルトの名無しさん：04/02/23 23:24

>>511
いや、パッケージ云々と設計時の情報保存は関係ないだろうと。

513 ：デフォルトの名無しさん：04/02/23 23:31

>>512
ちゃんとした手順を踏んでないからじゃないか、と思ったんだけど…
今、試しにPageControlを継承したコンポーネント（色を変えただけだけど）
を作ってやってみたけど、何も問題は起きないよ。

514 ：504：04/02/23 23:56

もう一度説明させてください

PageControlを継承して、新しくコンポーネント(ItemControl)を作成し、このコンポーネントをフォーム上に置いて新規ページを作ると
TabSheetを継承したItemSheetが作られ、その中にScrollBoxを継承したItemPanelが動的に作られます
パネル上には自作のビジュアルコンポーネント（仮にNewItemとします）が配置され、別のNewItem型のコンポーネント名を指定します
そして、指定した順番通りに次々とコンポーネントの色を変更していきます
パネル単体で上の処理を行った時には何の問題もなく動作するので、ItemControlかItemSheeかのどちらかが原因だと考えました

オブジェクトツリーはこのような状態になっています
ItemControl
　　　　　TabSheet　←半透明で表示されています
　　　　　　　　 ItemPanel　
　　　　　　　　　　　　NewItem1
　　　　　　　　　　　　NewItem2

ItemControlを使わずに
ItemPanel　
　　NewItem1
　　NewItem2
という状態なら問題なく動作しました

解りにくい説明でごめんなさい　　　　　　

515 ：４６８：04/02/24 00:00

そもそもﾊﾟｿの低スペックが関係しているらしいのでした……

Application.ProcessMessages;
でなんとか防げたｶﾓ。コンポは何１つ利用してないし、メモリ開放忘れも多分ないし。

516 ：デフォルトの名無しさん：04/02/24 00:19

低スペックであるかどうかと Application.ProcessMessages; で防げるかどうか
は全く無関係だと思うよ。

517 ：デフォルトの名無しさん：04/02/24 00:34

>>515
マジレスするけど、もすこしいろいろ体験してからレスした方がいいと思うよ。
このままだと釣りじゃないなら、お祭りになっちゃう予感。
知識広げれ。

518 ：デフォルトの名無しさん：04/02/24 00:54

>>514
既にくだすれレベルじゃないと思いますし
自分にレスする資格があるかも定かではありませんが…
継承して新規ページ作成部分をoverrideしようとしても
肝心のところがprivateになってませんか？（毎度おなじみの）
例によってソースをまるごとコピーするパターンでしょうか？

オブジェクトツリーでは
ItemPanelがTabSheetを継承しているようには見えないのですが…

自分ならTItemPanelをパレットに登録しておしまい、にしちゃいそうですね。

519 ：498：04/02/24 01:18

>>499
PtInRect(Rect, Point)
…でしょうか？
範囲内にあるかよりも前に、ClickなりMouseDownなりのイベントが掴めないわけで。

一応メインフォーム上での事ですけどねぇ…。うーむ。

520 ：４６８：04/02/24 01:29

>>516
別のところで聞いたら
＞非力なマシンで、ループ処理なんかの時に起きますね。
＞Application.ProcessMessages;をかましておけば、終了メッセージの処理がされるはずですので固まることは少なくなると思います。
っていう答えが返ってきたんで…そうかなとおもったんですが。

>>517
もすこしいろいろ体験・・・どんな体験の事をいってるのでしょう？

521 ：デフォルトの名無しさん：04/02/24 01:39

いや、だから…。
もちっと「根拠ある予想が出来る程度」まで、自力でがんばれ言うとる。

522 ：デフォルトの名無しさん：04/02/24 02:57

>>498
WM_LBUTTONDOWNメッセージが届いているか確認してみては？

523 ：498：04/02/24 08:32

>>522
う…どの部分で確認すればいいんでしょ。
メインにしてもモーダルのやつにしても、フォーム内だけでメッセージ来ますし…うーむ。

524 ：デフォルトの名無しさん：04/02/24 09:57

>>520
＞非力なマシンで、ループ処理なんかの時に起きますね。
＞Application.ProcessMessages;をかましておけば、終了メッセージの処理がされるはずですので固まることは少なくなると思います。
誰だ、そんな無責任な事教える奴は。
安易にApplication.ProcessMessages;は使わない方が良い。
長い処理させるのに、Application.ProcessMessages;を噛ませるのは、そもそも
間違った用法だし。スレッド使ってください。
Application.ProcessMessages＝お気軽スレッドではない。

525 ：デフォルトの名無しさん：04/02/24 12:53

Application.ProcessMessagesって画面を再描写させるのに使うのかと
思ってたけど、ちゃうのかな?

526 ：デフォルトの名無しさん：04/02/24 13:03

なかなか超初心者らしい質問が出てきていい感じ

527 ：デフォルトの名無しさん：04/02/24 13:26

SampleページにTTrayIconっていうコンポーネントがありますけど、
これを使うと何ができるのでしょうか？

528 ：500：04/02/24 13:40

｡･ﾟ･(ﾉД`)･ﾟ･｡

529 ：初心者 ◆28s26Q7ss2 ：04/02/24 13:49

Delphi6 Personalを使っています。(WinXP Home上)
プログラムから他のプロセスを停止させたいのですが、
どうすれば出来ますでしょうか。
ぐぐってみて、実行はWinExecやShellExecuteを使えばよい、
というのは分かったのですが、停止はさっぱりでした。
今はタスクマネージャで停止しているのですが、効率が悪くて･･･
宜しくお願いします。

530 ：デフォルトの名無しさん：04/02/24 14:12

>>500 >>528
http://www.google.com/search?num=50&hl=ja&lr=lang_ja&q=delphi+luna

531 ：デフォルトの名無しさん：04/02/24 14:23

ListViewコンポーネントのvsReportモードにおいて、Winnyみたいに
項目の中にプログレスバーを入れるのはどうしたらよいのでしょうか？

532 ：デフォルトの名無しさん：04/02/24 14:24

>>529
TerminateProcess

533 ：デフォルトの名無しさん：04/02/24 14:34

>>531
あれはたぶん塗ってるんだと思う。

534 ：デフォルトの名無しさん：04/02/24 14:36

>>533
まじっすか？（汗

535 ：デフォルトの名無しさん：04/02/24 14:47

間違いなく塗ってる。作者は超初心者じゃないからな。

536 ：デフォルトの名無しさん：04/02/24 14:51

TCopyModeのヘルプで、
・「キャンバス上のイメージ」とは、すでにキャンバスに描かれている画像
・「コピー元のビットマップ」とは、キャンバスに描こうとする画像
という意味だと思いますが、「コピー元の模様」とはどういう意味でしょうか？

2つのTBitmapの一方に背景、もう一方にキャラクタを用意してTPaintBoxに
重ね合わせて表示したいと思っているのですが、CopyModeに何を指定すれば
よいかでつまっています。

537 ：デフォルトの名無しさん：04/02/24 14:54

>>536
全部やってみればいんでねすか？

538 ：536：04/02/24 15:13

>>537
すでに全部やってみましたが、cmSrcInvertやcmSrcPaintでは背景が透過表示
されてうまく表示できているように見えますが、キャラクタの色が変わってしまいます。

539 ：デフォルトの名無しさん：04/02/24 15:18

>>527
TrayにIcon

540 ：デフォルトの名無しさん：04/02/24 15:41

>>536

表示用TBitmapを作って、そこに背景をコピーして、
キャラクタを透過でDrawか自前でコピーして

その表示用bitmapをCanvasにDraw

541 ：536：04/02/24 15:56

>>540
＞キャラクタを透過でDraw
ここをお聞きしたいのですが・・・。

542 ：デフォルトの名無しさん：04/02/24 15:59

http://www.vector.co.jp/soft/win95/prog/se173635.html
これとか有名

543 ：デフォルトの名無しさん：04/02/24 16:02

>>539
CopyMode は無理に使わなくていい

TransparentColor TransparentMode
を設定して普通にDraw

544 ：500：04/02/24 16:03

>>530
神！
ありがとうございました。

545 ：初心者：04/02/24 16:21

Memoコンポーネントの中の文字を検索したい場合はどうやってするんですか？

546 ：デフォルトの名無しさん：04/02/24 16:24

Memo1.Lines.IndexOf('文字列')

547 ：536：04/02/24 16:25

>>542
Readmeしか読んでないですけど、すごく高機能そうですね。
参考にさせていただきます。

>>543
そんなプロパティがあったとは・・・すみません、ヘルプを読み足りなかったです。
Drawすることで普通に透過できました。

ありがとうございました。

548 ：デフォルトの名無しさん：04/02/24 16:29

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (ord(Key)<=8) then
if not ( Key in ['0'..'9']) then key:=#0
else if Length(InputLv.Text)>=7 then key:=#0;

これなんですが、ord()って順序値を返すそうですが、keyはChar型なので、初めの1文字しか入ってないんじゃないんですか？
解説お願いします。ちなみに、これはTEditに7文字以内の数字しか入らないという制限を

549 ：デフォルトの名無しさん：04/02/24 16:32

>>548
それはキーボードを押されたときに呼び出されるもので
Keyにはそのときに押されたキーしか入ってませんよ。

550 ：デフォルトの名無しさん：04/02/24 16:35

>>549
なるほど、1文字入れるごとに呼び出されるんですね。
しかし、ord(key)<=8ってどういう意味ですか？

551 ：デフォルトの名無しさん：04/02/24 16:36

>>548
OnKeyPressでなく、OnChangeで制限すれば？

552 ：デフォルトの名無しさん：04/02/24 16:38

8文字以上の非数字をコピペできるようですが？

553 ：デフォルトの名無しさん：04/02/24 16:40

>>550
アスキーコードの8以下
ということは制御キーでしょ。

554 ：デフォルトの名無しさん：04/02/24 16:40

>>551
OnChangeですか・・・
僕がしたいのは
・入力値は数字3文字まで
・Delete、Backspaceキー等も有効
・ドラッグして数字を反転させて、その状態で数字を入力したい。（123と数値がある状態で、ドラッグさして、4を押すと、値を4にしたい）

procedure TForm1.InputLvKeyPress(Sender: TObject; var Key: Char);
begin
if not (ord(Key)=8) then
if not ( Key in ['0'..'9']) then key:=#0
else if Length(InputLv.Text)>=3 then key:=#0;

これで、一番下の条件以外はできたのですが・・・
どうしましょう

>>553
すいません。
ord(key)=8だったようです。

555 ：デフォルトの名無しさん：04/02/24 16:42

>>552
InputLv.Text
これは何？

556 ：デフォルトの名無しさん：04/02/24 16:44

>>554
MaskEditを使うといいのでは？

557 ：デフォルトの名無しさん：04/02/24 16:49

あのー、文字入れるコンポーネント（Teditってやつです）にフォーカスをあわせたとき、
Tabキーでフォーカスを合わせると入力されている文字が反転しますよね？
これを、マウスでフォーカスあわせたときに同じことできませんか？

558 ：デフォルトの名無しさん：04/02/24 16:50

>>555
手続き名と問題になっている話からすればTEdit型でしょう。

559 ：デフォルトの名無しさん：04/02/24 16:56

>>556
検索してみましたが、あまり分かりやすいところがありません。。。
ttp://forum.nifty.com/fdelphi/samples/01118.html
これ見てもチンプンカンプンです・・・・

560 ：デフォルトの名無しさん：04/02/24 16:56

>>557
これでどうよ？
procedure TForm11.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll;
end;

561 ：初心者 ◆28s26Q7ss2 ：04/02/24 16:57

>>532
ありがとうございます。
でも、超初心者には難しすぎるかも・・・
もっとAPIの勉強をしなきゃいかんですね。

562 ：デフォルトの名無しさん：04/02/24 16:57

>>559
そりゃヘルプ読まないとわからんだろうな・・・

563 ：デフォルトの名無しさん：04/02/24 17:00

>>559
DelphiヘルプでTMaskEditのプロパティEditMaskを読むよろし。

564 ：デフォルトの名無しさん：04/02/24 17:05

>>560
それだと、2回目のクリックでも全部反転しますよね。2回目はカーソルを表示させたいのですが・・・

565 ：デフォルトの名無しさん：04/02/24 17:08

あのー、勝手にイベント名変えたら反映してくれるのはうれしいんですけど
たまに関係ない部分も一緒に変わるんですよねぇ・・・
TeditのOnClickのイベント名変えたらTbuttonのイベント名もそれと同じになったりするんですよ
これなんでですかねぇ？全然関係ない場所のはずなんですけど

566 ：デフォルトの名無しさん：04/02/24 17:14

>>565に便乗して素人なこと聞きますが
procedureの後に書くのって
TForm1 = class(TForm)こうすると
TForm1.（イベント名）ですよね？
これだったら、同じイベントがいくつもあったら、edit1Onclick、edit2Clickみたいに名前が重複しないようにしないといけませんよね？
Edit1(←これってオブジェクトでしたっけ？）
TForm1.(オブジェクト).（イベント名）とすれば、重複考えることもなく、イベント名なんか変える必要ない、とか思ったりしてるのですが

思いっきり的外れなこといってたらｽｲﾏｾﾝ

567 ：デフォルトの名無しさん：04/02/24 17:19

>>565
不思議だねぇ～
普通はそうならないよね～

>>566
イベントというのは面白い発明だよね。委譲っていうのかな。

568 ：デフォルトの名無しさん：04/02/24 17:26

>>565
普通、イベントハンドラの名前は変えないんですよね。
変えるならコンポーネントの名前の方。

意味が分かりやすい名前のメソッドを作って
それを呼び出すというのはよくやりますけど…

569 ：デフォルトの名無しさん：04/02/24 17:39

Delphi6PersonalとDelphi7Professionalの違いってコンポーネントの数ですか？
あと、トレース？
2chブラウザを作るのにはPersonalでも十分可能でしょうか？
どの辺から7が必要になりますか？

570 ：デフォルトの名無しさん：04/02/24 17:43

クラスとかユニットとか何のことやらｻﾊﾟｰﾘなんですが、お勧めの入門書教えてください

571 ：デフォルトの名無しさん：04/02/24 17:49

type
　TForm1 = class(TForm)
　　Button1: TButton;
　　Button2: TButton;
　　procedure FormCreate(Sender: TObject);
　　procedure Button2Click(Sender: TObject);
　　procedure Button1Click(Sender: TObject);
　　procedure test(Sender: TObject);
　end;

procedure TForm1.FormCreate(Sender: TObject);
　Button1.OnClick := test;

procedure TForm1.test(Sender: TObject);
　ShowMessage('');

procedure TForm1.Button1Click(Sender: TObject)
//ShowMessage表示する

procedure TForm1.Button2Click(Sender: TObject)
//ShowMessage表示されない

ちゃんとできまつな。begin end は省きました。

572 ：デフォルトの名無しさん：04/02/24 18:05

>>557
俺だけの内緒だったけど教えてやる。
TEdit使うのやめて、TComboBoxをドロップダウンなしで使えば反転する。

573 ：デフォルトの名無しさん：04/02/24 18:07

工エｴェｪ（´д｀）ｪェｴエ工工

574 ：デフォルトの名無しさん：04/02/24 18:17

高さが指定出来ないのがネックだけどな

575 ：デフォルトの名無しさん：04/02/24 18:20

OnClickかOnMouseUPでEdit1.SelectAll;すれば
いいんではないかとおもわれるがどうだろかいな

576 ：575：04/02/24 18:22

もうでてるぢゃん　重複すまん

577 ：デフォルトの名無しさん：04/02/24 18:37

しかもそれじゃダメだってさ、ほんとトホホだね

578 ：デフォルトの名無しさん：04/02/24 18:45

>>569
PerよりProの方が使い勝手がいいが、6より7は使い勝手が悪い。
XP対応を謳っているが実際は中途半端。
6Perで十分。
シェアウェア配布禁止なのでそれが不自由になったとき。

579 ：デフォルトの名無しさん：04/02/24 18:49

>>570
http://www.amazon.co.jp/exec/obidos/tg/browse/-/502764
売れている順にオススメしておく

580 ：575：04/02/24 18:58

ガックシ　AA(ry

しょーがねーな

procedure TForm1.Edit1Click(Sender: TObject);
begin
　if fIsSelText then
　begin
　　Edit1.SelectAll;
　　fIsSelText := False;
　end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
　if not(Edit1.seltext = Edit1.Text) then
　　fIsSelText := True;
end;

これでどうよ。

581 ：デフォルトの名無しさん：04/02/24 19:24

（≧∇≦）ｂ

582 ：デフォルトの名無しさん：04/02/24 19:33

>>578
ふむふむ。じゃあPersonalで十分ですね。

583 ：デフォルトの名無しさん：04/02/24 20:44

大文字と小文字を区別しないで2つの文字列を比較したいんだけど
便利な関数とかクラスとかありませんか？

584 ：デフォルトの名無しさん：04/02/24 20:45

>>583
ありますん。

585 ：デフォルトの名無しさん：04/02/24 20:48

AnsiCompareText

586 ：583：04/02/24 21:01

うまくいきました。thx!!

587 ：デフォルトの名無しさん：04/02/24 21:25

くだすれってどういう意味？

588 ：デフォルトの名無しさん：04/02/24 21:28

そういう「くだらない質問OK」のありがたいスレのことです。

589 ：587：04/02/24 21:37

成歩堂

590 ：デフォルトの名無しさん：04/02/24 22:34

当方サブウィンドウを開きたいのですが、
Application.～で作るとフリーズしてしまいます。

CreateWindowEXを使い、自前でウィンドウを作成し、
メッセージループ無しにすると上手くいきますが、
ボタンとかも置きたいので、VCL以外でのボタン等の置き方を
知らない自分には、この方法を採るのもツライところがあります。。。

もしもどなたか良い知恵がございましたら、ご伝授いただけると幸いです。

変な質問ですみません。。。

591 ：デフォルトの名無しさん：04/02/24 23:13

>>590
意味がわからん・・・・

592 ：デフォルトの名無しさん：04/02/24 23:18

Cからの転校組かな？

593 ：デフォルトの名無しさん：04/02/24 23:27

>>590
意味がわからんけど、VCLを使いたくないというならこちらへ。
ttp://homepage2.nifty.com/Mr_XRAY/Halbow/

いやDelphi自体の基本を知りたいというならこちらへ。
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%A5%EA%A5%F3%A5%AF%5D%5D#content_1_3

594 ：デフォルトの名無しさん：04/02/24 23:44

理由があるなら、いざ知らず。
ちょっと焦りすぎじゃない？
「クラス」とか「ユニット」とか、いじってればすぐ分かるようになるって。
自分で探ろうとかゆー気にはならんかえ？
そりゃ、サイトの説明を読むのが一番簡単だとは思うが。

595 ：590：04/02/25 00:15

>>593
ご回答ありがとうございます。
実は既に
ttp://homepage2.nifty.com/Mr_XRAY/Halbow/
は見たんですが太刀打ちできず…( ´Д⊂ヽ

>意味がわからん
とにもかくにも
ボタンを押す→サブウィンドウ生成→
そのサブウィンドウにボタンとかを置きたい
と言うことをしたいのですが、いまいち知識不足で…

596 ：デフォルトの名無しさん：04/02/25 00:16

VCL使えよ

597 ：デフォルトの名無しさん：04/02/25 00:17

VCL使わずに？

新規作成->フォームじゃだめなの？

598 ：デフォルトの名無しさん：04/02/25 00:20

（´-`）。o ○ （また「ユニットを使う」の予感）

599 ：デフォルトの名無しさん：04/02/25 00:48

>>595
まず理由はいらないから、VCLを使ってもいいのか使いたくないのか、はっきりさせよう。

VCLを使いたくない場合は、このスレの守備範囲ではない。Halbow氏の資料を読んで
茨の道をすすめ。茨の道をすすむからには覚悟を決めろ。その程度の質問なら
「VCL使えよ」というレスがつくだけ。

600 ：590：04/02/25 01:09

VCLは使えるものなら使いたいです。
が、自分のコーディングが悪いのか、
エラー（強制終了、たまにRuntime Error 216…が出ます）
が出て先へ進まない、と言う状態です。

そもそも自分はVCLに関する理解が浅いので、もう少し良く探してみます。

601 ：デフォルトの名無しさん：04/02/25 01:15

ていうか…

余計なことはしない。
まずはDelphi立ち上げて、実行ボタン押してみれ。
それでダメなら再インスコ。

602 ：デフォルトの名無しさん：04/02/25 01:30

脱糞しそうなくらい脱力。

単独で動かして問題ないならDelphi再インスコ、そうでないならおまいさんが悪い・・・かな？

603 ：デフォルトの名無しさん：04/02/25 01:43

＞当方サブウィンドウを開きたいのですが、
＞Application.～で作るとフリーズしてしまいます。

つまりメインフォーム以外のウィンドウを作りたいだけだろ？
それはMDI子フォームなのかい？それとももう一つの独立したウィンドウ？
ダイアログボックスか？
どれもApplicationとか使わないよ。
どれをやりたいのかでちがうけど、
Form2.Show;
これだけだよ。

604 ：デフォルトの名無しさん：04/02/25 01:50

まぁまぁ。「くだすれ」なんだし。
そんなにツッコミ入れるのもアレだよ。
質問者はやっぱり軽くでもいいから、検索するなりなんなり努力してから
の方がいいってこったな。

605 ：デフォルトの名無しさん：04/02/25 02:06

>>604
このスレでは最初に検索しろとは言わないけど、回答しても何も調べず再質問されると
それをキーワードに調べろよとは思う。

今度のことは、最初から背景を書いてくれればなぁと。
ローレベルに向かうのも一つの手だけど、Delphiを使うなら最終手段でいいじゃん？
まずは目の前の問題を解決できるかどうかから見極めるべきだったんじゃないかな。

606 ：デフォルトの名無しさん：04/02/25 02:09

エラーが出るのはIDEじゃなくってアプリのことだろ。
お前らも偉そうにしてないで最低限人並みの読み書き能力を身に付けろ。

607 ：デフォルトの名無しさん：04/02/25 02:15

いや、今まで高度な技術を要求する開発環境でやってきた人が
馬鹿チョソのDelphiにかえって戸惑ってるだけと見たが…

608 ：デフォルトの名無しさん：04/02/25 02:19

>>606
もっと早く、お前が適切にアドバイスしてやれば良かったのにな。

609 ：デフォルトの名無しさん：04/02/25 08:29

別に Applicationで開いても問題ないけどなあ

var MyForm:TForm;
procedure TForm1.Button1Click(Sender: TObject);
begin
　 Application.CreateForm(TForm, MyForm);
　 with TButton.Create(MyForm) do begin
　　 Parent:=MyForm;
　　 Caption:='Button';
　 end;
　 MyForm.Show;
end;

610 ：デフォルトの名無しさん：04/02/25 08:42

文字を置き換えるにはどういう風にすればいいんですか？
文章の中の指定した文字だけ違うものに置き換えたいんですが･･･。

611 ：デフォルトの名無しさん：04/02/25 08:45

>>610
文章を複製しながら、頭から検索してゆく。

検索しては一致しない部分をコピー
一致したら置換文字列の方をコピー

という処理を書けばいいのです。

612 ：デフォルトの名無しさん：04/02/25 08:46

>>610
StringReplaceはダメかな？

613 ：デフォルトの名無しさん：04/02/25 08:48

ヘルプ > VCLリファレンス > ルーチン一覧（カテゴリ別） > 文字列処理ルーチン

614 ：デフォルトの名無しさん：04/02/25 08:53

まさにDelphi入門を読まなければならないって事態か

615 ：610：04/02/25 08:54

ありがとうございました。

616 ：デフォルトの名無しさん：04/02/25 09:00

クラスってのはな、わかりやすく言うと教室だ。
1年1組だれそれ
クラス分けってのは、それぞれのクラスにわけるってことだな。

617 ：デフォルトの名無しさん：04/02/25 09:01

フォームを作るのは、俺はだいたい「新規作成」から「フォームを作成」して、
新しく作ったUnitからvar form1: TFormを消去して、実行するprocedureに
Form1 := TForm1.Create(Self); Form1.Visible := True;で、
作ったフォームのOnCloseにForm1.Release;って書くだけがほとんどだけど、
みんなどうしてる？

618 ：デフォルトの名無しさん：04/02/25 09:32

どんなフォームが必要かでそれぞれだから一概にはいえない。

procedure HogeClick(Sender:TObject);
var
dlg:TDialogForm;
begin
dlg:=TDialogForm.Create(self);
try

finally
dlg.Release;
end;
end;

619 ：デフォルトの名無しさん：04/02/25 09:41

プロジェクト > オプション > フォーム

620 ：デフォルトの名無しさん：04/02/25 13:10

dbExpressを使って、テーブル名の取得ってどうやるのでしょうか？
そのDBのテーブルをすべて一覧表示したいんです。

621 ：デフォルトの名無しさん：04/02/25 13:27

数字を0001とか表示するにはどうやってするんですか？
ループで、0001.txtから0100.txtっといった、連番のファイルを作りたいんですが。
IntegerとIntToStrを使うと、0001.txtとしたいファイルが1.txtとなってしまいます。

622 ：デフォルトの名無しさん：04/02/25 13:29

>>621
Format('%.4d', [n]);

623 ：デフォルトの名無しさん：04/02/25 13:29

Format('%.4d', [nNumber])

624 ：デフォルトの名無しさん：04/02/25 13:29

>>622
仕方がない…結婚しようか。

625 ：デフォルトの名無しさん：04/02/25 13:30

>>624
うん、一生大事にしてね♪

626 ：デフォルトの名無しさん：04/02/25 13:41

　　∧＿∧
　（　・∀・）　　　 |　| ｶﾞｶﾞｯ
　と　　　　）　　　 |　|
　　Ｙ　/ノ　　　　 .人
　　　 /　） .人　　 < 　>_∧∩
　＿/し'　< 　>_∧∩｀Д´）/
　（＿フ彡　Ｖ｀Д´）/　　 / ←>>624
　　　　　　　　　　/ ←>>625

627 ：621：04/02/25 13:45

>>622-623
ありがとうございました。

628 ：デフォルトの名無しさん：04/02/25 15:00

おめでとうございます

629 ：初心者 ◆28s26Q7ss2 ：04/02/25 15:21

>>529です。
WinExecだとプロセスのハンドルの取得方法が分からなかったので
CreateProcessで起動して、TerminateProcessで終了する
方法で上手くいきました。
>>532さん、ありがとうございました。

630 ：デフォルトの名無しさん：04/02/25 16:47

二つのTRectが、それぞれ重なっているかどうか判断する
簡単な方法を教えて下さい。

631 ：デフォルトの名無しさん：04/02/25 16:53

>>630
自分が作りたいなら
片方の４隅の点が片方のRect内かどうかを調べてゆく

大量にあるなら、その前処理として収まる円同士の中心距離を求めてハジク

632 ：デフォルトの名無しさん：04/02/25 17:06

>>630
IntersectRect

633 ：デフォルトの名無しさん：04/02/25 17:17

共用体についてわかり易い例題はないものでしょうか？

634 ：デフォルトの名無しさん：04/02/25 17:52

>>631-632
なるほど。
ありがとうございます。自作と、IntersectRect両方挑戦してみます。

635 ：631：04/02/25 18:07

ごめん　点だけじゃダメだ。
輪郭が交わる条件も入れないと。

１、Rectに収まる円同士が交わる＝中心距離が半径輪以下なら確実に重なる
２、Rectが収まる円同士が交わらないなら、確実に重ならない

636 ：デフォルトの名無しさん：04/02/25 18:15

>>635
それだと、ちょっとしたグレーゾーンがでてきませんか？
例えば上下に1pixだけ離れているときは判断できないですよね。

637 ：デフォルトの名無しさん：04/02/25 18:22

>>617
漏れはForm1.Showを使ってる

638 ：631：04/02/25 18:28

あ、ごめん、下のは無視して。刈り取りの手法を説明しようとしたんだけど、先にアルゴリズムのミスに気付いたものだから

IntersectRect のように、領域を小さくする方式の法がいいですね。

639 ：デフォルトの名無しさん：04/02/25 18:33

>>633
TRect

640 ：デフォルトの名無しさん：04/02/25 19:16

Memoの内容を印刷するにはどうすればいいんでしょうか？

641 ：デフォルトの名無しさん：04/02/25 19:41

簡単にやりたいならフォームのPrintメソッドだけど、これは綺麗には印刷されない
自前で印刷するなら、

uses　Printers;
procedure　TForm1.Button1Click(Sender:　TObject);
var　i,y:Integer;
var　s:string;
begin
if　PrintDialog1.Execute　then
　with　Printer　do　begin
　begindoc;
　for　i:=0　to　Memo1.Lines.Count-1　do　Begin
　s:=Memo1.Lines.Strings[i];
　Canvas.TextOut(10,y,s);
　y:=y+Canvas.TextHeight(s);
　end;
　　EndDoc;
　end;
end;

実際にはフォントを設定した位置を設定したり

642 ：デフォルトの名無しさん：04/02/25 19:56

今ヘルプ見て気づいたんだけど、TRichEditにはPrintメソッドがあるね。

643 ：デフォルトの名無しさん：04/02/25 22:17

http://www.google.com/search?num=50&hl=ja&lr=lang_ja&q=delphi+%88%f3%8d%fc

644 ：デフォルトの名無しさん：04/02/26 09:00

壁紙にカレンダーを表示するやつを作りたくて、参考にしようと
２，３ダウンロードして使ってみたのですが、表示させた後
位置を変更できるということは、透明なフォームとかを使って
カレンダーを表示させておけばいいということでしょうか？

645 ：デフォルトの名無しさん：04/02/26 09:09

>>644
あんまり好ましくないと思うな。
カレンダーを入れた絵を作って壁紙として作っておいた方がいいんじゃないの

646 ：デフォルトの名無しさん：04/02/26 09:12

>>645
あんまり好ましくないと思うな。
ほんとに壁紙にしたら低機能過ぎるし拡張性も皆無だし

647 ：デフォルトの名無しさん：04/02/26 09:15

初心者用サイトみると NULL　→　nil　と書かれていますけど
WinAPIで使おうとするとできないことがあります。 NULL = nil と考えてはいけない？
具体的にちょっと困っている件をあげます。
以下のような場合どう対処したらよいのか教えてください。

WinAPI CreatePopupMenu()は失敗したときの戻り値はNULLです。
そんなわけでnilを使ってみたところエラーになりました。
hPopup := CreatePopupMenu;
if (hPopup = nil) then Exit;
[エラー] この型には指定した演算子は使えません

よくHPにおいてあるソースを眺めるとハンドルを返すAPIのとき
失敗の戻り値を0と想定されてる方が多いようで
nilを型キャストしているという方は少ないみたいです。
この場合はどっちが適切なのですか？
APIの戻り値NULLって確実に0が戻ってくるのですか？
hPopup := CreatePopupMenu;
if (hPopup = HMENU(nil)) then Exit;

hPopup := CreatePopupMenu;
if (hPopup = 0) then Exit;

648 ：デフォルトの名無しさん：04/02/26 09:21

Windowsに限って言えば NULL は値0の事。

ハンドルの場合、実際にはポインタではないので、NULLと書かれていれば無条件に0でいい。
気になるなら NULL という定数を定義しとけばいい。

一般的にAPIが帰り値をポインタを返す事はないと考えていい。（それだとVBから使えないから）

アドレスを渡す場合はnilだ。

649 ：647：04/02/26 09:25

即レスありがとうございます
　0　で書いておきます。

650 ：デフォルトの名無しさん：04/02/26 09:41

もしかして、将来 HMENU型がポインタ型派生にでもなった場合の事を考えると

if (hPopup = HMENU(0)) ) then Exit;

が一番正解だろうな

651 ：デフォルトの名無しさん：04/02/26 09:43

ｲﾐﾈｰ

652 ：デフォルトの名無しさん：04/02/26 09:45

Delphiのバージョンアップに伴ってAPIが-1を返す場合に

if XX=-1 then がダメになった事があった。

だから、やっぱり定数はその型にキャストしておいた方が安全だよ。

653 ：デフォルトの名無しさん：04/02/26 09:50

ﾌﾟｯ
自分でやってもいないことを他人に勧めるのはいかがなものかと。

654 ：644：04/02/26 09:51

>645-646

カレンダーを入れた絵を作って壁紙にする
　　1.カレンダーの位置をユーザーが変更しようとするのを
　　　どう察知すればいいのかな。
　　2.絵になっているのにどうやって位置変更しよう。

透明なフォームにして表示しておく
　　1.移動とかは簡単だけど、カレンダーの位置に他のプログラムの
　　　アイコンとかを持ってこれる？
　　2.カレンダーコンポーネントも透明にして、見た目数字だけにできるの？

と、いう疑問が出てくる程度のレベルなんですが、やる気の問題だけですか？

　　

655 ：デフォルトの名無しさん：04/02/26 10:28

質問です。
Delphiのインラインアセンブラでアセンブラの勉強をしたいと考えているんですけど、
お勧めの参考資料などありましたら教えてください。

アセンブラ自体は経験はありますが、x86を含むCISCのアセンブラは未経験です。

656 ：デフォルトの名無しさん：04/02/26 10:32

>>655

http://www.intel.co.jp/jp/developer/design/pentiumiii/manuals/index.htm
http://hp.vector.co.jp/authors/VA003988/asm.htm
ヘルプのアセンブラの項目

657 ：デフォルトの名無しさん：04/02/26 11:05

>>654
おそらく、初心者スレにしては相当高度なことを要求しているじゃないかな。
今思いつく方法としては、デスクトップにフックかけて描画を乗っ取るぐらいかな。
http://www2.biglobe.ne.jp/~sakai/usehook.htm

658 ：デフォルトの名無しさん：04/02/26 11:12

他にはHTMLを吐き出すとか

659 ：デフォルトの名無しさん：04/02/26 12:37

nil ってニルって読むの?

660 ：644：04/02/26 12:44

う～ん、今の自分には訳わからん｡･ﾟ･(ﾉД`)･ﾟ･｡
レスくれた人ありがとう。

661 ：デフォルトの名無しさん：04/02/26 16:30

空白か改行で区切られている文字列をTStringListに読み込みたいのですが
どうすればよいでしょいか？

662 ：デフォルトの名無しさん：04/02/26 16:49

空白や改行で区切って入れたいのか?
それなら空白や改行を調べて区切ればいいだけの話。

663 ：デフォルトの名無しさん：04/02/26 17:08

>>662
空白はposで' '（←空白を'で囲っている)で調べられたのですが改行はどうすればいいでしょうか？
よろしくお願いします

664 ：デフォルトの名無しさん：04/02/26 17:17

>>663
改行の文字コード #13#10 を指定

665 ：デフォルトの名無しさん：04/02/26 17:21

改行は特に意識しなくてもTStringListに入れれば自動で二行に分けられる

666 ：デフォルトの名無しさん：04/02/26 17:43

>>664
>>665
うまくいきました
ありがとうございました

667 ：デフォルトの名無しさん：04/02/26 18:29

>>524
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200402/04020064.txt

668 ：デフォルトの名無しさん：04/02/26 18:52

初ﾃﾞﾙﾌｧｲでこんな事をしたいです。おねがいします。

Delphi7でXMLサーバーの機能を持たせたアプリから
FlashのActiveScriptのMyXML_socketの関数でXMLオブジェクトを取得したい。
Delphi側ではXMLのﾃｷｽﾄをもたず、すべてメモリー上操作、
変数をXMLに変えてFlashからのアクセスを受付てXMLを渡す一連のロジックを
delphiのコードで教えてください。
またDelphiではフォームを持たない物で、コンポーネントをフォームに置くような
事ができなくて、コード上で生成？？するみたいなタイプをお願いします。

ほんとにド素人で、やり方すらさっぱり。困っております。
(今日DELPHIという物を触りました。XMLもなに？状態です。)

669 ：デフォルトの名無しさん：04/02/26 19:04

動的変数を SetLength で要素数を増やした場合、
既存の要素のアドレスが変化することはありえますか？

TTreeNode.Dataに格納したアドレスへアクセスする際に
一部の要素だけ EAccessViolation になるんですが

670 ：デフォルトの名無しさん：04/02/26 19:13

>>668
好きなのを選んでください。
http://www.borland.co.jp/partner/btp.html

671 ：デフォルトの名無しさん：04/02/26 19:36

>>668

うーむ、やりたいことは分かったが、>>670 の気持ちも理解できる。
多少迂回することになるにしても、ちゃんと基礎から始めた方がよいです。

> XMLもなに？状態です。

このような状態なら Delphi 以前の問題です。プログラミングより、
したいことの内容を自分で理解する方が重要なのでは？

672 ：デフォルトの名無しさん：04/02/26 19:40

>>669 既存の要素のアドレスが変化することはありえますか？

要素のアドレスってなに？メモリ上のアドレスなら変化すると思わないと
いけません。「動的変数」ってのもよく分かりませんが、動的配列のことなら
アドレスではなくインデックスを記憶させるといいのでは？

673 ：デフォルトの名無しさん：04/02/26 19:53

>>668
乞食はスレ違い

【フリー】こういうソフト作ってちょ【リク】
http://pc2.2ch.net/test/read.cgi/tech/1046576456/

674 ：デフォルトの名無しさん：04/02/26 22:55

メモ帳などのファイルの、あるアドレスの値を読むにはどうしたらいいのですか？

675 ：デフォルトの名無しさん：04/02/26 22:58

>>668
方法論を考えるより、まず何をしたいのか
具体的なことをいってみたら？

別にＸＭＬを利用しなくても通信する方法は
いくらでもある。

676 ：デフォルトの名無しさん：04/02/26 23:27

デスクトップに直接文字とかを描画したいのですが、
MLの過去ログを見てもいまいちわからないのですが、
素人でもわかるHPとか、教えて下さい。

677 ：デフォルトの名無しさん：04/02/26 23:31

Delphiとは直接関係無いのですが、
ツールバーやメニューなどに使われるBMPは皆さんはどこで仕入れているのでしょうか?

678 ：デフォルトの名無しさん：04/02/26 23:38

>>677
http://www.google.co.jp/search?q=delphi+16x16

679 ：デフォルトの名無しさん：04/02/26 23:39

>>676

>>657を参照

680 ：デフォルトの名無しさん：04/02/26 23:41

>>674
そんな日本語じゃダメ

681 ：デフォルトの名無しさん：04/02/27 00:04

アドレスって何だろう？
話はそこからだ。

682 ：デフォルトの名無しさん：04/02/27 00:10

TssSimpleIPCを使いたくてJVCL210をDelphi7に導入でつまずいています。
そもそも、JCLを導入してからJVCLを導入する必要があるのでしょうか。
JCLの導入でも再構築でエラーがでて導入できません。だた、TssSimpleIPCを
使いたいだけなんですが、困っています。詳しく説明してあるHPとかご存知ないですか？
お願いします。

683 ：デフォルトの名無しさん：04/02/27 00:29

深読みしてみると　エクスプローラーの　アドレス欄かな・・・

684 ：デフォルトの名無しさん：04/02/27 01:23

>>678
おかげさまで見つかりました。
ありがとうございます。

685 ：674です：04/02/27 06:21

アドレスとは、バイナリエディタで見たときのアドレスなんですけど、これでわかりますか？

686 ：デフォルトの名無しさん：04/02/27 06:34

ファイルが巨大ならメモリマップファイル。

そうでなければ普通のファイル処理関数。
sl: TStrings;
c: Char;

sl := TStringList;
sl.LoadFromFile('foo.txt');
c := sl.Text[n+1]; // nバイト目を取得

687 ：デフォルトの名無しさん：04/02/27 08:33

>>679
すんません。私の質問の仕方が悪かったです。
こんな大げさじゃなくていいんです。
MLの過去ログ見てたら、Windows.Canvasでデスクトップに
字が書けることはわかったんですが、そのレスのやりとり
を読んでいたらアクティブデスクトップだとだめだとか
なんかややこしそうで、結局結論がないようだったので
お聞きしました。
再描画とかでフックは必要でしょうが、その前に確実に
かける方法が知りたいのです。

688 ：デフォルトの名無しさん：04/02/27 08:39

透明なフォームにして表示しておく
　　1.移動とかは簡単だけど、カレンダーの位置に他のプログラムの
　　　アイコンとかを持ってこれる？
　　2.カレンダーコンポーネントも透明にして、見た目数字だけにできるの？

1は他のウィンドウの下に隠れるようにはできるがアイコンはたぶん無理。仮にできても見づらいだけのような。
2はC#のフォームの標準機能にある。Delは標準じゃ無理だな。

689 ：687：04/02/27 08:50

X Windows.Canvas
O Windows.TextOut

690 ：デフォルトの名無しさん：04/02/27 09:23

実行時にTToolBarへボタンを追加するにはどうすればいいでしょうか？

691 ：デフォルトの名無しさん：04/02/27 09:33

>>687
MLよりくだすれが上だとでも思ってるんだろうか

692 ：デフォルトの名無しさん：04/02/27 09:41

ZLibを使用した場合は別途DLLを配布する必要があると
どこかで見たのですが本当でしょうか？

693 ：687：04/02/27 09:45

>>691
思ってるけど、違うの？
ていうか、MLって結論出ずに終わるレスが多いなと思ってるので
私としては、こっちがいい

694 ：デフォルトの名無しさん：04/02/27 09:49

>>692
DLLを使うなら必要じゃないの？
すべてコードを手書きで一から作るならいらないんじゃないの？
ttp://www.dellapasqua.com/delphizlib/

>>693
人、それぞれ。人生、いろいろ。

695 ：デフォルトの名無しさん：04/02/27 10:11

DLLを配布する必要があるのは、DLLを使ったときだ。

ZLibが DLLを使うかどうかは知らん。
っていうか、作るときに DLLがあるかないかわかるだろ。
DLLを削除しても動くようならば、いらないんじゃない?

696 ：デフォルトの名無しさん：04/02/27 10:21

>>690
不可能

697 ：デフォルトの名無しさん：04/02/27 10:33

>>690
TToolButton.Create(ToolBar1).Parent := ToolBar1;

698 ：デフォルトの名無しさん：04/02/27 10:44

>>694
なるほど ZLibCソースから作ったobjを直接呼び出してるからDLL不要なんだ

699 ：ソース：04/02/27 11:36

mciSendCommandでサウンドレコーダを作って見ました。
http://www.sesco.ne.jp/langdel/
MadiaPlayerは気にいらなかったので別途作りました。

700 ：デフォルトの名無しさん：04/02/27 12:24

>>697
さりげなく無駄の無いコードだな。

701 ：デフォルトの名無しさん：04/02/27 13:07

どうせ必ず文字かアイコン指定するんだから無駄なコードだよ

702 ：デフォルトの名無しさん：04/02/27 16:10

MHT/MHTMLを扱うにはどうしたらいいですか？

703 ：デフォルトの名無しさん：04/02/27 16:25

>>702
扱ってどうしたいの？

704 ：702：04/02/27 17:18

バラバラのファイルをまとめて保存したいです。

705 ：デフォルトの名無しさん：04/02/27 17:43

IEのお気に入りの並び順どおりにIEのお気に入りを表示させる方法をお教えくださいませ。

donutのソース見てるんですが、どうにもこうにも。

706 ：デフォルトの名無しさん：04/02/27 18:20

>>702
Delphiでどうしたいのよｗ
超初心者スレだからといって舐めていないか、お前

707 ：デフォルトの名無しさん：04/02/27 18:28

radiogroupの項目名をstringに代入できませんか？
radiogroup.itemsかと思ったのですが「stringとTstringには互換性がありません」と言われます。

708 ：デフォルトの名無しさん：04/02/27 18:30

radiogroup.items.Textならどうだ？ >>707

709 ：707：04/02/27 18:34

>>708
駄目でした・・・全部の項目名が出てしまいました。

710 ：デフォルトの名無しさん：04/02/27 18:35

追加
最初の項目だけとかなら RadioGroup1.Items[0]

711 ：デフォルトの名無しさん：04/02/27 18:35

>>709じゃあ、何番目が欲しいんだ？

712 ：702：04/02/27 18:36

Delphiでそういうことが出来るソフトをと思いましたがなにか変ですか？
すみませんでした。
忘れてください。

713 ：707：04/02/27 18:37

>>710-711
出来ました！そうやるんですか・・・レスありがとうございました。

714 ：デフォルトの名無しさん：04/02/27 18:42

>>712
「MHT/MHTMLを扱うプログラムを作ってよこせ」と言ってるようにしか見えん。
どこまで作ってどこでつまづいているのか具体的に質問してくれ。

715 ：デフォルトの名無しさん：04/02/27 18:44

>>712
http://home.hiroshima-u.ac.jp/u1079009/rfc-j/rfc2110-jp.txt

これを見てコーディングしたよ。
と言っても、途中からIEが吐き出すMHTを解析していったけど。

716 ：191：04/02/27 20:11

サイトの宣伝したかっただけか、そうじゃなきゃ、たんに小学生みたいだな

717 ：191：04/02/27 21:05

あっ、１９１はフサギコすれのものです。すみません。

718 ：デフォルトの名無しさん：04/02/27 23:58

よくわからないので教えてください
procedure TForm1.Button1Click(Sender: TObject);
var fs:TStream;
begin
//'hoge'は存在しない
try
fs:=TFileStream.Create('hoge',fmOpenRead or fmShareDenyWrite);
except
On Exception do
showmessage('hoge');
end;
fs.free;

end;
free すると例外が出るんですけど
コンストラクタの中で例外が発生した場合は解放しなくていいってことですか？

719 ：デフォルトの名無しさん：04/02/28 00:02

>>718
コンストラクタで例外が起きると、すぐにデストラクタが実行される。
（そのため、デストラクタは不完全なインスタンスに対しても正常に対処できるように
設計されなくてはいけない。）
で、例外が発生すると、インスタンスのポインタがfsに代入されることは無い。

720 ：デフォルトの名無しさん：04/02/28 00:05

コンストラクタ？

721 ：デフォルトの名無しさん：04/02/28 00:05

procedure TForm1.Button1Click(Sender: TObject);
var fs:TStream;
begin
//'hoge'は存在しない
　try
　　fs:=TFileStream.Create('hoge',fmOpenRead or fmShareDenyWrite);
　　try
　　　//いろいろ
　　finally
　　　fs.free;
　　end;
　except
　　On E: Exception do
　　　showmessage(E.Message);
　end;
end;

こんな感じかな・・・書き換えるとすると。

722 ：718：04/02/28 00:09

>>719
なるほど、よくわかりました。
さんきう

723 ：デフォルトの名無しさん：04/02/28 00:36

ひとつ伺ってよろしいでしょうか。
数値入力フォームが２つあって、その二つの数字に対して計算した結果を３つめのフォームに書き出す
プログラムを作っています。

このときに、右クリックしてポップアップメニューをだし、演算方法を選択するのですが、
左と右を足す
左から右を引く
右から左を引く
左と右をかける
左を右で割る
右を左で割る
があります。

そこで、右のフォームの中身が０のときは、「左を右で割る」を実行させたくないのです。
逆の割り算も同じで、引き算は大きい方からしか引けないようにしたいのです。

「左を右で割る」のときは
if (RightForm=0) then MnuDivLtoR.Enabled := False;
として選択できないようにしたのですが、表示自体をけすにはどうやったらいいのでしょうか。

また、できれば、ポップアップメニューを右クリックじゃなく左クリックにしたいのです。

724 ：デフォルトの名無しさん：04/02/28 00:50

>ひとつ伺ってよろしいでしょうか
だめ

フォーム1枚に数字が1個?
やたらとムダ多くね?窓移動したら左右変わるし
っていうか、何の表示を消すの?フォーム?
Form2.Hide;
左クリックにすると既存のアプリと違いすぎてかえって使い勝手悪そう
そうするくらいなら足し算ボタンとか引き算ボタンとか置くほうがマシ

725 ：デフォルトの名無しさん：04/02/28 00:54

>>724
ええ、ボタンのほうが使い勝手がいいのも、右クリックのほうが使いかってがいいのは
分かっています。

練習で作っているので、無駄は承知の上なのです。

726 ：デフォルトの名無しさん：04/02/28 00:59

フォームじゃなくてエディットの間違いだ、ということを本気で
想像できていないとしたら、>>724は人間的に超初心者以下。

727 ：デフォルトの名無しさん：04/02/28 00:59

すいません。何を消すのかについてです。
たとえば、左に３　右に０がはいっていたら、
ポップアップメニューの選択肢を
左と右を足す
左から右を引く
左と右をかける
右を左で割る
としたいのです。

728 ：デフォルトの名無しさん：04/02/28 01:04

Visible

729 ：デフォルトの名無しさん：04/02/28 01:05

Visible := True or False

730 ：デフォルトの名無しさん：04/02/28 01:07

＞if (RightForm=0) then MnuDivLtoR.Enabled := False;

MnuDivLtoR.Enabled := RightForm<>0;

こう書いたほうがすっきり・・・多少意味が違うけど。

731 ：デフォルトの名無しさん：04/02/28 01:08

不細工な実装
function Waru(i1, i2: Integer):Integer;//i1:割られる数字,i2:割る数字
function IsWareru(i :Integer):Boolean;
begin
if i = 0 then Result := False
else Result := True;
end;
begin
if IsWareru(i2) then Result := i1 div i2
else Result := KekkaForm;//値を変えない
end;

732 ：デフォルトの名無しさん：04/02/28 01:15

>>726
いや、そのくらい想像できるけどな。
プログラマとしてそんなことあり得ないと思う方が強かっただけさ
右クリックを左でとか言ってたから、意味不明な実装は十分にあり得ると思ったんさ
ユーザーとしてフォームに数字1個なんてあり得ないと思うべきだったな

733 ：デフォルトの名無しさん：04/02/28 01:20

visibleをFlaseにするだけでできるのですね。
いろいろ考えすぎました。
ありがとうございます。

734 ：デフォルトの名無しさん：04/02/28 17:10

http://www.torry.net/email.htm
mhtmlジェネレータっていうフリーソフトがあるから、
つかってみたら？

735 ：デフォルトの名無しさん：04/02/28 17:26

　メモ帳など縦スクロールバーがあるコンポでつまみ（マウスでドラッグするときのやつ）の位置が
一番上にきた、あるいは下にきたことを感知するにはどうすればよいのでしょう。
　マウスのドラッグだけではなく、メモ帳ならカーソルキーなどでスクロールして上端（下端）にき
たときでも感知したいのです。
　スクロールバー+メッセージハンドラで検索しましたが適当な例を見つけることはできませんでした。

736 ：デフォルトの名無しさん：04/02/28 19:15

先生！
最近バックアップファイルを作らないようにしたんですか、
バックアップをしていた時のプロジェクトには当然バックアップが残っています。
そこで質問なのですが、~これがついているファイルはバックアップファイルだから全部消していいんですか？

737 ：デフォルトの名無しさん：04/02/28 19:19

>>736
多分大丈夫だと思うが、念のためにファイルのバックアップとっておくことを
お勧めする。

738 ：デフォルトの名無しさん：04/02/28 19:27

>>737
あ、それは、バックアップファイルのバックアップ、を取るのでなく
プログラミングをするときは、バックアップを取りながらやるべき、ってことですよね？
でも、フォルダが汚くなっちゃうんだよなぁ・・・
Delphi終了したらバックアップファイルを消すとか、隠しファイルにするとか、できないんでしょうか・・

739 ：デフォルトの名無しさん：04/02/28 19:52

>>783
ハードディスクのクラッシュ以外に、修正が失敗したときを考えて、
元に戻れるように、大きな変更をする前に一式バックアップとっているよ。
というか、VisualSourceSafe使っているがｗ
いまどき、ハードディスクに余裕が無いわけじゃないし。
万が一考えたらたいしたこと無いだろ。

740 ：644：04/02/28 23:08

しつこいですけど、教えて下さい。
BitBltとかPaintToを使って画面に字は書けるのですが、
再描画ができません。
こういう時にフックが必要になってくるんでしょうか？
http://user2.allnet.ne.jp/shinoda/
にあるカレンダーは、フックしてない感じなんですが。
どなたか、教えて下さい。
お願いします。

741 ：デフォルトの名無しさん：04/02/28 23:26

>>740
何のためにペイントイベントとクリップリージョン関数があるのかと
小言を言いたい。

742 ：デフォルトの名無しさん：04/02/28 23:39

> BitBltとかPaintToを使って画面に字は書けるのですが

はぁ？

なんかさぁ、デスクトップカレンダーとかの前に知る必要があることが一杯あるんじゃね？

743 ：デフォルトの名無しさん：04/02/28 23:57

そんなにいじめることないのに…。
つーか、>>740のサイトつながらない気がするのはオレだけか？
検索したら違うサイトがあったが…。

744 ：デフォルトの名無しさん：04/02/29 00:11

グリッド配置でコンポーネント位置を調整してくれるいいレイアウト
マネージャの誰かしらねえか？

745 ：デフォルトの名無しさん：04/02/29 00:12

>>744
知らねぇ。

746 ：デフォルトの名無しさん：04/02/29 00:22

忘れてた。あと、ばりゾウゴンリージョン関数が２ｃｈにあるのを
忘れないように。

747 ：デフォルトの名無しさん：04/02/29 00:33

> あと、ばりゾウゴンリージョン関数が２ｃｈにある

さすがぁ、たしかに >>693 のいうとおり ML よりいいかも！

748 ：デフォルトの名無しさん：04/02/29 04:18

>>743 そんなにいじめることないのに…。
ならちゃんと教えてやれよ

749 ：デフォルトの名無しさん：04/02/29 07:27

ListBox1.AddItem(Str, ListBox1);
の第二引数をnilにしても正常に動作するのですが、
その存在意義がよくわかりません。ヘルプ見ましたが
英語でしたので・・・。どうか教えてください。

750 ：644：04/02/29 07:40

これでもいろいろ調べ回った結果BitBltとかPaintＴｏｐとかに
たどり着いたんだけどね。
他に知らなきゃいけないことがあることなんて、百も承知じゃい。

と、マジレスしてみる。

エロい人ここにあるカレンダーと同じことを
したいのです。教えて下さい。
http://members.jcom.home.ne.jp/shinonon/mysoft.html

751 ：デフォルトの名無しさん：04/02/29 09:13

>>750
ソレと同じ事をしたいなら、TBitmapでカレンダを作って、bmpで保存。

後はレジストリに登録する。
HKEY_CURRENT_USER\Control Panel\Desktop　にある。

ファイル名は　Wallpaper 　表示位置は
http://www.nishishi.com/RegEdit/wall.html

752 ：デフォルトの名無しさん：04/02/29 10:06

>>751
レジストリいじるよりAPI使ったほうがよくね？

753 ：デフォルトの名無しさん：04/02/29 10:50

>>752　どの？　WMI？

754 ：デフォルトの名無しさん：04/02/29 10:53

窓の手もWindowsのバージョンをデスクトップに
描画するオプションがあるよね。
壁紙とかいじってる様子がないのよね。
漏れもやり方知りてぃです。

755 ：デフォルトの名無しさん：04/02/29 11:10

少なくとも>>750のリンク先アプリは直接描画してるんじゃなくて、

アプリ実行中　アプリがマーカを表示させて、その位置をレジストリに記録
アプリ終了後　単なるBmp壁紙＝Windowsの壁紙機能にまかせる

という戦略みたいだよ。

756 ：デフォルトの名無しさん：04/02/29 11:18

>>754
「デスクトップ描画デバイスコンテキスト」とかでぐぐってみては？
あとはW32APIスレで聞くか。

757 ：デフォルトの名無しさん：04/02/29 11:29

>>756
アホ？

758 ：デフォルトの名無しさん：04/02/29 11:38

>>755
Ｗｉｎｄｏｗｓの壁紙機能ってどういうの？
今の壁紙のＢｉｔＭａｐと合成させるて、レジに登録じゃなくて
他のやり方があるってこと？

759 ：デフォルトの名無しさん：04/02/29 11:59

>>758
いや、そのやり方の事だよ。

なんか自前で描画してると思ってる人がいるみたいだから

760 ：デフォルトの名無しさん：04/02/29 11:59

SystemParametersInfo API

画面のプロパティで壁紙が変更された場合は Windows が WM_WININICHANGE
メッセージで通知してくれる。
(書き換えたビットマップを反映させる時に再帰呼び出しにならないように注意)

画面の右下にバージョンを表示する機能は Windows の機能。
確か Windows 2000 の RC 版はこれが消せなかった記憶がある。

761 ：644：04/02/29 12:25

>>759
自前で描画してるとおもた。
壁紙合成なら、元の壁紙をどこかに待避させて
ると思って調べて見たのですが、そんな感じじゃ
なかったもんで。（調べ方も悪いとは思いますが）
ありがとうございました。

762 ：デフォルトの名無しさん：04/02/29 12:40

壁紙と合成させるのはいいけど、
ビットマップの小さいのを並べて壁紙にしてるときは
どうすんの？

763 ：デフォルトの名無しさん：04/02/29 12:54

小さいの並べて合成するんでは？

764 ：デフォルトの名無しさん：04/02/29 13:22

((≡´Д｀≡))

765 ：デフォルトの名無しさん：04/02/29 17:50

Delphi5のEnt版もってますが、付属のSQL-Linkは
Oracle8までしか対応してないようです。
Oracle9に接続したい場合、Updateする方法は
あるのですか？

766 ：デフォルトの名無しさん：04/02/29 18:02

業務プログラムについてくだすれで質問するのかー。なんかなー........

767 ：デフォルトの名無しさん：04/02/29 21:52

>>765
Dyrect Oracle Accessを使ってみれば？
いいぞあれは。至れり尽せりって感じで。

768 ：デフォルトの名無しさん：04/02/29 22:23

>>767
DOAですか。なかなか安くてこんなの欲しかったん
です。情報ありがとうございます。

769 ：デフォルトの名無しさん：04/02/29 22:31

なんかなー、コマーシャルくせー
>>767 なんかわざとスペル間違ってるシー

770 ：デフォルトの名無しさん：04/02/29 23:03

>>748
何でお前は教えてやんないの？

「オレは教える気が無い」なんて返すなよ。
糞味噌一緒だから。

771 ：デフォルトの名無しさん：04/02/29 23:23

>>767が社員かどうかは置いといて、本当にいいよあれは>>769
某全国ﾁｪｰﾝのｼｽﾃﾑでも使ってるし。
でも別にDBが9iでも特殊なことをしてなければ問題なく使えるはずだけどね>>765

772 ：767：04/02/29 23:40

わざと間違ったんじゃないんだけどな…
しかもＣＭと思われてるし…ｼｮﾎﾞｰﾝ

773 ：デフォルトの名無しさん：04/03/01 01:49

>>771-772
疑ってごめんね

774 ：デフォルトの名無しさん：04/03/01 09:39

変数Aのアドレスってどうやって取得するんでしたっけ？

775 ：デフォルトの名無しさん：04/03/01 09:40

＠

776 ：774：04/03/01 09:45

うまくいきました。thx!!

777 ：デフォルトの名無しさん：04/03/01 11:45

777を頂くとしよう。

778 ：デフォルトの名無しさん：04/03/01 17:57

String 型の変数から Array Of Char 型の変数に代入するにはどうすれば？

779 ：デフォルトの名無しさん：04/03/01 18:02

short string以外、区別ないだろう。
文字列操作関数使えば全く同じく扱えるだろうし。意味わかんない。

780 ：デフォルトの名無しさん：04/03/01 19:14

StrPCopy

781 ：デフォルトの名無しさん：04/03/01 21:59

カレンダーにweeknunberってあるでしょ。
プログラムでこの日は何週目って言うのを求めたいんだけど、
どうすｔればいいの？
MSC_WeekNunberが怪しいと思うんだけどこれって、API？

782 ：デフォルトの名無しさん：04/03/01 22:10

> プログラムでこの日は何週目って言うのを求めたいんだけど、

綴りが間違ってるからググレないの？

http://www.delphi32.com/vcl/3136/

のソースに関数があるよ。（ISO準拠だそうです）

783 ：デフォルトの名無しさん：04/03/01 22:42

うーむ…。

なんで自由にフォームの作成、消去ができないんだ？
form.destroyってやるとエラー起こすし。

784 ：デフォルトの名無しさん：04/03/01 22:45

formはReleaseで消すのが礼儀なんだ。

785 ：デフォルトの名無しさん：04/03/01 23:14

おお、消えたよ。ありがとう。
消えたんだけど前のフォームが出てこない…。

簡単に表示ってできるのかな。
それとも結構な行数必要な高度なテクニック？

786 ：デフォルトの名無しさん：04/03/01 23:14

>>781
Week Year The Of
パーツを教えてや(ry

787 ：デフォルトの名無しさん：04/03/01 23:22

>>785
form.show

788 ：デフォルトの名無しさん：04/03/02 00:18

ちなみにReleaseしちゃったFormをShowするとエラーになるのは特に言わなくても解るよな。

789 ：デフォルトの名無しさん：04/03/02 02:27

おそらく、「消す」ってのは初心者スレ的に「画面から消す」と想像可能。
HideとShowがお求めのメソッドかと思われます。

790 ：デフォルトの名無しさん：04/03/02 02:35

質問してる人をメチャクチャ初心者であると決めつけてOKだよ。
「そこまで初心者じゃない」とか言い返す人はスレ違いだし。

791 ：ななしへたぐらま ◆XcB18Bks.Y ：04/03/02 02:44

確かにその通りですね．

>>749
リストボックスの項目情報には項目を示す文字列の他に任意のオブジェクトの場所を記憶することができます．
（その項目に関連づけられたオブジェクトとの場所を記憶するのに使います．
　無関係なオブジェクトの場所を記憶する事もできますが無意味です）

よって ListBox1.AddItem(Str, ListBox1) というコードは意味がありません．
実害はないでしょうがソースコードを読む人（未来の作者自身を含む）が誤解するおそれがあるので
関連づけたいオブジェクトがない場合は ListBox1.AddItem(Str, nil) あるいは ListBox1.Items.Add(Str) とします．

>>780
配列のインデックスが０以外から始まっている場合には使えませんが，>>778さんは多分０ですよね．

>>785
フォームを消すといっても破棄する（ぶっ壊す）場合と隠すだけの場合とふたつあるのです．

792 ：デフォルトの名無しさん：04/03/02 03:07

>>791
> よって ListBox1.AddItem(Str, ListBox1) というコードは意味がありません．

いろいろな状況が考えられる。フォーム上のコントロールの一覧とか。
なぜ意味がないと言い切れるのか

> 配列のインデックスが０以外から始まっている場合には使えませんが

で、０以外から始まっているときはどうするの？
＜Array Of Char 型の変数＞って動的配列なんじゃないの？

793 ：781：04/03/02 07:55

ｶﾞ━━━(ﾟДﾟ;)━━━ｿ!
カレンダーのソースを調べてたよ。
サンクソ

794 ：デフォルトの名無しさん：04/03/02 08:05

>>793
TDateTime型の整数部は連続した日になっているから
その年の正月
　Trunc(EncodeDate(xxxx,1,1))
　DayOfWeekで求まる正月の曜日-1

求めたい日から、これらを減算して整数化して 7で割れば？

795 ：デフォルトの名無しさん：04/03/02 08:15

>>794
つーか>>786がヒントを出してるけどWeekOfTheYearという関数があるんだけどね。

796 ：ななしへたぐらま ◆XcB18Bks.Y ：04/03/02 08:39

>>792
書き方が悪かったかもしれませんが>>749のさんの書き込みを見るに
『AddItemメソッドの第二引数にそのリストボックス自身を指定しなければならない』
ように誤解されているように思えたのでその指定は無意味ですといいたかったのです．
第二引数にオブジェクトを指定する事に対して意味がないという意図ではありません．

array of char型についてはこちらの勘違いです．
勝手に静的配列の事だと脳内変換してしまいましたが確かに動的配列の事ですね（ツッコミに感謝します）．
ヘルプ（Delphi 5ですが）には『動的配列の添字は常に整数であり，0 から始まります。』とあるので
配列のインデックスが０以外から始まっている場合の事は考慮しなくても大丈夫ですね．
そういえばstring型の値をchar型の動的配列にコピーするならこんな感じにあらかじめコピー先領域を確保しないとまずいのでは？
var ca: array of char; s: string;
（中略）
SetLength(ca, Length(s) + 1); // コピー先領域の確保．『ヌルで終わる文字列』は末尾にヌル文字（#0）が付くので１個余分に必要
StrPCopy(@ca[0], s);

797 ：デフォルトの名無しさん：04/03/02 09:07

リリースしちゃったらクリエイトしなおしじゃん。
一時的に隠すならﾋﾃﾞしたらいいな(w

798 ：デフォルトの名無しさん：04/03/02 19:51

array of Char のバッファを使うよりも PChar で宣言したポインタに AllocMem して
StrPCopy するほうが実体の存在を気にしなくて済む分わかりやすいんじゃない?

799 ：デフォルトの名無しさん：04/03/02 19:55

普通 var p:PChar で文字列を扱うなら、
文字列　str:String を p:=PChar(str);　とするのが、普通の手法だと思う

800 ：デフォルトの名無しさん：04/03/02 20:10

渡すだけのパラメータならもちろんそうだけど、API から文字列を受け取る場合は
PChar を使う方が一般的じゃないの?

801 ：デフォルトの名無しさん：04/03/02 20:14

array of Char というのはCプログラマ的発想だね。
ネイティブなDel(Pascal)プログラマなら string が普通で
API等を使う際だけやむなく PChar をかますという感じかな。

802 ：デフォルトの名無しさん：04/03/02 20:14

つうか、stringは何もしなくても、コンパイラが必要に応じて変換関数
とかを自動的に補完してくれるんだが。PChar(s)でいいんだよ。
逆アセンブルしたコード見てみな。ANSI->UNICODE変換まで自動でやってくれるし。
逆に大きなお世話というのもあるがｗ

803 ：デフォルトの名無しさん：04/03/02 21:04

APIから文字列貰う時も　 SetLength　して PChar(str)だと思う

804 ：デフォルトの名無しさん：04/03/02 22:09

　TTreeView.AlphaSort はすべてのノードのソートをするようですが、たとえば指定したノード（子
ノードを持つ）だけソートというのはできないのでしょうか？
　CustomSort がそうではないかと思ったのですが、違うみたい。自前でコーディングするしかないの
かな。

805 ：デフォルトの名無しさん：04/03/02 22:22

残念ながら出来ない。自前でしる。

806 ：デフォルトの名無しさん：04/03/02 22:24

ちなみにCustomSortはソートの順序をカスタマイズするためのもの。
（たとえばノードのObjectプロパティの中身を使って並べ替えるとか）

807 ：デフォルトの名無しさん：04/03/02 23:21

customSortは正直未だにわからん

808 ：デフォルトの名無しさん：04/03/03 00:02

Customだからアレなんだな、きっと

809 ：７８５：04/03/03 00:30

>>787-789,791
ありがとう。できたよ。
こんなに簡単に消したりできるんだなぁ。

１年くらいかけてゲーム作るんで、できたらｳﾌﾟするよ。

810 ：デフォルトの名無しさん：04/03/03 00:52

>>809
楽しみに待ってまつよ。ガンガレ～

811 ：デフォルトの名無しさん：04/03/03 06:38

楽しみにして待つてまつよ。カツカレ～

812 ：デフォルトの名無しさん：04/03/03 16:19

レジストリのどこかで色のデータが　0　0　128　とか
書かれている場合に、この色をフォームの色にする方法なのですが、
スペースで文字列分解してから

var
myColor:TColor;
begin
Form1.Color:=RGB(0,0,128);

みたいにするしかないですか？
他にもっと簡単な方法とかってないですかね？

813 ：812：04/03/03 16:21

質問が変なので訂正。
文字列分解とかしなくても、簡単にできないかってことです。

814 ：デフォルトの名無しさん：04/03/03 16:24

簡単にする関数を用意すればよろしいかと

815 ：デフォルトの名無しさん：04/03/03 20:52

関数書くのメンドクセーから教えろ！っていう質問なんじゃないの

816 ：デフォルトの名無しさん：04/03/03 22:43

>>812
正規表現ライブラリが標準で搭載されているまともな開発環境なら簡単にできますが
Delphiでは簡単にはできません。アホみたいに文字列分解してください。

817 ：デフォルトの名無しさん：04/03/03 22:55

>>816
>正規表現ライブラリが標準で搭載されているまともな開発環境なら簡単にできますが

簡単なら書き込むより早くコードを見せてくれるんだろうな。頼むぜ。
嘘じゃないだろう。ほら、もう、書き込んでから１０分以上経ってるから
すぐ貼り付けられるよな？

818 ：デフォルトの名無しさん：04/03/03 23:01

そんなこというとまた変な煽りがくるぞ

つーか正規表現ライブラリくらい自分のDelphiに導入するだろ？

819 ：デフォルトの名無しさん：04/03/03 23:03

レジストリを簡単に圧火炎の会！

820 ：デフォルトの名無しさん：04/03/03 23:06

D8.NETなら標準で…

821 ：デフォルトの名無しさん：04/03/03 23:10

>>817
puts $1, $2, $3 if "0　0　128" =~ /^(\d+)\s*(\d+)\s*(\d+)$/

822 ：デフォルトの名無しさん：04/03/03 23:16

Cでやってみろよ。

823 ：デフォルトの名無しさん：04/03/03 23:19

算術代入演算子や３項演算子ある？

824 ：デフォルトの名無しさん：04/03/03 23:31

ない

825 ：デフォルトの名無しさん：04/03/03 23:41

>>817
puts "0 0 128".split /\s+/

826 ：デフォルトの名無しさん：04/03/04 00:11

Delphiは他の言語と比べて文法が違いすぎる。
初心者には取っ付き難く、馴れた人は離れられない
排他的な言語だと思います。

諦めます。（移植が大変そうなので・・）

827 ：デフォルトの名無しさん：04/03/04 00:12

レジストリからとってくるところがないので駄目

828 ：デフォルトの名無しさん：04/03/04 00:13

>>812が晒している(質問している)部分に対応してるので十分だろ

829 ：デフォルトの名無しさん：04/03/04 00:16

> Delphiは他の言語と比べて文法が違いすぎる。

他の言語がなにかにもよるけど、C# C C++ Basic なんかの手続き言語には
きわめて近いと思うけど？ Pascal は日本ではマイナーなのでオタっぽく
見られがちだけどね。もともと教育用につくられたので初心者にはやさしい
と思う。

830 ：デフォルトの名無しさん：04/03/04 00:17

そもそもレジストリから取れないような開発環境では問題外です。

831 ：デフォルトの名無しさん：04/03/04 00:27

>>830
ﾜﾛﾀ

832 ：デフォルトの名無しさん：04/03/04 00:28

puts Win32::Registry::HKEY_LOCAL_MACHINE.open('Software\YourApp')['Color'].split /\s+/

833 ：デフォルトの名無しさん：04/03/04 00:29

>>830
TRegIniFileというクラスが完備されているのでモーマンタイ。

834 ：デフォルトの名無しさん：04/03/04 00:31

こっちの方がもっと簡単？
TRegistryIniFil

835 ：デフォルトの名無しさん：04/03/04 00:31

eが抜けた～

836 ：デフォルトの名無しさん：04/03/04 00:35

実はそのレジストリ値がそもそも文字列型でなかったというオチ

837 ：デフォルトの名無しさん：04/03/04 00:36

みなさまご協力ありがとうございました。
正規表現を勉強します。

838 ：デフォルトの名無しさん：04/03/04 00:41

しかしアホみたいに文字列分解してもたいしたことないんだけどね

839 ：デフォルトの名無しさん：04/03/04 00:42

そのたいしたことのなさが積もりに積もってDelの生産性を落としているわけだが。

840 ：デフォルトの名無しさん：04/03/04 00:43

812の質問はそれ以外、ということだよね

841 ：デフォルトの名無しさん：04/03/04 00:45

正規表現がないと駄目って場面がつもりつもって、という場合はそんなにたくさん
あるもんなの？そのほかの Delphi の生産性の高さを帳消しにするくらいの

842 ：デフォルトの名無しさん：04/03/04 00:59

正規表現がないと駄目ってことはないだろう
非常に不便なだけ
公開されてるライブラリ使えばいいだけ

843 ：デフォルトの名無しさん：04/03/04 01:00

ま、しかし標準でついてないのはマイナスだよな

844 ：デフォルトの名無しさん：04/03/04 01:22

uses RegExpr;

var
　re: TRegExpr;
begin
　re := TRegExpr.Create;
　try
　　re.Expression := '(\d+)\s+(\d+)\s+(\d+)';
　　if re.Exec('0 0 128') then
　　　ShowMessage(Format('%s,%s,%s', [re.Match[1], re.Match[2], re.Match[3]]));
　finally
　　re.Free;
　end;
end;

845 ：デフォルトの名無しさん：04/03/04 01:47

ttp://homepage2.nifty.com/Mr_XRAY/Halbow/Notes/N021.html

ここの Split() 使うと

Split('0 0 128',' ',Memo1.Lines);

だけなんだが

846 ：デフォルトの名無しさん：04/03/04 01:58

そら単機能なラッパーかませばなんだって一行になるだろ

847 ：デフォルトの名無しさん：04/03/04 02:03

そら便利なライブラリをつかえば簡単にできる、というのと大差ないよね

848 ：デフォルトの名無しさん：04/03/04 02:08

もとに戻って >>812 の質問にたいして >>814 の回答は的を射てるね。
その関数に正規表現ライブラリを使おうと単機能な関数を探してこようと
問題は解決する。自分で書いてもいいし。

849 ：デフォルトの名無しさん：04/03/04 02:17

>>848
全然射てないね。
ラッパーを作ることの欠点はラッパーを作らないといけないこと。
全体での複雑さはまったく低減していないし、
柔軟性に欠けるのでラッパーの再利用性も低い。
それを簡単とはいえない。

850 ：デフォルトの名無しさん：04/03/04 02:34

>>849
>ラッパーを作ることの欠点はラッパーを作らないといけないこと。
あたりまえだろう。特定の問題について正規表現ライブラリをつかっても
特定の正規表現を書かなければならないだろう。
今回の問題では、>>816 のように正規表現を使わなければ簡単じゃない、と主張
するのもいるし、オレみたいに正規表現より関数書く方が何倍も簡単とおもうのも
いる。

> 柔軟性に欠けるのでラッパーの再利用性も低い。

'(\d+)\s+(\d+)\s+(\d+)';

これがほかの問題にどのくらい再利用できるのよ。正規表現自体は汎用性に優れている
ことはもちろん認めるが、特定の問題を解くためには特定の正規表現を利用する
わけだろう？簡単かどうかはそれぞれの分野での習熟度によるので、ひとぞれぞれ
だろうさ。おれには正規表現のほうが何倍もむつかしい。

851 ：デフォルトの名無しさん：04/03/04 03:03

どこまでレス数が伸びるかっ！

-------------------------------------------------
動けよ京都府警！
http://society.2ch.net/test/read.cgi/police/990121724/
-------------------------------------------------

レス数を増やすためになるべく短く、簡潔にｶｷｺってください。

852 ：812：04/03/04 07:57

812です。
単純に関数を自分で作れば良いんですけどね。
私が疑問に思ったのはレジストリから色データを読むと、
'0 0 128'　みたいになる訳ですよ。
これくらいなら、TStringListとかのコンマテキストにしてやれば良いんで、
わざわざ正規表現ユニットとかを入れなくても済みます。
しかし、レジストリのデータ形式が'0 0 128'みたいなっているのは、
当たり前のことなので、何故、標準で関数を用意してるんじゃなかろうかと
探していたのです。
ここ数年、某のやる気の無さには・・・

853 ：デフォルトの名無しさん：04/03/04 08:35

年寄りと言われるんだろうけど、Delphiは一応構造化＋OO＋コンパイラだからさ
構造化言語というのは、概念を"自分で"積み上げてゆくもんなんだよ。

その手続きの中で何度か出て来る部分は、関数内関数にする。
ものユニット内でよく出てくればユニット内関数にする。
その外でも使うならグローバル関数にする。

そういう事を通して抽象化を実現するのが構造化言語だと思うんだけどなあ。
そこがしっかりしてないとOOの使う側 --> インタプリタ的にシフトしちゃわない？

854 ：デフォルトの名無しさん：04/03/04 08:41

＞しかし、レジストリのデータ形式が'0 0 128'みたいなっているのは、
＞当たり前のことなので
色をレジストリに保存するとそういう形式になるの？
$00000080でなくて？

855 ：強制移動：04/03/04 08:46

くだすれDelphi（超初心者用）その１１
http://pc2.2ch.net/test/read.cgi/tech/1076609666/852
>>852
>当たり前のことなので、何故、標準で関数を用意してるんじゃなかろうかと
>探していたのです。
>ここ数年、某のやる気の無さには・・・
そういう批判の仕方はちょっとないんじゃないかと思うよ。
# スペース区切りの値はコンマ区切りの値ほど一般的ではないので
それを極限まで推し進めると「標準であらゆる便利なアプリを用意していないWindowsはやる気がない」
ってことになってさすがにそれはナンセンスでしょ？

'0 0 128', '0,0,128', '<li>0</li><li>0</li><li>128</li>'等々を分割できる関数の集まりを前もって用意することより、
任意のルールで区切られたデータを効率的に取り出す機能の方が便利じゃない？
任意の目的のためのアプリを効率的に作り出す機能（=プログラミング言語）が便利なように。

標準で正規表現クラスが提供されていないので食わず嫌いが増えてしまったのはなんとも残念な話だな。

856 ：デフォルトの名無しさん：04/03/04 08:56

>>854
たぶん、
HKEY_CURRENT_USER\Control Panel\Colors
の事を言ってるんだよ。
Borlandは整数型を使ってる

857 ：デフォルトの名無しさん：04/03/04 09:13

TMemoの３文字目だけ色を変えるとか出来るでしょうか？

858 ：デフォルトの名無しさん：04/03/04 09:23

TMemoはTEditと同じWindows EDIT コントロール
だから３文字目だけ色を変えたいなら、そこを選択状態にする以外は、まあ無理だと思った方がいい。

それよりTRichEditや　Web上に公開されてるエディターコンポを使う事を考えた方がいい

859 ：デフォルトの名無しさん：04/03/04 09:44

>>855
>ってことになってさすがにそれはナンセンスでしょ？

極論をいってそれをナンセンスというのは、それこそナンセンス。
正規表現ライブラリを標準装備している環境もあるんだから、そうでないのは
開発元の怠慢、という批判はナンセンスではない。

860 ：デフォルトの名無しさん：04/03/04 09:46

って、おなじ結論か。スマソ

861 ：デフォルトの名無しさん：04/03/04 09:54

いちおう、「くだらないスレ」じゃなくて、
「くだらない質問スレ」なので、そろそろ控えてね。

862 ：デフォルトの名無しさん：04/03/04 10:41

>>856 さんくす
これ以上のコメントは>>861に従ってやめておきます。

863 ：デフォルトの名無しさん：04/03/04 11:24

正規表現ライブラリを後から導入することなんて面倒でもなんでもないんですけど、
皆さんはどのライブラリを使ってますか？
なんか、色々あって、どれがいいのかわからんのですけど。

一応、自分自身の希望としては・・・

・ソース公開(いつのまにか開発停止、というのはイヤなので)
・ライセンスが緩い(明記さえすれば有償ソフトにも組み込める程度で)
・Perl互換がいい
・Perl程度の性能で十分
・日本製じゃなくてもいいから、ユーザが多い方が良い
・日本語を意識した処理は自分としては不要

何がお勧めでしょうか？

864 ：デフォルトの名無しさん：04/03/04 11:32

>>858
ありがとうございます。やっぱりTMemoだと出来ないんですね
他のを使ってみることにします

865 ：デフォルトの名無しさん：04/03/04 11:41

>>826

他の言語をやったことがない初心者ならば、どれをやっても同じだと思う。

Delphiしかやったことがない初心者が他の言語をやるならば、とっつきにくいのは当たり前なのでは?

866 ：814：04/03/04 12:03

>>812
まだやってたのか、　正規表現使わなくても、スペース区切りは簡単にパース可能
function　RegColorText2Color(s:string):TColor;
　procedure　MyRaise;
　begin　raise　Exception.Create('正しい　レジストリ色データでない');　end;
　var　p:PChar; maxlen:Integer;
　function　get:string;
　　var　i:Integer;
　　begin
　　　SetLength(Result,maxlen);i:=0; // パースして元の文字列の長さより増える筈がないから
　　　if　(　p^　in[#0..'　'])　then　MyRaise;
　　　while　not　(　p^　in[#0..'　'])　do　begin
　　　inc(i);
　　　Result[i]:=p^;
　　　inc(p);
　　　end;
　　　while　p^　='　'　do　inc(p);
　　　Setlength(Result,i);
　　end;
　var　r,g,b:Integer;
begin
maxlen:=length(s)+4;
　p:=PChar(s);
　r:=StrToInt(get);if　p^=#0　then　MyRaise;
　g:=StrToInt(get);if　p^=#0　then　MyRaise;
　b:=StrToInt(get);
　Result:=RGB(r,g,b);
end;
これが、正規表現より１桁速度も速いし、普通に使われる手法だと思うよ

使い方
Form1.Color:= RegColorText2Color('0 0 128');

867 ：814：04/03/04 12:19

初心者スレだから解説しておくと　文字列処理は

１、基本的に1文字単位にまで条件を分割する
　　　スペース区切りなら、
　　　[制御文字以外の文字の連続] [スペースの連続]
　　　というふうに分解して、それをそのままコードに書けばいい

２、移動、複製は少ないように考える事、
　　移動、複製が入っていると、文字列処理はO(n^2)になってしまう事が多い
　　・ホントは>>866のコードはパースしながら10進変換したいんだけど、余計にわかりにくくなるから我慢した
　　　（パースしながら変換すれば、帰り値への複製も必要なくなる）

３、長い文字列になる可能性があるなら先にバッファを取っておいて後で文字数を設定
　　２と同じなんだけど、文字列の加算は複製が発生する可能性があるから遅くなる。
　　・文字数が30文字以下と判ってる場合は文字列同士を+で加算してもそう変わらない

868 ：814：04/03/04 12:36

さらに、解説

正規表現からパーサを作る場合
例：'(\d+)\s+(\d+)\s+(\d+)';

(～) は返り値の単位　get みたいな関数内関数が返す単位と考える
\d は0～9迄の文字だから ['0'..'9'] と置き換える。後ろに + が付いて

if　not (p^　in ['0'..'9'] ) 　then　MyRaise; //0～9でなければいけない。
while　(　p^　in ['0'..'9'] ])　do　begin //0～9が連続する

というふうに分解する。　これは(～)で囲まれているから、このループ内を帰り値にすればいい。

で最後に \s+ は空白が連続するという事で
　　　while　p^　='　'　do　inc(p);

となる。

869 ：デフォルトの名無しさん：04/03/04 14:34

スペース区切りの数値を分割？
正規検索も外部ライブラリもまったくいらない。

function　RegColorText2Color(s:string):TColor;
var
　Split: TStringList;
begin
　Split := TStringList.Create;
　try
　　Split.CommaText := s
　　Result := RGB(StrToIntSplit[0]),
　　　　　　　　　　　StrToInt(Split[1]),
　　　　　　　　　　　StrToInt(Split[2]));
　except
　{EConvertErrorやEListErrorを捉えて好きにエラー処理や例外生成}
　end;
　Split.Free;
end;

870 ：デフォルトの名無しさん：04/03/04 14:39

ごめん例外生成したらリークだ。try finallyが要るな。

871 ：デフォルトの名無しさん：04/03/04 14:57

それはDelimiter=' ' と DelimitedTextを使ったつもりだと思うが・・・・

872 ：デフォルトの名無しさん：04/03/04 15:05

>>866
汚いコードだ。しかもレジストリから一回読み出すだけのコードに一桁早いも糞もないな。

873 ：デフォルトの名無しさん：04/03/04 15:17

正規表現ライブラリを標準装備していないとどうなるか

>>863 (ライブラリが) 色々あって、どれがいいのかわからん

>>870 自分で書いてリーク発生

>>812-871 無駄な時間を浪費する

874 ：デフォルトの名無しさん：04/03/04 15:22

>>863
Delで一番まともに動作するのはRegExprだな。
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5BTRegExpr%5D%5D

875 ：デフォルトの名無しさん：04/03/04 15:48

もうみんな System.Text.RegularExpressions 使ってるぜ

876 ：デフォルトの名無しさん：04/03/04 18:49

>>871
Del7は知らんけど5,6ならこれで動くよ。commatextの仕様。
そのために困ることもよくあるけど。

877 ：デフォルトの名無しさん：04/03/04 21:49

>>875
そなの？そんでもって誰も使ってくれないアプリをつくってるんだよね！

878 ：デフォルトの名無しさん：04/03/04 21:49

コントロールとかを気にせず、
単純に、今マウスを動かしたりクリックしたりするのと同じ結果を得るには
どうすればいいんでしょうか？

879 ：デフォルトの名無しさん：04/03/04 21:57

>>878
同じ結果ってどんな結果？

880 ：デフォルトの名無しさん：04/03/04 22:40

System.Text.RegularExpressionsよりはBoostRegex++を使った方が早かった(C++でしか試してないけど）

881 ：デフォルトの名無しさん：04/03/04 23:01

Boostだもんな

882 ：デフォルトの名無しさん：04/03/05 01:20

>>812

var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Delimiter := ' ';
sl.DelimitedText := '0 0 128';
Form1.Color := RGB(
StrToInt(sl[0]);
StrToInt(sl[1]);
StrToInt(sl[2]);
);

とかはどうか。

883 ：デフォルトの名無しさん：04/03/05 01:22

しつこ杉。812はコードの書き方がわからないわけじゃないだろ。
>>816でFA

884 ：882：04/03/05 01:23

上に誰かが書いてるやん・・・・・

885 ：デフォルトの名無しさん：04/03/05 02:23

Indy9.0+Delphi6personalでBase64ためしてるんだけど、
どうも IdEncoerMIME1.Encodeのあたりで
アプリケーションが応答なしになる。
何か決定的に見落としてるのだろうか。

var
fs: TFileStream;
begin
if SaveDialog1.Execute then
begin
fs := TFileStream.Create(SaveDialog1.FileName, fmOpenRead);
try
Memo1.Text := IdEncoderMIME1.Encode(fs);
finally
fs.Free;
end;
end;
end;

886 ：デフォルトの名無しさん：04/03/05 03:13

SearchBuf 関数はどのユニットを Uses すれば使えるのですか？
ヘルプには書いてないし、そのままでは使えない…

887 ：デフォルトの名無しさん：04/03/05 03:26

Source\*.int以下をgrepしとけ

888 ：デフォルトの名無しさん：04/03/05 03:33

>>887
出来ました、ありがとう御座いました。

889 ：デフォルトの名無しさん：04/03/05 08:00

>>885
Memo1.Text := が怪しい
ファイルサイズが大きすぎるという事はない？

890 ：デフォルトの名無しさん：04/03/05 08:59

>>885
Indyをアップグレードしる。もしくは自分で直せ。

891 ：デフォルトの名無しさん：04/03/05 09:50

下のプログラムを実行すると
アクセスバイオレーションが出るんですが。
var
b:PAnsiChar;
begin
GetWindowsDirectory(b,MAX_PATH);
ShowMessage('1');
end;
何がいけないのでしょうか？

892 ：デフォルトの名無しさん：04/03/05 09:55

>>891
それをC言語にすると
char *b;
GetWindowsDirectory(b,MAX_PATH);

ね？　ダメでしょ？

だから、こうしなさい。

var b:string;
begin
SetLength(b,MAX_PATH+1);
GetWindowsDirectory(PChar(b),MAX_PATH);

893 ：デフォルトの名無しさん：04/03/05 10:42

>>892
おぉぉぉぉ　神だ
ありがとうございます。

894 ：デフォルトの名無しさん：04/03/05 16:23

だ、だれかGetGlyphOutlineのフォーマットが
GGO_GRAY4_BITMAPを指定しているサンプル
をお持ちの方はおりませぬか…

895 ：878：04/03/05 17:22

>>879
一日たってしまいましたが･･････
つまり、マウスの操作を擬似的に再現するにはどうすればいいのでしょう？
カーソルを(500,500)のとこに持ってく、みたいな。

896 ：デフォルトの名無しさん：04/03/05 17:34

>879
SendMessageかmouse_eventでだいたい再現できると思う。

897 ：デフォルトの名無しさん：04/03/05 19:03

ビットマップにドットを打つ場合、
一番高速に処理できるものってどれなんでしょうか
ScanLine？　それともAPIから？

898 ：デフォルトの名無しさん：04/03/05 19:07

レジストリから REG_BINARY を読み込んで
文字列にして表示する方法はどないすればよかとですか？

ReadBinaryData や
APIの RegQueryValueEx を使ってもどうにもうまいこといかんのです。

899 ：デフォルトの名無しさん：04/03/05 19:20

バイナリデータを文字列にして表示する方法は知ってるの？
それともレジストリから取るのができないの？

900 ：デフォルトの名無しさん：04/03/05 19:21

>>897
Scanline

901 ：デフォルトの名無しさん：04/03/05 22:46

誘導されたので、こちらで質問よろしいでしょうか。
バージョン６のパーソナル使ってます。
MP3を鳴らそうとして、コンポーネント、ActiveXからWindowsMediaPlayerを追加しました。
ここで、繰り返し再生させたいのですが、WMPの設定で連続再生のボタンにチェックをいれても
１回しかならずに止まってしまいます。

どのようにすれば繰り返し再生できるのでしょうか。

なお、通常のTMediaPlayerを使用すると富士通のパソコンだと動くのですが、
vaioだと鳴らなかったりしたんで、WMPをインストールしました。

902 ：デフォルトの名無しさん：04/03/05 23:45

D6 Proで組んだプログラムなのですが、
Keybd_eventでキーの模擬をしているのですが、Win2000では何の問題も無いのに
XPではたくさんエラーが出てしまいます。
XPをクラシック表示にしても同じです。

この症状の回避策ってご存じ無いでしょうか？
他のスレが良ければ誘導してください。

903 ：デフォルトの名無しさん：04/03/06 00:46

とりあえず、「エラーが出ます」って場合は
そのエラーを書くのが（略）

904 ：885：04/03/06 00:58

>>889
そのとおりでした。小さいファイルでやったらうまくいったYO

>>890
ムリ

905 ：902：04/03/06 10:01

>>903
keybd_eventを使って１００回ぐらいキーを入力させているのですが、
Win2000マシンではなんの問題も無いのに、XPマシンだと模擬したキーが抜けるとか、
全くキーコードが送出されないときがあるんですよ。

906 ：デフォルトの名無しさん：04/03/06 11:35

NT系のOS は何故かキーをロストする妙な現象が昔からあったからね。
（キーボード端子から10mS以内に２つのキーを送ると２つめが無視される）
とりあえず時間を置いてみたら？

907 ：デフォルトの名無しさん：04/03/06 14:14

keybd_event は物理的なキー押し下げをエミュレートしているわけではないから
関係ないんじゃないかな？
>10mS以内に２つのキーを...
ってのも、単にキーボードが壊れているかドライバがタコか... 906 の思い込みだと思う。
どこかにこの件について公開された資料ある？

908 ：デフォルトの名無しさん：04/03/06 16:33

>>906
釣れますか？

909 ：906：04/03/06 17:14

釣りではないし、マジな話だよ。
PS2キーボード端子用バーコードリーダのソフト作ってたからね。
ドライバがタコなのか、OSがロスとするのかは判らなかったけどな。

910 ：デフォルトの名無しさん：04/03/06 17:32

なるほど。キーボード入力をキーボード以外の用途に使う。って話だね？

905 さんは、keybd_event API に関して、MSDN をよく読むこと。
現在の WIndows では、非推奨 API になっている。sendinput か何か代替 API が
あるのでそれを確認。
たぶん、テキストサービスあたりの問題ではないかなと思う。

911 ：898：04/03/06 18:35

>899
すいませんでした、自己解決しそうな雰囲気です。

一応参考URL貼っときます、お騒がせしました。
ttp://www.swissdelphicenter.ch/en/showcode.php?id=1431

912 ：905：04/03/06 20:04

皆さんレスありがとう。

９１０殿の書いた代わりのＡＰＩに非常に興味があるのですが、
それはどのようなＡＰＩでしょうか？

解決策が分からないので、今日秋葉を徘徊した時にＷｉｎ２０００の
ライセンスを探し回ってた・・・
ＡＰＩが分からなかったらＯＳをVersion Downするしかないのかな？鬱

913 ：デフォルトの名無しさん：04/03/06 20:51

ListViewをvsReportで表示しているとき、キャプションが表示しきれないと
ぴこっとキャプション全体が表示されるのを止めたい。
だけど、カーソルを合わせたときにはInfoTipを表示したい。
これを実現する方法があったら教えてください。

914 ：デフォルトの名無しさん：04/03/06 23:00

ん？カラム幅って表示されるもんの長さによって自動的に変わったっけ？
デフォルトで　...　になったと思うんだが
カーソル合わせれば内容出るし

質問読み間違えてるのかな

915 ：913：04/03/06 23:35

>>914
びろーんと横一本になるのが気に食わないのですよ。
OnInfoTipでテキスト突っ込めばInfoTipで改行表示できるので
カーソル合わせのときのキャプション自動表示だけを切れないかな、と。

916 ：デフォルトの名無しさん：04/03/07 08:40

ショートカットで使うアイコンと
フォームの左上に出てくるアイコンを
違うのにするのはどうやるの？

917 ：デフォルトの名無しさん：04/03/07 08:53

ショートカット？　ショートカットなら IShellLink::SetIconLocation　で変更可能

32x32と16x16でデザインを変えたらいいという話？

918 ：デフォルトの名無しさん：04/03/07 08:58

901なのですが、まだできません。
どなたか教えていただけないでしょうか。

919 ：デフォルトの名無しさん：04/03/07 09:00

誘導した人が書いてくれるんじゃないの？

920 ：デフォルトの名無しさん：04/03/07 09:04

>>919
http://pc2.2ch.net/test/read.cgi/tech/1076610073/102-
こちらから誘導されたのですが、誘導した方でなくても教えてくだされば嬉しいです。
なにとぞお願いします。

921 ：916：04/03/07 09:38

わかりにくい質問ですみません。
プログラムを起動させるときにクリックするアイコンと、
フォームの左上に出てくる絵を違うものにしたいという
質問なんです。

922 ：デフォルトの名無しさん：04/03/07 11:40

>>921
プロジェクトオプションのアプリケーションのアイコンと、
フォームのIconプロパティをそれぞれせってー

923 ：デフォルトの名無しさん：04/03/07 13:51

今はAccessを使ってます。これからDelphiを習得したいのですが、
デスクトップ用データベースを選ぶとするなら何が良いのでしょうか？
DbaseとかParadoxとかバージョンも複数有りますが何が違うのでしょうか？

924 ：デフォルトの名無しさん：04/03/07 13:59

>>923
何を選んでも、Delphi側のコードは殆ど直さなくても良いので、あんまり考えなくていいと思うけど

目的は何ですか？

925 ：923：04/03/07 14:54

>>924
１万から１０万件程度のテーブルを検索更新する程度で、作成したプログラムと
ファイルを配布したいのです。Accessだとバージョンが複数あり検証が難しし、
配布先にAccessが無い事もあるのでDelphiで作り直そうと考えています。

926 ：デフォルトの名無しさん：04/03/07 15:22

>>925
他にDLL類の配布が不要なTClientDataSetをお勧めしようと思ったけど、10万件ですか
TClientDataSetは全てメモリ上に展開されるのでレコードサイズによっては古いパソコンだと厳しいかもしれません。

とりあえず、レコードサイズが小さいなら、見てみては？
http://www.borland.co.jp/midas/papers/multi_tier/multi_tier7.html

927 ：デフォルトの名無しさん：04/03/07 16:39

>>925
せっかくAccessの経験があるんだから、ADO使えばいいじゃん。
会社で使ってんならProfessional以上でしょ？ADOコンポーネント付いてるんだから。

配布先クライアントPCが2000以降なら標準でADO付いてるからAccessいらないし、
ついてないなら、ADOは無償で手に入る。
http://www.microsoft.com/japan/msdn/data/default.asp

928 ：デフォルトの名無しさん：04/03/07 19:08

プログラムが、スタートアップから起動したのか
どうかを知る方法を、教えて下さい。

929 ：デフォルトの名無しさん：04/03/07 19:14

>>928
ホントに難しい問題だね。
まずスタートアップにショートカットがある事、
そして、GetTickCountが一定値以下である事（ただし49.7日で一周する）
くらいかなあ

930 ：デフォルトの名無しさん：04/03/07 19:34

>>928
スタートアップのショートカットにそれとわかるような引数を指定すればいい。

931 ：デフォルトの名無しさん：04/03/07 20:02

ファイルの名前を変えてコピーしたいのですが、

var
Name: String;
FileTo,FileFrom: TFileStream;

begin
(中略)
FileFrom := TFileStream.Create(FilePlaceLE.Text , fmOpenRead + fmShareDenyWrite);
FileTo := TFileStream.Create(Name , fmCreate + fmShareExclusive);
Try
FileTo.Write(FileFrom,FileFrom.Size)
Finally
FileFrom.Free;
FileTo.Free;
end;

とやると、FileTo := TFileStream.Createの行で「定数式が範囲を越えました」とエラーが出ます。
解決策をお教え願いませんでしょうか。

932 ：デフォルトの名無しさん：04/03/07 20:08

>>931
fmCreate or fmShareExclusive

933 ：デフォルトの名無しさん：04/03/07 20:17

Setforegroundwindowで目的のWindowを表に出したいのですが、
Windows2000だときちんと動作するのにXPだと、該当のソフトのタスクバーが
茶色に点滅するだけで表に出てこないことがあります。

この症状を回避する方法があったら教えてください。

934 ：デフォルトの名無しさん：04/03/07 20:22

>>933
http://techtips.belution.com/ja/vc/0012/

935 ：931：04/03/07 21:01

>>932
ありがとうございました。

936 ：デフォルトの名無しさん：04/03/07 21:22

>>934
素早い的確なレスありがとうございます。
Cの使い方が分からないので意味半分しか理解していないのですが、

nForegroundID = GetWindowThreadProcessId(GetForegroundWindow(), NULL);
nTargetID = GetWindowThreadProcessId(hWnd, NULL );
AttachThreadInput(nTargetID, nForegroundID, TRUE ); // TRUE で結び付け
SystemParametersInfo( SPI_GETFOREGROUNDLOCKTIMEOUT,0,&sp_time,0);
SystemParametersInfo( SPI_SETFOREGROUNDLOCKTIMEOUT,0,(LPVOID)0,0);
SetForegroundWindow(hWnd);
SystemParametersInfo( SPI_SETFOREGROUNDLOCKTIMEOUT,0,sp_time,0);
AttachThreadInput(nTargetID, nForegroundID, FALSE ); // FALSE で切り離し

この中のどの部分にFindwindowで見つけた目的のWindowのHandleを入れれば
良いのでしょうか？

937 ：デフォルトの名無しさん：04/03/07 21:56

hWndでしょう

938 ：デフォルトの名無しさん：04/03/07 22:46

>>937
今試しているのですがなかなか、うまくいきません。
もうちょっとやってみます。

939 ：933=936：04/03/07 23:09

やっているのですが、どうしてもエラーが回避できません。
nForegroundID := GetWindowThreadProcessId(GetForegroundWindow(), NULL);
未定義の識別子NULLとなってしまいます。

nTargetID := GetWindowThreadProcessId(hWnd, NULL );
指定された引数で呼び出すことのできるオーバーロード関数'GetWindowThreadProcessId'が定義されていません

AttachThreadInput(nTargetID, nForegroundID, TRUE ); // TRUE で結び付け
SystemParametersInfo( SPI_GETFOREGROUNDLOCKTIMEOUT,0,&sp_time,0);
不正な文字が入力ファイルにあります:'&'

SystemParametersInfo( SPI_SETFOREGROUNDLOCKTIMEOUT,0,(LPVOID)0,0);
未定義の識別子　LPVOID

SetForegroundWindow(Wnd);
SystemParametersInfo( SPI_SETFOREGROUNDLOCKTIMEOUT,0,sp_time,0);
'Cardinal'と'Pointer'には互換性がありません

となってしまいます。
たぶんCのソースをDelphiに置き換えられていないのが原因だと思うのですが、
どのようにすれば良いのでしょうか？

940 ：デフォルトの名無しさん：04/03/07 23:22

NULL → nil
&sp_time → @sp_time (元記事の最後のsp_timeは&sp_timeの間違い)
(LPVOID)0 → nil

941 ：デフォルトの名無しさん：04/03/07 23:31

ありがとうございます
できました

942 ：923：04/03/07 23:36

>>925
ありがとうございます。
もしBDEを利用するのであればどれが良いのでしょうか？レコード件数やデータ容量
の制限等でDbaseとかParadoxの資料が探せませんでした。

>>927
ADOを利用してMDBを使う、と言う事でしょうか？
Access2000のMDBは更新していくとファイル自体が増加し２Ｇの所でエラーが
発生してしまいす。そこでMDB以外を検討してます。DbaseとかParadoxについては
知識が無いのですがこれらのファイルでも２Ｇ位が上限でしょうかね？

943 ：933=936：04/03/07 23:41

偽者まで出てきた。俺って人気者？

>>940
教えていただいた方法で出来ました。ありがとうございました。

>>941
お前ってエスパー？

944 ：デフォルトの名無しさん：04/03/08 00:13

単純に「質問者はトリップ付けろ」って話。

945 ：デフォルトの名無しさん：04/03/08 00:14

>>942
Accessの最適化と同じことすればサイズ減る。
http://homepage2.nifty.com/inform/vbdb/jro_compactdb.htm

DbaseやParadoxはもう過去のデータベースだからサポートも期待できないし、
あえて今選ぶデータベースじゃない。BDEもサポートを期待できない。

もしデータベースサーバを1台立てられるのなら（データベースを複数クライアントで共有するなら）
無料のMSDE2000を使うといいよ。これとADOを組み合わせればクライアントサーバー型のデータベースを構築できる。
ただし、2GBのサイズ制限があるけどね（圧縮すれば大丈夫）。
http://www.microsoft.com/japan/sql/msde/
http://support.microsoft.com/default.aspx?scid=kb;ja;321518

それでもBDE使いたいのなら、古いDelphiの本を買ってきてください。
確か「Delphiデータベースプログラミング」みたいな本があった。