くだすれDelphi(超初心者向け） Part3
レス数が1000を超えています。これ以上書き込みはできません。
0001毛の生えたフサギコ
NGNG他のスレッドでは書き込めない超低レベル、もしくは質問者自身何が何だが
分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、お礼はDelhiの布教と初心者の
救済をお願いします。
0002デフォルトの名無しさん
NGNG0003毛の生えたフサギコ
NGNGhttp://pc2.2ch.net/tech/kako/1051/10518/1051882835.html
くだすれDelphi(超初心者向け） Part2
http://pc2.2ch.net/test/read.cgi/tech/1053757982/
0004毛の生えたフサギコ
NGNG0005毛の生えたフサギコ
NGNGhttp://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%A5%EA%A5%F3%A5%AF%5D%5D
0006毛の生えたフサギコ
NGNG使い切ってから利用しましょう。
0007好い加減頭悪いの治して欲しい
NGNG0008デフォルトの名無しさん
NGNG１つなおってるじゃないか（ﾜﾗ
0009毛の生えたフサギコ
NGNG二つ目があったのか。QualityCentral 経由でバグ登録してください。
0010デフォルトの名無しさん
NGNGでるひ ってなんですか？
0011デフォルトの名無しさん
NGNG粘着うざい
0012デフォルトの名無しさん
NGNG粘着じゃないんですが？
0013デフォルトの名無しさん
NGNG∧,,∧ ／
ミ,,ﾟДﾟ彡＜ とっても、いいと思われまふ
'ﾐ つ旦)~~ ＼＿＿＿＿＿＿＿＿＿＿＿
⊂ミ",, ,,ﾐ つ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538
0014デフォルトの名無しさん
NGNGに持ってくることは可能でしょうか？？
0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNGと
[ｊふぃjfdi]
のような文字列があったとして
２バイト文字があるか高速に確認できるプログラムを教えてください。
0017デフォルトの名無しさん
NGNGNMHTTPコンポーネントが見つかりません。
どこにありますでしょうか？
0018デフォルトの名無しさん
NGNGDelhiという文字列を削除したいです。
どうしたらいいですか？
0019デフォルトの名無しさん
NGNGDungeons & Dragons 懐かすい
ところでFILELISTBOXってどんな魔法？
002014
NGNG0021デフォルトの名無しさん
NGNGStringReplace
s := StringReplace(s, 'Delphi', '', [rfReplaceAll]);
0023デフォルトの名無しさん
NGNG少なくともDel7のPer版, Pro版には付属してないらしい
ttp://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/article/071/071174.html
0024デフォルトの名無しさん
NGNGByteType関数使ってください。
for i := 1 to Length(S) do
begin
if ByteType(S[i]) = mbLeadByte then Result := True;
end;
0025デフォルトの名無しさん
NGNGif s[i] in LeadBytes then result := True;
の方がずっとはえー
0026デフォルトの名無しさん
NGNGFindNextを使うしか方法はないのん？
フォルダ数少なくてもファイル数が多いディレクトリ直下を調べるとき遅くてｲﾔｿ(;´Д`)
0027デフォルトの名無しさん
NGNGシェルネームスペースを使う。
0029デフォルトの名無しさん
NGNG0030デフォルトの名無しさん
NGNGうちだと2000個くらいファイルがあっても0.2秒くらいで開けるがな。
0031デフォルトの名無しさん
NGNG速度も遅いしあまり薦めないけど
Function IsContainDBCS(const s : string )
begin
result := length(s) <> length(WideString(s));
end;
0032のちもち
NGNGエクスプローラライクに表示させたいのですが、
（左にTreeView、右にListViewで、ファイル名、サイズ、
更新日時といったカンジで）
そのデータの保持方法がいまいち思い浮かびません。
各フォルダごとにその直下のファイルリストを保持するのは
現実的ではないだろうし…。
ちなみにツリー表示するだけのものなら、もうできあがっているので、
あとはファイルサイズも見られるようになったらいいかなと思って、
今はツリー表示しかできないところを、
エクスプローラライクにできないかなあ、と画策しているのです。
0033デフォルトの名無しさん
NGNG0034コピペしようぜ！！
NGNGhttp://www.memorize.ne.jp/diary/06/93147/
早稲田大レイプ魔晒し上げ画像
http://tmp.2chan.net/img2/src/1056025506230.jpg
http://oosaka52.hp.infoseek.co.jp/cgi-bin/img/586.jpg
早稲田大レイプ魔晒し上げフラッシュ
http://cstrike-inr.mine.nu/SuperFree/waseda.swf
0035デフォルトの名無しさん
NGNG>>25改。これが出た中では一番速い。
Result := False;
for i := 1 to Length(s) do
if s[i] in LeadBytes then begin result := True; break; end;
ByteTypesは前後の文字も調べてるので計算量はこの方法の数倍だし、
(LeadBytesは単に全角の一バイト目かどうかを調べるのに対し、ByteTypesの方が情報量が多い)
WideStringにキャストは、すべての文字をコンバートする上新たなメモリ割り当ても行うので
悪いけど単に調べるだけの用途ならちょっと論外。
0036デフォルトの名無しさん
NGNG0037デフォルトの名無しさん
NGNGLMD製になってしまいました。
日本語が通らないので元に戻したいのですがどうしたらいいでしょうか。
使いたいコンポーネントがあるので完全にアンインストールしないでエディタだけ元に戻す方法が有れば教えてください。
0038デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?q=CreateMutex+Delphi&lr=lang_ja
>>36
LMDなんとか知らないけどソースがあるなら
RegisterPropertyEditor を探して 修正したらどう？
0042デフォルトの名無しさん
NGNGあるクラスTAのリストを持つTBというクラスがあったとして
TAに変化があった場合TBでもそのことを知りたいんですが
下のようにはできませんよね？
Type
TA = class(TObject)
Owner: TB;
a: Integer;
end;
TB = class(TObject)
List: TObjectList;
modified: Boolean;
end;
これはTA宣言時にTBが何だかわからないのでダメみたいですが
これの解決方法にTAにTObjectとしてTBを持たせてキャストしてアクセスするのと
TA.aへのアクセスをTBからしかできなくする以外に方法はありますか？
それとも根本的な設計ミスですか・・・？
0043デフォルトの名無しさん
NGNG0044デフォルトの名無しさん
NGNG首吊ってきます・・・
0045デフォルトの名無しさん
NGNGソフトを起動するにはどうすれば良いですか？
ShellExecute だと自分のマシンでネットワーク上のソフトを起動する事はできますが、
別のマシン（Aとします）上のソフトをA上で起動するにはどうすれば良いでしょうか？
OSはWinXP HomeEditionです。
0046デフォルトの名無しさん
NGNGもしそれが何の設定もなく出来るとなると、ちょっと困った事になりますよね？
・Aのマシンでtelnetd を走らせておくとか
・Aのマシンで バッチファイルがあればバッチファイルを一度実行して実行後削除するというバッチを無限ループで作るとか
0048デフォルトの名無しさん
NGNG0049デフォルトの名無しさん
NGNG関数を引数として関数に渡すにはどのようにしたらよいでしょうか。
0050直リン
NGNG0051_
NGNG0052デフォルトの名無しさん
NGNG関数ポインタ方を先に定義します。
例えば type TMyFunc = function (x:integer):Integer;
で TMyFunc型の引数で関数を定義すればよろしい
0053デフォルトの名無しさん
NGNG0054デフォルトの名無しさん
NGNGIndyならネット関連のプロトコルパッケージが無料で使える
ttp://www.nevrona.com/Indy/
日本語ヘルプ
ttp://www.borland.co.jp/delphi/del7docup.html
0055デフォルトの名無しさん
NGNG必要なオブジェクトを用意して、画面に配置して、それらの準備ができたらMMTimerを
スタートさせてゲーム開始！・・・のはずなんですが、
onCreateの最後でMMTimer.startをやると希にアクセス違反を起こしてしまいます。
もしかして、オブジェクトの準備ができていないのにタイマーをスタートさせて
それらをいじろうとしたから･･･？
オブジェクトを作る命令がいくつかあって、その一番最後でタイマーを動かしてるんですが
こういうことってあるんでしょうか？
0056デフォルトの名無しさん
NGNGあります
私もそれで泣きました
解決方法としてはOnShowで
if not Timer.Enable then Timer.Start
みたいにやるか
独自のWindowsメッセージを定義して
OｎCreateの最後で投げるなどがあります
（メッセージループに入った＝初期化処理は全て終わった）
0057デフォルトの名無しさん
NGNGこれは、もしかして "恋" なのでしょうか？
誰か、経験者の方は、おりませんでしょうか？
0058デフォルトの名無しさん
NGNGこのスレはネタスレではありません。
ここ逝って聞いてください。そして二度と帰ってこないでください。
http://academy2.2ch.net/min/
0060デフォルトの名無しさん
NGNGうわ、助かります｡･ﾟ･(ﾉД`)･ﾟ･｡
MMTimerはEnableプロパティは無いようなので、メッセージですか･･･。
どう違うのか仕組みがわかってませんが、、精進します(´･ω･`)
0061デフォルトの名無しさん
NGNGありがとうございます。
ケースごとに不特定の関数を渡すようにするには
どうしたらよいですか？聞いてばかりですいません・・
0062デフォルトの名無しさん
NGNGpointer 型にキャスト。
0063デフォルトの名無しさん
NGNGケースごとって case 文の事？ 詳しく書かないと判らんよ
0064デフォルトの名無しさん
NGNGわからんなら、レスつけるなよ。52 の元の 49 を読みなさい。
ケースが Case 文かどうか関係ないでしょ？強い型付言語のひとつの Pascal で、
任意の関数を引数に渡したい。って話なんだから、pointer 型使うしかあるまい。
pointer 型は、C/C++ でいうところの void * で、任意のポインタを表現できます。
その代わりのっぺらぼう。関数としての情報すら失っていますから、実際に元の関数を
呼び出す場合には、再度 52 に有るような関数型名定義を行い、それにキャストする形と
なる。
0065デフォルトの名無しさん
NGNGその設計には明らかに無理があるでしょ？
006661
NGNGその関数は幾つかの関数から呼び出されるのですが、
判定条件がTrueの場合、引数で渡された任意の関数にジャンプ
させたいというものです。
素直にcase文を使わないのは、関数を指定するのを呼び出し元のみ
に収めたいと思っているからです。
0067デフォルトの名無しさん
NGNGfunction Hoge( x,y:Integer ; func:TFunction) : boolean ;
begin
・・・なんか判定があって・・・
if Result
and Assigned(func) then func(引数があれば);
end;
って事？ なんだか、構造化されてない設計だね
こういう場合、条件を判定する汎用的関数 ではなく、汎用的クラスを作った方が色々と簡易になると思うけど？
0068デフォルトの名無しさん
NGNG0069デフォルトの名無しさん
NGNG0071ありがと
NGNG内容調べてから使います
0072デフォルトの名無しさん
NGNGForm1 から Form2 を開いたとき、Form2 で Form1 上の内容を
参照したいのですが、どうしたら良いのでしょう？
Sender でそれらしいことができるのではないかと思うのですが、
イマイチ分かりません。
0073デフォルトの名無しさん
NGNG007472
NGNGも、もう少し細かく教えてもらえれば助かるのですが……。
例えば、Form2 から Form1 上のラベルの Caption を参照する場合には
どういうコードになるのでしょう？
0075デフォルトの名無しさん
NGNGuses Unit1;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Label1.Caption := ' ♥ ';
end;
007672
NGNGついでにもうひとつ質問なのですが、
Torm2 が、Torm1 と Torm3 のどちらかから Create, ShowModal される可能性が
あるとして、Form2 内でどちらのフォームから表示されたかを識別するにはどうしたら
良いでしょう？
007772
NGNG0078デフォルトの名無しさん
NGNG可能性がって、それは自分がコーデングするとは限らないって意味？
自分がプログラムを作るのなら、 FOpener:TForm; メンバか プロパティを用意して
それに代入する事にしたらいいと思うよ。
他人が使うなら ShowModal を殺しておいて、
procedure MyShowModal(Sender:TForm);
みたいな手続きを用意してこれを使ってと書いておいたら？
0079デフォルトの名無しさん
NGNG0080デフォルトの名無しさん
NGNGCreateの引数に作成者(Form1なりForm3なり)を入れて、Ownerで判断しれ
0081デフォルトの名無しさん
NGNGたとえば、４＊４の行列
1 2 3 4
2 3 4 5
3 4 5 6
4 5 6 7
があるとき、任意の行を取り出してそれぞれの
要素の合計を４つの変数に求めるプログラムを
作りたいのです。
（上の場合なら最初の行と３番目の行を取り出
し４つの変数にそれぞれ4,6,8,10という結果を
代入する）
しかし、この行列を配列にひとつずつ代入する
以外のやり方で定義したいのです（それという
のも、本番のプログラムは対象が２６＊８の行
列になるからです）。
よろしくお願いします。
0083デフォルトの名無しさん
NGNGその定数というのは
１）定数であって計算でも求まるもの
２）毎回入力または変更するもの
どちら？
１）なら 配列定数を吐き出すプログラムを作る。
２）なら、カンマ区切りのテキストファイルにして入力させればいい
0084A
NGNGあ、定数か…。
それなら、
const A: array[0..3, 0..3] of Integer
= ((1, 2, 3, 4), (2 ,3, 4, 5), (3, 4, 5, 6), (4, 5, 6, 7));
でいいはず。
詳しくは、ヘルプで"配列型定数"を見てみて。
0085デフォルトの名無しさん
NGNG当方、まだまだ初心者の域を出ずクラスを作ってどうこうという方法は
いまいちよくわかりません。
今回は>>84の方法でやってみようと思います。
へルプの配列型定数のところは読んではみたのですが、例として提示さ
れた方法がよくわからなかったもので･･････｡
ありがとうございました。
0086デフォルトの名無しさん
NGNG0087デフォルトの名無しさん
NGNG0088デフォルトの名無しさん
NGNG0089デフォルトの名無しさん
NGNG1.ファイル(F) 新規作成(N) ユニット(U)
2.
unit Unit2;
interface
procedure Hoge; // 宣言
implementation
procedure Hoge; //
begin
処理
end;
end.
3.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2; // Unit2追加
中略
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Hoge; // 呼び出し
end;
end.
0091デフォルトの名無しさん
NGNGありがとうございます。
Delphi始めたばかりなもので、もっと勉強してみます。
0092デフォルトの名無しさん
NGNGCompareTextとSameTextだとどっちのほうが効率的なんでしょうか？
いろんなサンプルプログラムではよくCompareTextが使われてるみたいですけど
Compareしたあとにまた=0で判定する分無駄があるように見えます
Del6Personalなので中で何やってるのか全然わからないので
頓珍漢な質問かもしれませんがご存知の方お願いします・・・
0093デフォルトの名無しさん
NGNGたいていボトルネックになっていないことがわかるから(藁
0094デフォルトの名無しさん
NGNGSameText内部でCompareTextが呼ばれる。
ちなみに
var a,b:string; なら
if a=b then ・・・ でいいと思うが？ ただし負荷はほぼ同じだが
0095デフォルトの名無しさん
NGNG>>94
関係演算子だとCaseSensitiveじゃないですか・・・？
も１っこ質問なんですが
ビットフラグみたいに集合型を扱う場合
特定ビットの反転にあたる演算子はあるんですか？
a := a xor [someflag]; みたいな（これじゃエラーでた・・・）
ヘルプを見る限りは和集合-積集合しか方法が無いみたいですが
これこそ可読性が極端に下がるので使いたくない・・・
0096デフォルトの名無しさん
NGNGプロパティに使うと便利だからって理由で、そして反転したいなら if 文で書いた方が判り易くて良いでしょう
if someflag in a then Exclude(a else Include(a, someflag ) みたいにさ
0097デフォルトの名無しさん
NGNG遅くスクロールした場合と、早くスクロールした場合で処理が分かれてしまいます。
具体的に書くと、遅くスクロールすると選択している項目が下にずれていき、
早くスクロールするとスクロールバーが動きます。
これを両方ともスクロールバーを動かすようにする方法はありませんか？
0098デフォルトの名無しさん
NGNGすみません
ビットフラグはビットフラグでやれってことですね・・・
0099Delphi 6 Personal
NGNG0100デフォルトの名無しさん
NGNGhttp://endou.kir.jp/yuminet/link.html
0101デフォルトの名無しさん
NGNG0102デフォルトの名無しさん
NGNG0103デフォルトの名無しさん
NGNGやっぱりというか５つほど開放忘れがあったらしい
だがしかし、自分でやってる全てのCreate/GetMemを
順番にコメントアウトしてみてもまったく無くならない
そこで、リークしてるメモリの中身は分かっているので
コレをもとにデバッガか何かで、実行中に
同じ内容のメモリ領域を探し出すことって出来ますか？
Personalなんで微妙ですが、やっぱ無理かな
0104103
NGNG何度起動しても毎回同じ内容です
（しかも同じのが３つもある）
0105103
NGNGチェッカのバグかVCLの仕様だった
最初に空フォームで検証してみなかった俺の馬鹿・・・
0106デフォルトの名無しさん
NGNGだっけ？
VisualStudioのアイコンエディタだと透明色ってのがあって、それで塗った部分が透明になるけど。
たしかDelphiについてきたイメージエディタ（のアイコン作成）もそんな感じだったような。
0107デフォルトの名無しさん
NGNGせめて Delphi のバージョンを。
>>105
自己解決したのか。
D6 では、ひとつのプロセスで三つのメモリブロックを開放しないという「振る舞い」を持つ。
メモリリークはバグの原因の一つだけど、メモリ開放を忘れると必ずバグが出るわけでもない。
0108デフォルトの名無しさん
NGNG解放した後コールバックが飛んできそうな時まあしょうがないと自分でも思うけど
仕様追加でどんどん作業バッファが増えていつどの順で解放させるかトレースする手間取れなくてそのままだったりは
やっぱりイカンな・・・
0109デフォルトの名無しさん
NGNGそれは設計ミスの気がするが。（もしできるなら）どこかで作り直したほうがいいね。
0110デフォルトの名無しさん
NGNGForm2が表示される（Form1は完全に隠れる）ソフトで
Alt+F4を押したり、タスクバーの「デスクトップの表示」を押して、
その後ソフトを表示させるとForm1が出るのを避けるには
どうすれば良いでしょうか？
Form1でタイマーを動かしているのでShowModalは使えません。
宜しくお願いします。
0111110
NGNG意味不明でした。
わすれて下さい（＾＾；
0112デフォルトの名無しさん
NGNGForm1とForm2はそれぞれ
OnActiveで
WindowState := wsMaximized;
を実行して、全画面表示にしています。
Form2は選択可能なフォームです。
Form1のボタンをクリックすると
form2 := TForm2.Create(self);
form2.Show;
を実行して
Form2が表示されるプログラムで
タスクバーの「デスクトップの表示」を押して、デスクトップを表示した後
タスクバーから選んで再度プログラムを表示させると
Form2が消えてForm1が表示されてしまいます。
どうすればForm2が表示された状態にする事が出来ますか？
ShowModalを使わない方法をお教え下さい。
宜しくお願いします。
0113デフォルトの名無しさん
NGNGForm1はメインフォームだから、先に最大化されてForm2がアクテブになれないからだから、
Form1のボタンをクリックした時に
form2.Show;
WindowState := wsMinimized;
とか最大化を解除しておいたら？
それから、ボタンでフォームを作成する時は２度目が作成出来ないようにしなくてもいいの？
いちおうForm1の子供で管理はされてるんだろうけど
0114デフォルトの名無しさん
NGNG0115112
NGNGありがとうございます。
解決しました。
Form1のボタンクリックで
if form2 = nil then begin
form2 := TForm2.Create(self);
end;
form2.Show;
WindowState := wsMinimized;
としてみました。
0116デフォルトの名無しさん
NGNGこれは、TIBDatabaseに一個用意するものでしょうか？
それとも使いまわして良いですか？
0117デフォルトの名無しさん
NGNGByte 型に強制キャストすることはできても、ほとんどの情報は消えてしまうだろうね。
集合型の個々の要素は最大 256 種類なので、Byte 型に格納することも可能でしょう。
0118デフォルトの名無しさん
NGNGひとつのデータベースに対して複数のトランザクションをかける必要があるときは、
当然複数の TIBTransaction が必要。管理できるなら一つでよい。
もちろん、複数トランザクションを同時に行う場合には必要なだけ用意しないと。
0119デフォルトの名無しさん
NGNGおすすめの書籍またはHPを教えて下さい。
0120デフォルトの名無しさん
NGNG要素数8個までの集合型のサイズは1バイトなので問題なくBYTE型にキャスト出来る。
要素数16個ならWORD、
32個までならDWORDに対応。
0121練習問題でヘルプ
NGNG↑このページの【応用課題 7-3-B】をやろうと頑張ってるんですが、
どうしても成功しません。 どこが間違っているのかお分かりに
なる方がいらっしゃいましたらご教授お願い致します。m(__;)m
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer; //for文のカウント用
x:integer; //数式上のx
y:integer; //数式上のy
temp:integer; //xの値を一時保管するための変数。
begin
x := 1; //初期値
y := 0; //初期値
for i := 1 to 1000 do //繰り返しここから。
begin
//描画時にx、yの値を6倍し、中心のズレを修正し、赤色で描画。
Image1.Canvas.Pixels[6*x+Round(Image1.width/2)
,6*y+Round(Image1.Height/2)] := $000000FF;
//次のx,yを求める。
temp := x; //xの値を一時的に保管。
x := Round(y-0.97*x+5/(1+x*x)-5);
y := Round(-0.995*temp); //tempにはxの値が入っている。
end; //for文ここまで。
end;
//このコードで実行すると、ループの9回目に初期値の(1,0)に戻ってしまいます。
0122デフォルトの名無しさん
NGNG練習問題で Help 出していたら、いつまでたっても上達しないよ。
あなたのコードは悪くないんだけど、設問を理解し損なっているだけ。
コードを書く前に、コードを理解しなさい。紙に数字を書いていってごらん。
ちょっとした勘違いが、間違った結果を出していることに気づくよ。
0123122
NGNG描画コードも関係なし。誤差を考え６倍云々は忘れましょう。
正しい X,Y の組を、紙の上で数回分出して、
デバッガで追ってみましょう。何かに気づく。
気づかなかったら、プログラマには向かないかな？
0124デフォルトの名無しさん
NGNGなのでｶﾞﾝｶﾞﾚ＞121
0125デフォルトの名無しさん
NGNGたとえばCドライブにWindowsのフォルダがある場合は
C:\を取得したいという事です。
宜しくお願いします。
0126デフォルトの名無しさん
NGNG検索キー
GetSystemDirectory
ExtractFileDrive ProcessPath
0127デフォルトの名無しさん
NGNG0128デフォルトの名無しさん
NGNGカレントディレクトリが、ネットワーク上、かつドライブにマップしていない場合も
あるので気をつけてね。
0129デフォルトの名無しさん
NGNGサンクス
0130デフォルトの名無しさん
NGNGＲｏｗが１行しか無いように見せたいですが、
DrawCellのoverrideだけでは線が残ってしまいます。
どっかに良いコンポ落ちてないかなー。
0131デフォルトの名無しさん
NGNGそれはStringGridのことだよね？
ヘルプでFixedRowsプロパティ読んで。
0132デフォルトの名無しさん
NGNG0133
NGNGA C
B perl
C Delphi Java
D VB
難易度的にはこんなもんかな。
学習法はVB,Delphi,Pelを並行して勉強後Cを勉強
その後JavaとC++を勉強。
0134デフォルトの名無しさん
NGNG俺がプログラミングを始めた頃は
アルゴリズムに関心があるだけで
FORTRANだろうとBASICだろうとマシン語だろうと
言語自体を習得することなんて問題にもしてなかったな
「C++って何かおかしいんじゃない？」
と思ってみたりもする
0135デフォルトの名無しさん
NGNG俺がプログラミングを始めた頃は
ベーマガ（略）
0136デフォルトの名無しさん
NGNG処理系の規模が大きく複雑なので学習しづらい。とかは有るかもね。
133 のリストにあるのは本質的に同等の記述能力を持つプログラミング言語だし。
0137Delphi 6 Personal
NGNG0138三十路
NGNG0139デフォルトの名無しさん
NGNG0140デフォルトの名無しさん
NGNGOnClickからタイマーのイベントハンドラを呼び出す
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(Sender);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
{タイマーイベント}
end;
0141140
NGNG○FormCreate
0142Delphi 6 Personal
NGNG勉強になりましたありがとうございます。
0143デフォルトの名無しさん
NGNGファイルサイズが大きくなりすぎると、後々のファイルのアップデートが
やりにくいと思うので、何とか分割する方法がないかなぁ、と。
で、MLの
[Delphi:74315] パッケージを使ってプログラムを分割するとき
のツリーを見たんですが、全然分からなくって (；´д⊂ ﾊﾞｶ ﾃﾞ ｽﾐﾏｾﾝ
誰か分かりやすく解説お願いします～。
0144デフォルトの名無しさん
NGNG0145デフォルトの名無しさん
NGNGhttp://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=16#0224.txt
0146デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/tech/kako/1051/10518/1051882835.html
の835が同じ質問
0147デフォルトの名無しさん
NGNG構築していくのでしょうか？
0148デフォルトの名無しさん
NGNG0149デフォルトの名無しさん
NGNG0150ななしへたぐらま ◆XcB18Bks.Y
NGNGWin9x系だとサブディレクトリのファイル数が多くなると
そのファイル情報にアクセスするのが急激に遅くなります．
（検索だけでなく開くのも遅くなるはず）
基本的に一つのフォルダに何百も何千もファイルは置かない方がよいと思います．
>>130
グリッドコンポは固定行のみ，または固定桁のみという風にはできないようですね．
HeaderControlはどうでしょう？
0151デフォルトの名無しさん
NGNG今バージョン6のパーソナル版つかってるのですが、ひとつまとまったものができあがってきたので、
配布のためプロフェッショナル版を買おうかと思ってます。
が、ボーランドのサイトや、ネット通販のページをみたところBorland Delphi 7 Studio Professional
になっています。
6から7Studioに変更するに当たって6で作ったプロジェクトがそのまま使えないということはあるのでしょうか？
また、気をつけたほうがいいことはあるのでしょうか？
どうか宜しくお願いいたします。
0152デフォルトの名無しさん
NGNG0153デフォルトの名無しさん
NGNG可能性としてはあるというレベルなのですね。
大きな変更が必要ではないかと不安だったのです。
ウイルスはひととおりチェックいれてますから。
0154デフォルトの名無しさん
NGNG0156デフォルトの名無しさん
NGNGフルスクラッチで作る場合は、PaintBox を使わないでしょ
フルスクラッチなんだから
0157デフォルトの名無しさん
NGNGアプリケーションを起動したときに、追加した子フォームが表示されないようにするには
どのようにすればよろしいのでしょうか？
新規作成 → MDIアプリケーションで最初からあった子フォームだけは最初は非表示になってます。
どうかよろしく御願いいたします。
0158デフォルトの名無しさん
NGNGhttp://upbbs.s2.x-beat.com/linkvp/linkvp.html
0159デフォルトの名無しさん
NGNGTNMUDPクラスを使っております。
TNMUDPクラスの受信イベントで受信サイズが分かるので
動的にメモリを確保し先頭アドレスをバッファにほおりこんで後で処理したいです
１）どないしたら動的に取得したメモリに受信データ書けますか？
２）動的に取得しているメモリを違うメッソドで解放しても問題ﾅｯｼﾝ？
３）淋病になってﾁｿｺ腫れﾀﾝだけど薬飲んで腫れが引いたらチソコにコブできた。どーしよー？
0160デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=%E3%82%B7%E3%82%B9%E3%83%86%E3%83%A0%E3%83%A1%E3%83%8B%E3%83%A5%E3%83%BC+delphi&lr=lang_ja
0161_
NGNG0162デフォルトの名無しさん
NGNG「パッケージ ($パス$)\dclIndy60.bpl を読み込めません。システムに接続されたデバイスが機能していません。」
と言われてインストールできません。過去ログやgoogle検索してみましたが原因も対処もさっぱりです・・
どなたか対処法ご存知でしたらご教授願います･゜･(ノД｀)･゜･
delphi6personal(update2) + WinME
0163162
NGNGインストールしようとしているindyのバージョンは9.0.14です
0164デフォルトの名無しさん
NGNGttp://www.nevrona.com/Indy/downloads/9_00_03/IndyNet9_00_03.EXE
↑ インストーラーでインストすれば簡単。 でもIndy9.0.3B。
Indy9.0.3Bは2chブラウザのOpneJaneで今でも使われてるバージョンです。
私もこのバージョンを使ってまふ、Indyの最新バージョンを入れようと
思えば入れられるケドね。
でもIndyくらい自力でインスト出来るようにならないと後々ツライかな・・
0165デフォルトの名無しさん
NGNGttp://www.wakhok.ac.jp/~tetsuo/delphi/mokuji.html
0166デフォルトの名無しさん
NGNGプロジェクトファイル(*.dpr)って見たことある？
0167デフォルトの名無しさん
NGNGあああ なるほど 解決しました
ありがとうございました。
0168143
NGNG実行時パッケージを使う場合にEXE本体側のものをパッケージ側から使うとリンクしちゃうから、
とかなるので、インターフェースを作りましょう、ってMLでは書いていたんですよね。
Database接続をEXE側のコンポでやっているのをパッケージ側で使おうとしたら、
リンクしちゃわないかな…と。
0169デフォルトの名無しさん
NGNGあなたのいう「リンク」ってなに？
ML は半可通がおおいから、ここと同様、頭から信用しないほうがよい。
答えがほしいなら、ML の番号を。
0171デフォルトの名無しさん
NGNG0172143
NGNGMLの番号は >143 で書いたように
[Delphi:74315] パッケージを使ってプロ グラムを分割するとき
ttp://www.users.gr.jp/ml/archive/delphi/74315.asp
から始まるツリーで書かれています。
（このアーティクル中でも書かれています）
0173143
NGNGttp://130.158.124.192/~takeuchi/delphi/browse.cgi?index=074315
一つ、ご教授お願いいたします。
0174デフォルトの名無しさん
NGNG>>143 であなたが気にしているのは、更新時のファイルサイズの削減。
それに対し、>>149 で提案されているのが実行時パッケージの使用。
ということで、ML-74315 は >>149 の提案とは「直接」には関係ない。
ML-74315 で議論されているのは通常とは異なるパッケージの使い方なので、
通常は無視してよい。
これでよいかな？
0175デフォルトの名無しさん
NGNG普通に使う分には、パッケージを使う/使わないの影響が表面化しないように設計されているから。
さらに、自分用ライブラリをまとめてパッケージにしたり、ボーランド標準パッケージをばらして
必要なものだけまとめなおす。という選択も可能だ。
なお、DLL 化は Delphi RTL のパッケージの利点を無駄にするので、通常は避けるように。
もし使う場合には、インターフェースを細い/単純なものにしてブラックボックスとして使うこと。
こっから先は「くだすれ」の範囲を超えるかな？
ML-74315 の失敗は（おそらく）パッケージとアプリを同じディレクトリでメンテナンスしていたから。
でしょう。インターフェースなんか出さなくても解決できたのにね。
0176デフォルトの名無しさん
NGNGまぁまぁいいかな。ってところで、機能的に分離したい部分をユニット単位でパッケージに移動し
パッケージ P をつくる。この時点では単なる実行時パッケージだ。
デバッグも一段落したので、パッケージ P を動的に読み込むように変更する。
実行時パッケージの参照リストから P を抜き、その代わりに自分で読込み用関数を呼ぶ
用に書き換える。
この時点でアプリ A から、パッケージ P に含まれるユニットに対する参照を全部取り除かなければ
いけない。
P に含まれるはずのユニット U に対する参照がアプリ A に残っていると、パッケージ P を使わない。と指定したのだから
アプリ A にユニット U が含まれてしまう。パッケージ P の管理を手作業で行う。と決めたのだからそこもちゃんと管理し
なければいけない。そんなに難しいことではなく、パッケージ P に含まれるユニットをアプリ A の開発ディレクトリから
移動すればよい。別ディレクトリを作る。ってことだ。
いったん分割したら、パッケージ P に含まれるユニット、厳密にはアプリ A が参照する機能を持つユニットを変えない限り、問題は起きない。
本来は、通常の実行時パッケージを使う状態にまで戻すべき。そうやってデバッグしてからもう一度動的パッケージ版にしたほうが
確実だったのでしょう。
ML-74315 の人は、親アプリのフォームを参照するために大事なユニットの仕様を変更してしまったのですね。
0177デフォルトの名無しさん
NGNGまたは
スペースのみで構成された文字列→' 'とか' 'とか' '(全半全)とか
↑を検出するにはどーいうif文を書くのがスマートでしょうか
1箇所だけでしか検査しないのでそのためにわざわざ
正規表現使えるコンポーネントを入れるのもアレですし・・・
0178デフォルトの名無しさん
NGNGだがこれだけでは全角スペース対応していない。
よって事前にStringReplaceなどで全角スペースを取り除く
0179143
NGNGなるほど～。
動的で無くてもいい場合に、パッケージだけコンパイルして配布、
って方法でも問題ないっすかね。
ちょっと時間を見て試してみます。
ありがとうございました。
0180デフォルトの名無しさん
NGNGまさに某がやっていることだよね？
0181デフォルトの名無しさん
NGNGStringReplace 二段重ね、最初にすべての半角スペースを削除、次にすべての全角スペースを削除。
結果が空文字列かどうかで判定。
速度がちーと遅いかも知れないが、タブとかも処理できるし、わかりやすい。
0182デフォルトの名無しさん
NGNG判定だけならAnsiPosなるものがあります。
0なし、他あり
0183デフォルトの名無しさん
NGNGありがとございます
Replaceの結果を見るていうのはちょっと予想外でした
>>182
？
0184デフォルトの名無しさん
NGNG文字列が空であることを調べるのにLengthを使うと
かえって遅くなる罠があると言ってみる。（空文字列比較用に最適化される）
VBとは違うんだよ、VBとは。
0185Takamori
NGNG「日曜プログラマー的Delphi」を開設しました。
http://www.geocities.jp/takamori700/
0186デフォルトの名無しさん
NGNGすっ、すごい！「goto」使ってる（ｗ
0187デフォルトの名無しさん
NGNGExitで同じことできるよねえ？
0188デフォルトの名無しさん
NGNG>>185のページをみて。このくらいなら楽にできるなと自信をつけさせる場所なのでしょうか？
0189デフォルトの名無しさん
NGNG0190Delphi 6 Personal
NGNG俺は初心者が見る分には便利だと思うよ（関数のところなんかが）
0191デフォルトの名無しさん
NGNG{$R *.DFM}
type
TKeyData = record
fCTRL :Boolean;
fSHIFT:Boolean;
fALT :Boolean;
dKey :Byte;
end;
var
MahoKeydata:array[1..48] of TKeyData;
このMahoKeydataを別ユニットで使うにはどうすればよいのでしょうか？
0192デルファイの名無しさん
NGNG0193_
NGNG0194デフォルトの名無しさん
NGNGimplementationの上へ移動する
0195191
NGNGtypeとvarの両方を上に上げてみたんですが、ダメでした。
MainForm.MahoKeydata[1].fCTRL := chkCtrl1.Checked;
のようにしてるんですが、ここがいけないんでしょうか？
「MahoKeydataが未定義」と言われてしまいます。
0196デフォルトの名無しさん
NGNGあの
x=3
とかのは、どこに書き込めばいいのでしょうか。初心者ですいません
0197デフォルトの名無しさん
NGNGuses節にMainFormが記述されていない。
0199デフォルトの名無しさん
NGNGMainFormが余計と思う
0201デフォルトの名無しさん
NGNGそれらしいコンポーネントが見つからないのですが、
Win3.1のならあるみたいなんですが、これしかないのでしょうか？
0202デフォルトの名無しさん
NGNG0203デフォルトの名無しさん
NGNGしたいのですが、どうすれば良いのでしょうか？
0205デフォルトの名無しさん
NGNG0206203
NGNGできました。
ありがとうございます。
問題なく動いてるようですが、もしフォームＢが開かれていなくて
フォームＡを閉じた場合、何か問題はないですか？
ハンドル取って条件指定した方がよいのでしょうか？
0207デフォルトの名無しさん
NGNG0210デフォルトの名無しさん
NGNGきれいに作ってあるなぁと思ったらFrontPage使ってた。
プログラマならHTMLべた打ちしてほしい。
↓じゃ、おまえは機械語やアセンブラで書け
0211デフォルトの名無しさん
NGNGとほほさんとこみたいにアーカイブにまとめてローカルで
見れるようにして欲しいな..と言ってみりゅ。
0212デフォルトの名無しさん
NGNGどうぞ
0111000011101111000011110100110101101010001010001111001101010110
1010011110101010101001010010010101000011101100101000111110011001
1010100101000000000111100101001010010100101010101010010110010110
1010101011001010010101010101001010101010010101010000111110010100
0101010101010101101000010011010010101001001010110111111000111001
1010100101000101010100110101011010010101010101010001010110101010
1110101001010101010001010010101001100101011011100100011100010101
0101010010100001100110101010101010100011010010100100100101010101
1101001001010000101010110010101010100101010010001101010010101001
0100101010100101010001010100111010101001010110101010010101010011
1010010101010110100001101101010101100101001010101010101010010101
0100101010010100101011001010101011000000101111011011110100101000
0100101100110101001010100110101010101010001010101110010010100101
1010010100101011010100001010101001010010101001010101010100101001
0213デフォルトの名無しさん
NGNG0214デフォルトの名無しさん
NGNG0215デフォルトの名無しさん
NGNG0216デフォルトの名無しさん
NGNGなんだこりゃ・・・初心者を使えないダメPGにするためのページですか？
はっきり言ってこの内容は害悪だ
相手が初心者なればこそ、より正しい情報を与えるべきだ
自分自身がまったくわかっていないのに人様に教えようなどとは笑止千万
レベルが高い低いではなく、入門として用を成していない
いますぐページをたたんで郷里へ帰りなさい
0217デフォルトの名無しさん
NGNGああいうの作りたいです
0218デフォルトの名無しさん
NGNGIDEのエディタは予め用意されたコンポーネントじゃなくてBorlandが書き下ろしたものと思うが。
テキストエディタが作れるようになったら大したもんだ。
…で、大したことの無いへたれは、TEditorで検索するべし。
0219デフォルトの名無しさん
NGNGD6だとCoreIDE60.bpl なんかそれらしいの覗こうとしてもエラーになるようになってる
0220デフォルトの名無しさん
NGNG具体的に害悪な部分を指摘してくださいよ。
できないなら低脳な煽りとして君が叩かれることになる。
（しかし初心者向きなのにProfessional前提なのは問題があるなぁ…）
0221デフォルトの名無しさん
NGNG叩いてくれ～（ﾆﾔﾆﾔ
>（しかし初心者向きなのにProfessional前提なのは問題があるなぁ…）
へえ、そりゃあ問題だね（笑）
0222デフォルトの名無しさん
NGNGをしたいのですがどこかいいサイト無いですか？
0223デフォルトの名無しさん
NGNG0224avi
NGNGwindows media player8で再生ができません。
コーデックが必要だとメッセージが出るのですが、
そのコーデックがDLできません。
どうすれば見れるようになるのでしょうか？
どなたか教えてください
よろしくおねがいします。
0225デフォルトの名無しさん
NGNGやったことないけど
http://www.borland.co.jp/qanda/delphi/d0009376.html
0226デフォルトの名無しさん
NGNG簡単な順に
１、ファイル渡し
２、クリップボード
３、GUI側をDDEサーバにする
４、無名パイプ
５、メールスロット
とか
0227Delphi 6 Personal
NGNGAVの動画を貰ったって？
0228デフォルトの名無しさん
NGNGリダイレクトが無いのがアレだとおもった。
0229デフォルトの名無しさん
NGNG>>216に書いてある事が全てだが？
件のページはただの場当たり的リファレンスであって
入門ページを名乗るのは見当違いも甚だしい
しかも悪いことに、設問に対する解が最善のものでは無い場合がある
（既出ではあるがexit手続きで充分なところに無意味なgoto手続き等）
更に悪いことにサイト著者自身が何をしているのか理解していない場合がある
アプリケーションの二重起動抑止のところなどは最悪で
if hMutex <> 0 thenではなくて、まずCreateMutexして
if (GetLastError = ERROR_ALREADY_EXISTS)とするべきだし
自分が理解していない事を堂々と（自称）入門ページに記載しているのは
詐欺まがいの行為である
せめてそれくらいは理解して、さっさと郷里へ帰りなさい
0230デフォルトの名無しさん
NGNGお前、WebProg板でも暴れてただろ？
0231デフォルトの名無しさん
NGNG196に誰かレスってやれ
0232159
NGNG今のままだと受信サイズが予想外のサイズで死んじゃうんだよぅ
マジで頭下げます。すみません、教えて下さい。
私が悪かったので何卒、御教示して下さい・・・
0233デフォルトの名無しさん
NGNGリダイレクトの意味が >>225 ならファイル渡しだし
http://hp.vector.co.jp/authors/VA026252/tips/delphi_anonymous_pipe.html
なら それは無名パイプだ
0234デフォルトの名無しさん
NGNGStrings でも、 array of byte でもで
SetLength 使えばいいでしょ？
0235デフォルトの名無しさん
NGNGとりあえずインターネットにでも書き込んでみてはどうですか？＾＾
0236159
NGNG着信イベントが発生した段階でgetmemを呼び出してバッファを獲得するじゃないですか。
TNMUDPクラスのreadメソッドを使って読み込むときにその先頭アドレスを渡したいんですが
pointer型を変換したりするとコンパイラにお叱りをうけてしまいます。
これを回避したいのですが、どうやって回避したらいいのかが判らないんです
アフォの致傷だからって見捨てないでください・・・
0237デフォルトの名無しさん
NGNG日本語のページからdelphiを検索しました。 約70,500件中1 - 50件目 ・検索にかかった時間0.26秒
日本語のページからvisual c++を検索しました。 約54,800件中1 - 50件目 ・検索にかかった時間0.23秒
実はDelphiのほうがVisual C++より資料が豊富
ちなみに「日本語のページを検索」オプションつけてますよ
0238デフォルトの名無しさん
NGNG悩んでる原因が判ったよ
なんと TNMUDP の ReadBufferは
procedure ReadBuffer(var Buff: array of char; var length: integer);
と、ちょっと困ったクンな仕様なんだね。
しょうがないから ReadStream を使いなさい。
Streamなら
rocedure ReadBuffer(var Buffer; Count: Longint);
だから 簡単だ
TempStream := TMemoryStream.Create; して
ReadStream( TempStream ) ;と読み込んで
TempStream .Position:=0 ; と頭に戻して
後は好きなように
0239デフォルトの名無しさん
NGNG「ビジュアル」の綴り間違ってるぞ。
0240デフォルトの名無しさん
NGNG0241デフォルトの名無しさん
NGNGあっ！間違えた
今度こそ正しいぞ
日本語のページからvisaulstudioを検索しました。 1件中1 - 1件目・ ・検索にかかった時間0.09秒
0242デフォルトの名無しさん
NGNG情報キボンヌ
0243デフォルトの名無しさん
NGNG例えば takasi's homepage という文字列を使いたいとします。
当然「'」で囲みますよね。でもそうすると'takasi's homepage'となり
takasiの部分で文字列が終わったと見られてしまうんです。
文字列の中にある「'」を文字のまま扱うにはどうすればいいのでしょうか？
0244デフォルトの名無しさん
NGNGヘルプの「文字列定数」を読めばいい
0245デフォルトの名無しさん
NGNG0246デフォルトの名無しさん
NGNG漏れの無料版には付いてるぞ
0247デフォルトの名無しさん
NGNG新手のホームページ宣伝か？
ヘルプもPDFのマニュアルもpersonalに付属してます
0249デフォルトの名無しさん
NGNGありがとうごだいますた。
おかげさまで読み込めますた。
構造体(hogehoge)をきっておいて
var
cmd : hogehoge;
begin
streambuf := tmemorystream.Create;
wk := @streambuf;
nmudp1.ReadStream(streambuf);
こうすることによりSteamBufを戻さなくてもwkのメンバ変数を参照することにより
好きなメンバにアクセスすることができますた。
ただ、初心者なんでよくわかってないところもあります。
UDPの受信イベント内でTmemorystream.createとやったときには
受信イベントを抜けたときにもメモリの値は保持されますか？
一度getmemして、獲得したメモリをTMemoryStream.Createで受けた処理をしたあとに
必要に応じてFreeすべきでつか？（その場合の管理はObjectListを使うつもりです）
いろいろこれから試行錯誤してみたいと思っておりまふ・・・・
0250デフォルトの名無しさん
NGNGなんか筋の悪そうな事をやろうとしてるように思う。
文字列が入ってるなら
SetLength(ReturnString , streambuf .Size);
streambuf .ReadBuffer(Pointer(ReturnString)^, streambuf .Size);
と文字列にして返してしまえば後の取り扱いが楽だ。
0251ななしへたぐらま ◆XcB18Bks.Y
NGNGとりあえずわかる範囲で
#0001
このコードをコピペしてもコンパイルできないようです．G_AppPathって#0006のGuユニットを使っているのでしょうけどこれが必要ならそう書くべき．
またサンプルなら他の自作ユニットがなくても動くようにする方が適切だと思います．
あと，この例なら作業用ファイルは用意しなくてもファイルストリーム一つで書き換え可能ですよ．
直接書き換えが不可能な処理の場合は作業用ファイルの代わりに
メモリストリーム（TMemoryStream）を使うと良いでしょう．
#0005
initialization節とfinalization節にはbeginとendは不要ですよ．
>>196
xという変数を使いたいのでしたら…
procedure TForm1.Button1Click(Sender: TObject);
var // これから変数を宣言するぞ，という印
x: integer; // xという名前の整数型変数だぞという意味
begin
x := 3; // 変数xに3という値を代入（代入は『:=』なので注意）
ShowMessageFmt('xの値は%dです', [x]);
end;
>>218
TEditorがあるので無理して自作する必要はないかもですね．
0252Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG∧,,∧ ／ TEditorは
ミ；ﾟДﾟ彡 ＜ ﾌﾟﾛﾎﾟｰｼｮﾅﾙﾌｫﾝﾄが
ﾐつ旦(ﾐ~~ ＼ 描画できなかったなあ
＠ﾐ ﾐ ￣￣￣￣￣￣￣￣￣
∪''∪ AAがちゃんと表示されないですの…
日本物ならこちらなど。
http://home1.infonia.ne.jp/~delphian/delphi/compo/labeledt.html
海外ものなら
DreamMemoとかも人気あるらしいっす。
某がエディタ部を公開してくれたらうれしいですね。
0253デフォルトの名無しさん
NGNGこのまえ、ちょっとだけ話題になったけど、どうやら某はプログラミング用エディタを
売っているようだ。（たしかメリケンじゃ売れてるんでしょ？）
そういうノウハウが沢山詰まっているエディタとかは公開しないんじゃないかな。
0254デフォルトの名無しさん
NGNG0255デフォルトの名無しさん
NGNG「Exception EReadError in module ****.EXE at 0001F80B.
ComboBox24.Items.Strins の読み込み中のエラー
:A call to an OS function failed.」
というエラーが出て起動しません。
同じ症例が数件あるのですが、何か原因の特定はできるでしょうか？
リソース不足のような気がするのですが・・・
0256249
NGNG接続機器から返すのはレジスタの内容とRS-422で受信したデータとPC９８時代の漢字コードなんで
混在してデータが帰ってくるので構造体を切ったほうが楽かと思いました。
制御ばっかしやってたのでアプリは初めてです。
むずかしくて涙がこぼれそうになります・・・・
0257デフォルトの名無しさん
NGNGバイナリ+文字データで、固定長なの？
それなら、Record型を定義しておいて
streamBuf.ReadBuffer( レコード型変数 , SizeOf( レコード型変数 ) );
受信処理でこのレコード型変数か（１回に複数レコード受信するなら）
レコード型の動的配列を返すのがいいんじゃないの？
0258デフォルトの名無しさん
NGNGユニットを用途別に分けたいのですが、例えば、標準でUnit1.pasにForm1のOnCreateイベントが記述してあるとして、それを新たに作ったユニットに
移転させることは出来ますか？
また、フォームに乗っかっているTMemoなどに文字列を設定するような手続きなどは、
そのクラスが書いてあるユニット以外にも書けますか？
よろしくお願いします。
0259デフォルトの名無しさん
NGNGモジュール化の仕方のレベルで考え直すべきだと思った。
0260 ◆bro13ZUdHQ
NGNGこのページを参考にしてOpenJaneのコンパイルをしようとしてるのですが、
＞Jane2ch.dpkのフォルダ指定及びActiveXの取り込み
＞同様に『Microsoft Internet Controls (version1.1)』で『インストール』
のところでインストールボタンを押すと、
---------------------------
エラー
---------------------------
クラス名 'TWebBrowser' は既にインストールされています.
---------------------------
OK
---------------------------
とでてしまいます。
どうしたらいいのでしょうか？
0261デフォルトの名無しさん
NGNGとばして次のステップへ。
0262デフォルトの名無しさん
NGNG0263デフォルトの名無しさん
NGNGただスクロールが大変という理由で解決策を探していました。
もうちょっと勉強してきます。
0264デフォルトの名無しさん
NGNG皆、ＭＳに移行するべき。
0265デフォルトの名無しさん
NGNG金が無い奴はそもそもオプソに逝くと思うが。(w
0266 ◆bro13ZUdHQ
NGNGとばして進めると
>コンポーネントの確認（しつこく確認）
>メニューの『プロジェクト』－『オプション』－『パッケージ』タブでJane2ch.bplを選んで
>『コンポーネント』クリックすると一覧が出ます。次の５つがあることを確認して下さい。
>THogeListView THogeTextView TScriptlet TWebBrowser TWebBrowser_V1
ここで、TWebBrowser TWebBrowser_V1の２つが表示されて
くれないのです。
よろしくおねがいします。
0268デフォルトの名無しさん
NGNGバカや炉多すぎ。
0269貧乏脱出！これであなたはお金持ち
NGNG本当にお金持ちになるにはやはり「副収入」が必要！
一日３０分 おうちでコピペ、コピペ！
嘘だと思うんならランキング見てみてくださいよ↓↓
（直リン不可）
http://www.adultshoping.com/addclickport.cgi?pid=1053353765（直リン不可）
/////
0270デフォルトの名無しさん
NGNGそこも飛ばしちゃっていいよ。
0271デフォルトの名無しさん
NGNGとりあえず、Form1.Hideではタスクバーまで消えてしまいました。
0272デフォルトの名無しさん
NGNG0273デフォルトの名無しさん
NGNG多すぎて分かりません。
0274デフォルトの名無しさん
NGNG0275デフォルトの名無しさん
NGNGLeft := -Widthで見た目は消えてますね。
でも位置を変えたくないのです。
0276デフォルトの名無しさん
NGNG柱と地球のアイコンをクリック
0277デフォルトの名無しさん
NGNGどのフォルダに入ってますか？
0278デフォルトの名無しさん
NGNG0279直接起動君
NGNGC:\Program Files\Borland\Delphi6\Bin\delphi32.exe
C:\Program Files\Borland\Delphi7\Bin\delphi32.exe
0280 ◆bro13ZUdHQ
NGNGとばしてコンパイルまで来てコンパイルエラーになってしまいます。
---------------------------
エラー
---------------------------
';' が必要ですが 識別子 が見つかりました.
---------------------------
OK
---------------------------
procedure MenuThreadRefreshClick(Sender: TObject);
procedure ZoomClick(Sender: TObject);
procedure ThreadChkNewResButtonClick(Sender: TObject); ＜＜－－ここでエラー
procedure ThreadWriteButtonClick(Sender: TObject);
procedure TabControlChange(Sender: TObject);
何でこんなとこでエラーになるのかわからないです。
0281デフォルトの名無しさん
NGNG0282貧乏脱出！これであなたはお金持ち
NGNG本当にお金持ちになるにはやはり「副収入」が必要！
一日３０分 おうちでコピペ、コピペ！
嘘だと思うんならランキング見てみてくださいよ↓↓
（直リン不可）
http://www.adultshoping.com/addclickport.cgi?pid=1053353765（直リン不可）
////////////
0283デフォルトの名無しさん
NGNG0284デフォルトの名無しさん
NGNG見えなきゃ、位置とか関係ないじゃん。
2000以降でもいいなら、透明にするとか。
0285デフォルトの名無しさん
NGNGTMemIniFileを継承して、Int64を読み書きするメソッドを追加するか、
バイナリとか文字列で記録するか。でいいんじゃないの？
0286デフォルトの名無しさん
NGNG普通の処理中にあるキー（Shiftとか）が押されているか否かを検出する方法は？
0287286
NGNG0288デフォルトの名無しさん
NGNGマルチポストみっけ。
マナー悪いな。
あっちもレス付いてないぞと。
0290デフォルトの名無しさん
NGNGを調べることってできるのでしょうか？
どうぞ よろしく御願いいたします。
0292デフォルトの名無しさん
NGNGMouseMoveイベントでMouseToCellメソッドを使えばわかるんじゃないかな。
StringGridなんて使ったことが無いけど、ヘルプみたら速攻で見つかったぞ。
聞く前にヘルプのメソッド一覧くらいはさらっと読みましょう。
0293デフォルトの名無しさん
NGNGTClientSocketを使っているのですが
非同期ソケットエラーが出ます。
このエラーはどんな時に出るのでしょうか？
ヘルプを探しても見つかりませんでした。
宜しくお願いします。
0294293
NGNG10053です。
つまり
「非同期ソケットエラーです。 10053.」
という例外ダイアログが出てきてしまうという事です。
このエラー番号の意味などがのっているHPなどありましたら
教えて下さい。
宜しくお願いします。
0296デフォルトの名無しさん
NGNG0297デフォルトの名無しさん
NGNGDrawCellをオーバーライドする。
メソッドの中で、Canvas.FillRect(ARect)する。
か、背景色だけなら同じくDrawCell中で、Canvas.のペンかブラシの色を変えるだけでも可能だったかも。
0298297
NGNG0300デフォルトの名無しさん
NGNG.dprに
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm := False; <----追加
Application.Run;
でどうだろう。
これだとタスクバーも消えちゃうかな？
0301デフォルトの名無しさん
NGNGみたいなことは出来ますか？
0302デフォルトの名無しさん
NGNG出来るけどあんまり意味がない。設定も面倒なだけだし。
最初からボタン２も配置しVisible=Falseにしておいて、
ボタン１イベントでVisible=Trueにしたほうが楽。
0304デフォルトの名無しさん
NGNG030518
NGNG日本語のページからdelphiを検索しました。 約70,500件中1 - 50件目 ・検索にかかった時間0.26秒
日本語のページからvisual c++を検索しました。 約54,800件中1 - 50件目 ・検索にかかった時間0.23秒
実はDelphiのほうがVisual C++より資料が豊富
ちなみに「日本語のページを検索」オプションつけてますよ
0306デフォルトの名無しさん
NGNG0307デフォルトの名無しさん
NGNGTClientSocketを使ってHTTP(２ちゃんブラウザを作ったり）なんてのは問題なくできるのですが
どうやって「受信待ち」するのかわかりません
ネットワークの神様お願いします！！
0308デフォルトの名無しさん
NGNG0309ニーチェ
NGNG0310デフォルトの名無しさん
NGNGvisibleでon・offもいいけど、ユーザー側にとってはenabledを使って押せないボタンとして
表示してある方がフレンドリかな。ある機能が実装されているということと、それの発動には
一定の条件が必要ということを予め示せるから。重箱の隅な話でごめん。
0311デフォルトの名無しさん
NGNG>>309
こういうレスがつくってことは何か頓珍漢な事を言ってしまったでしょうか
神が死んでは仕方有りませんのでとにかくC言語の線から攻めてみます
アドバイスありがとうございました
0312デフォルトの名無しさん
NGNGキリスト者じゃない我々には、死んだ神も、神を殺した人間も関係有りません。309はあぼーんで。
308は伝統的なソケットの作成を知っておけと言いたいのでしょう。Cのやり方を知るのは為になると思いますよ。
0313デフォルトの名無しさん
NGNGそれで十分なんだけどな。本当は。これもマイナー開発環境の悲劇だな。
0314正論
NGNG日本語のページからvisual c++を検索しました。 約54,800件中1 - 50件目 ・検索にかかった時間0.23秒
0315デフォルトの名無しさん
NGNGキリスト者ではないわれわれにとっても、デイタラボッチは死んでしまったのだよ。
0316デフォルトの名無しさん
NGNG格好(ﾟ∀ﾟ)ｲｲ!PageControlか、TabControl知りませんか～。
オーナードローしようとすると、タブの中だけ描画になるんで、今ひとつ…。
0317デフォルトの名無しさん
NGNGチャットのサンプルが
\Demos\Internet\Chat
にあるけど、それじゃだめかな
0318デフォルトの名無しさん
NGNGだれかおしえてくださいませんか
Sub 作業日取得()
Dim program_id As Integer
Dim start_date As Integer
Dim end_date As Integer
Dim check_start As Integer
Dim row As Integer
Dim col As Integer
Dim c As String
Dim start_flag As Boolean
program_id = 3'IDの番号（）
start_date = 9 ' 開始日番号（）
end_date = 10 ' 終了日番号（）
check_start = 11 ' ■形式のデータが入っている最初の列番号（1オリジン）
With Sheets("表（詳細）")
row = 3
0319デフォルトの名無しさん
NGNG.Cells(row, start_date).ClearContents
.Cells(row, end_date).ClearContents
col = check_start
start_flag = False
Do While col < 200
c = .Cells(row, col).Value
If Trim(c) <> "" Then
If Not start_flag Then
start_flag = True
.Cells(row, start_date).Value = .Cells(1, col).Value
End If
.Cells(row, end_date).Value = .Cells(1, col).Value
End If
col = col + 1
Loop
row = row + 1
Loop
End With
End Sub
なんですが・・
エラーがでてしまって・
こんな馬鹿な僕に教えてください神様
0320デフォルトの名無しさん
NGNG0321デフォルトの名無しさん
NGNGお前がこらえきれていない（ｗ
0322デフォルトの名無しさん
NGNG( ´_ゝ`)？＜Delphiって日本語使えたっけ？
0323デフォルトの名無しさん
NGNGな ん と か し て や れ よ
0324デフォルトの名無しさん
NGNG0325デフォルトの名無しさん
NGNG使えませんよ。
いくらなんでも、そんなこと知らないなんて、才能無いですね。
0326デフォルトの名無しさん
NGNG0327デフォルトの名無しさん
NGNGどのようにすればよろしいのでしょうか？よろしくおねがいします。
0328デフォルトの名無しさん
NGNG0329デフォルトの名無しさん
NGNGPersonalなので見てみることはできませんでしたが
それに関係するやり取りを探すことでチャットを完成できました
その存在を教えていただいたおかげで解決したようなものです
本当にありがとうございました
ちなみにTClientSocket同士で通信しようとしていたのが最大の敗因で
TServerSocketの解説ページを見つけたのが勝因でした(BCBでの解説でしたけど)
0330デフォルトの名無しさん
NGNG0331デフォルトの名無しさん
NGNG具体的に教えてくれる本があればいいんだけどね。
TMemoが載っている本ははいくらでもあるんだがＴＬｉｓｔＶｉｅｗとかはほとんど無い。
初→中へステップアップするのに結構な努力を強いられるのは
マイナー環境とはいえ、誰かなんとかしてほしいところ。
0332デフォルトの名無しさん
NGNG0333デフォルトの名無しさん
NGNG今回は複数行になるので、Memo2.Linesとすることにします。
0335デフォルトの名無しさん
NGNGライブラリは何でもそうだと思うけど、まずはVCLの癖をつかむのがいいと思う。
とにかく触りまくって、ソース見まくって、使い倒す。
データをアクセスする部分を中心に触るのがいい。TListViewだったらItemsプロパティとか。
0336デフォルトの名無しさん
NGNGWin32タブに乗ってるのは、StandardVCLより癖があるから、習得が一気に難しくなるよね。
サンプルソースとか見て頑張るしかない～
0337デフォルトの名無しさん
NGNGただそれだけ。
0338デフォルトの名無しさん
NGNG0339デフォルトの名無しさん
NGNGMemo2.Lines.Assign(Memo1.Lines);
これでも出来るよ。
0340デフォルトの名無しさん
NGNG俺もそんな感じで収得したなぁー
別プログラムで簡単なサンプル作ったりして…
DB関連のイベントのタイミングを知る時は
ShowMessageやMemoに書き出したりもしたな。
0341デフォルトの名無しさん
NGNGDelphi7では出来るようになってるのかな？
0342デフォルトの名無しさん
NGNGという設定はどうしたら良いのでしょう？
0343デフォルトの名無しさん
NGNGあの手のがついてるのは自力で改造してると思ってたけど。
0344デフォルトの名無しさん
NGNGちょっとＤＥＬＰＨＩでゲーム作りたいんだけどその方法を詳しく
説明してくれるサイトありませんか？
あったら教えて下さい。
0346デフォルトの名無しさん
NGNG自力だよ
0347デフォルトの名無しさん
NGNG0348デフォルトの名無しさん
NGNGhttp://www.campus.ne.jp/~ishigami/CREATION/MAKING/index.html
0349デフォルトの名無しさん
NGNGWindowsXP付属のメモ帳に文字コードのコンボボックス付いてたんで
0350デフォルトの名無しさん
NGNG0351デフォルトの名無しさん
NGNG0352デフォルトの名無しさん
NGNG0353デフォルトの名無しさん
NGNGビックリマーク
縦読みすると……ですか
２ちゃんねるの世界はリストラも厳しい
0354デフォルトの名無しさん
NGNG0355デフォルトの名無しさん
NGNGTreeViewでAbsoluteIndexではなく
展開されていたり畳まれていたりする現在のツリーの状態で
調べたい（例えばSelected）アイテムが
ツリーの一番上（.Item[0]）から数えて何番目にあたるかを
知るにはどの様にすれば良いでしょうか？
0356デフォルトの名無しさん
NGNGnode := TreeView1.Selected;
while node <> nil do
begin
node := node.GetPrevVisible;
Inc(index);
end;
一番上が0
0358デフォルトの名無しさん
NGNGそこの管理人は近藤級の毒電波・・・
>>344
【Delphi】 ゲームつくるぞ(ﾟДﾟ)ｺﾞﾙｧ 【作れば?】
http://bbs.gamdev.org/test/read.cgi?bbs=gamedev&key=1054282821
0359デフォルトの名無しさん
NGNG0360デフォルトの名無しさん
NGNGなんか美しい！(ﾟ∀ﾟ)って感じの作り方ありませんか？
0361デフォルトの名無しさん
NGNGデータモジュール、使ってる？
0362360
NGNGDataModuleにADOStoredProcとか置いて使おうとしてますが･･･
そのままレコードセット触ったりしたら、なんかエレガントじゃない気がして･･･
0363デフォルトの名無しさん
NGNG何でScrollBarは他のコンポのスクロールバーと表示が違うのYO！？
0364359
NGNGdelphi6ではエディタの色を16色の中でしか選択出来なかったのですが、
delphi7では自由に変更可能になっているでしょうか？
なっているなら購入しようと思っているのですが・・・
0365デフォルトの名無しさん
NGNG少なくとも設定画面からは16色しか選べないな…
0366デフォルトの名無しさん
NGNGレジストリいじれば？
0367デフォルトの名無しさん
NGNG0368Delphi 6 Personal
NGNGスクロールバーが元々Visual Styleに対応してるから
0369デフォルトの名無しさん
NGNGちゅーことは、ScrollBarは実は他のものとは異なるコントロールなの？(ﾟДﾟ)
0370デフォルトの名無しさん
NGNGttp://www.m-mix.com/Program/Component/
ここのMOStringGridを使おうとして、なんとかDelphi7に入れられたのですが、
セルをカレンダーにして、日付を選んでフォーカスを移動すると
変な日付（例えば203//7//03）が入ってしまいます。
処理の流れを追っても何処でそういう文字列をセットしてしまっているのか
わからないんですが…。
どうやったら直せるでしょうか？
0371デフォルトの名無しさん
NGNGgoogleなどで検索しても参考になるサイトがなかなか見つかりません。
どなたか、為になるサイト又は書籍をご存知の方はいらっしゃらないでしょうか。
既存のコンポーネントはなるべく使いたくないでつ。。。
0372デフォルトの名無しさん
NGNGXPの仕様でしょ。VCLのせいではないよ。
APIのみでSCROLLBARクラスのコントロールを作っても同じ現象になる。
0373371
NGNGなんかうまくいきそうなので、371は見なかったことにしてください。。
0374デフォルトの名無しさん
NGNG0375デフォルトの名無しさん
NGNGそれぞれをいちいち指定するのが面倒なので、
背景が白っぽかったら、黒文字
背景が黒っぽかったら、白文字
背景が赤っぽかったら、青文字
みたいに自動的に色を計算してくれる関数なりクラスなりどこかに落ちてませんか？
cl := ColorCalc($77FF77);
ってやったらclに適正な色が入るようなのが理想です。
0376デフォルトの名無しさん
NGNG$色 - $ffffff の結果を Abs してみるのはどうだろ（反転）
0377たぶん
NGNGfunction colorCacl(c:TColor):TColor;
begin
Result := c xor $FFFFFF; //とりあえずビット反転してみて
//その輝度が似てたら
if abs(
( c and $FF)-(Result and $FF)
+(( c and $FF00)-(Result and $FF00) shr 8)
+(( c and $FF0000)-(Result and $FF0000) shr 16)
)<128
then result := $ffffff and c+($808080);
end;
0380デフォルトの名無しさん
NGNG↑こんなポップアップヒントを表示するコンポーネントってありますか？
0381デフォルトの名無しさん
NGNG0382デフォルトの名無しさん
NGNGなぁ、素直に、
$ffffff - $色
（$色 <= $ffffffは保証されてるわけで。）
ではあかんのか？
0383デフォルトの名無しさん
NGNGポインタを使えば可能。
0384デフォルトの名無しさん
NGNG0385デフォルトの名無しさん
NGNGポップアップを表示したときにON
非表示にしたときにOFF
とかフラグ持っていればいいんじゃないの？
0387デフォルトの名無しさん
NGNG見なかったことに・・・ではなく、ぜひ解決したら指針を報告しに来る、とか、
参考になったページを晒すとかして下さい。
そうしておくことで、もし同じことで悩んで検索してこのスレにきた人の参考にもなります。
あなたが自分では無駄でゴミな質問をしたと思っても、
対処によってはまったくことなる投稿にすることができます。
>>381
もうちょっと具体的にやりたいことを書いてください。
0388デフォルトの名無しさん
NGNGデザイン時にActionListの編集で独自のActionクラスを追加するにはどうすればいいのでしょうか？
0389373
NGNGそうかもしれませんね。
では参考にしたページを貼っておきます。
ttp://www.jnishida.com/tips/delphi/del-0026.htm
WaveOutSetVolume(デバイス, 音量[0～65535]);
MidiOutSetVolume(デバイス, 音量[0～65535]);
↑これでうまくいくようなのですが、これを使って設定すると、なぜかパンの値が左チャンネルに寄ってしまいます。
なんでだろう～？
あと、
ttp://forum.nifty.com/fdelphi/samples/00067.html
ここだとデバイス番号は0だけを指定してるんですけど、こっちでも問題無いのでしょうか。
私の環境だとMIDIデバイスの数は9個だったんですけど、
そのうちMidiOutSetVolumeで設定できたデバイス番号は3と4だけだった。
ほかの番号のものは使わなくてもいいのかな？というのが今抱えている問題です。
長文すみませんでした。。
0390デフォルトの名無しさん
NGNGたとえば、TListにTCanvasのインスタンスを入れるとします。
中身の解放の時は、
List[n].Free;でいいのでしょうか？それとも、TCanvas(List[n]).Free;のようにもとのクラスでキャストしてから
解放しなければいけないのでしょうか？
0391デフォルトの名無しさん
NGNGデフォルトだとMaxLengthを3にしておくとたとえば1592が代入
されたら下3桁の592と表示されてしまいます。
4桁以上の数字が代入された時に999にするにはどうすれば
よいのでしょうか？
0392391
NGNG0393デフォルトの名無しさん
NGNG0394ミ,,ﾟДﾟ彡 ◆A6VzDeLphI
NGNGタスクトレイアイコンのバルーンヘルプなら
http://homepage1.nifty.com/~okapon/download/index.html
普通の時のポップアップヘルプは
どこかにあったような気がするが、
脳内やググで検索しても
ヒットしませんでした。
0395ミ,,ﾟДﾟ彡 ◆A6VzDeLphI
NGNGprocedure Register;
begin
RegisterActions('', [TNewAction], nil);
end;
0396デフォルトの名無しさん
NGNGおー、そんなのがあるんだ。ｱﾘｶﾞﾄﾝ。
0397デフォルトの名無しさん
NGNGttp://homepage1.nifty.com/MADIA/delphi/old.htm
のその他のところのアーカイブに入ってるやつは？
>>385
いつ非表示になったかがわかんないんだよー。
無理なのかなー。
0398デフォルトの名無しさん
NGNG前者でいい。
詳しくはオブジェクト指向のポリモフィズムについて勉強して下さい。
0399デフォルトの名無しさん
NGNG× TList
○ TObjectList
それから TCanvas を動的に作って管理して解放するって事は
Handleに GetDC とかで得たハンドルを渡してると思うのだけど、
その場合、TCanvas を解放しても自動的にReleaseDCとかされ
ないので注意する事。
0400デフォルトの名無しさん
NGNGだとしたらTObjectListで自動的に開放なんてさせちゃ困るのではないのか？
0402
NGNGP****.TXT のように頭文字がPで拡張子がTXTのファイルを
一括で削除する方法を教えてください。
DOSだと、Del P*.txt で削除できますが、DelphiだとDeleteFile('P*.TXT');
で無理でした。(汗)
0403デフォルトの名無しさん
NGNGvar
F: TSearchRec;
begin
if FindFirst('P*.txt', faAnyFile, F)=0 then
begin
repeat
DeleteFile(F.Name);
until FindNext(F)<>0;
FindClose(F);
end;
end;
0404
NGNG有り難う御座います。m(__)m
早速組み込んでみます。
0405デフォルトの名無しさん
NGNG「カスタム」で選べるだろ、と思ったのだが、これって使えないのね。
なんのためのカラーダイアログなのかと小1時間・・・。
0406デフォルトの名無しさん
NGNGだから、それをする時はTCanvasを継承して Createで GetDCしてDestroyでReleaseDCする必要があるね
0407デフォルトの名無しさん
NGNGそれならコレクションの方を継承するのが筋ではないか？
特定のデータを扱いたいからデータ構造に手を加えるというなら解るが、
特定のデータ構造に入れたいからデータに手を加えるというのは本末転倒かと。
0408デフォルトの名無しさん
NGNG0409デフォルトの名無しさん
NGNG消えろ水母野郎
0410デフォルトの名無しさん
NGNGコレクションをって、例えば TMyCanvasList とか作ってって事？
そうしたいならそうすりゃいいけど、そうするとTCanvas継承しか入れられなくなるし、
だいいち、必要なのはReleaseDCではなくDeleteDCかもしれないじゃないか。
だから、ここは DestroyでReleaseDC するTCanvas継承と DestroyでDeleteDCするＴＣａｎｖａｓ継承をそれぞれ作る方がいいよ
0411デフォルトの名無しさん
NGNGWM_EXITMENULOOPで分からないかな。
0412デフォルトの名無しさん
NGNG今はデルファイ６のパーソナルバージョンのみ無料で手に入るの？
0413デフォルトの名無しさん
NGNGいまから始めるならC#にしとけ。
タダじゃ手に入らんけどな(w
0414デフォルトの名無しさん
NGNG0415デフォルトの名無しさん
NGNGそれは・・・いまからDelphiとか言ってる香具師に勧めていいのか？(激藁
0416デフォルトの名無しさん
NGNG笑っているけど無知を晒しているだけだよ。
C#はタダで手に入るしIDEもSharpDevelopを使えばこれもタダだ。
0417_
NGNG0418デフォルトの名無しさん
NGNGもうDelphiパーソナルなんて型遅れ要らないね！
0419デフォルトの名無しさん
NGNG0420デフォルトの名無しさん
NGNG0421デフォルトの名無しさん
NGNG>>420
0422デフォルトの名無しさん
NGNGRadioButton1.Click;はできないみたいです。
0423デフォルトの名無しさん
NGNGオブジェクトインスペクタ→イベント→OnClick
0424デフォルトの名無しさん
NGNGプログラムからってこと？
だとしたら、RadioButton1.Checked := True;
0425デフォルトの名無しさん
NGNGRadioButton1.Checked := Trueでは、チェックは付くけど、OnClickのコードが実行されませんでした。
RadioButton1Clickというプロシージャは人間がクリックしなきゃ実行されないのだろうか。
0426デフォルトの名無しさん
NGNGSendMessage。FAQだ。
0427デフォルトの名無しさん
NGNGエラーメッセージ書かない奴はバカ
0428デフォルトの名無しさん
NGNGえらい回り道だな。
0429デフォルトの名無しさん
NGNGすいません。「未知のエラー」と出ました。
0430デフォルトの名無しさん
NGNGすいません。「無知のエラー」と出ました。
0431デフォルトの名無しさん
NGNG>422の内容で>425の内容を想像するのは困難だろ。最初から具体的に書けよ。
RadioButton1Click(Sender);
でいける。
0432Delphi 6 Personal
NGNG[致命的エラー] project1.dpr(1): Delphiの限界が垣間見えました
0433デフォルトの名無しさん
NGNGステレオラインは左右それぞれ音量指定しないとダメだったような記憶がある。
デバイス番号は主デバイス１個のみの決め打ちなら 0 でいい。
0434無料動画直リン
NGNG0435デフォルトの名無しさん
NGNGﾌﾟｯ、見えたのはオマエの限界だよ。
0436デフォルトの名無しさん
NGNGすいません。
まさか出来ないはずは無い、思い焦って書いたら小出しになってしまいました。
＞RadioButton1Click(Sender);
ちなみ、今それを書いてみて実行してみたのですがRadioButton1OnClickの内容が実行されなかったです
0437デフォルトの名無しさん
NGNGRadioButton1Click(Self);
0438デフォルトの名無しさん
NGNGD E L P H I の 限 界 の 予 感 ！
（ A A は ご 想 像 に お 任 せ し ま す ）
0439デフォルトの名無しさん
NGNG何故か読み込んだソースが文字化けしてしまいます。
メモ帳で開いたように、ソックリそのまま読むにはどうすればいいのでしょうか。
0440デフォルトの名無しさん
NGNGんだからこそ文字化けしたんだと思うんだが。
0441デフォルトの名無しさん
NGNGそれほどそこが浅いわけねーだろ。
それほど深くもねーけど(w
0442デフォルトの名無しさん
NGNGいったいどこに書いたんだ？
0443デフォルトの名無しさん
NGNG0444デフォルトの名無しさん
NGNGprocedure TForm1.FormCreate(Sender: TObject)に書きました。
もう諦めることにします・・・。
0445374
NGNGWM_EXITMENULOOP を検索してみたのですが、使い方が分かりません。。。
SendMessage(ハンドル,WM_EXITMENULOOP,wParam,lParam)
の返り値ってことですか？wParamをどうやって調べるのか・・。
0446デフォルトの名無しさん
NGNG絶対読める。Senderとか渡さなきゃ。
0447デフォルトの名無しさん
NGNGすみません。今、よく確認してみたら、
RadioButton1Click(Sender);で出来ていました・・・（´Д｀；）
0448デフォルトの名無しさん
NGNGDelphi6でバーチャルMIDIキーボードを作ってます。
とりあえずMIDI周りの処理は作り終わって、パソコンのキーボードを
仮想鍵盤にするテストをしてるんですが、
１．OnKeyDownイベントでMIDI出力開始
２．OnKeyUpイベントでMIDI出力停止
という仕様です。
キーボードを押している間は一つの音が継続して出るようにしたいのですが、
今はキーボードを押している間中OnKeyDownイベントが何回も発生して、
ピアノを連打しているような状態になってしまいます。
キーボードのキーの数だけKeyDown中のフラグを持たせれば一応解決するとは思うのですが、
何か他にスマートな解決方法はありませんでしょうか。
0449デフォルトの名無しさん
NGNGBooleanな配列でも作ってノートON、OFF状態を記憶する。
既に発音中ならそれ以上ノートONは投げない。
音源からある音が発生中か否かがチェックできるならそれを使った方が確実だろうけど。
0450デフォルトの名無しさん
NGNGNow Loadingを表示して、メインFormの作成にとりかかる、作成が終わったら
ゲームをスタートさせる･･･
とやりたいのですが、ステージ選択メニュー.onClickのイベントハンドラ内で
loading表示.visible := true;
Form1 := Tform1.create(Application);
とかやると、Loadingが表示される前にcreateが始まってしまい、createが終わるまで画面が凍ってしまいます。
どうしたらいいんでしょう？(´･ω･`)
0451デフォルトの名無しさん
NGNGtimer使うしか無いんでは。。
0452デフォルトの名無しさん
NGNGメモ帳で読み込んでも文字化けはしてると思うんだが？
漢字コードがシフトJIS以外なら。
0454448
NGNGありがとうございます。
やっぱりデータ持つしかなさそうですね。
KeyUpが発生するまでKeyDownイベントを発生させないようにできないかなーと
考えてたんですが、冷静に考えるとこの解決策と同じ事のような気がしてきました…
0456デフォルトの名無しさん
NGNGTimageを事前に作って仕込んでおき、ロード中のみvisibleにしようかな、とか思ってｵﾘﾏｽ。
0457デフォルトの名無しさん
NGNG良い方法かどうかわかりませんが。。
まずForm1Create許可用のBooleanを作り、falseにしておく。
ステージ選択メニュー.onClickのイベントハンドラ内では
loading表示.visible := true;とForm1Create許可用Boolean=trueのみ行う。
timer内でForm1Create。
0458デフォルトの名無しさん
NGNGWM_KEYDOWNで送られてくるmessageを調べれば、オートリピート中か調べられる。例えば
procedure TForm1.WMKeyDown(var message: TWMKeyDown);
begin
if message.KeyData and $40000000 = 0 then inherited;
end;
ってやれば、オートリピート中はOnKeyDownが発生しなくなる。
0459デフォルトの名無しさん
NGNG追記、以後使わないんであればFormCreate内でTimer破棄。
0460デフォルトの名無しさん
NGNGありがとうございます！！
こういう感じのを探してました。m(__)m
0461デフォルトの名無しさん
NGNGつーか、「Createが先に行ったように見える」ことが問題なんじゃないの？
「refresh」してみたら？
0462デフォルトの名無しさん
NGNG1アクションだとリフレッシュは後処理になったような気が。
処理を分けないとダメだったような。。気がする。
0463デフォルトの名無しさん
NGNGかっ、解決しました･･･単に描画の問題だったんですね。
皆様、ありがとうｺﾞｻﾞｲﾏｼﾀ！
0465デフォルトの名無しさん ◆/gyxcnlOg.
NGNG0466デフォルトの名無しさん
NGNGかっこいい！
intA := intA;
みたい！
0467デフォルトの名無しさん
NGNG0468デフォルトの名無しさん
NGNGGoogleで検索すれば出てくるよ
0469デフォルトの名無しさん ◆/gyxcnlOg.
NGNGhttp://www.google.com/search?q=%E8%B3%AA%E5%95%8F%E3%81%A7%E3%81%99%E3%80%82Google%E3%81%A3%E3%81%A6%E4%BD%95%E3%81%A7%E3%81%99%E3%81%8B%EF%BC%9F&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
0470デフォルトの名無しさん
NGNGデルファイでオセロゲームを作れるようになるのは何日くらいかかりますか？
0471デフォルトの名無しさん
NGNG使うのイメージコントロールくらいだろうから2日。
0472デフォルトの名無しさん
NGNGFormCreateイベントには、そのフォームに乗っかってるコントロールの
イベントを呼び出すようなコードは書かない方がいいよ。
フォームは生成されてても、まだ描画か完了してない可能性がある
からね。
0473デフォルトの名無しさん
NGNGそのお前が言う「描画」に関する処理がなければ普通に呼び出せるが。
0474
NGNG実行させるか選択させたいのですが、「いいえ」を押しても
フォームが表示されてしまい終了できません。
フォームを表示させずに終了させる方法は無いですか？。
procedure FormCreate(Sender: TObject);
var
MesChk : Word;
begin
MesChk := MessageDlg( プログラムを開始しますか？', mtWarning, [mbYes,mbNo], 0);
if MesChk = mrNo then Close; //「いいえ」を選択してもフォームが開いて終了できない。
end;
0475デフォルトの名無しさん
NGNG0476デフォルトの名無しさん
NGNGプロジェクトファイル名.DPR
にコードを書くと良いでしょう。
0477デフォルトの名無しさん
NGNG組み合わせて使えばよいですか？
0478デフォルトの名無しさん
NGNG秘密。
0479デフォルトの名無しさん
NGNGそろそろ本格的にやりたくなってきたんで、有料版を買おうと思うんですけど、
年末にでるという新リリースを待った方がいですか？
www.borland.co.jp/about/message/openletter_to_delphi_community.html
0480デフォルトの名無しさん
NGNG金出すなら別の選択肢も考慮に入れた方が良いと思う。
0481デフォルトの名無しさん
NGNG金を出す前に無料のC#もやってみたまえ。ってDelｽﾚで勧めるなよ→俺
0482デフォルトの名無しさん
NGNG無料のC#より出来ることが少ない？
無料のデルファイはインターネットのブラウザとか作れないっぽいけど
C#なら作れる？
0483デフォルトの名無しさん
NGNGコンポーネントが入ってないだけで作れないことはない……はず。
openjaneとか
0484デフォルトの名無しさん
NGNGアホですか？
0485デフォルトの名無しさん
NGNGアホです。
0486デフォルトの名無しさん
NGNGうむ、がんばれよ。
0487デフォルトの名無しさん
NGNGここ超初心者向けの板だからさ、手加減しろよ(藁
0488デフォルトの名無しさん
NGNGほんのわずかな休日なんだし。
0489デフォルトの名無しさん
NGNG472は、相手が超初心者だからそう書いたんだと思う。
そのあたりのことがわかってる香具師ならいいんだけど、
イベントの呼び出しがわからないレベルの香具師がハマ
ると混乱するからね。
俺もDel始めた頃にハマった経験があるし（藁
0490デフォルトの名無しさん
NGNGprocedure TForm1.FormCreate(Sender: TObject);
begin
close;
end;
0491デフォルトの名無しさん
NGNG当然、内部的なプロセスが二つできるので、同じオブジェクトにアクセスする場合は衝突しないように
排他処理とか同期を取らないといけないと思いますが、たとえば
・ フォームからのtext入力をメインスレッドが読み、値を計算して大域変数に代入
・ サブスレッドはループしながら、その変数に変化があったらTForm.image.pictureに描画する
とかいう場合では、メイン→サブの一方通行なので特に衝突しなさそうに見えますが･･･ダメですか？
0492491
NGNGSynchronizeを使ってメインスレッドから指令を出せばいいのか(´･ω･`)
0493デフォルトの名無しさん
NGNG＞ほんのわずかな休日なんだし。
VBには仕事があって、Delphiは無職で糞だと言うことか
0494デフォルトの名無しさん
NGNG0495デフォルトの名無しさん
NGNGhttp://www.wwlnk.com/boheme/delphi/vbtodel/daf0980.html
0496デフォルトの名無しさん
NGNGそれ使ってみますどーも！
0497デフォルトの名無しさん
NGNG例えばユーザが125と入力したいとする。
大域変数：1
1で処理を開始。
大域変数：12
1の処理が終わる前に入力されると途中から12の処理になる。
大域変数：125
1の処理が終わる前に入力されると途中から12の処理になる。
こうなる。この場合排他制御がないと結果がぼろぼろに。
ただ単に非同期処理をしたいだけならグローバル変数なんぞ使わず
もっと安全な方法があるっしょ。
0498デフォルトの名無しさん
NGNGたとえばボタンを押すと１０秒後にラベルを変化させたいんだけど
procedure TForm1.Button1Click(Sender: TObject);
begin
//ここで10秒待つ
Label1.Caption:=('１０秒たちました');
end;
１０秒間何もしない命令を教えて。
0499デフォルトの名無しさん
NGNG0500デフォルトの名無しさん
NGNGそれって意図どうりに動かんよね。
ttp://www.borland.co.jp/qanda/delphi/d0000150.html
0501デフォルトの名無しさん
NGNGビジーループになるんだっけか？
0502Sleep(10000);
NGNGヘルプ読んだのですが、どこが違うのかよく分かりませんでした
0503デフォルトの名無しさん
NGNGhttp://www.campus.ne.jp/~ishigami/CREATION/COLUMN/CD1MATI.htm
0504デフォルトの名無しさん
NGNG例外があろうが無かろうが実行される。
例外がある場合に実行される。
Delphi唯一の失敗は、同時にその二つが指定できないことだ。
0505デフォルトの名無しさん
NGNGどうもです。
0506デフォルトの名無しさん
NGNGstatic struct{
int a;
int b;
}data[]=
{
12,23,
34,45,
56,67
};
Delphiのレコード型でも同じようなことはできないですか？
せめて、配列の宣言と初期化を一度にやりたいのですが。
0507デフォルトの名無しさん
NGNGローカル変数では出来ません。
もしそういう表現が出来たとしても、隠れた代入文が作られるだけですしね。
その為にwith文があるのですから。 これを使って下さい。
グローバル変数なら（unit内のグローバル変数でも）可能です。
0508デフォルトの名無しさん
NGNG0509デフォルトの名無しさん
NGNG0510デフォルトの名無しさん
NGNGs/Dedi/Jedi/
0511デフォルトの名無しさん
NGNGゲームプログラムなんですが、いままでonIdleを使って画面描画していたものを、
スレッド仕様に書き換えてみました。
メインスレッドは数値を計算し続け、サブスレッドはそれを元に画面を描画し続けるという感じです。
が、onIdleだと、描画が忙しくなってくる→onIdleが発生しなくなる→描画を間引く→負荷が減る→(ﾟдﾟ)ｳﾏｰ
といった構図で、メインが圧迫されることはなかったのですが、
スレッドにしたら、サブスレッドが全力をあげて描画しようと頑張るもので、描画に負荷がかかると
メインスレッドにあるタイマが遅延してしまい、ｶﾞﾀｶﾞﾀになってしまいました。･ﾟ･(ﾉД`)･ﾟ･｡
while(true) do begin
start := timegettime;
Synchronize(ﾟдﾟ); // ここでメインスレッド経由でVCLに描画
stop := timegettime;
if (stop - start < 33) then sleep(33 - stop - start);
end; // 描画が33ms以下なら、30FPSになるようにwaitを入れる
サブスレッド内はこんな感じなんですが、
これだと、33ms以上になると描画処理だけで全部持って行かれてしまうか･･･。
0512デフォルトの名無しさん
NGNGJedi Code Formatらしい。
これ楽だね。サンキウ
0513デフォルトの名無しさん
NGNGもうどこから突っ込んで良いのやら・・・
0514デフォルトの名無しさん
NGNG>VBには仕事があって、Delphiは無職で糞だと言うことか
それ微妙にちがう…｡
VBはバグ取りと称して仕事をせざるを得なく､Delphiはその間に
プロジェクトの構築がすべて終わっている｡
0515デフォルトの名無しさん
NGNG無職は嫌なのでVBを覚えることにします
ありがとうございました
0516デフォルトの名無しさん
NGNG名前をつけて保存、とか
開くを選ぶとデフォで最初にでてくるのが
C:\Program Files\Borland\Delphi6\Projects
絶対ここになちゃうんだけど
かえるのどうやるの？
0517デフォルトの名無しさん
NGNG0518デフォルトの名無しさん
NGNGDelのショートカットのプロパティを開いて、
作業フォルダをお好きなフォルダにしませう。
0519デフォルトの名無しさん
NGNGそれは無理な話だ。Del厨名乗っている香具師でも
殆どの奴はVBも当然のように使えますんで。
0520デフォルトの名無しさん
NGNGThx!!できました。ありがとう。
0521デフォルトの名無しさん
NGNGこいつはひとつのプロジェクトが終わったら次の製品/商品をどんどんつくって
金を稼ぐという考え方がないのか？
永遠に進歩がないやつだな｡
VB使ってもメモ帳使ってもいっしょだな｡
0523デフォルトの名無しさん
NGNG現在C/SのDBアプリを開発しています。
クライアントでテーブルをTQueryでオープンするときに
LANケーブルをわざと抜いて、DBにアクセスできない時の処理を作っているのですが、
その後アプリケーションを終了させようとすると
ウィンドウは消えるのですが、タスクバーに残っていて、
Delphiで強制的に終了させても、「プログラムを終了できません」になります。
これを回避するにはどうすれば良いでしょうか？
OSはWindowsXPです。
宜しくお願いします。
0524デフォルトの名無しさん
NGNG例えばBDEを使ったアプリを作ったとして。
これを配布するには、配布先のPCにBDEがインスコされてないとダメなんでしょうか？
BDEが入ってないPCで動作確認しようとしたらエラーが出て動かなかったもので…
また、BDEをインストールしないでよい方法があったら教えていただけないでしょうか？
0525デフォルトの名無しさん
NGNGhttp://www.borland.co.jp/kylix/papers/kxguide/kxguid15.html
0526デフォルトの名無しさん
NGNG0527デフォルトの名無しさん
NGNGInterBaseかFirbird にしたら？
0528デフォルトの名無しさん
NGNGこれだと、もう一つ同じ処理をすると、前に鳴っていた音は消えます。
前に鳴っていた音が鳴ったまま重なるように鳴らすにはどうすれば良いですか？
0529デフォルトの名無しさん
NGNGTryを多用しまくってます（というか、かなりの範囲を一つのTry Exceptでくくってます）が
処理が異様に遅くなってるような気がします。
Tryが多くなると処理が遅くなるのですか？
それとも、Tryは関係ないですか？
0530524
NGNG>>526
>>527
ありがとうございます。
そうです。何もDBをインストールせずにってことです。
これから作る前に聞いておいて良かったかも。
BDEだと配布先のPCにもBDEをインストールしないと
だめってことですよね？
MyBaseもInterBaseもFirbirdも使ったことないけど
がんがってみます。
0531デフォルトの名無しさん
NGNG関係無いです。
0532デフォルトの名無しさん
NGNGレスクス。
そうみたいっすね。
0533ななしへたぐらま ◆XcB18Bks.Y
NGNGTMemo.Linesの各行は表示行（画面の見た目の行）であって論理行（改行コードで区切られた行）ではないので注意が必要です．
以下はサンプル．フォームにメモを３個とボタンを２個置き，Memo1とMemo3の幅をかなり広く，Memo2の幅をかなり狭くします．
const
cNewLine = #$0d#$0a; // 改行コード
cSample =
'>>339' + cNewLine +
'TMemo.Linesの各行は表示行（画面の見た目の行）であって論理行（改行コードで区切られた行）ではないので注意が必要です．' + cNewLine +
'Textを使った方が安全かも．';
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.Assign(Memo1.Lines);
Memo3.Lines.Assign(Memo2.Lines);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Text := Memo1.Text;
Memo3.Text := Memo2.Text;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text := cSample;
end;
Button1を押した場合とButton2を押した場合で結果が違う点に注目．Textを使うのが安全確実高速．
0534デフォルトの名無しさん
NGNGどのコンポーネントを組み合わせて作ればよいでしょうか。
0535デフォルトの名無しさん
NGNG0536デフォルトの名無しさん
NGNG「>>534じゃ」むり
0537デフォルトの名無しさん
NGNG「操作パネル」って何のこと？
0538デフォルトの名無しさん
NGNGここで探せ。きっとある。
Delphi Super Page
ttp://delphi.icm.edu.pl/
0540デフォルトの名無しさん
NGNG0542デフォルトの名無しさん
NGNG例えば
[0]
[1] DEF
[2]
[3] ABC
とあった場合
[0] DEF
[1] ABC
としたいのです。
0543デフォルトの名無しさん
NGNGwith TStringList do
for I := Count -1 downto 0 do
begin
if Strings[I] = '' then
Delete(I);
end;
0544デフォルトの名無しさん
NGNG0546デフォルトの名無しさん
NGNG0547デフォルトの名無しさん
NGNG変換テーブル書く。
0548デフォルトの名無しさん
NGNG$80マイナスしてから_mbcjistojmsでJIS→SJIS変換
0549デフォルトの名無しさん
NGNGコードページ 54932 で Unicode に変換してから AnsiString にキャスト。
0550デフォルトの名無しさん
NGNGこれだと、もう一つ同じ処理をすると、前に鳴っていた音は消えます。
前に鳴っていた音が鳴ったまま重なるように鳴らすにはどうすれば良いですか？
0551デフォルトの名無しさん
NGNGように作ってみたんですが、うまくできません。
作成した物をInstallShieldExpressでインストールした一部の
WinXP HOME機で実行してプレビューを見ようとすると、
「アドレスの00000001で00000001に対する読み込み違反が起きました」
というエラーメッセージが出て、さらにプレビューの次ページを見ようと
ボタンをクリックすると、「メタファイルが不正です」というメッセージが出ます。
自分の開発用PC（WinXP Pro）や他のWinXPでは、このようなエラーは
起きないので、どうしてなのか分からず困っています。
どなたか助言ください。
「いまどき3.01かよ」ってのはナシの方向で。
0552デフォルトの名無しさん
NGNG×自分の開発用PC（WinXP Pro）や他のWinXPでは
○自分の開発用PC（WinXP Pro）や他のWinXP HOMEでは
ちなみに互換モードで試してみたんですが、駄目でした。
0553デフォルトの名無しさん
NGNGフォームに切り替わる時に、画面がチラチラします。
（パっと出てこない）
この辺を綺麗にするためのテクニックなどありましたら
ご教授下さいまし。
0554デフォルトの名無しさん
NGNG1. 方法その1
LockWindowUpdateを使用する｡
Form1からForm2(ボタンがたくさんあるフォーム)を呼び出す｡
procedure TForm1.Button1Click(Sender: TObject)
begin
Screen.Cursor := crHourGlass;
LockWindowUpdate(Handle);
try
Form2.Show;
finally
LockWindowUpdate(0);
Screen.Cursor := crDefault;
end;
2. ボタンが同じ大きさで格子状に配列されてもよい場合
こういうコントロールを使用して､たくさんのボタンを1個にしてしまう｡
http://www.woll2woll.com/1stclass/tour/buttongroups.html
(英語)
LockWindowUpdateはWin32ヘルプか､MSDNを参照のこと｡
0555デフォルトの名無しさん
NGNGsndPlaySound(Pchar('SOUND.WAV'),SND_ASYNC);
を
sndPlaySound(Pchar('SOUND.WAV'), SND_MEMORY + SND_ASYNC);
にすると、どうなる？
0556553
NGNGレス、ありがとうございます。
LockWindowUpdateを使ってみたのですが、
まだ画面にパッと出てこずに、ちらつきます。
PCの処理が追いついていないのだと思います。
方法２にトライしてみます。
0557550
NGNGレスありがとうございます。
音が鳴らなくなりました。
0558553
NGNGLockWindowUpdate(Handle);
の部分を
LockWindowUpdate(Form2.Handle);
にしたら、かなり改善しました。
0559デフォルトの名無しさん
NGNGそもそもひとつの画面にボタンが80個あるインターフェースを作り上げることが
間違いだと言ってみるテスト｡
ちらつきの問題が解決されても､それだけでリソース食っちまうし､
機能別に別フォームにするか､せめてタブコントロールで分けるという
ようにしたほうがよくないか？
それとも電卓とか､レジスタみたいなものを作ろうとしているならば､
ボタンを集合させたVCLがどっかにあるはずだから､探してそれ使ったほうがいい
と思ふよ(>>554がそれなのか？)
0560553
NGNG親身なレスありがとうございます。
ソフトウエアキーボードを作っているので、どうしても
ボタン数が多くなってしまいます。
作っていて「こんなにボタンを作ってもいいのかなぁ」と思っていました。
ボタンを集合させたコントロールを使うのが、この場合
理にかなってるんですね。
>>554を含めて、色々検討してみます。
0561
NGNGってなんですか？
ぐぐってもほとんど分かりませんでした。
0562デフォルトの名無しさん
NGNG0563デフォルトの名無しさん
NGNGImageの元々のイベントをコンポのイベントとするためには
どう記述すればいいんでしょうか？
0564デフォルトの名無しさん
NGNGお前だけだぞ。コンポコンポ言ってるの。バカみたいだ。
0565デフォルトの名無しさん
NGNG0566デフォルトの名無しさん
NGNGhttp://store.borland.co.jp/upgrade/csharpbuilder_cmp.html
0567デフォルトの名無しさん
NGNG循環参照OKか否か。
0568デフォルトの名無しさん
NGNG他のユニットに公開するInterfaces節の記述に必要か否か。
Classes.pasで定義されたTListを例に取る。
interface
uses Class;
function Hoge: TList;
implimentation
function Hoge: TList;
begin
result := nil;
end;
↑interface節でuses Classesが必要。
interface
function Hoge: Integer;
implimentation
uses Classes;
function Hoge: Integer;
var
l:TList;
begin
result := 1;
end;
↑implimentationでuses Classesが必要。
0569デフォルトの名無しさん
NGNG片方だけruntime error 217と出て起動できません。
OSはXpProsp1です。
マシンの違いは起動できない方がPentium4 2.4Ghz、RAM1GB、動く方がceleron1.8Ghz、RAM512MBです。
両方とも新規で買ったDELL製で同じようにインストールしたのつもりなのですが。
アプリ自体は３年前から使用していてWIN95～XpHomeまですべてのバージョンで問題なく動いてました。
ちょっと原因の見当がつかないのでこのエラーがどんなときに発生するのかご存じでしたら教えてください。
0570デフォルトの名無しさん
NGNGほう、LinuxやBSDはOSではないと、いい根性だな。
0571デフォルトの名無しさん
NGNGは？
どこにそんなことが書いてありますか？
0572デフォルトの名無しさん
NGNGOSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OS means Windows。
0573デフォルトの名無しさん
NGNG論理的に説明してもらえませんか？
馬鹿みたいなコピペしかできないのなら氏ねよ。
0574デフォルトの名無しさん
NGNG0575デフォルトの名無しさん
NGNG0576デフォルトの名無しさん
NGNGちょっと必要になったので
0577デフォルトの名無しさん
NGNG無いね。
C++ BuilderはPascalソース使えるんだけどな。
他のコンパイラでDLLにでもしなさい。
0578デフォルトの名無しさん
NGNGコールバックっつうの？
そんなイメージ。
0579デフォルトの名無しさん
NGNG0580デフォルトの名無しさん
NGNGクラスにしろってことか。
ありがとう。
0581デフォルトの名無しさん
NGNGOSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1OSはXpProsp1
OS means Windows。
0582デフォルトの名無しさん
NGNGhttp://game3.2ch.net/test/read.cgi/mmominor/1054592980/l50
技術士キボンヌ歓迎します。
0583デフォルトの名無しさん
NGNG0584デフォルトの名無しさん
NGNGいったんBCCなどで.objにコンパイルして、それをDelphiとリンクさせることはできたと思う。
http://www.borland.co.jp/qanda/lang/l0002163.html
0585デフォルトの名無しさん
NGNG横からですが…ホント！？
なら他のEUC-XXのコードページもあります？？
0586デフォルトの名無しさん
NGNG疑う前に MSDN ドキュメントチェック。
一通り、IE/Outlook が処理できるコードページは使えるようになっている。
ただし IE をインストールする必要があるが、とんでもなく古い Win95 で無ければ
大丈夫でしょ。
JIS / ISO2022 もサポートされているよ
0587デフォルトの名無しさん
NGNGGB18030 - 54936
簡体字 ISO-2022 - 50227
韓国語 EUC - 51949
0588
NGNG1stClass3000proってのをダウンロードしたら良いのですか？
0589デフォルトの名無しさん
NGNG☆見て見て！！
http://yahooo.s2.x-beat.com/linkvp2/linkvp2.html
0590デフォルトの名無しさん
NGNGDelphiユーザにMSDNみろと言うのも酷な話だと思われ。
Web版は重いし激しく使いにくいし。
0591デフォルトの名無しさん
NGNGま、人それぞれ。
0592デフォルトの名無しさん
NGNGそうです。その中の TfcButtonGroupというのを使ってみる｡
0593デフォルトの名無しさん
NGNGペン４ 2.4Gか、ケロリン1.8Gかはあまり関係ないだろうな｡
多分BDEのエリアスがちゃんと設定されていないからじゃないの？
もいちど、エリアスをチェックしる
0594
NGNG有料っぽいね。
0595デフォルトの名無しさん
NGNG実践その2 ＜TList.Items＞
http://hp.vector.co.jp/authors/VA009712/take/delphi/pointer.htm#tlist
この内容で疑問に思ったんですが、
FList.Clear; した時に、FListに登録されているTMyItemはちゃんと
Destroyされるものなんでしょうか？
0596デフォルトの名無しさん
NGNGDestroyされません
その例はデストラクタでちゃんと掃除をしてないので
メモリリークを起こすと思います
0597デフォルトの名無しさん
NGNGやっぱりそうですよね…
ところで、DeleteやDestroyに各TMｙItemをFreeするように書いて、
Listの先頭のMyItemを別に宣言したMyItemに代入した後に、ListをClearして、
MyItemのプロパティを参照してもエラーにならなかったんですが、
これは同じオブジェクトを見てなくて、代入時にAssignされたのかな？
0598デフォルトの名無しさん
NGNGたまたまエラーにならなかっただけだと思う。
自動でAssignされるようなことはないし、そもそもMyItemはTPersistent
を継承していないのでAssignメソッドを持っていない。
0599
NGNGってやると、画像のエッジがガタガタになります。
エッジが滑らかなまま拡大縮小するにはどうすれば良いでしょうか？
0600_
NGNG0601デフォルトの名無しさん
NGNGサンクス。しかし、54932をMultiByteToWideCharに渡しても玉砕しました。一応Win2000。
0602デフォルトの名無しさん
NGNGWinを抜いただけでなぜそうなるのか教えてくれない？
0603デフォルトの名無しさん
NGNG0604デフォルトの名無しさん
NGNGありがとうございます。
そのへんは何度も何度も設定し直したのですがだめでして、
諦めて後回しにしていたネットワークプリンタドライバーをインストールしたら
なぜか起動するようになりました。
なぜだろう…
プリンタ回りはTPrinterSetupDialogを置いてるだけでアプリからはいじってないんだけどな。
0605デフォルトの名無しさん
NGNG0606デフォルトの名無しさん
NGNG0607デフォルトの名無しさん
NGNG0608デフォルトの名無しさん
NGNGhttp://www.borland.co.jp/qanda/delphi/d0000090.html
http://www2.big.or.jp/~osamu/Delphi/tips.cgi?index=0204.txt
0609デフォルトの名無しさん
NGNGDelphiは高すぎるよな。UMLみたいな仕事ができるのなら
いいのだが。
0610デフォルトの名無しさん
NGNGDOSは…分野によっては充分現役なので…つか、制御系とかだと変にWinに置き換え不可では…
Delphiは…まあ、UMLならEnt版で可能だけど…高すぎるよな。同意。
0611デフォルトの名無しさん
NGNG0612デフォルトの名無しさん
NGNG>>448で質問して>>458の回答を頂いたのですが、
WM_KEYDOWNのパラメータを取得する方法がわかりません。
今はprocedure宣言時に以下のようにしてます。
procedure WMKeyDown(var message: TWMKeyDown); message WM_KEYDOWN;
ヘルプでmessage(指令)を調べると、こう書けばWM_KEYDOWNメッセージ取得時に勝手に動いてくれる…
ように見えるのですが、動いていないようです。
コードの所にブレイクポイントを設定しても、来ていませんでした。
どう質問すればよいのかもよくわかっていないのですが…(汗
やりたいことは「キーリピートを抑制するために、WM_KEYDOWNのデータ取得時のパラメータを知りたい」？です。
0613デフォルトの名無しさん
NGNGオンラインヘルプを使うといいよ
Delphiのエディタ上にDisableAlignをこぴぺして
その上にカーソルを合わせてF1を押す
0614デフォルトの名無しさん
NGNGボタン等にフォーカスがあったら、そっちにWM_KEYDOWNが送られて
フォームには送られてこないけど、そういう状態なんでない？
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if (Msg.message = WM_KEYDOWN) and (Msg.lParam and $40000000 <> 0) then Handled := True;
end;
↑みたいにApplicationEventsのOnMessageで、アプリ全体のキーリピートを抑制すればいいと思う。
適当に条件足せば、MIDIキーボードのフォームがアクティブのときだけ抑制する、とかできるだろうし。
0615デフォルトの名無しさん
NGNGそのラベルが必要無くなったら一度に全てのラベルを削除したいのですが、
どうにもやりかたがわかりません。
Nameプロパティを与えて Name.Free; とやってみたのですが
「実パラメータが足りません」とエラーが出て駄目でした。
どなたか良い方法をご存知無いでしょうか。
0616デフォルトの名無しさん
NGNGTLabelのParentが決まっているだろうから
ParentコンポーネントのControlsプロパティを使って削除する
例えばこんな感じ（ParentがaPanelだとして）
for i:=0 to aPanel.ControlCount-1 do
if aPanel.Controls[i] is TLabel then
aPanel.Controls[i].Free;
0617デフォルトの名無しさん
NGNGTLabelから派生した専用のクラスを作って判定すればOk
0618デフォルトの名無しさん
NGNG0619デフォルトの名無しさん
NGNGフォームが消えるときに-1するのをお忘れなく。
0620デフォルトの名無しさん
NGNGfor i:=aPanel..ControlCount-1 Downto 0 do
ってしたらできました！ ありがとう！！！１！
>>617
派生とかって良くわかんないので勉強してみますね！
レスありがとう！
0621デフォルトの名無しさん
NGNGアプリケーションレベルでやったらキーリピートを抑制できました。
有り難うございます！
>ボタン等にフォーカスがあったら、そっちにWM_KEYDOWNが送られて
>フォームには送られてこないけど、そういう状態なんでない？
Form1の「KeyPreview」プロパティをtrueにしてあるんですが、
これではこないと言うことでしょうか。。
とりあえず動いて気持ち的に余裕が出来たのでｗ、もう一度調べ直してみます。
0622デフォルトの名無しさん
NGNGそう。KeyPreviweをTrueにしてもフォームにWM_KEYDOWNが送られてくることはない。
0623デフォルトの名無しさん
NGNGすみません、ありがとうございます。
メッセージを受け取る順番?みたいな物を把握しないとだめっぽいですね。
教えていただいた方々、ありがとうございました。
0624デフォルトの名無しさん
NGNGありますか？
0625デフォルトの名無しさん
NGNGhttp://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/article/059/059098.html
http://pas2dox.sourceforge.net/
0626デフォルトの名無しさん
NGNGで出力するとファイルにAが出力されるのですが、
AAA: String;
AAA := 'A';
Tfilestream.WriteBuffer(AAA, Length(AAA))
とすると・になってしまいます。
なぜなんでしょうか？引数の const と言うのが原因でしょうか？
0627デフォルトの名無しさん
NGNG0628デフォルトの名無しさん
NGNG0629デフォルトの名無しさん
NGNG0630デフォルトの名無しさん
NGNG低機能で宵で津。
0631デフォルトの名無しさん
NGNG他のアプリのメモリの値を取得する方法を教えてください。
0632デフォルトの名無しさん
NGNGゲームの改造なら、バイナリエディタ使えばいいんでない
0633デフォルトの名無しさん
NGNGレス、ありがとうございます。
それは、まあそうなんですけど、
バイナリエディタやプロセスメモリエディタだと
毎回同じ処理をするのが面倒だったり、その上アドレスや数値を間違うと
えらい目にあうし。
パソコンにあまり詳しくない友人なんかには説明しづらいし。
ゲームごとに、Delphiでexeにするとその辺が解決できるかなと。
まあ、Delphiを使えるようになりたいという下心のほうが大きいわけですが。
0634デフォルトの名無しさん
NGNGモーダルフォームみたいに常に前面に表示するにはどうすればいいですか？
0635デフォルトの名無しさん
NGNGこれは、こういう風に書くしかありませんか？
0636デフォルトの名無しさん
NGNGif i in [2..6] then
詳しくはヘルプの集合型演算子を参照のこと。
0637デフォルトの名無しさん
NGNG0638デフォルトの名無しさん
NGNG＞{$WARNINGS OFF}
＞これは警告メッセージの生成を無効にするコンパイラ指令です。
ヘルプに載ってたんですが、これ使えそう？
0639デフォルトの名無しさん
NGNG0640デフォルトの名無しさん
NGNGhttp://www.vector.co.jp/soft/win95/prog/se205882.html
0641デフォルトの名無しさん
NGNG0643デフォルトの名無しさん
NGNGググればでてくる。
0644デフォルトの名無しさん
NGNG0645デフォルトの名無しさん
NGNGがんばればゲーム作れるでしょうか。
0646デフォルトの名無しさん
NGNG高度なゲームならかなり大変
人間より強い囲碁対局ソフトだと一生掛かっても無理かもしれない
0647デフォルトの名無しさん
NGNG0648デフォルトの名無しさん
NGNGあくまで理論で実践には役に立たんよ。＜遊びのレシピ
0649デフォルトの名無しさん
NGNGDelphiで描くプログラムソースを教えてください。
本読んでも全然わかりません・・・。
0650デフォルトの名無しさん
NGNG技術家庭科の本に立体の書き方とか載ってなかったか？角度は30°で長さは1/2とか言う奴。
0651デフォルトの名無しさん
NGNG変換する・・・ってやつなんですが、Ｃ言語？みたいです。
どこかのサイトにDelphiで組まれたプログラムのってないでしょうか？
0652デフォルトの名無しさん
NGNGゲーム作るのって難しいよ。
動かすだけでも物凄く大変なのに、人間を楽しませなきゃいけない。
0653デフォルトの名無しさん
NGNGLightwave等の3DCGソフトを解析してワイヤーフレームを描く部分をパクる
大変そうだけど頑張ってね
0654デフォルトの名無しさん
NGNGDelphiX
ttp://www.yks.ne.jp/~hori/DelphiX.html
0655デフォルトの名無しさん
NGNG【Delphi】 ゲームつくるぞ(ﾟДﾟ)ｺﾞﾙｧ 【作れば?】
http://bbs.gamdev.org/test/read.cgi?bbs=gamedev&key=1054282821
いってよし！
0656デフォルトの名無しさん
NGNGButtonがImageより上にあって、Buttonの部分の絵が隠れてしまいました。
Form上に存在するあらゆるコントロールより、このImageが上に表示されるようにするにはどのようにすればいいのでしょうか？
0657656
NGNG0658デフォルトの名無しさん
NGNG0659デフォルトの名無しさん
NGNG0660デフォルトの名無しさん
NGNGMyCanvas.Handle :=GetDC(0) で作ったMyCanvas上に描けば 自分のフォームだろうが、他人のフォームだろうが自由に描ける
0661デフォルトの名無しさん
NGNG作ったままだとPageControlのタブにフォーカスがあって、キーボードで操作できない・・・・。
0662デフォルトの名無しさん
NGNG各sheet.のonenterでデフォルトのコントロールに
setfocusするのはどうだろう。
0663デフォルトの名無しさん
NGNGメインスレッドの優先度を変更する方法がわかりません。
よ？
0664デフォルトの名無しさん
NGNGprocedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_KEYDOWN) then form1.Caption := chr(Msg.wParam);
end;
これを実行するとForm1のCaptionに押したキーが表示されますが、
CapsLockを押していないにもかかわらずアルファベットは全て大文字になり、
「,」や「.」は半角カナになってしまいます。
なにか特別なことをしないとだめなのでしょうか。
0665デフォルトの名無しさん
NGNG0666デフォルトの名無しさん
NGNGADS形式とＰＡＣ形式とＩＭＧ形式を解凍するモジュールを使います。
0667デフォルトの名無しさん
NGNGメインスレッドもスレッドのひとつ。
GetCurrentThread で「現在」のスレッドハンドルが取れるよ。
「現在のスレッド」のハンドルなので、呼び出すコンテキストを間違えないように。
0668デフォルトの名無しさん
NGNGあいにく、WM_KEYDOWN はそういうものだから。あなたが見ているのはスキャンコード。
物理的なキーの番号とそれが生成する文字コードは本来別のものだから。
WM_CHAR を使うことを考えましょう。
それと、WM_CHAR と WM_KEYDOWN の違いを調べましょう。
0669デフォルトの名無しさん
NGNGよ？
0670デフォルトの名無しさん
NGNG子フォームA_WinにImageを貼り付けて
unit A_Win;
type
TMDI_A = class(TForm)
・・・
Image1: TImage;
・・・
end;
var
A: TMDI_A;
親フォームMainFormから子フォームA_Winを開いたときに
Imageの内容をクリアしようとしています。
このクリア部分を別のUnitで行なおうとするとき
unit Graph;
procedure Clr_Image(WakuColor,NaibuColor ・・・);
with A.Image1.Canvas do // (←)
begin
//Pen を使って長方形を描画して、その図形を Brush で塗りつぶす
Pen.Color := WakuColor; // 枠色
Pen.Style := psSolid;
Brush.Color := NaibuColor; // 内部色
CopyMode := cmWhiteness;
Brush.Style := bsSolid;
// Image画面のクリア
Rectangle(0,0, Width, Height);
end;
矢印部分(←)で、EAccessViolation クラス例外となってしまいます。
ActiveMDIChildプロパティを使うのかもしれませんが、わかりません。
教えて下さい。
0671デフォルトの名無しさん
NGNGたとえばフォームのOldCreateOrderプロパティのからみとかで。
0672デフォルトの名無しさん
NGNGプロジェクトファイルの一番頭にあるprogramの次に先頭が数字の文字列が入っているとエラーが出ます。
たとえば10000yenのように数値とアルファベットがくっ付いていても数値と見なされエラーになります。
0674デフォルトの名無しさん
NGNG0675デフォルトの名無しさん
NGNGありがとうございます。
キーボードの種類(日本語キーボード)とか、
まっったく見当違いなことを調べてました。。
0676デフォルトの名無しさん
NGNG仕様なんですが。
0677デフォルトの名無しさん
NGNG0678デフォルトの名無しさん
NGNGインストールしようとしているコンポーネントはこれです
Indy - Download Indy 9.0
http://www.nevrona.com/Indy/download/Indy9.html
・.zip を展開し、展開したファイルを全て $(DELPHI)\Source\Indy にコピー
・そこで、fulld6.bat を実行
・$(DELPHI)\Source\D6 ディレクトリが作られ、そこに *.dcu と dclindy*.bpl ができる
・dclindy*.bpl を $(DELPHI)\Bin\ にコピー
この様な手順で、インストールしましたが、
----------------------------------------------------------
delphi32.exe - エントリ ポイントが見つかりません
プロシージャ エントリ ポイント @Idresourcestrings@_RSBindingAny が
ダイナミック リンク ライブラリ Indy60.bpl から見つかりませんでした。
----------------------------------------------------------
こんなエラーメッセージが出てしまいます。標準で入っている Indy が古い（確か v8 ぐらい）
ので、新しいのをインストールしようと思いましたが、うまくいきませんでした。
どなたかご教示願いますヽ(´Д`；)ﾉ
0679デフォルトの名無しさん
NGNG0680デフォルトの名無しさん
NGNGですが、最近.NETというものを知り、これで大丈夫なのかと思うようになりました。
APIを優先して使った方が良いのか、Delphi言語(?)を優先して使った方が良いのか教えてください。。
0681デフォルトの名無しさん
NGNG漏れの環境だとインストーラ使ってもインスト出来てないよ･゜･(ノД｀)･゜･
まぁ、手動でインスト試したときのエラーが678と違うから678はインストできると思うが
0684デフォルトの名無しさん
NGNG㌧。
0685デフォルトの名無しさん
NGNG0686デフォルトの名無しさん
NGNG・ Close the Borland Delphi IDE if it is open.
・ If you are using the version of Indy included in Delphi 6 or 7, use the MSI installer to remove Indy.
・ Remove all Indy files including dclIndy*.bpl, Indy*.bpl, the Id*.pas, and the Id*.dcu's.
Take care that you only remove the old Indy files and not something else.
Be sure that you also remove any Indy*.bpl from your Windows\System directory.
・ Place the new version of Indy in a directory of your choice. When unzipping,
please keep the \source directory for the archive intact because that is used by some build batch files.
・ In the source directory, there are several batch files. Run the appropriate one for your version of Indy:
・ FULLD4.BAT - Delphi 4
・ FULLD5.BAT - Delphi 5
・ FULLD6.BAT - Delphi 6
・ FULLD7.BAT - Delphi 7
・ These batch files create subdirectories in the main Indy directory folder.
They are (D4 for Delphi 4, D5 for Delphi 5, D6 for Delphi 6, and D7 for Delphi 7). These directories contain:
・ The Indy .DCU's
・ The Indy Design-Time .BPL
・ In your Delphi IDE, add the Indy design-time package with Component|Install Package...|Add...
Go to the subdirectory where the Indy .DCU's and Design-Time .BPL was placed by the batch file.
Add the Design-Time .BPL that is listed. It usually is named dclIndy followed by the Borland Delphi version and an 0.
・ Add the path where the .DCU's are located to your environment.
Do this with Tools|Environment Options...|Library...|Library Path...
0687678
NGNG公式サイトによると、Delphi 6 & 7 はインストールに注意が必要とのこと。
俺がやった手順は以下の通り
Delphi をインストールした時に入れた Indy を削除しなければなりません
1. $(DELPHI)\Borland Delphi 6.msi を実行して、「変更」で次を選択
2. プログラムファイルの所の「Indy」を選択して「インストールしない」を選択
3. 次へ進んで、メッセージ通りにインストーラーを進める
これでインストールされている Indy の削除終了
4 .zip を展開し、展開したファイルを全て $(DELPHI)\Source\Indy にコピー
5. そこで、fulld6.bat を実行（delphi7 の時は fulld7.bat）
6. $(DELPHI)\Source\D6 ディレクトリが作られるので、そこに *.dcu と dclindy*.bpl ができる
7. dclindy*.bpl を $(DELPHI)\Bin\ にコピー
8. 6 のディレクトリにある *.dcu *.dcp ファイルを $(DELPHI)\Lib\ にコピー
9. Delphi を立ち上げる
10. メニューの[コンポーネント＞パッケージ]を選択
11. [設計時パッケージ]の所から[Internet Direct (Indy) for D6 ...]にチェックを入れる
12. [デフォルト]にチェックを入れる
13. [OK]を選択
これで一応、インストール終了しました。しかし、問題は Debug 用の
ライブラリが無いって事です。
0688デフォルトの名無しさん
NGNGレポートご苦労様。
インスコの時に参考にさせてもらいまつ。
0689ななしへたぐらま ◆XcB18Bks.Y
NGNG直接の原因はおそらくまだ子フォームAが作られていないうちにAを操作しようとしたからです．
おそらくメインフォームのOnCreateイベントハンドラからこの手続きを呼び出されたのだと思います．
（Delphiでは最初に自動生成されるフォーム＝メインフォームです．プロジェクトソースを見ると一目瞭然）
子フォームの自動生成をやめてOnShowイベントハンドラから呼び出すようにすればこの例外は発生しませんが，
この場合はAが存在しません．またこの手続きの処理対象が常にAなので２つ目以降のフォームではうまくいきません．
（２つ目以降の子フォームはAではない）
この対策は２つ考えられます．
i) 引数で子フォームの実体を指定する
procedure Clr_Image(ChildForm: TMDI_A; WakuColor,NaibuColor ・・・);
with ChildForm.Image1.Canvas do // (←)
（以下略）
ii) この手続きを子フォームの公開された（public）メソッドにする
procedure Clr_Image(WakuColor,NaibuColor ・・・);
with Image1.Canvas do // (←)
（以下略）
0690デフォルトの名無しさん
NGNG使ってますよね？ そこで、質問なんですが、そこに自分で生成した
HTML を流し込む方法ってどうやるんでしょうか？
例えば、strings とか TStrings の変数に '<HTML><BODY>ほげほげ</BODY></HTML>'
というようなデータを入れておいて、コンポーネントに流し込む…
と、言う様な感じですが…
あと、このIEコンポについて詳しく解説しているサイトとかあったら教えてください。。。
0691デフォルトの名無しさん
NGNGJaneのソースでもみたらどうでしょ
0692デフォルトの名無しさん
NGNGhttp://www.monazilla.org/
ここの資料室美奈代
0693デフォルトの名無しさん
NGNGi) 引数で子フォームの実体を指定する
procedure Clr_Image(ChildForm: TMDI_A; WakuColor,NaibuColor ・・・);
（中略）
with ChildForm.Image1.Canvas do // (←)
（以下略）
ii) この手続きを子フォームの公開された（public）メソッドにする
・宣言
TMDI_A = class(TForm)
（中略）
public
procedure Clr_Image(WakuColor,NaibuColor ・・・);
（中略）
end;
・実装
procedure TMDI_A.Clr_Image(WakuColor,NaibuColor ・・・);
（中略）
with ChildForm.Image1.Canvas do // (←)
（以下略）
0694デフォルトの名無しさん
NGNG0695デフォルトの名無しさん
NGNGアドバイスありがとうございます。
・まず、子フォームA_Winの生成ですが 親フォーム上のボタンのイベントから
生成しております。OldCreateOrderプロパティでは変化なかったです。
・子フォームA_Win が確実に生成してからクリアするように ボタンでクリアルーチンを
呼ぶようにしたのですが だめでした。
・693のi)についてはだめでした。
・693のii)については子フォームA_Winの内にグラフルーチンを含めるということだと
思うのですが これならば結果はOKなのですが 他にもグラフルーチンを
多数付けようとしているので別にしたいのです。
色々やってみたところ
・クリアの呼び出し部を 子フォームA_WinのFormPaint イベントに置き
・グラフルーチン側を
with (MainForm.ActiveMDIChild as TMDI_A).Image1.Canvas do
と指定すると うまくいきました。
これだと
別の子フォームB_Winから子フォームA_Winを開いても 生成はうまくいきます
しかし 子フォームA_Winを閉じると 無効なクラスの指定 と出ます。
これは B_Winから開いた２つ目以降の子フォームA_Winを閉じるときに出ます。
親フォームからの起動、終了は 問題なくなりました。
別の子フォームB_Winからの起動用には、別のクリアルーチンが必要？
はたして 上記の方法がまともなのかは自信はありません。（^^;;;
0696デフォルトの名無しさん
NGNGi , q : Integer;
s : Stirng;
s := 'あいうえお@@かきくけこ';
q := Pos( '@@' , s ) -1;
i := Length( s ) -q;
Delete( s , q , i );
@@の後ろを@@ごと削りたいのですがこのように書くと
「変数パラメータに定数オブジェクトを渡すことはできません」
とエラーを吐くのですがどこがいけないんでしょうか。。。
0697デフォルトの名無しさん
NGNGbeginがない。
0698デフォルトの名無しさん
NGNG＞q := Pos( '@@' , s ) -1;
多分逆。var s :stringなところにリテラル書いてるのが原因かと。
0699デフォルトの名無しさん
NGNGあるいは、Delete が別の関数/メソッドになってるとか？
System.Deleteにしてみたら？
それから、qを使わなくても Delete(s,q,High(Integer)) でもうまくゆくはず
0700696
NGNGレスどうも。
>>697-698
beginは書いてないだけで入っているんです。。。
すいません。。
sはconstではないんです。。
Delete(s,q,High(Integer)) も試してみましたが駄目でした。
すいません。。。
このエラーって「 s には結果を代入できませんよ」ってことなんでしょうか。
0701デフォルトの名無しさん
NGNGウザイから実験した。普通に動いたが・・・。
後、Stringの綴り変。
0702696
NGNGすいませんでした。。
s := Copy( s ,1, q );
0703デフォルトの名無しさん
NGNGq := Pos( '@@' , s );
i := Length( s ) - q + 1;
Delete( s , q , i );
ShowMessage(s);
0704デフォルトの名無しさん
NGNG＞「変数パラメータに定数オブジェクトを渡すことはできません」
のエラーが再現できるソースをうぷしてくれ
違う箇所がいくつか間違ってるだけでこのエラーがでるような箇所がない
解決したみたいだからもういいけど
0705ななしへたぐらま ◆XcB18Bks.Y
NGNGうーん，私が作ってみたソースをさらすので比べてみてください．まずメインフォーム・実装部．
uses ExtCtrls, P02aMDI_ChildForm;
procedure InitImage(anImage: TImage);
begin
anImage.Canvas.Brush.Color := random($1000000);
anImage.Canvas.Pen.Color := random($1000000);
anImage.Canvas.Pen.Width := 2;
anImage.Canvas.Rectangle(anImage.ClientRect);
end;
procedure TP02aMainForm.Action_NewExecute(Sender: TObject);
begin
CreateChild;
end;
procedure TP02aMainForm.CreateChild;
var
Child: TP02aChildForm;
begin
Child := TP02aChildForm.Create(Application);
InitImage(Child.Image1);
end;
0706ななしへたぐらま ◆XcB18Bks.Y
NGNGprocedure TP02aChildForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
以上．
0707デフォルトの名無しさん
NGNGコンポーネントパレットにはあるけどヘルプに説明入ってない！！
これじゃつかえないよーー！！
0708デフォルトの名無しさん
NGNGWriteStringでは、TStringとTWindowStateは互換性がありませんと出ます
0709デフォルトの名無しさん
NGNG使わなきゃいい。Socketマンセーっと。
0710デフォルトの名無しさん
NGNGそのSocketの説明もヘルプには入っていない・・・・
0711デフォルトの名無しさん
NGNGWriteInteger('a', 'a', Ord(Form1.WindowState));
WindowState:=TWindowState(ReadInteger('a', 'a', Ord(wsNormal)));
0712デフォルトの名無しさん
NGNG入ってるはずもなく。WindowsAPI。
0713デフォルトの名無しさん
NGNGありがとうございます。
望みどおりの機能が表現できました。
0714デフォルトの名無しさん
NGNGClientSocket.Open
で、繋がることはわかった。
たぶんPersonalでもつかえるのだろう。
しかし、メッセージ受け取ったり、送ったりするのがぜんぜんわからん。
テキスト平文のストリーム形式でいいのだ
だれか、助けて！！
0715デフォルトの名無しさん
NGNGイベントのリストとコード補完使えば何となく想像は付くと思うんだけれど。
まぁ、がんばれ。
0716デフォルトの名無しさん
NGNGまー、がんばれ
0717デフォルトの名無しさん
NGNG0718デフォルトの名無しさん
NGNGClientSocket1.Socket.ReceiveText
で送受信できる”らしい”というのは解ったぞ！
しかし！！！復帰と改行コードが入らんので
サーバ側が読まぬ！！！
Cでいう"\r\n"はどうやって表現すればよい？
うわわーーーん！！！
0719デフォルトの名無しさん
NGNGマニュアル読め
0720デフォルトの名無しさん
NGNG0721デフォルトの名無しさん
NGNG0722デフォルトの名無しさん
NGNG0723デフォルトの名無しさん
NGNGこのスレの趣旨を読め
0724デフォルトの名無しさん
NGNGﾜﾛﾀ
少なくともﾏﾆｭｱﾙのﾍﾟｰｼﾞNoとか示さないとダメだな(w
0725デフォルトの名無しさん
NGNGありがと！おかげでうまくいきそうだよ。
>724
Presonalなんでマニュアルなんてないんです（泣）
0726デフォルトの名無しさん
NGNGQs.pdf
oplg.pdf
dg..pdf
○○が無いってグチをレスするくらいなら、
１．delphiで検索
２．無ければ違う言語で参考になりそうなとこを検索
グチは書かないように。
0730デフォルトの名無しさん
NGNG0731デフォルトの名無しさん
NGNGエディタ使いにくいね。やっぱ慣れかな、これは。
ファイル→新規→フォーム
でフォームを追加させたんだが、スタートアップフォームから表示させる方法きぼん。
はい、初心者です。すんまへん
var
frmSub: TSUBFORM;
begin
frmSub := New TSUBFORM();
frmSub.ShowDialog();
これでやってみようとしたがダメだった(当たり前だが)。
VB厨な事ｳﾞｧﾚｳﾞｧﾚだが、どなたかご指南頼みます。
0732デフォルトの名無しさん
NGNGサイズを変えれば済む話
0733デフォルトの名無しさん
NGNG何か意味わんねーけど、プロジェクト→オプションでも弄ってみれば？
0734デフォルトの名無しさん
NGNG0735デフォルトの名無しさん
NGNG文法からやり直せ。
0736デフォルトの名無しさん
NGNGできなきゃスルーしる
0737デフォルトの名無しさん
NGNGvar
frmSub: TSUBFORM;
begin
frmSub := TSUBFORM.Create(self);
frmSub.ShowModal;
0738ななしへたぐらま ◆XcB18Bks.Y
NGNG1) メインフォームのユニットにサブフォーム（を定義しているユニット）を使うぜ！という宣言を追加する．
2) サブフォームを表示させるコードを自分で書く
1) メインフォームをアクティブにして[ファイル]→[ユニットを使う]を実行，使いたいサブフォームを選ぶ．
→そうするとメインフォームのユニットのソースコードに implementation ちょっと下の方に
uses （サブフォームのユニット名）;
というコードが追加されているはず．これがその宣言です．
※手で直接同じ内容を書いてもかまいません．
2) Delphiではプロジェクトオプションで特に指定しない限り
サブフォームはアプリケーションの起動時に１個だけ作られ，隠れた状態になっていますので，
フォームを作るコードは書かず，表示させるコードだけを書きます．
フォームを表示させるには>734にあるようにフォームのShowメソッドを使います．
設定画面やメッセージボックスのように閉じるまで呼び出し側に処理が戻らないようにする場合は代わりにShowModal メソッドを使います．
フォーム名がfrmSubならそれぞれfrmSub.Show; frmSub.ShowModal; です．
実行時に一時的に作りたい場合は>737のよう自分で生成してから表示します．
ただし使わなくなった時点で自分でフォームを廃棄しなければなりません
これはフォームのRelease メソッドで行います．フォーム名がfrmSubなら frmSub.Release; です．
また起動時にフォームを作ってしまわないようにプロジェクトオプションでこのフォームを自動生成の対象から外します．
（[プロジェクト]→[オプション]で[フォーム]タブを開き，このフォームを選び，[>]ボタンを押します）
0739デフォルトの名無しさん
NGNGプログラムを作成中（エディタでの編集中）に突然
「モジュール 'dcc70.dll' のアドレス 00B5574F でアドレス 626CAE88に対する書き込み違反がおきました。」
このエラーが出てエディタが利用不能になりました。
PCを再起動しても同じ位置に来ると同様の症状が出ますが、
何が原因なのか判りません、何か対処方法はありませんか？
0740デフォルトの名無しさん
NGNG0741７３９
NGNGおっしゃる通です、
一度落ちると「書き込み禁止」になってるみたいです。
コード補完が落ちる原因って何なのでしょうか・・・。
0742７３９
NGNG１つづつフォーム上のコンポーネントを消して
コード補完を試して原因コンポーネントを探し出して消したら直りました。
ただのEditなのですが、何が悪いのか・・・。
因みに、>>739でエラーが出る状態でもコンパイルは普通に通ったりするので
>>740さんがおっしゃる通りコード補完のバグなのでしょうか？
0743デフォルトの名無しさん
NGNG0744デフォルトの名無しさん
NGNGそれ以降、コード補間不能になることもあるし、エディタにまったく入力できなくなることもある。
7でも似たようなバグがあるんだね
0745デフォルトの名無しさん
NGNG0746デフォルトの名無しさん
NGNGやっぱりクソはクソだな。
0747デフォルトの名無しさん
NGNG0748デフォルトの名無しさん
NGNGマイクロソフトのソフトに今までバグなんて存在したことはないよ
全部仕様通りに実装されているからね
バグだらけの某とは大違いだね（嘲笑激藁
0749デフォルトの名無しさん
NGNG客も納得してくれるんだよね。
0750デフォルトの名無しさん
NGNGしねえよ。
「MSから買ったんじゃない、あんたのとこから買ったんだ！！」って切れられた。
0751デフォルトの名無しさん
NGNG0752デフォルトの名無しさん
NGNG0753デフォルトの名無しさん
NGNG要するに、発生したバグに対する対応が問題、ＭＳはバグの対応が随分前から悪いけど、
ボーランドもここ数年良いとは言えなくなってるね、
コード補完のバグは探しようがないけど、VCLのバグなんてこっちが修正箇所を
書いてメールしたのにパッチも出さないし返事も来ない。（ｗ；
その点、オープンソースなソフトはバグのパッチを送ったら
かなりの頻度で取り込まれるし対応のレスポンスも凄くいい。
Delphi本体がオープンにならねーかなぁ・・・。
0754デフォルトの名無しさん
NGNGAnsiStringとWideStringは双方向に代入できるみたいなので、ワイト文字列関数が存在する意味がよくわかりません。
0755デフォルトの名無しさん
NGNG0756デフォルトの名無しさん
NGNGあるある！
いままであった中で一番笑えたのは、
まちがってtype PA=^PAになってたこと。
ほんとはPPA=^PAなんだけど、hppからの移植でミスった。
無限ループじゃん！
0757Delphiの限界？
NGNGTProc = procedure of object;
TProcArray = array of TProc;
function IndexOf(const a: TProcArray; proc: TProc): Integer;
var
n: Integer;
begin
for n := 0 to High(a) do
if @a[n] = @proc then // <-- 手続きアドレスの比較ができない。
begin
Result := n;
Exit;
end;
Result := -1;
end;
0758ななしへたぐらま ◆XcB18Bks.Y
NGNGこの件については同意．目先の新機能以前にバグはつぶしてほしい．
>>754
多分昔の名残です．ワイド文字列はDelphi3からだったと記憶しています．
Del3の新機能の中でも地味なもので
FDELPHIで謎全氏が話に出されるまで気にもとめていませんでした．
0759デフォルトの名無しさん
NGNG試したら、出来てる気がするけどﾆｬｰ
0760デフォルトの名無しさん
NGNG0761デフォルトの名無しさん
NGNGAPI関数に渡すときなどに必要。
0762デフォルトの名無しさん
NGNG文字列の切り出しとかするときに必要になる。
この関数があるおかげで日本語文字列の置換とかすげー楽だよ。
0763デフォルトの名無しさん
NGNGよいのでしょうか
それと簡単な例でいいので使用の仕方を教えていただけないでしょうか
0765デフォルトの名無しさん
NGNGサンプルが突いてきたハズだが…
それでもわからんならTWebBrowserのほうがいいんじゃねーの
0766デフォルトの名無しさん
NGNG>Delphi本体がオープンにならねーかなぁ・・・。
なにげにむごいな。某ランド潰れちまえってことじゃん(w
OpenWatcomの惨状を見ればオープンにすりゃいいってもんじゃないって分かるけどなあ。
0767デフォルトの名無しさん
NGNG0768デフォルトの名無しさん
NGNG0769デフォルトの名無しさん
NGNGOpenWatcom C++ ｽﾚへどうぞ
0770デフォルトの名無しさん
NGNGフォームのBorderIconsプロパティ
0771デフォルトの名無しさん
NGNG0772デフォルトの名無しさん
NGNGBorderIconプロパティをいじるのが簡単。
EnableMenuItem APIを使う方法もある。
0773デフォルトの名無しさん
NGNG0774デフォルトの名無しさん
NGNGｂｃｃでは-sつけるような感じで
0775山崎 渉
NGNG__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
0776デフォルトの名無しさん
NGNG0777デフォルトの名無しさん
NGNGPIDLってどこからもってくるの？
PItemIDListがそれらしい気がするけどOleVariantに代入できない！
0778デフォルトの名無しさん
NGNGhttp://hogehoge2001.tripod.co.jp/note-delphi.html
ここを読んでいると、Delphi 標準で入っている TWebBrowser より、
ActiveX コントロールをわざわざインストールしていますが、何故何でしょう？
あと、uses に SHDocVw_TLB, MSHTML_TLBを追加しろとあるんですが、
これの入手方法を教えてください。
TWebBrowser は標準で入ってくるものを削除して、
Delphi のコンポーネントインストールの ActiveX コントロールで
インストールした方を使った方がいいのでしょうか？
0779デフォルトの名無しさん
NGNGそのページのタイトルをよくみてください
PersonalにはTWebBrowserは入っていません
またusesに追加する件ですが別途なにか手に入れる必要はありません
0780デフォルトの名無しさん
NGNGpasに書き換えていっているのですが、
これで正しい書き方なのかよく分からず…。
途中段階で動かしてみたらスタックオーバーフローになったり。
（まだどのAPIも動作していない段階で）
なにかC→PAS書き換えの参考になる資料ありませんか？
一応「H to Pas Converter」を使って書き換えの基にはしているのですが…。
0781デフォルトの名無しさん
NGNGstdcallとかcdeclとか付けてる？
0782780
NGNG一応は。
#define DllImport__declspec( dllimport )
#ifdef __cplusplus
extern "C" {
#endif
DllImport int WINAPI HogeHogeAPI( char *str);
#ifdef __cplusplus
}
#endif
こういうのを以下のようにしています。
function HogeHogeAPI(Scanner: PChar): Integer; stdcall; external 'HogeHoge.DLL' name 'HogeHoge';
一部関数ポインタを渡すところがあったりします。
DllImport int WINAPI HogeHogeExec( char *file, char *buf, int (*abort)( int n, int d));
これを以下のように。
type
TAbortFunc = function (n: Integer; d: Integer): Integer; stdcall;
function HogeHogeExec(file: PChar; buf: PChar; abort: TAbortFunc): Integer; stdcall; external 'HogeHoge.DLL' name 'HogeHogeExec';
他には引数の「int *value」を「var value: Integer」にしたりしているところもありますが…
0783デフォルトの名無しさん
NGNGpanel: TPanel; // (1)
published
//panel; TPanel; // (2)
end;
デザイン時、フォーム上にパネルを張ると、コード上は (1) に追加されますが、
これを (2) の位置に移しても問題ないものなのでしょうか？
一応、実行はできるようなのですが、他に影響はないでしょうか？
0784デフォルトの名無しさん
NGNG出来ないなら、影響がある。
0785デフォルトの名無しさん
NGNGpublished の意味を調べてみよう
0786デフォルトの名無しさん
NGNG(1)の領域は「Delphiが使うから勝手にいじらないで」
と書いてあるでしょ
0787デフォルトの名無しさん
NGNGそんなことするとバグが出るぞ。
「スコープ」についてもそっと調べなさい。
0788デフォルトの名無しさん
NGNGユーザーがアプリを閉じようとしたとき、確認ダイアログを出し、
OSシャットダウンのときは確認ダイアログなしで閉じる方法を教えてください。
0789デフォルトの名無しさん
NGNG0790デフォルトの名無しさん
NGNGパネルを乗せただけなら問題ないけど、パネルのサイズを変更したり、パネルの上に何かのせたり、
パネルのイベントを記述したりすると、問題が出ると思うよ。
具体的にはpublishedでないと .DFM のデータがどのパネルのデータか識別できなくなる。
0791デフォルトの名無しさん
NGNGそれ同じ意味。
つまり、同じスコープってこと。
0792
NGNG今は、TLabelの配列を動的に表示しています。
ArLabel : array of TLabel;
ArLabel[i].caption := inttostr(i);
こんな感じで、後はTopやLeftを工夫して、一定の間隔で表示しています。
でも、これだと、文字が増えれば増えるほどリソースを無駄に使用する事になると思います。
宜しくお願いします。
0793デフォルトの名無しさん
NGNG0794デフォルトの名無しさん
NGNGメモリも最近は大容量なので沢山使っても問題になることはないと思う。
でも自分ならそういう場合はPaintBoxで OnPaint上にコードで描くと思う。
0795デフォルトの名無しさん
NGNG0796デフォルトの名無しさん
NGNG0797デフォルトの名無しさん
NGNGNT系ではWindowsコントロールであっても別にメモリ以外に必要な
リソースなんて無いに等しいのだが。
0798デフォルトの名無しさん
NGNGあと、終了時にDelphiが全部やってくれるんじゃないのですか？
0799デフォルトの名無しさん
NGNG***すれ立てるまでもない質問はここで 第40刷*** から流れてきました。
DELPHIでclipbordを使ったプログラムを作っているのですが、
クリップボードを開くことが出来ませんというエラーが出ます。
プログラムの流れは、まずプログラムを立ち上げておき、notepad
や他の文字列が入力できるソフトに計算式を入力します
（１０＋３０＊１０ とか）そしてその行にカーソルを合わせて
SHIFT＋ENTERを押すと、先ほど立ち上げておいたアプリがhotkeyに
反応してカーソルのある行をkey_eventを実行してコピーします
（キーイベントでCTRL+Cを実行する）そして得た文字列で計算を
するのですが、上記のkey_eventでテキストがコピーされたりされなかったり
今あるクリップボードの末尾に文字列が追加されたり、動作がうまくいきません。
三日ほど色々探したのですが見つからずココへ来ました。
お知恵を貸していただけませんでしょうか？
0800デフォルトの名無しさん
NGNGnotepadのようなソフト全てがCTRL+Cでコピーというのに対応してる保障も無いし。
0801デフォルトの名無しさん
NGNGメモ帳がクリップボード操作している最中にDelphiで作ったアプリがクリップボード開こうとしているのでは？
key_eventの後にウェイトを入れるかメモ帳がIdle状態になるまで待つかすれば良いのではなかろうか。
0802デフォルトの名無しさん
NGNGあ、こころあたりがあります＾＾；
CTRL+Cを実行させた後すぐにclipbord.AsTextをつかったりしてます。
ウェイトを入れるかidelですか、、、少し調べて見ます
0803デフォルトの名無しさん
NGNGあったはず。それを使ってみてはどうでしょう。
0804デフォルトの名無しさん
NGNGPos関数を使うと検索文字が複数ある場合でも
最初にマッチする文字の場所しか取得できないので困ってます。
いわゆる「次を検索する」っていうやつはどうすれば実装できますか？
0805デフォルトの名無しさん
NGNGStringよりPCharにすると速くなる。
ダブルバイトはLeadBytesで判定する。
0806デフォルトの名無しさん
NGNG0807デフォルトの名無しさん
NGNGTFormを継承した独自class(ダイアログ型のウィザードみたいな感じ)を作っています。
これをメインから以下のように呼んでいるのですが、
cpSEWizard := TcpSEWizard.Create(Owner);
cpSEWizard.Show;
ウィザードを閉じた後で、メイン側で「cpSEWzard.Free」を記述する必要はあるのでしょうか。
それとも、TcpSEWizardで勝手に発生している、onCloseで事足りているのでしょうか。
0808デフォルトの名無しさん
NGNGLeadBytesで検索したら
http://halbow.cool.ne.jp/VCL05.html
を見つけますた
thx
0809デフォルトの名無しさん
NGNGDelphi6 の時にあった ServerSocket ClientSocketと同じように使えると思ったら
うまくいかなかったもので。。。
0810デフォルトの名無しさん
NGNGメインか自身で Free したほうが良い。
いちおうアプリ終了時に Owner が Free してくれる。
ShowModal するのが楽だけど、出来ないならこうする。
with TcpSEWizard.Create(Owner) do
Show;
として、onClose に Release を入れておく。
0811デフォルトの名無しさん
NGNGするにはどうやったらええの？
0812デフォルトの名無しさん
NGNGありがとうございます。
0813デフォルトの名無しさん
NGNGOnKeyPressイベントで整数以外をはじく
0814デフォルトの名無しさん
NGNGDelphianWorldに数値入力用のEditコンポーネントがあった気がする。
他にもいろいろ便利なコンポーネントが登録されているので
一度見てみるべし。
0815792
NGNG>>794
>>795
なるほど、コンポーネントを使わないという方法もあったんですね。
何かをしようとするとすぐにコンポーネントの使い方を工夫しようとか
フリーのコンポーネントを探そうとかしていました。
ありがとうございました。
0816デフォルトの名無しさん
NGNG0820デフォルトの名無しさん
NGNG省メモリ化という意味では逆効果だろ。
0821デフォルトの名無しさん
NGNGSendMessage(Memo1.handle, WM_PASTE, 0, 0);
とか書くとファインドダイアログのエディット部分に対してペーストを行う場合でもメモコンポにペーストが行われてしまう。
それでファインドダイアログが呼ばれたときの処理を別に書こうとしたんだけど、
ファインドダイアログのエディット部分にペーストする方法がわかりません。
どうしらたいいんでしょ？
0822デフォルトの名無しさん
NGNGGetFocusが一番楽かな
0823デフォルトの名無しさん
NGNG0824デフォルトの名無しさん
NGNGShowだけどShowModalっぽくしたい時。
処理中でフォームを触らせたくない時。
0825デフォルトの名無しさん
NGNG再描画するとき楽だし速くて良いと思うんだけどね。
0826デフォルトの名無しさん
NGNG特に一時的にしか表示されないダイアログとかは。
なんか小手先でメモリケチったり数クロック早くなるようなコード書きたがる奴がいるけど
それが本当に必要なのか・効果があるのかと問い詰めたい。
0827デフォルトの名無しさん
NGNGif Assigned(ActiveControl) then
SendMessage(ActiveControl.Handle, WM_PASTE, 0, 0);
0828デフォルトの名無しさん
NGNG0829デフォルトの名無しさん
NGNG0830デフォルトの名無しさん
NGNGVBにはなんかそういうのあったと思うけど…。
0831デフォルトの名無しさん
NGNGmozilla（ActiveX） を試してみたんだけど、これってこんなに糞重いの？
おまけにフォームにコントロール貼り付けてから、
マウスでクリックもできねー、移動もできねーときたもんだ
こんなもんなんでしょうか？
0832デフォルトの名無しさん
NGNGおとなしくIEにしましょう
0833デフォルトの名無しさん
NGNGこの板のどっかにスレがある
0834デフォルトの名無しさん
NGNGあるeditを「記入できない」ようにしたい時はどうすればよろしいですか？
0835デフォルトの名無しさん
NGNG0836デフォルトの名無しさん
NGNG0837デフォルトの名無しさん
NGNG0838デフォルトの名無しさん
NGNG0839デフォルトの名無しさん
NGNG0840デフォルトの名無しさん
NGNG0841デフォルトの名無しさん
NGNG{
std::string buf_;
｝
と、
printf("%s",l1.buf_.c_str());
を日本語で説明するとどういう事でしょうか？教えてください。。
0842デフォルトの名無しさん
NGNG0843831
NGNGうむむ…やはり好きじゃなくても、IEコンポ使うしかないか
で、IEコンポの使い方なんですが、自分なりに探してみた所
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/browser_control_node_entry.asp
ここと monazilla(w の資料室ぐらいしか見つからなかったんですが、
他に解りやすくサンプル付きで解説しているサイトとかページを
知っていれば教えてください。できれば、日本語が良いです
どんな探し方したんか知らんが、それだけってことはあり得ないと思う。
よっぽどアレな探し方なのか…。
あんまり言いたくないけど、「目がチカチカするページ」は検索出来なかったのかと。
0845デフォルトの名無しさん
NGNG0846デフォルトの名無しさん
NGNG0847デフォルトの名無しさん
NGNG0849デフォルトの名無しさん
NGNGバグですが何か？
0850デフォルトの名無しさん
NGNGMLでTWebBrowserを検索したときに一番多く答えている人のサイト
0851デフォルトの名無しさん
NGNGIEコンポーネントって、TWebBrowserの事だよね？
IEコンポーネントを使い倒すスレ
http://pc2.2ch.net/test/read.cgi/tech/982930049/
Delphi はじめの一歩
http://delphi.sakura.vg/
あとGoogle
http://www.google.com/search?q=TWebBrowser&lr=lang_ja
0852デフォルトの名無しさん
NGNGお前性格と要領が悪そうだね。うんこレスならしなくていいよ。
0853デフォルトの名無しさん
NGNG0854デフォルトの名無しさん
NGNGTWebBrowserのバグ(?)が修正されてる他、初めからD&Dに対応してたりと、TWebBrowserよりパワーアップしている。
0855831
NGNGレスありがとうございます。"TWebBrowser" で検索する事をしてませんでした。
"IEコンポーネント" "リファレンス" とかで検索してました
あと、この板内のスレッドは読みましたが、ボクの欲しい情報が得られなかったので
もう少し調べてみます。
>>854
TEmbeddedWB ってのもあるんですね。これも調べてみます
0856デフォルトの名無しさん
NGNGデータベースをBDE→InterBase(FireBird)に変更するには
どのような作業が必要でしょうか？
めんどくさい？
0857デフォルトの名無しさん
NGNG0858デフォルトの名無しさん
NGNG何がしたいのかよくわかりません。
0859デフォルトの名無しさん
NGNGエラーになるのですが、どう対処したらいいでしょうか？
0860デフォルトの名無しさん
NGNG内容が空でなく、Buttonとかを、追加するTabSheetに持たせるにはどうすればいいんですか？
0861860
NGNG0862デフォルトの名無しさん
NGNG0863デフォルトの名無しさん
NGNG動的に作ったボタンなどのParentプロパティを動的に作ったTabSheetにする。
Button.Parent := NewTab;
0864デフォルトの名無しさん
NGNGされていないかの状態を調べるにはどうすればいいでしょか？
0865デフォルトの名無しさん
NGNG0866ななしへたぐらま ◆XcB18Bks.Y
NGNGタブシートにのせるコンポーネントの配置やその他の設定を設計時にやってしまいたいのでしたら，
それらを載せたフレームを作れば，実行時は基本的にそのフレームを生成するだけで済むと思うので
多少楽になると思います．ただ，以下に当てはまるならこんな手を使うまでもないかも．
・同じ内容のページが不特定多数→タブコントロールを使う
・起動時には見えないページを作る→タブシートのTabVisibleプロパティでページを隠す
0867デフォルトの名無しさん
NGNG0868デフォルトの名無しさん
NGNGつくれますが、あなたは今日から「ツクールシリーズ」で爆速プログラミング
人生を歩んでください。
0869デフォルトの名無しさん
NGNGツクーﾙイクナイ
0870デフォルトの名無しさん
NGNG0871デフォルトの名無しさん
NGNG0872デフォルトの名無しさん
NGNGMemo1っていっぱい書いてるし、イベント半銅鑼もいっぱい。
簡単に差し替えちゃう裏技ないですか？
0873デフォルトの名無しさん
NGNGそれでもうまくいかなければ、GExpertsを使うとよろし。
0874デフォルトの名無しさん
NGNG0875デフォルトの名無しさん
NGNG0876デフォルトの名無しさん
NGNG超初心者向けのｽﾚなんだからガマン汁
0877デフォルトの名無しさん
NGNGそんなら Personal版でなく Pro版こうて Borland社の有料サポート頼みなはれ。
そなら、どんな幼稚な質問やかてとことん付きおうてもらえるやろ。
今回の名無しはんの回答がもし有料ならナンボになるんかいな？
カネはろうてくれはるんやら、Borland社よりチイとは勉強しまっせ。
(大阪人はすぐカネの話や、なん思わんといてや(^^;)
0878デフォルトの名無しさん
NGNG0879デフォルトの名無しさん
NGNG関西人は総じてアホやと思われるんでそのしゃべりやめてもらえませんか？
0880デフォルトの名無しさん
NGNG0881デフォルトの名無しさん
NGNG0882デフォルトの名無しさん
NGNG0883デフォルトの名無しさん
NGNG0884デフォルトの名無しさん
NGNG資本金１円なので無理です
0885デフォルトの名無しさん
NGNG経験上。
0886デフォルトの名無しさん
NGNG＞2chで関西弁(エセ）使う奴は出身関係なく9割馬鹿。
９割は馬鹿。
0887デフォルトの名無しさん
NGNG経験上。
0888デフォルトの名無しさん
NGNG0889デフォルトの名無しさん
NGNGForm.OnCanResizeで
NewWidth:=300;
とかすれば横方向には300以上大きくならないんですけど、
ウィンドウの端をドラッグするときに出てくる破線（？）が横方向にも伸びてしまって
なんだか見栄えが良くありません。TMidi Playerとかだとドラッグしようとしても
破線がウィンドウに貼りついて、視覚的にも「これはリサイズできないんだな」
と分かっていい感じだと思うんですけど、あれってどうやってるんでしょうか。
質問が分かりずらくてすみません。
0890デフォルトの名無しさん
NGNG"WM_GETMINMAXINFO"でぐぐると幸せになれるかもしれない…
0891デフォルトの名無しさん
NGNG試してないけどConstraintsプロパティで制限できると思う。
0892デフォルトの名無しさん
NGNG検索したら、某国のサイトに書いてありました。㌧クス
http://www.borland.co.jp/qanda/delphi/d0005105.html
0893デフォルトの名無しさん
NGNG情報ありがとうございます。
試してみたのですが、こちらは破線がびょびょっと伸びてしまいました。。
0894デフォルトの名無しさん
NGNG4376384が代入されるの？
0895デフォルトの名無しさん
NGNG仮にそうだとしても、コンパイラの実装に依存しそうなコードは書かないほうがよろしい。
0896デフォルトの名無しさん
NGNG0897デフォルトの名無しさん
NGNG0898デフォルトの名無しさん
NGNGちょいﾜﾛﾀ
0899デフォルトの名無しさん
NGNGそれはマウスカーソルをユーザーに動かさせる方法だ
0900デフォルトの名無しさん
NGNG0901デフォルトの名無しさん
NGNG0902896
NGNG0903デフォルトの名無しさん
NGNG0904デフォルトの名無しさん
NGNGForm2のラベルが変化するようにしたい
どうすればいい？
0905デフォルトの名無しさん
NGNG２．Form2を「uses（ユニットを使う）」で参照して、Form1のボタンに
Form2のラベルを変えるコードを書く。
0906デフォルトの名無しさん
NGNG0907デフォルトの名無しさん
NGNG0908907
NGNG0909デフォルトの名無しさん
NGNGsage忘れてたから駄目って言ったら
マジレスしないの？
0910デフォルトの名無しさん
NGNGこのスレで３回以上は質問されてる。
レス抽出使ってね音符
0911デフォルトの名無しさん
NGNG0912デフォルトの名無しさん
NGNG0913デフォルトの名無しさん
NGNGうるせーしね
0914デフォルトの名無しさん
NGNG0915デフォルトの名無しさん
NGNG氏ね
0916デフォルトの名無しさん
NGNG御主人様、私は氏んだ方が宜しいのでしょうか？
0917デフォルトの名無しさん
NGNGinterface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='い㌔';
end;
end.
0918デフォルトの名無しさん
NGNG0919デフォルトの名無しさん
NGNG0920デフォルトの名無しさん
NGNGそんな態度で教えて貰えるとでも思ってるの？
夏休みだからって調子乗るなよ。
http://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/vcl/index.htm
0921デフォルトの名無しさん
NGNG>>920萌え
0922デフォルトの名無しさん
NGNGあんなもん見たら分かるだろ。
0923デフォルトの名無しさん
NGNG馬鹿だからわかんにゃーい
0924デフォルトの名無しさん
NGNGLabel1がないよ
0925デフォルトの名無しさん
NGNGアプリケーションツクールだよね
0926デフォルトの名無しさん
NGNGDelphiならフォームにペタペタ貼り付けて
あとはちょこっとコード書くだけだからC言語よりスゲー楽。
0927デフォルトの名無しさん
NGNG型って
Integer型とString型とBoolean型しかないの・・・？
0928デフォルトの名無しさん
NGNG君が使う分にはその程度なんだろうね。
0929デフォルトの名無しさん
NGNGなら WinAPI 駆使して作ってごらん
0930デフォルトの名無しさん
NGNG0931デフォルトの名無しさん
NGNG単純型、順序型、整数型、文字型、論理型、列挙型、部分範囲型、実数、文字列型、構造化型、集合
配列型、レコード型、ファイル型、クラス型、クラス参照型、インターフェース型、ポインタ型、手続き型、バリアント型
0932デフォルトの名無しさん
NGNG無駄に水増ししてるな・・・
0933デフォルトの名無しさん
NGNG順序型も整数、文字、論理型、列挙型、部分範囲型の総称だろう…
0934デフォルトの名無しさん
NGNG0935デフォルトの名無しさん
NGNGクラスも構造体もポインタも使わんと。それで何が出来るよ？
0936デフォルトの名無しさん
NGNGお(ry
0937デフォルトの名無しさん
NGNG0938デフォルトの名無しさん
NGNG0939デフォルトの名無しさん
NGNG0940デフォルトの名無しさん
NGNG0941デフォルトの名無しさん
NGNG0942デフォルトの名無しさん
NGNG0943デフォルトの名無しさん
NGNG「ぼえ～～～～」
0944デフォルトの名無しさん
NGNG0945デフォルトの名無しさん
NGNG0946デフォルトの名無しさん
NGNG0947韓国
NGNG0948デフォルトの名無しさん
NGNG0949デフォルトの名無しさん
NGNG0950デフォルトの名無しさん
NGNG始まり
フォーム１．ボタン１．キャプチョン := 'このぼたんをおすとＰＣが爆発します';
終り。
0951デフォルトの名無しさん
NGNG0953デフォルトの名無しさん
NGNGInteger main(void){
begin
Writeln("Hello world!!");
end.
}
0954デフォルトの名無しさん
NGNG0955デフォルトの名無しさん
NGNG0956デフォルトの名無しさん
NGNGたぶん、日本でパソコンってものが売られた時には既にあった
そういえば、かつてMSもコンパイラを出してたらしいな
0957デフォルトの名無しさん
NGNG0958デフォルトの名無しさん
NGNG0959デフォルトの名無しさん
NGNG0960コンドールマン
NGNG0961デフォルトの名無しさん
NGNGコンソールで動くアプリケーション
0962デフォルトの名無しさん
NGNG0963デフォルトの名無しさん
NGNGマジレスしていい？
0964デフォルトの名無しさん
NGNGщ(ﾟдﾟщ)ｶﾓｰﾝ
0965デフォルトの名無しさん
NGNG「またageちゃったなんたら」と続ける気だな？貴様…。
0966デフォルトの名無しさん
NGNGエニアックの時代からある
0967デフォルトの名無しさん
NGNGB言語の立場はどうなる？
0968デフォルトの名無しさん
NGNG0969デフォルトの名無しさん
NGNGつーかUNIX登場後の話じゃーん
0970デフォルトの名無しさん
NGNG0971デフォルトの名無しさん
NGNG0972デフォルトの名無しさん
NGNG0973デフォルトの名無しさん
NGNG0974デフォルトの名無しさん
NGNGハッカーはアセンブリではなく16進数で語り合っていた
そして口笛を吹けばお金をいれなくても電話が通じた
オレがあこがれていたのはそんな時代なんだよ！！
0975デフォルトの名無しさん
NGNG0976ネタスレになりましたか！？
NGNGインベーダーのコイン投入口にガスコンロの着火部分でカチャカチャやって
クレジット増やしてなさい！
0977デフォルトの名無しさん
NGNG0978デフォルトの名無しさん
NGNG操作されちゃ困るコントロールを無効化しとけばいいんじゃないの。
0979デフォルトの名無しさん
NGNGprocedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if ある処理中 then
Handled := True;
end;
0980デフォルトの名無しさん
NGNGMediaPlayerのコンポーネントがパレットのどこかにあるから、それをフォームに貼り付けなさい
0981デフォルトの名無しさん
NGNG0982デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/test/read.cgi/tech/1058834815/
0983スレ埋め
NGNGしらないーひとは もーいないー
みんななかまだ ともだちなーんーだー♪
0984デフォルトの名無しさん
NGNG0985デフォルトの名無しさん
NGNG0986デフォルトの名無しさん
NGNG意味もなく２ちゃんねるの鯖容量は無限ではありません
節約するためにも、このまま移行してください
0987デフォルトの名無しさん
NGNG0988デフォルトの名無しさん
NGNG普通ならこう
＼∧＿ﾍ ,,､,､,,,
,,､,､,,, / ＼〇ノゝ∩ ,,､,､,,, ,,､,､,,,
/三√ ﾟДﾟ) / ,,､,､,,, ,,､,､,,,
/三/| ﾟＵﾟ|＼ ,,､,､,,, ,,､,､,,,
,,､,､,,, Ｕ （:::::::::::） ,,､,､,,,
//三/|三|＼ ∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
∪ ∪ （ ） （ ） （ ） ）
,,､,､,,, ,,､,､,,, ∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
,,､,､,,, （ ） （ ） （ ） （ ）
0989デフォルトの名無しさん
NGNG埋め立てるのが流行なのにな
0990デフォルトの名無しさん
NGNG知らない子はもういない、みんな仲間だ仲良しなんだ。
0991デフォルトの名無しさん
NGNG厨房だけな。
処理したいならやれば？応援するよ（ヮ
0992デフォルトの名無しさん
NGNGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
0993デフォルトの名無しさん
NGNGくだすれDelphi(超初心者向け） Part4
http://pc2.2ch.net/test/read.cgi/tech/1055212786/l50
0994デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNG0996デフォルトの名無しさん
NGNGまわりをよくみてみろよ
それに２ちゃんのHDDの容量が足りないなんて聞いたことがない
0997デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/test/read.cgi/tech/1058834815/l50
0998デフォルトの名無しさん
NGNGウザイ。
0999デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。