トップページ⇒tech
1001コメント329KB

モナーの *やさしい* Delphi質問スレ Ver4

レス数が1000を超えています。これ以上書き込みはできません。
0001DELモナーNGNG
DELモナーがどんな厨房疑問でもやさしく答えます。
DELモナーは時に私であり、時には別の人。
他のスレに書き込んで罵倒される前に、まずここで質問しよう。

　 ∧　∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　>>2-3に関連情報あり。　
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）

■前スレ

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

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

モナーの *やさしい* Delphi質問スレ Ver3
http://pc.2ch.net/test/read.cgi/tech/1014474727/
0002DELモナーNGNG
　 ∧　∧ 　　／￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　関連情報はこちら。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）

■関連スレ

ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室②
http://pc.2ch.net/test/read.cgi/tech/1013298748/

Delphi相談室その３
http://pc.2ch.net/test/read.cgi/tech/1010153466/

■製品情報

http://www.borland.co.jp/delphi/

■Delphi 6 Personal ダウンロード
(無料。使用者登録が必要。59MBもあるので注意)

http://www.borland.co.jp/delphi/personal/
0003DELモナーNGNG
■最初のDELモナーより

　 ∧　∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　*やさしい*
　（　　　　）　 |　は「やさしく答えてくれる」という意味でも有り
　｜ ｜ ｜ 　| 「あまり難しい質問には答えられない」という意味でも有りマする。
　（＿_）＿）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

以上。
0004デフォルトの名無しさんNGNG
2
0005赤い彗星4NGNG
ﾁｨ！！
0006デフォルトの名無しさんNGNG
　　　　　　　v
　　　　　<(ﾟωﾟ)　＜うっ！
　　　　　　(㊥)＼　　　　　　　　
　　　　　　／'>

　　　　　　　v
　　　　　　(ﾟωﾟ)>　＜はっ！
　　　　　／(㊥)　　　　　　　　
　　　　　　　<'＼

　　　　　　　v
　　　　　<(ﾟωﾟ)>　＜うっ！
　　　　　　(㊥)　　　　　　　　
　　　　　　／'>

　　　　　　　v
　　　　　　(ﾟωﾟ)／　＜はっ！
　　　　　／(㊥)　　　　　　　　
　　　　　　　<'＼

　　　　　v 　　　　　 ｗ
　　　　(ﾟωﾟ)／ ＼（ﾟδﾟ）＜ｼﾞｰﾝｷﾞｽｶｰﾝ!
　　　／(㊥)　　　　（㈹）ゝ
　　　　 <'＼ 　　　／　>
0007名無しヘタぐらま ◆B18Bks.Y NGNG
>1-3
乙渠～．

0008newsNGNG
Delphi6 Update2 3/19 夜よりダウンロード可能に。
0009デフォルトの名無しさんNGNG
巨大ファイルをダウンロードできる！！
0010デフォルトの名無しさんNGNG
■関連サイト
http://syoyunext.xoasis.com/joutyu/
0011デフォルトの名無しさんNGNG
デスクトップ上に鳥が飛んだり動物がマウスを追っかけたりする
アプリがありますが、Delphiでもそのような事ができますか？

できるとしたらそれは何で作成したらいいですか（例えば新規作成→フォーム）
0012デフォルトの名無しさんNGNG
>>9
喜ぶところが違うぞ(w
0013デフォルトの名無しさんNGNG
>>11
「デスクトップマスコット」というキーワードで検索すると参考になるページがでてきまする。
0014デフォルトの名無しさんNGNG
>>11
出来る
実際に友達が作ってた
鳥じゃないけど。

デスクトップに雪を降らせるスクリーンセーバー

雪の動きに試行錯誤してたのを覚えてる。
0015ソケットNGNG
ソケット通信を利用して、簡単なチャットソフトを
作りたいのですがよいサンプルソースありませんか？
http://www5.tkcity.net/~hkzweb/pgm/socket.html
を見たのですが、一人にしか送信をできないようで
複数の人に同時に送る方法はありませんでしょうか？
0016デフォルトの名無しさんNGNG
複数同じ事繰り返せばいいじゃん
アドレス番号変えて
0017デフォルトの名無しさんNGNG
>>9
今回もでかいよ。
英語版で30M超えていたし。
0018ソケットNGNG
アドレス番号を変えて送信しなおすとはどういう事でしょうか？
もしよろしければ、サンプルソースなどを書いて頂けませんか？
001911NGNG
>>13-14
thx まだデスクトップアイコンのサイトは見つからないけど、
とりあえずできるって事がわかっただけでも良しとします。

途中経過

↓ココ結構ｲｲﾈ
http://homepage1.nifty.com/MADIA/
0020デフォルトの名無しさんNGNG
「デスクトップマスコット」
0021デフォルトの名無しさんNGNG
テキストデータをMemoコンポーネントにLoadするにはどうしたら良いですか？
aaa.txt　があったとしてです。

SaveToFileはあるのにLoadのそれらしいのがみるからない・・・
0022デフォルトの名無しさんNGNG
LoadFromFile みえない？
0023デフォルトの名無しさんNGNG
>>22
うん
無いです。
Memo1. LoadFromFileと言うメソッドも出てこないです。
0024ソケットNGNG
memo1.Lines.LoadFromFile();ですよね。
パラメータにはもちろんファイル名どうでしょうか？
って、私の質問はだめですか？
0025デフォルトの名無しさんNGNG
Linesが抜けてた予感・・・
0026デフォルトの名無しさんNGNG
>>24
うひー
その通りです。
凡ミスでした。
0027ALINGNG
すみませんが、どうかacidproのDLをしたいのですがどこにいけばいいか教えてください
0028デフォルトの名無しさんNGNG
acidproって何？
002911NGNG
>>20
googleでもmsnでも見つかんないっス。

はぁ。デスクトップマスコット
0030デフォルトの名無しさんNGNG
>>17
30Mででかいんかい！
0031デフォルトの名無しさんNGNG
速度でねー
37Mもあるのに17k/sしか出てねーよ
0032デフォルトの名無しさんNGNG
Delphi6 Update Pack2 age
0033ソケットNGNG
とても参考になるページが見つかりました。
みなさんありがとうございました。
0034デフォルトの名無しさんNGNG
Delphiってなんですか
0035デフォルトの名無しさんNGNG
春だねぇ～
　　ネタが特盛りの季節だね～
0036デフォルトの名無しさんNGNG
いい加減、PostgreSQLもサポートして欲しいなぁ～とか言ってみるテスト
0037デフォルトの名無しさんNGNG
>>31
俺は 10分でダウンロードできたが？
回線が細いんだろ？
0038デフォルトの名無しさんNGNG
TEditorでRowプロパティと直結した文字列プロパティってありますか？

0039デフォルトの名無しさんNGNG
ListString じゃないか？
0040デフォルトの名無しさんNGNG
>>39
それビンゴです。ありがとうございました。
今までLines[]でやってた事は内緒にしておいて下さい。
0041デフォルトの名無しさんNGNG
Delphiで帳票を作成しようと思うのですが
QuickReportはけっこう機能がありそうですが
日本で多い、罫線は使えるのでしょうか
また、定型帳票のような複雑なものも作れるのでしょうか
どなたかお教え下さい。
0042デフォルトの名無しさんNGNG
DelphiでCGIを作りたいのですが、
Delphi製のCGIが動作可能なフリーサーバはありませんか？
0043デフォルトの名無しさんNGNG
>>42
http://www.st.rim.or.jp/~nakata/
0044デフォルトの名無しさんNGNG
Up2落とそうとしたら鯖がｼｮﾎﾞｰﾝ
0045デフォルトの名無しさんNGNG
>>41
できると思う。
「Delphi5 実践データーベースプログラミング」にQuickReportの使い方
がわかりやすく載ってる。
私はLightReport2を使おうと試行錯誤中。
0046デフォルトの名無しさんNGNG
これって、自宅サーバですよね。
つまり、相手は、ナマIPでうちのサーバに接続すると。
DNSというか、そういうサービスってあります？
不特定多数にIP知られるのはいくらなんでも…

とすると、自分の好きなドメイン使えるんですかね。

0047デフォルトの名無しさんNGNG
>>46 そろそろ鼬飼いになってきましたねぇ、Web制作板へどうぞ。
0048デフォルトの名無しさんNGNG
>>45
早速のレスありがとうございます。
ところでLightReport2てどんなソフトなんですか
フリーなのでしょうか
gooで検索したのですが詳しい内容がわからないのですが。
0049デフォルトの名無しさんNGNG
未だにgoo使ってる人がいるのか・・・
http://www.google.co.jp/search?sourceid=navclient&hl=ja&q=LightReport2
005031NGNG
>>37
ぎゃーす！俺は下り最大８M（べすとえふぉーど）じゃい！
だいたい実質４M出るぞ。つまり500k/s出るっちゅーこっちゃ！
それなのに16k/sしか出んかったの！ヽ(`Д´)ﾉｳﾜｧｧｧﾝ
0051デフォルトの名無しさんNGNG
>>50
ふん。俺は午後３時に落としたが，すいていたぞ。
0052デフォルトの名無しさんNGNG
>>49
ありがとうございました。
早速ｄｌしてみます。
0053５６Ｋモデマー（マジ）NGNG
５６Ｋモデマーはアップデートするなってことですか？(ﾜﾗ
0054デフォルトの名無しさんNGNG
>>51
Update2は20時過ぎからダウンロード始めたけど、
結局終わるまで1時間10分ほどかかったよ。
計算してみると9.0KB/s(=72Kbps)だ。
ちなみにこちらは1.5MbpsのADSL。

Borlandのサーバーは激重だな。
常時接続でない人は空いてる時間帯を
狙わざるを得ないと思うよ。
0055デフォルトの名無しさんNGNG
>>53
必ずアップデートしろとBorlandのページに書いてあるんだがな。
56kモデマーは眼中にないって事さ。
0056デフォルトの名無しさんNGNG
>>53
何かの雑誌についてくるんじゃないの？
漏れも56kﾓﾃﾞﾏｰだけど、さすがに1x時間かけて落とす気にはなれん。
0057デフォルトの名無しさんNGNG
>>55
「Delphi 6 と C++Builder 6 を併用される場合は」
アップデートしなさい。だろ。

悪質な引用の典型例だな。
0058５３NGNG
>>56
同志よ！だよねー。

関係無いけど、フラゲがシェアウェアになったらしいね。
いらないな。フリー版で重宝しまくってるし。
005956NGNG
ほんとはADSL入れたいんだけどね。
漏れはｲﾘｱさん愛用。
0060デフォルトの名無しさんNGNG
>58
広告付のフリーがなくなったって事？
割にショックかも
0061デフォルトの名無しさんNGNG
次のバージョンでは string 型を
AnsiString ではなく WideString を意味するように
指定するコンパイラオプションが欲しい。
0062デフォルトの名無しさんNGNG
>>61
type
　tmpString = AnsiString;
　AnsiString = WideString;
　WideString = tmpString;
0063５８NGNG
>>60
元・裏ニウス読んだだけだから、よく知らないけど…。
シェアになってスキン変えられるよーになったとさ。
今持ってるバージョンを手放す気はさらさら無い。スパイウェアも取れるし。
本当はとっちゃアカンのかもしらんが…（藁
気になるなら、「連邦」ってとこ見てみたら？他のニウスサイトでも書いてる
と思うし。
0064デフォルトの名無しさんNGNG
irvineで残り176時間…
ADSLなんだけどなぁ・・・
0065５８NGNG
>>64
笑えないね…。５６Ｋモデマーでチャレンジしてるチャレンジャーはいるのかな？

またまた関係無いけど、「ｉｍｅ」とかいう２ちゃんから直リン防止（なんでしょ？）
のはリフレッシュでもいいから自動で飛ばないんだろうか？
いちいちクリックすんのメンドイし、ＤＬするＵＲＬはそのままじゃ使えないし…。
0066デフォルトの名無しさんNGNG
28.8kで現在0%、残り20時間くらい。
ちょっと空いてきたのかな？
このくらいなら慣れっこなので平気。
0067デフォルトの名無しさんNGNG
>>65
2ちゃんねる用ブラウザを使うといいよ。
ちなみに私が使っているのはホットゾヌ。
0068デフォルトの名無しさんNGNG
乏しい燃料を全員で奪い合って
結果全員凍死してしまったという
ソ連の逸話をふと思い出した。

お前ら譲り合いの精神つーもんはないのか？
0069デフォルトの名無しさんNGNG
>>68
まず、あなたが譲りなさい。
0070デフォルトの名無しさんNGNG
2バイト文字が見つかった場所は何バイト目か調べることはできないの？
0071デフォルトの名無しさんNGNG
>>68
なんで怒ってんの？オレはパソナルだから別にいらないや。
製品版持ってたらＤＬ考えるけど。
0072デフォルトの名無しさんNGNG
>>68
そんな高尚なモノではない。
半角のエロ動画を必死こいてダウソしている厨レベル。
0073デフォルトの名無しさんNGNG
ここのサーバーは重い。これ定説。
0074デフォルトの名無しさんNGNG
明日になったら、べくたから落とせるのに..
0075デフォルトの名無しさんNGNG
>>72は半角板でエロ動画を必死こいてダウソしているに100ﾓﾅｰ
0076デフォルトの名無しさんNGNG
こういう時こそ串使えよな　ホント　有名所のプロバイダ串なら
0077デフォルトの名無しさんNGNG
>>75
やめれ。スレが荒れる。春厨は完全放置してくれ。
0078デフォルトの名無しさんNGNG
おいおい、ActionBand、インターフェース変更かよ、勘弁してくれよ。。。
0079デフォルトの名無しさんNGNG
>>70
できる
0080デフォルトの名無しさんNGNG
いまさらデザパタ・リファクタリングネタか・・・
0081デフォルトの名無しさんNGNG
ギコ猫とデザインパターン
かよ。
0082デフォルトの名無しさんNGNG
存在しないファイルの作成方法を教えて下さい！
ディレクトリの作成はCreateDirで出来たのですがファイルの生成方法が分かりません。

中身は何もない奴でいいんです。
0083　NGNG
>>82
中身のないファイル（エディタとかで作る）を用意しておいてコピーすればよし
0084デフォルトの名無しさんNGNG
あ、FileCreateがあった・・・
0085デフォルトの名無しさんNGNG
>>82
とりあえず　１０通りくらい思いつくけど

簡単なの一つと言われたら
with TStringList.Create do try
SaveToFile( 'ファイル名' );
finally free;end;
0086デフォルトの名無しさんNGNG
えーっと、、
よく考えたらファイルは自動的に作ってたので別の質問にします

起動する際に参照するファイルが無かったらエラーのダイアログがでますよね。
あれを無視する方法ってありますでしょうか？
0087デフォルトの名無しさんNGNG
>>86
> 起動する際に参照するファイルが無かったらエラーのダイアログがでますよね。
> あれを無視する方法ってありますでしょうか？

私は出ませんがなにか？

つか電波ぎみで意味不明。
0088デフォルトの名無しさんNGNG
>>87
LoadFromFileで確かでる。
デバッグ中にやらかすと偉い目にあう。
0089デフォルトの名無しさんNGNG
Try
　ファイル参照してみる
Except
On エラー do 無視
end;

Try
　わけわからん
Finally
　あぼーん
end;
0090デフォルトの名無しさんNGNG
>>88
　もしかしてパーソナルを使ってて、アップデートしてないとか？
0091デフォルトの名無しさんNGNG
LoadFromFileなら

Try
　LoadFromFile('aaa');
Except
end;

こんだけで大丈夫。
0092デフォルトの名無しさんNGNG
デバック中にと言ってるから　例外を受けたくないのだとして期待してるコードは

Try
　if FileExist( fileName) then 　LoadFromFile(FileName);
Except
end;
0093デフォルトの名無しさんNGNG
>>90
普通でないとおかしいんだが・・・。
オプション触ってるんじゃない？
>>86がパーソナルかproかわからんけど。
009490NGNG
>>93
いや　えらいことになると言ってるから、例のソースファイルが見つかりませんバグの事かと思ってさ
0095デフォルトの名無しさんNGNG
偉いこと
　↓
例外エラーの事でしょ

アレは普通出る
0096名無しヘタぐらま ◆B18Bks.Y NGNG
>>70
AnsiPosでOKですよん．
0097デフォルトの名無しさんNGNG
>>92
細かい事では在るが、FileExists
三単現のｓを忘れるなーー
0098デフォルトの名無しさんNGNG
>>95
うひゃ本当だ
試しにやってみたら例外エラー（CPUウィンドウ）出てDelphi終了できなくなった。
0099デフォルトの名無しさんNGNG
停止、もしくはプログラムの終了すれば
0100デフォルトの名無しさんNGNG
いまら！100げっとぉぉぉなのれす！
￣￣￣￣￣∨￣￣￣￣￣￣￣￣(´´
　　∋oノハヽo∈　　　）　　　　　　(´⌒(´
　　⊂(´ⅴ｀⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

・・・・・・・・・・・・・・・・・・
￣￣￣￣￣∨￣￣￣
　　∋oノハヽo∈　　　 　　(´;;
　　⊂(´ⅴ｀⊂⌒｀つ (´⌒(´

ろっこいしょれす・・・・・・・・・
￣￣￣￣￣∨￣￣￣￣￣￣
　　∋oノハヽo∈
　　　 (´ⅴ｀　)⌒ヽ
　　　　 U‐U^(,,⊃'～... (´⌒;;

らにみてるのれす、てれるらないれすか！
￣￣￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣
　ﾎﾟ∋oノハヽo∈　ﾎﾟ
　　ﾝ　(´ⅴ｀ #)　　　 ﾝ
　　 (´;) U,U ）～ (;;).
(´)～(⌒;;UU (´ )...～⌒(｀)
0101デフォルトの名無しさんNGNG
>>98
詳細きぼん。
0102デフォルトの名無しさんNGNG
自分のプログラムなのかIDEなのかはっきりさせていただきたく
0103デフォルトの名無しさんNGNG
どうにも
　 こうにも
　 　 春ですな～
0104デフォルトの名無しさんNGNG
多次元動的配列の受け渡しはどうすればよいのでしょう？

procedure zigen( var Data: array of array of Boolean );　
では、識別子 が必要な場所に 'ARRAY' があります。と怒られます
0105デフォルトの名無しさんNGNG
type
hoge = array of array of Boolean;
procedure zigen( var Data: hoge );　
0106デフォルトの名無しさんNGNG
>>105
動作しました。　ありがとうございます。
0107デフォルトの名無しさんNGNG
ヂレクトリ指定のダイアログを出すには
どうしたらいいですか？
0108デフォルトの名無しさんNGNG
すみません。質問させてください。
あるコンポーネントを文字列で検索するのはFindComponentで出来ますが、
あるメソッドを文字列で検索するにはどうすればいいでしょうか？

たとえば、フォームにCheckBoxやらEditやらが乗っていて、ユーザがEdit1と
文字列で指定すると、FindComponentでEdit1を探して、Edit1のメソッド一覧を文字列で表示する。
で、今度はユーザがEdit1とClearを文字列で指定するとEdit1のClearメソッドが実行される。
といったことをやりたいのです。
0109デフォルトの名無しさんNGNG
>>107
SelectDirectory
ヘルプの一番目の構文でお望みのものが表示されると思われ。
0110デフォルトの名無しさんNGNG
今日はものすごいトラブルにあった

会社で昼過ぎにFormのキャプションを変えようとForm1.Caption := 'aaa';　とやってみるがエラーが出る。
何度やってもエラーが出る。
未定義の識別子とか言ってんの。
Form1は存在するのに何が未定義だ！と、思い再度挑戦。

・・・結果、何度ヤッテもだめ。
エラーは出続けた。

しぶしぶ会社のみんなへヘルプを出すことに。
みんなも、「なんでだろうね、uses見たら？」と試行錯誤するが特に問題無い。

初めてエラーが出てから１０分以上が経過。
みんなはもう「Update2のバグだよと諦め気味」。
無念・・・

で、このプロジェクトを破棄しようとDelphi6を終了しようとしたそのときだった、
おれは一行のソースに目が行った。
From1.caption := 'aaa';
Fromってなんだよ。
こりゃエラー出るわけだ・・・。
みんなもきづけよ・・・。

今日の日のことは１０年経ったら笑い話になるんだと思い脳裏に刻んでおくことにした。
0111デフォルトの名無しさんNGNG
>>110のアップデートも必要と思われ、と逝ってみるテスト。



まぁいいんじゃないですか、たまには。
0112DELモナーNGNG

　 ∧　∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　Delphi 6 Update Pack 2 情報だよ。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜ 　
　（＿_）＿）

一応まとめておきます。

3月19日、Delphi 6 Update Pack 2が公開されました。
「Delphi 6 と C++Builder 6 を併用される場合は、
必ずこのアップデートファイル（#2）をご利用ください。」だそうです。
Personalも対象となっています。
ファイルサイズは37.2MB(!)です。
かなりでかい上に接続状況が非常に悪いので
レジューム機能があるダウンロードソフト(Irvineなど)は必須です。
(続く)
0113DELモナーNGNG
(続き)
■ダウンロードはこちらから
http://www.borland.co.jp/delphi/del6up.html#del6up2

■ファイルに直リン
ftp://ftp.borland.co.jp/pub/delphi/delphi6update2.exe

ボーランドのサーバーはアクセスが殺到してかなり重いようです。
FTPサーバーからこんなメッセージが来てダウンロードできないこともあります。　
**********************************************************
Thank you very much for your access to our FTP server
ftp.borland.co.jp.

Now the server is busy and over its capacity of available
connection.

Please back and retry after a few minutes.

We expect the server will be crowded from 9 am to 6 pm,
and around 11 pm on weekday Japan Standard Time(JST).
We would recommend you to avoid those hours to access.
**********************************************************
午前9時～午後6時と午後11時前後をだめって言われたら･･･
いつダウンロードするんだ!
0114107NGNG
>>109
ありがとうです。
プラットフォームに依存すると警告されましたが、
問題は無いのでしょうか？
0115110NGNG
>>111
みんなもこういう凡ミスするだろ？

俺の脳もアップデートしてくるか・・・
0116デフォルトの名無しさんNGNG
>>115
仕様です
0117デフォルトの名無しさんNGNG
VBで言う所のDir関数みたいなのはDelphiだと何ですか？

dir(PathName)
で該当ファイル名が出てくる。みたいな
0118デフォルトの名無しさんNGNG
該当ファイル名ってなんだよ？　VB忘れたからよくわからんし
「ExtractFileDir」とか？
0119110NGNG
ExtractFileDirじゃ駄目なの？
0120デフォルトの名無しさんNGNG
実行時に引数があればフォームを表示せずにその引数について処理し、終了。
引数が無ければ普通にフォームを表示させる。
というのはどういう風にすればいいんですか？

具体的には引数としてファイル名を与えて、引数があればそのファイルについて処理。
なければ、ファイル選択をするというものなんですが。
0121デフォルトの名無しさんNGNG
ParamCountとParamStrでコマンドライン引数取得
Delphiの「プロジェクト」メニューの「ソースを表示」で出てきたソースの
CreateFormの前に処理をするコードを記述

0122デフォルトの名無しさんNGNG
Run消して、CreateFormの後にフォームをshowするかどうか書けばよいよ･･･たぶん・・・
0123デフォルトの名無しさんNGNG
Delphi6の無料版で、IEの画面を埋め込む事って出来ますか？
0124デフォルトの名無しさんNGNG
ダウンロード終わったよ。
今なら25kb/sでるよ。
0125デフォルトの名無しさんNGNG
>>118-119
ありがとうございます。できました
0126デフォルトの名無しさんNGNG
>>123
こういうものもある
ttp://plaza21.mbn.or.jp/~takoyakusi/delphi/Internet%20Prog.html
0127デフォルトの名無しさんNGNG
>>126
あ、こんなのあるんですか。初心者でやりかたわからないかもしれませんが、ありがとうございます。
0128120NGNG
>>121
どうもありがとうございます。
0129デフォルトの名無しさんNGNG
コンポーネント作ってて思ったんだけど、コンポーネント内のメソッドから
プロパティーにアクセスする場合、プロパティー名でアクセスする方がい
い？それともフィールド変数名でアクセスする方がいい？それともどちら
でも同じ？

TTest = class(～)
Private
　FHoge: Integer;
public
　procedure testmethod(val: Integer);
published
　property Hoge: Integer read FHoge write FHoge;
end;

procedure testmethod(val: Integer);
begin
　Hoge := 0; //１
　Fhoge := 0; //２
end;

例えば上記の場合、みなさんは１にしてます？それとも２？
効率的には２の方が良さそうな気もするけど、継承とか考えると
１の方がいいのかな？っと思ったりもするんだけど・・・・・
なんか、よーわかりません
0130デフォルトの名無しさんNGNG
>>126
やっぱり初心者で、インストールの仕方が全然分かりませんでした。すいませｎ
0131俺的ローカルルールNGNG
>>129
>　property Hoge: Integer read FHoge write SetHoge;
だとしたら

副作用(SetHogeのこと)込みで普通に使いたい場合はHoge使う。
逆に明示的に副作用を当てにしたい場合はSetHoge(かHoge。この辺りは割にてきと～)
副作用を回避したい場合はFHoge直接アクセス。

継承の場合はFHogeをprotectedにすることは
まずないのでHoge使う。
0132デフォルトの名無しさんNGNG
>>129
効率はread writeで直接フィールド指定してるときはHoge, FHogeどっちも同じ。
GetHoge, SetHoge指定した場合、メソッド経由な分遅くなる。
0133デフォルトの名無しさんNGNG
>>131-132
レスサンクス。結構、難しい。
HogeとFHogeで効率が変わらないなら、基本はHogeでアクセス。
特別な理由がある時だけ、FHoge、GetHoge、SetHogeに直接アクセスって
感じがイイのかな・・・・・とか思ってみたり。
とりあえず、マイローカルルールは、Hoge基本ってことにします。
0134デフォルトの名無しさんNGNG
>>123
２ちゃんねる用ブラウザの作者さんとかが、まとめているのに。
http://hogehoge2001.tripod.co.jp/note-delphi.html
http://members.jcom.home.ne.jp/monazilla/document/index.html
0135デフォルトの名無しさんNGNG
ｻﾌﾞﾌｫｰﾑがﾒｲﾝﾌｫｰﾑのPanelにDockingするｱﾌﾟﾘ
作ってるんだけど、いまいちDocking状態の保存・復元がつかめない…

ManualDockで(･∀･)ｲｲ!と思ったんだけど、
ｻﾌﾞﾌｫｰﾑのOnCreateでManualDockしても表示されない…
(Refreshしても。)
でも描画されてないだけでリサイズとかするとすぐ描画される。
で、OnShowはどうかというと、例外が発生し
「OnShow/OnHide イベントの処理中は表示状態の変更はできません.」

これをきちんと出来る方法ないでしょか？
検索しても余計な物しかﾋｯﾄしない…
0136デフォルトの名無しさんNGNG
人それぞれだとは思うが、オレ、デルファイ（タダ版）で初めてインストールした
ActiveXがＩＥコンポだったなぁ…。特に悩むことは無かったけど。
何にも分からんでも出来るって。マジで。

つーか、gif問題はビルゲイツと糞シスとで意見が違うんだけど、どないなってる
ネン！mngなんて広まりゃしねー（藁
0137デフォルトの名無しさんNGNG
>>136
＞つーか、gif問題はビルゲイツと糞シスとで意見が違うんだけど、どないなってる
＞ネン！mngなんて広まりゃしねー（藁
そっとしておこう。触らぬ髪に祟りなし。
荒れる原因にもなるし。
0138デフォルトの名無しさんNGNG
>>136
どこも意見は食い違っていないが？
0139デフォルトの名無しさんNGNG
>>130
昔私も苦労した。
http://piza2.2ch.net/tech/kako/1001/10010/1001035627.html
で話が出てるから読んでみ。
0140デフォルトの名無しさんNGNG
IMEで「リッポウメートル」を変換するとm3の記号が表示される
のですが、Editに入力すると ? になってしまいます、
そこで、m3と入力すると 3を上付文字として表示させるように
したいのですが、EditやMemoコンポーネントでは無理でしょうか？
（RichEditでも試してみましたが、入力は出来るのですが、
入力結果をプログラムから参照すると、やはり ? になっています。）
0141デフォルトの名無しさんNGNG
当方ＷＩＮ95なんですが
95で使えるＤＥＬＰＨＩってまだＤＬできるんでしょうか？

あと、厨房にも分かりやすい
参考書を教えてもらえるとうれしいっす
0142デフォルトの名無しさんNGNG
>>140
>>141
質問はageたほうがいいよ～。レスがつかないから。
今日だれもageてないからもうだいぶsagaって来てるよ。
質問 age → 回答(あるいは個人的な意見) sage
がいいと思う。代わりにage。

>>140
EditやMemoではまず無理。
ただのテキストでは不可能だと思う。
m^3の記号が入力できたとしても
表示できる環境が限られるので
使わないほうがいい。
リッチテキストで上付き文字を指定するしかないと思う。
0143デフォルトの名無しさんNGNG
>>141
厨房(＝初心者？)ならDelphiの機能に目移りする前に、Pascalの基礎から
入りなさい。
0144デフォルトの名無しさんNGNG
>>143
敢えて反抗ｗ

DelphiのイベントドリブンをいじってPascalを覚えましたが。
まぁ、その前にDOSのCやってたんだけど。

たのしけりゃそれで良いでしょ。そいつにやる気と才能があれば最終的には正しい知識となる。
0145デフォルトの名無しさんNGNG
>>144
たしかにそーだな。
漏れはWinでは開発環境一通りやってBCBに落ち着いたんだけど
ちょっと前からさらに上をめざしてDelをはじめた。

VCLに関しては熟知してたんだがPascal全然知らなかった。
が、ツールキットを知っていれば何とか使うことができるから
そこからはじめることも良いと思う。
(ActiveX知ってればVB使える？みたいに)

最近ゆっくりObject Pascal Guide？(取説)読んで
けっこー目からうろこだった。

Del6から(付属の)リファレンスがなくなったけど、その分開発者ガイドが
増えてるんで、参考書買う前に一通り読むのが良いかと。
0146145NGNG
付属の(紙の)ドキュメント読んでよく思うんだが
リファレンス以外のオンラインヘルプがひじょーに読みにくいと
思うのはおれだけ？

素直にPDF(or HTML)のほうが読みやすいような
0147デフォルトの名無しさんNGNG
やっぱり、
{$APPTYPE CONSOLE}
program hoge;
begin
　Writeln('Hello, world!');
end.
から始めるべきかと。ｗ
0148デフォルトの名無しさんNGNG
>>147
エディタはメモ帳、コンパイルはDCC32、これ最強。
0149141NGNG
回答あんがと
やる気と基礎が必要なわけっすね。がんばってみます！
0150デフォルトの名無しさんNGNG
まず6,7年前のOS使うの止めなさい
0151デフォルトの名無しさんNGNG
授業でプログラム作ってます。
HTMLの表示にＩＥコンポを使いたいです。
学校の提出物にこれを使うのはやっぱりマズイんでしょうか？
　使えないとなると自力で表示させることになるのでヒデブです。
0152デフォルトの名無しさんNGNG
>151
課題程度ならindex.htmをSaveToFileして
表示ボタン押したらShellExecuteするだけでいいんでないの。
0153デフォルトの名無しさんNGNG
>>151
専門学校ならOK、大学ならNG
0154デフォルトの名無しさんNGNG
IE使わずを自力で表示か。
CSSやらJavaScriptやらJavaアプレットやら大変そうだな。
0155デフォルトの名無しさんNGNG
インターネットのことだけど、ページを表示しないでアクセスするだけというのはできない？

たとえば、http://xxx/xxx.cgiに接続するだけ。
0156デフォルトの名無しさんNGNG
>>155
出来る。Socket使うなりhttp使うなり。
0157Delフサギコ ◆zE1iiRdQ NGNG
　　 .∧,,∧　　／￣￣￣￣￣￣￣￣￣￣￣
～'"ﾐ,,ﾟДﾟﾐ ＜　ﾘｯﾎﾟﾝﾒｰﾄﾙはUNICODEみたいだね
　UU''UU　　　＼＿＿＿＿＿＿＿＿＿＿＿
CLXなら表示できるかも。

EmEditorのプラグイン作ってて思うけど
TWideStringListとか、本格的にUNICODE対応してくれるのは
いつになるのやら。
0158顔も名前も出さずに毎月１００万円NGNG
　　　　
Future-Web（フューチャーウェブ）登場
なんと10,000円単位の収入　　　　

●10,000円単位の高収入
　１件につき最大１０、０００円の高額収入。月収１００万円以上も可能。
●画期的なビジネス！
　インターネットを利用したこれまでにない斬新で画期的なビジネスです。
●誰でも出来ます！
　インターネットが出来る環境の方なら誰でも参加可能です。
●専門的な知識は一切不要！
　ビジネスに必要なツールはすべて当社で用意いたします。また、サポ
　ートも万全です。
●詳細は今すぐＨＰをご覧ください。
　　http://www.future-web.tv/7823/
0159デフォルトの名無しさんNGNG
>>156
詳細きぼんぬ
0160デフォルトの名無しさんNGNG
function GetHtml(URL: String): TStrings;
みたいなのがやりたいんだったらWinInetで簡単にできるよ。
0161Delフサギコ ◆zE1iiRdQ NGNG
|　 |,,∧ 　WinInet使ってヨシ　
|＿|Дﾟﾐ　
|文|⊂ﾐ　
|￣|∧|
http://members.jcom.home.ne.jp/monazilla/document/wininetdel.html

Indyはもっといいかも。
0162デフォルトの名無しさんNGNG
>>158
ﾊｧ～?
まだこんなんやってる奴がいるんだな、そもそも、うさんくせーよ、
こんなもん貼っても逆効果なんじゃねーの？ちーたー考えて宣伝したら？
進歩しないねぇ、この手の連中は・・・。
0163デフォルトの名無しさんNGNG
＞進歩しないねぇ
放置できない奴が言うもんじゃねえな
0164デフォルトの名無しさんNGNG
>>155
Indyだったら、TIdHttp、フォームに貼って

S := IdHttp1.Get('http://xxx/xxx.cgi');

の１行だけで済む。エラー処理とかは居るけど。

ところで、Pro以降の標準でIndyがついてくるDelphiって、
Indyの日本語のヘルプもついてくるの？
0165デフォルトの名無しさんNGNG
>>163
スマソ！久々に見たもんだから興奮してしまったもので。ﾊｧﾊｧ
0166デフォルトの名無しさんNGNG
前スレで話題になってた雪のソース書いてみようかな
雨は誰かが書いてくれたんで。

俺の知識じゃ出来るかどうかわからないけど。
0167デフォルトの名無しさんNGNG
>>166
がんばって。
0168デフォルトの名無しさんNGNG
>>166
完成したらうぷきぼん。
0169デフォルトの名無しさんNGNG
>>166
まずは雪の結晶をの形状を解析して
落下速度に応じた空気抵抗を算出だ。
0170　NGNG
>>164
>ところで、Pro以降の標準でIndyがついてくるDelphiって、
>Indyの日本語のヘルプもついてくるの？
うん、Delphiヘルプに含まれているよ
0171顔も尻も出さずに毎月１００万モナーNGNG
Future-Web（フューチャーウェブ）登場
なんと10,000モナー単位の支出

●10,000モナー単位の高支出
　１件につき最大１０、０００モナーの高額支出。月収１００万モナー以上もなー。
●画期的なビジネス！
　インターネットを利用したこれまでにない残虐で漫画的なビジネスです。
●誰でも出来ます！
　インターネットが出来る環境の方なら誰でも酸化化膿です。
●専門的な知識は一切不要！
　ビジネスに必要なツールはすべて貴社で用意いたします。また、サポ
　ートもマンセーです。
●詳細は今すぐエロサイトをご覧ください。
　　http://www.fusagiko.tv/2323/
0172opssNGNG
自分でプログラムつくっているのですが、自分の作成したアプリから
他のアプリを実行させる方法がわからず、煮詰まってます。

誰か教えてください。(TT
0173デフォルトの名無しさんNGNG
ShellExecute API
0174デフォルトの名無しさんNGNG
>>172
「煮詰まる」の言葉の使い方が違うような気が。
「論点が限定され *解決に近づく* 」という意味だよ。
0175　NGNG
「行き詰まる」が正しいね
0176デフォルトの名無しさんNGNG
>>174
「知恵熱で、脳がいい感じに煮詰まっている」のかもよ？かもよ？
0177164NGNG
>>170
サンクス。やっぱりついてるのか。
0178174NGNG
>>176
今見たらレスがついてるな。
咎めるつもりで>>174を書き込んだわけではないけどね。
フィーリング的な意味で書き込んだ言葉には言及するつもりはないよ。
気軽に書き込んでいいと思うし、気軽に書き込めるべきだと思う。
私個人としては、2ちゃんねるが気軽な気持ちで発言できるような場所だとしても、
全国数千万のネットユーザーが見られるようなところに発言をするのだから、
ある程度慎重に発言しようと心がけている。
自分で発言するときは、送信ボタンを押す前に絶対2,3回チェックするようにしている。
やっぱり私は言葉遣いとかに敏感なのかな。

このスレとは直接関係ない話になってしまった･･･ｽﾏｿ。
次の方質問どんどんどうぞ。↓
0179デフォルトの名無しさんNGNG
>>178
２ちゃんねらに求められるのは慎重に発言する心がけより、
多少叩かれても気にしない神経の太さだろう・・・

関係無いのでsage
次の方質問どんどんどうぞ。↓
0180デフォルトの名無しさんNGNG
>>179
あと煽りへの耐性と厨房を放置する心がけを忘れてはならないと思う。
でないと余計環境が悪化するからね。

漏れも関係無いのでsage
次の方質問どんどんどうぞ。↓
0181デフォルトの名無しさんNGNG
ClientDataSetの良い使い道を教えれ。
0182デフォルトの名無しさんNGNG
開発者ガイド嫁。
0183　NGNG
>>181
Oracleのような単方向のデータをDataGridに表示しようと思ったら
ClientDataSetを使わざるを得んかったんじゃなかったっけか（う、自信不足）
0184ミ…ミキティ！？NGNG
標準コンポのcomboboxって、書き込み不可の「csdropdownlist」（だったかな？）
ってスタイル選ぶと、「最初に表示される『text』」ってヤツが消えちゃうんだけど、
そーゆーもんなの？readonlyってプロパティは無いの？あるいは
「リストから選ぶだけ・最初にセットしたtextは表示される・書き込みは出来ない」
ってことは出来ないもんでしょか？
0185DelヲサギコNGNG
あのさー、なんか、質問の内容がgoogleやMLで解決するようなのが多すぎないかい？

そもそも、MLの過去ログの検索を知らないとかって人もいるかな？

武内氏が作ってくれてるここがお勧め、
ttp://www2.big.or.jp/~osamu/index.html

Tipsもあるから、そこも調べるとよろし。

別に、超初歩的な質問でも良いのだろうが、一応自分で調べる癖つけないと身に付かないと思われる。
自分で調べると、調べてる事とは違う知識がオマケで付いてくることがあるからね。
0186DelヲサギコNGNG
>>184
ComboBoxのStyleをcsDropDownListすれば、選択だけになる
0187１８４NGNG
一応検索したのだが…。
で、自分の書き方が悪いのか…。
>>186
csDropDownListにすると、textにセットしたやつが消えちゃうんです。
それは必然なんスかね？
0188DelヲサギコNGNG
>>187
ItemIndexで最初に表示させたいitemの位置を指定
0～itemの数-1 の範囲
デフォルトは -1となっている
0189１８４NGNG
あ、onchangeでいちいち-1を監視すればいいかな？もしかして…。
当たってるなら気が付かなかったなぁ。違うかしらん？
0190デフォルトの名無しさんNGNG
>>188 ｷﾋﾞｼｲｺﾄｲｯﾃﾙﾜﾘﾆ､ｵﾏｴｼﾝｾﾂﾅﾔﾂﾀﾞﾅ ｶﾝｼﾝｶﾝｼﾝ
0191デフォルトの名無しさんNGNG
>>188
偉そうにしといて、いい加減な答え方するな！
0192デフォルトの名無しさんNGNG
>>189
リスト内に存在させたくない文字を初期表示させたいってことですよね？

たぶん、仕様上無理では？
0193デフォルトの名無しさんNGNG
5 名前：Tips集 投稿日：01/09/21 10:29
　前スレのDelギコ氏作成のリンク集をお借りしたぞー

￣￣￣∨￣￣￣￣￣
　　　∧ ∧　　　ﾏﾀｰﾘ
　　　(,,ﾟДﾟ)∫
　　　/　 つ旦O
　～（__ｎ ｎ［￣￣￣.］
　　　　　　　 ￣￣￣
初心者向け
Do It YourSelf---Life with Delphi　http://home.onestop.net/mineko/index2.html
ゼロからDELPHI講座　http://www.text2music.com/mine/delphi/index.html

VBから
Switching Delphi / VB　http://member.nifty.ne.jp/deepforest/vbdel.htm
Visual Basic から Delphi/Kylix への移行ガイド　http://www.borland.co.jp/delphi/papers/vbtodel/

Tipsサイト
Delphi Acid Floor　　http://homepage2.nifty.com/boheme/top.html
Leafel's note Programing　　http://hp.vector.co.jp/authors/VA015850/program.html
日本Delphi振興会　　http://hp.vector.co.jp/authors/VA009712/take/delphi/kabetop.htm
Delphi神殿Tips　　http://nug.nasu-net.or.jp/~sakai/delphi/index.html
M&I Tips　　http://member.nifty.ne.jp/m-and-i/tips/tipspage.htm
Gen'sDelphiLabo　　http://www2.biglobe.ne.jp/~sakai/gensfaq2.htm
FDelphi　　http://www.nifty.ne.jp/forum/fdelphi/faq/title.htm
Borland Q&A Delphi　　http://www.borland.co.jp/qanda/delphi/index.html
Borland Tips Delphi　　http://www.borland.co.jp/tips/delphi/index.html
RG VEDA DELPHI TIPS　　http://homepage1.nifty.com/beny/delphi.html
Sky Engine by Delphi　　http://www.geocities.co.jp/SiliconValley-SanJose/7625/index.html
AboutDelphi　　http://www2.big.or.jp/~osamu/Delphi/
Win32 API by Object Pascal of Delphi　　http://halbow.cool.ne.jp/top.html
COSMIC TOWER DELPHI MILLION TIPS　　http://homepage1.nifty.com/cosmic/delphi/delphitips.html
Delphi広場faq　　http://www.sakaki.keiaikai.or.jp/faq.html
としのホームページTIPS　　http://hp.vector.co.jp/authors/VA003525/tips.htm
STUDIO MU Delphi Q&A　　http://www.para.tutics.tut.ac.jp/~ohno/mu/devroom/delphi_qa_g.html
0194デフォルトの名無しさんNGNG
中村の里　　http://www.asahi-net.or.jp/~HA3T-NKMR/delphi.htm
進め！中級プログラマ　　http://www.asahi-net.or.jp/~GV4J-SGUR/narik/susucyu.htm
Ken's Software Delphiの話題　　http://homepage1.nifty.com/kens-hp/delphi.htm
Katsuya's Home　　http://www.apionet.or.jp/~tubokura/k_tips.html
Ak's Laboratory[Delphi Construction]　　http://www2s.biglobe.ne.jp/~aks-lab/delphi_lecture.htm
MADIAのVB研究室｜Delphi Page　　http://homepage1.nifty.com/MADIA/Delphi/Delhpi.htm
DEKO Delphiによるテクニック＆アルゴリズム　　http://homepage1.nifty.com\ht_deko\techalgo.html

初心者から上級者まで御用達
　DelphiML検索　http://www2.big.or.jp/~osamu/Delphi/
　Delphi広場　http://www.sakaki.keiaikai.or.jp/
　BorlandManiacs　http://member.nifty.ne.jp/h_kova/

コンポーネントのことなら
　DelphianWorld　http://home1.infonia.ne.jp/~delphian/delphi/
　DelphiSuperPage　http://delphi.icm.edu.pl/

環境のカスタマイズなら
　GExperts　http://www.gexperts.org/
　フリーカーソル無効化アドイン　http://homepage1.nifty.com/fuu/

書籍案内
Delphi 書籍ランキング
http://home1.infonia.ne.jp/~delphian/delphi/history/book.html
http://home1.infonia.ne.jp/~delphian/delphi/history/bookrank2/book.html
Ｄｅｌｐｈｉ初心者のための道しるべ　　http://www.valley.ne.jp/~masaiku/index1.htm
0195１８４NGNG
あ、違うや。最初にセットすりゃーいいのか。出来るんなら。

「MLの過去ログの検索」って、関係無いの拾いまくりだよね。
もーすこし、絞ってくれると使いやすいんだけどなぁ。いや、文句じゃないんだけど。
0196デフォルトの名無しさんNGNG
>>193
Delphi Acid Floor は移転しました、
http://www.wwlnk.com/boheme/
0197DELモナーNGNG
>>193-194
　 ∧　∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　次スレの先頭に貼ろうかな。　
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）
0198１８４NGNG
>>192
あれま。無理？そっかー…。なーんか簡単なことなのになんでダメなんだろう？
richeditとかmemoのreadonlyがあれば問題なしなのに…。

0199デフォルトの名無しさんNGNG
>>198
もともとそういう動作のために作られたものではないと思う。

「ドロップダウンするコマンドボタン」の話を思い出したぞ。(w
0200デフォルトの名無しさんNGNG
>>198
OnKeyPressで入力潰せばReadOnlyもどきにはなるけど
多分おそらくComboBoxの存在理由を勘違いしている。
0201１８４NGNG
>>200
そっか。じゃ、これまでにします。
教えてくれた人、ありが㌧。
0202デフォルトの名無しさんNGNG
>196
一番上の行を見てわかるとおり、かなり昔のスレの頭に張ってあった
ものなので、リンク切れが他にもあるかもしれぬ

>197
最近張ってないようなので、是非とも張ってくれ
0203DelヲサギコNGNG
>>198
なんか、いい加減呼ばわりされたようだが、ComboBoxのitemsに

(選んでね)
aaaa
bbbb
cccc

と設定しておいて、ComboBoxのItemIndexに0を設定じゃ駄目って事か？
0204１８４ ◆eX0u5GM6 NGNG
>>203
いい加減呼ばわりしたのはオレじゃないよ。
なんか、荒れそうなんで、その方法も後で試してみますよ。
ありが㌧。
0205DelヲサギコNGNG
>>204
いあ、「なんか、いい加減呼ばわり」の部分は、君に言ったんじゃないよ。
じゃ、がんばつてね
0206デフォルトの名無しさんNGNG
めちゃ厨房な事かもしれないけど・・・
何行かもとめる関数ってある？
0207デフォルトの名無しさんNGNG
もうちっとわかりやすくきけ。
TStrings.Countじゃだめなの？
0208デフォルトの名無しさんNGNG
>206
richedit.count;とか？なんの「行」か書かないと。
0209208NGNG
richedit.Lines.Countか…。テヘ。
0210デフォルトの名無しさんNGNG
>>206
質問の内容は厨房なことだとしても、質問の仕方は厨房ではないようにできる。
詳しく、どんな状況にあるかを書こう。
例えば、求める対象となる文字列がString型の変数にある場合とか。
0211デフォルトの名無しさんNGNG
>>209
かわいい・・・ぽっ(; ´Д｀)
0212デフォルトの名無しさんNGNG
>>169
雪の結晶から作るんか！
普通は画像か何かでやるでしょ。
0213デフォルトの名無しさんNGNG
今度Delphiで作ったプログラムをKylixに移植することになったんすけどー
取り合えず、VCLからCLXに変換する必要があるとおもったんすけどー
一括して変更してくれるようなモードとか見当たらないんすけど、無いの？

Delphi6(VCL) -> Delphi6(CLX) -> Kylix2 こんな感じでwin側もLinux側も
同じソース使おうとかって思ってるんだがどーよ。
因みに、Kylix2はまだ届いてない・・・大丈夫なのか？
0214デフォルトの名無しさんNGNG
（´-`）。o ○ （まず、口のききかたを勉強する必要があるヤツがいるな…）
0215デフォルトの名無しさんNGNG
* ツレでもない人間のタメ口口調の発言を読むのはそれだけで愉快ではありません。
* 自分についたレスならハッキリと不愉快です。
* インターネットの匿名性の元で国籍、年齢、性別、職業、地位の別なく
* 自由に意見交換をするということは
* 『対等だからタメ口でよい』ではなく
* 『対等だからこそ相手に最大限の敬意を払うべき』と思いますが？
* 敬語を使い慣れていなくても
* 丁寧語で、『です、ます調』で書くくらいの気配りはあるべきではないでしょうか？
0216デフォルトの名無しさんNGNG
>>213 Kylixはまったく分かりません・・・。ｽﾏｿ。ところで、
2チャンネルがいくら「フレンドリー」に書き込みができる場だとしても、
ちょっと「馴れ馴れしく」見えてしまう人がいるかも。
私が質問をするときは「教えていただく」わけだから、
丁寧にお願いするようにしているよ。
0217デフォルトの名無しさんNGNG
（´-`）。o ○ （思ったことは同じか…。次は口調を改めてマルチポストするのかなと…）
0218216NGNG
>>216 細かいことだけど訂正。 2チャンネル → 2ちゃんねる
0219思いつきNGNG
>>213
共通部分はユニットのエリアス設定するだけじゃ駄目なんだっけ？
0220213NGNG
よくわかりました、ありがとうございました。
マルチポストなんぞしません。さようなら。
0221デフォルトの名無しさんNGNG
（　´∀｀）アイヨー
0222デフォルトの名無しさんNGNG
>>219
でも、それ何処とじゃないことが解ったのでもう諦めました。
自作のコンポ使ってる部分があってWinAPIガチガチだったんで
そっちから手をつけることにしました。

ありがとうございました。
0223213NGNG
#bye
#end
0224デフォルトの名無しさんNGNG
>>222
API使ってたらCLXにできないの？
0225デフォルトの名無しさんNGNG
>>224
Win32API使ったコードがLinuxでそのまま動いたらえらいこっちゃ。
リーナスがゲイツに訴えられるよ。
0226　NGNG
>>224
「プラットホームに依存する」とかの警告が出ると思うよ
0227デフォルトの名無しさんNGNG
readme_62.txt に、

> 修正，改良の詳細については，Delphi 6 のディレクトリにインストールされた
> D602FIXES.html ファイルをご覧ください。

とあるが、そんなファイルどこにもないぞ！！！
0228デフォルトの名無しさんNGNG
>>227
心の目で見なさい。
0229デフォルトの名無しさんNGNG
>>213
本当は作る時点でCLXプロジェクトとして組まないとダメ。
もしそういうことをしてないならかなり手間かかっちゃうね。
とくにドッキングとか使ってる人は。
でも元のソースが有るんならCLXに移すだけで１日もあれば出来るはず。

自分はkylixから入ったんだけど、ハッキリ言ってあのソフトはくそでした。
glibc如きで依存した動作するわバグ満載だわ、デバッグ実行したらソフト落ちるわ・・・。
そりゃ速攻でバージョン２出すわな。（本当は無料で欲しいけど。）
バージョン２届いたらレポートよろしく。

うちはまだDelphi6&kylix1で開発を続けてるんで。

>>225
ShowMessageもAPIだった予感・・・
そもそもkylixはｗｉｎｅ上で動いてるからね。
0230デフォルトの名無しさんNGNG
>229
ShowMessageは非API。
詳しくはソース。
0231デフォルトの名無しさんNGNG
いっそ米司法省がMSに資金提供させて
BorlandにLinuxで動くCRL作らせりゃいいんだよ。
0232荒れる？荒れるの？NGNG
Linuxとネスケって需要あるの？
0233デフォルトの名無しさんNGNG
>232
需要は作るものだ。
0234デフォルトの名無しさんNGNG
こんな時間にｽﾏｿ
今、データベースの勉強しようかと思ってます。んで・・・
サンプルデータベースのアニマルで、やろうとしてるんですが、
ＳＱＬ文に「WHERE SIZE > 10」ってやると、「キーワードが無効です
キーワード：SIZE」ってでちゃうんです。
「WHERE WHIGHT > 10」だと正常動作します。
なんで、なんでしょうか？
助けてくださーい
0235　NGNG
>>234
「SIZE」はSQLのキーワードだからでしょ

SQLもプログラム言語なんだからキーワードを変数名（フィールド名）
としては使えないと・・・
0236デフォルトの名無しさんNGNG
>なんで、なんでしょうか？

この表現よいね・・・
0237デフォルトの名無しさんNGNG
>>235
回答ありがとうございます。
こんな、時間に即レスあるとわ、びっくりです！

しかし、まいったなぁ・・・・
じゃぁSIZEで抜き出しするには、どうしたらいいですか？
まさか、出来ないとか・・・

ずるいよ、ずるいよなぁ？
0238　NGNG
>>237
WHERE "SIZE" > 10
では？
0239　NGNG
ってことは結局キーワードを変数名としても使えるわけか・・・
自分の勉強にもなりましたよ
0240　NGNG
×変数名
○フィールド名
・・・ま、いっか
0241デフォルトの名無しさんNGNG
>>238
う～ん、出来ませんです。
それだと、「式中の型が一致していません」って出ちゃいます。
困ったﾅｧ
0242　NGNG
>>241
自分の手元にあるのはInterBase（Delスレだからまだいいけど一般にはマイナーかな）
だけど通りましたよ

SIZEの中身が文字列だったら数値と比較すれば当然「型が一致していません」
でしょうけど
0243デフォルトの名無しさんNGNG
>>242
う～ん　なんでかわからないけど、出来ませんでした。
””で囲むと型が変わっちゃうのかﾅｧ？
SIZEの中身はNUMERICなんですが・・・
もうちょっと、調べてみます。
0244　NGNG
>>243
アニマルというのがDelのanimal.dbfと分かったので・・・以下でOKのはず
select *
from "animal.dbf" a
where
a."SIZE" > 20
0245　NGNG
それとね
同じDBDEMOSのテーブルならbiolife.dbの方が面白いですよ

ちなみにanimal.dbfはdBASE、biolife.dbはParadox
Delで最も扱いやすいのはParadoxですね
0246デフォルトの名無しさんNGNG
>>244
あらら？出来ました！
でも、なんでだろう？
「animals」を「a」として「a」の「SIZE」が２０より大きい物を抜き出す。
ですよね？これって。
なんで、これだけ、テーブル名つけなきゃいけないんだろう？
わかんないなー
しょうがないから、これからはなんでも、テーブル名先につけるように
します。
どうも、ありがとうございました！！！
0247勉強中。NGNG
０から作るのではなく、既存のものに手を加えて作る。

それこそがＯＯＰの醍醐味．．と思ってみるテスト。
0248どうか教えてください。NGNG
var
　A,B : TStringList ;
の時
　A := TStringList.Create ;
　B := TStringList.Create ;
　A.Add('あいうえお');
　B.Add('かきくけこ');
として
　A := B ;
とすると、変数A,Bはそれぞれのインスタンスへのポインタに過ぎないので
変数A,Bはどちらも同じインスタンスを指すことになる。
（↑ここまではあってますよね？）

このとき、変数Aがもともと指していたインスタンスはどうなってしまうのですか？
A := B ;の時点で開放されるのでしょうか？
それともプログラム終了まで、メモリに残るのでしょうか？
もしメモリに残っているのなら、どうやって参照すればよいのでしょうか？
0249デフォルトの名無しさんNGNG
醍醐味というなら 少し手を加えるだけで使えるように　コンポーネント作ってる方がオイシイぞ
0250デフォルトの名無しさんNGNG
>>248
１、　インターフェース型ではないのでメモリには残っている
２、　その情報だけからは参照出来ない
　　　コンポーネント型なら、作成時の親から辿れるけど TStringsはコンポーネント型ではないから
0251デフォルトの名無しさんNGNG
　 ∧＿∧　　　／￣￣￣￣￣￣￣
　(´・д・｀)　＜ 　はぁぁ、ﾓﾃないよぅ
　（つ旦と）　　 ＼＿＿＿＿＿＿＿
　 と＿）＿）
0252デフォルトの名無しさんNGNG
質問です。
Gridの上に目印を置きたいのですがどうやったら良いでしょうか？
クリックしたとき、ダブルクリックしたときにそれぞれCoｌとRowの座標を持ってくるんですがそこに目印のような物を
起きたいのです。
文字を置き換えは既にやってるので出来ないです。
何か良い方法は無いでしょうか？
0253デフォルトの名無しさんNGNG
>>248
Aで参照されていたものはメモリに残ってしまうので、自分で解放しないといけませんね。
250の言うように非インターフェースや非コンポーネントは注意が必要です。
0254デフォルトの名無しさんNGNG
>>252
　 OnDrawCell　でその座標の時だけ特別な描き方をしたらいいんじゃないの？
0255デフォルトの名無しさんNGNG
>>251　キミがいいと思う人はどこかに（そこら中に）居ると思われ
　　ただし、その人をキミがいいと思わないのであろう
0256デフォルトの名無しさんNGNG
>>254
OnDrawで画像って描画出来ます？
0257デフォルトの名無しさんNGNG
>>248
この場合、スタックに確保された変数Aと変数Bの領域は関数を抜けると開放されるけど、
文字列のためのヒープ領域はB.Freeとしないとメモリーリークになるという理解でいいですか？
さらにこの場合元々Aが使用していたヒープ領域はFreeしようがないのでリークの原因になるっつー理解でいいですか？
0258デフォルトの名無しさんNGNG
>>256　○でも×でも文字でも絵でも好きなように描けばいいよ
0259デフォルトの名無しさんNGNG
>>257
　正解だけど、そういうミスをしないように

１、ひとつのブロックで一つしか作成しない
２、インスタンスを作成する場合は必ず try ... finally hoge.free;end; を入れる

とか自分で決めておいたらどう？
0260248NGNG
>250,253,257,259

回答ありがとうございます。
結局メモリの無駄遣いになるということですね。

おろかにも上記のような代入を多用したルーチンを
書こうと思ってましたので大変助かりました。
0261　NGNG
>>260
TStrings(TStringListを含む)の中身の代入には
Assignを使う
248の例だと
　A.Assign(B);
これ常識
0262デフォルトの名無しさんNGNG
>260
Interface, TComponent使ってると明示的に
開放する必要ないんだけどね。

>261
そりゃ意味が違うよ。
0263デフォルトの名無しさんNGNG
メモリの中に入ってる値（String）を保存ダイアログでテキストに保存させることって出来ますか？
0264デフォルトの名無しさんNGNG
>263
状況がよくわからんがTStream系を使えば十分可能。
0265デフォルトの名無しさんNGNG
先頭アドレスPCharにキャストして文字列として普通にセーブ。
0266デフォルトの名無しさんNGNG
初心者はTStringListが一番楽でしょ
if SaveDialog1.Execute then
StringList1.SaveToFile(SaveDialog1.FileName);
0267デフォルトの名無しさんNGNG
RichEditで、DBから自動でテーブルやDBの情報を持ってきてそれに
手書きでワープロ出来るようなソフトを作っているのですが、
RichEditの属性って .SelAttributes.～ じゃないと属性設定出来ない
のでしょうか？
0268デフォルトの名無しさんNGNG
Stringの変数をStringlistに持っていくと互換性無いって言われる！
なんで？
>>266

一応ダイアログ開きましたけど。
0269デフォルトの名無しさんNGNG
StringList.Add(String)しろ
0270デフォルトの名無しさんNGNG
>>269
すいません
凡ミスでした。
0271デフォルトの名無しさんNGNG
Object Pascalでデザインパターンを説明したサイトってありませんか？
0272デフォルトの名無しさんNGNG
http://delphi.about.com/library/weekly/aa010201a.htm
0273デフォルトの名無しさんNGNG
>保存ダイアログでテキストに保存させることって出来ますか？

保存ダイアログはファイルパスを決めるまでしかしないＹＯ！
0274デフォルトの名無しさんNGNG
>>272
そのサイト言ったら落ちたよ？
デザインパターンって言う文字と外人の顔は見えたけどそのあと窓が何個も開いてブラウザが強制終了しちゃった。

鬱です・・・。
0275デフォルトの名無しさんNGNG
>274
落ちないよ。ただウザい広告がしばらく出てるだけ。
しばらく待ってれば消えるよ。
0276　NGNG
>>275
ノートン使ってると「ウザい広告」が出なくて快適
0277　NGNG
あ、やっぱりこそっと出てた
0278デフォルトの名無しさんNGNG
構文解析パターンについて知りたいです。
0279デフォルトの名無しさんNGNG
TabSheet.Freeをすると親のTPageControlのActivePageが一瞬、
Pages[0]になった後にまた元のActivePageになるが嫌なんですが、
この現象を止めるにはどうしたらいいんでしょうか？
0280デフォルトの名無しさんNGNG
>>279
TabIndexを指定してからFreeしれ
0281デフォルトの名無しさんNGNG
ここ、レベル低～い。
0282280NGNG
脊髄レス失敗
0283デフォルトの名無しさんNGNG
>>271
最近のMLとか
0284デフォルトの名無しさんNGNG
>283
あれじゃわからんだろ。
しかもDelphi+Iteratorってさいて～な組み合わせ。
0285デフォルトの名無しさんNGNG
＞Delphi+Iterator
たーしかに・・・。
List周り自作すると今度はVCLとの調和が・・・。
0286デフォルトの名無しさんNGNG
どうしてObject PascalとC#&Ruby比較しないんだろ？
0287デフォルトの名無しさんNGNG
>>281
タイトル読めないの？
0288デフォルトの名無しさんNGNG
ドッキングを作りたいんですけどPanelでやるとフロートしたあとに元に戻せないです。
他に良い方法無いですか？
元の位置にくっつけたいんです。
0289288NGNG
あ、別にPanelにこだわってる訳じゃ無いです。
ドッキングが出来たら何でも良いです。
0290デフォルトの名無しさんNGNG
サンプルがあったような
0291デフォルトの名無しさんNGNG
Decoratorパターンを試してみようと思い、UMLマガジンを見ながら
以下のようにしたのですが…
このあとどういう風にすれば Decorator パターンになりますか？

type
　TInstrument = class
　　procedure Play; virtual; abstract;
　end;

　TGuiter = class( TInstrument )
　　procedure Play; override;
　end;

　TEffector = class( TInstrument )
　　FInstrument: TInstrument;
　　procedure Play; override;
　end;

　TEffector1 = class( TEffector );
　　procedure Play; override;
　end;

　TEffector2 = class( TEffector );
　　procedure Play; override;
　end;

　TEffector3 = class( TEffector );
　　procedure Play; override;
　end;


procedure TGuiter.Play; begin WriteLn('ビヨン..'); end;
procedure TEffector1.Play; begin FInstrument.Play;　WriteLn('ョンョンョン...'); end;
procedure TEffector2.Play; begin FInstrument.Play;　WriteLn('ボワワンボワワン'); end;
procedure TEffector3.Play; begin FInstrument.Play;　WriteLn('キィーン'); end;
0292デフォルトの名無しさんNGNG
>>291
property Instrument: TInstrument read FInstrument write SetInstrument;
にして着脱を容易にするインタフェースがあるといい。
あとはAssigned(Instrument)のチェックを忘れずに。
ついでにoverrideした全てのPlay内で毎回
Instrument.Playを呼ぶのは面倒なんで（忘れると悲惨なことに...）

Playはprotectedにして
procedure TInstrument.Execute;
begin
　if Assigned(Instrument) then
　　Instrument.Play;
　Play;
end;
みたいにすると楽かも。
0293デフォルトの名無しさんNGNG
こういうデザパタとかをDelマガで特集すれば売り上げ伸びるのにね。
0294デフォルトの名無しさんNGNG
誰も興味なんか無いさ。
0295デフォルトの名無しさんNGNG
>>291　Decoratorらしくするには
サブクラスで　親クラスのインスタンスを引数にするコンストラクか　親クラスを持つ為のプロパティが必要かと

そして、飾られるのは親クラスだから、ええと
0296141NGNG
自分のＰＣ，ＭＭＸ　Ｐ166なもんでＷ98ですらきつすぎ（－－
ということで、95ＯＫなＤＥＬＰＨＩ探してるんですが
やっぱ、ないんですかねえ（；；
0297デフォルトの名無しさんNGNG
>>296
Delphi1.0なら余裕で動く。
CDにおまけでついてない？
0298デフォルトの名無しさんNGNG
>>297　ついてたのは Delphi4までだからねえ　どこかの在庫探すしかないんじゃない？

それよりDelphi1をフリーにしてくれないかなあ
0299141NGNG
>>297
雑誌とかについてるのですか？
自分が持ってるのは、参考書についてた、6.0だけでした。
0300デフォルトの名無しさんNGNG
>>141
未登録のを探せばいいんじゃない？
http://list.auctions.yahoo.co.jp/jp/2084022986-category-leaf.html
0301デフォルトの名無しさんNGNG
プログラムが終わる瞬間の、とあるグローバル変数の中身を知りたいがために

initialization

finalization
　ShowMessage( 変数 );
end.

としましたが、なぜか全く表示されません。…ナゼ？
0302デフォルトの名無しさんNGNG
>301
そこに制御が移る直前にもうShowMessageを呼び出す
機能がdestructされちゃってるから。
Windows.MessageDlgなら呼べるよ。
0303デフォルトの名無しさんNGNG
>>296
Cel366のVMWare上のWin95OSR2でDelphi5ProとDelphi6Personal
をつかってます。ツールバーのアイコンがすぐバケる以外は特に
問題は出てないですね。
使えなかったんですか？
0304名無しヘタぐらま ◆B18Bks.Y NGNG
>>296
私の前の開発マシンがMMX Pentium 200MHzのPC-9821系でしたが
Delphi3ならサクサク動くし，5も起動に時間がかかって，
ファイルの読み込み後にちょっとディスクアクセスするほかは
問題ないレベルでした．

>300さんのあげたくださったオークションも選択肢に入れていいと思います．
とりあえずこのページを見に行くといいかも．
0305デフォルトの名無しさんNGNG
>300さんのサイト、スタンダード版ばかりでろくなの無いよ。
0306デフォルトの名無しさんNGNG

書籍付きでお得ですよ！
0307デフォルトの名無しさんNGNG
メモリの解放し忘れをチェックするために、こんなものを作りました

var HogeInstances:TList;

...

constructor THogeItem.Create;
begin
　HogeInstances.Add( Self );
end;

...

HogeItem を使った後のタイミングで実行
procedure HogeInstancesFree;begin
var
　P:TObject;
begin
　while HogeInstances.Count > 0 do begin
　　P := TObject(HogeInstances[0]);
　　HogeInstance.Delete(0);
　　P.Free;
　end;
end;
0308デフォルトの名無しさんNGNG
途中でcomboboxのスタイルをcsdropdownlistに変えるとindexが変よ？
combobox1.itemindex:=combobox1.items.count-1とかすると一番上のが選択されちまうのよ
ほんでcombobox1.seltext:='hoge'とかするとhogeの一個上が選択されとるわけよ
どうなっとるわけ？

(´-`).｡oOｙ（あ、僕、ど素人ですけど・・・）
0309デフォルトの名無しさんNGNG
>>308 回答じゃないけど、
とりあえず>>216あたりを読んで･･･。このスレの雰囲気を見よう。
0310デフォルトの名無しさんNGNG
>>309
(゜д゜)＜あらやだ！ごめんなさい。
でも怒りに満ちてるのはデルファイに対してなの・・・わかって・・・
0311309NGNG
>>308 >>310
ちょっと動作を検証してみたけど、
>>308に書いてある限りでは、こっちでは質問のような動作の不具合はなかった。
また、>>308の3行目についてだけど、ドロップダウンリストにすると、
項目は選ぶのみで、テキストの直接入力はできないので、
そのプロパティは設定しても音沙汰なしになるはず。

何か特別な状況になっているかもしれないので、
もっと不具合が起こった状況を詳しく書いたほうがいいと思うよ。
0312308NGNG
あるキー操作でコンボボックスの中身を入れ替えてスタイルをcsDropDownListに変えます。
そのときソートをtrueにオートコンプリートをｆａｌｓｅに変えます。
んで、さらにある操作で中身を変えられるようにしてるんですけど、入れ替えたときに
combobox1.itemindex:=combobox1.items.count-1とすると一番上のが選択されてしまう。
combobox1.itemindex:=combobox.items.indexof('aho')とするとahoの一個上が選択されてしまう。
何も指定しないと上から2番目が勝手に選択されてしまう・・・などなど・・・
この動作をスタイルを変えずにやると上のような問題がおきなかった。
0313デフォルトの名無しさんNGNG
コンボボックスのスタイル変更、ってのは Windows コントロールの再生成を
必要とするから、コンボボックスの中身や選択状態はすべて消失するのが Windows の仕様。
それを VCL 側で管理している部分に手落ちがあるんだろう？
素直に index を 0 に設定するか、同様なことを TCOmboBox のコードに入れて
再ビルド。

ソースついているんだからしゃぶれ。
0314デフォルトの名無しさんNGNG
307がなんなのか解らない。
0315308NGNG
（ ´・ω・)ぁぃ・・・
0316308NGNG
(´-`).｡oOｙ（あ、言い忘れたけど、スタイルを変えてから中身入れ替えてます・・・
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　いろいろ調べてみよっと）
0317名無しさん＠お腹いっぱい。NGNG
お邪魔します
プログラムの休憩合間に、コンビニを利用する方
http://wakaz.lolipop.jp/index.html
0318デフォルトの名無しさんNGNG
（´-`）。o ○ （本当に邪魔だな…）
0319デフォルトの名無しさんNGNG
お邪魔します
プログラム作成中にタバコを大量に吸ってしまう人でタバコを辞めたい方
１００％タバコを辞める方法を教えます。

タバコを捨てたりしなくてもOK、必ず辞める事が出来ます、
しかも、今まで以上に吸ってください、私は２時間程度で辞める事が出来ました。

１．タバコを全て箱から出して下さい。
２．フィルタが上にくるようにして箱に戻してください。
３．タバコを吸う時は必ずフィルタ側に火をつけます。
４．おもいっきり吸って下さい。

但し、臭いからといって吸うのを辞めたら駄目です、完全にフィルタ部分を
吸い尽くして下さい、その後、葉の部分まで火が来たらそもまま吸っても
結構です、しかし、ここまで来るとモドシそうになっているはずですので、
消したくなるでしょう。

これを数本吸うだけで、タバコに手がのびなくなります！
それでも吸う人は逝って下さい。

但し、非常に有害で危険ですので自己責任でお試し下さい。
0320デフォルトの名無しさんNGNG
>>318
いちいち反応するオマエモナー
0321デフォルトの名無しさんNGNG
>>319　すれ違いなもん書き込むなボケ！
0322デフォルトの名無しさんNGNG
放置で宜しく
0323デフォルトの名無しさんNGNG
>>319
そんなことしても大丈夫？煙草吸ってた方が健康だったんじゃないの？
発ガン性物質がその数本で十分からだに蓄積されたから、
あんた近いうちに死ぬよ、たぶん。（藁）
0324デフォルトの名無しさんNGNG
319=323
0325デフォルトの名無しさんNGNG
文字列をCommaTextで処理すると

'あああ','いい　いい','うううう'

と成ることを期待しているのに、

'あああ','いい','いい','うううう'

と、「いい　いい」 の中間のスペースで区切られて
しまうようなのですが、どーすれば良いのでしょう。
0326デフォルトの名無しさんNGNG
319=320=321=322=323=324
0327デフォルトの名無しさんNGNG
>>325 全角空白ならＯＫだとおもうけど

俺レベルだと　半角空白を \nとかに変換して CommaText
んで　\n 　を元に戻す・・・あほや
0328デフォルトの名無しさんNGNG
>>325
DelimitedTextは駄目？
0329デフォルトの名無しさんNGNG
>>325
' "あああ","いいい いい","ううう" ' と 文字列を "で囲んでやったら大丈夫だとおもふ

>>328
この場合DelimitedTextは意味無いと思われる
0330デフォルトの名無しさんNGNG
>135(≠>289氏です)ですが、ポインタだけでもｷﾎﾞﾝﾇ…
まともな検索結果が上位にでてくるGoogleｻｰﾁでも是非に。
というかドッキングの使い手ってあまり居ないのでしょうか…

>289氏
フロートする物をToolWindowなFormでやって、
DragKindをdkDockに
DragModeをdmAutoMaticに

適当にドック先にPanelでも配置して、
UseDockManagerをTrueに
DocSiteをTrueに

これでどう？漏れはこれで出来たけど、
フロート/ドック状態の記憶・復元がうまく出来ない(;´Д`)
0331デフォルトの名無しさんNGNG
>>327-329
ありがとうございます、テストしてみると""で囲むと上手く動きましたが、

もう一つ、今度は逆に
Memoコンポーネント等の中身をカンマ編集にして書き出す時に、
xxxx:=Memo1.Lines.CommaText;
のようにしてカンマを付けているのですが、この場合に勝手に ""で囲まれる
部分と囲まれない部分が判断（空白の有無等？）されるみたいなのですけど、
１行１行ループさせて ""で囲むようにガリガリと書かないと駄目なのでしょうか？

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

ガリガリって・・・・程度なんで、これで良いのでは？

var
　 i:integer;
begin

　 Memo2.Clear;
　 for i:=0 to Memo1.Lines.Count -1 do
　 begin
　　 if (Self.Memo2.Text<>'') then
　　　 Self.Memo2.Text:=Self.Memo2.Text+',';
　　 Self.Memo2.Text:=Self.Memo2.Text+'"'+Self.Memo1.Lines[i]+'"';
　 end;

end;
0333332NGNG
訂正：
程度なんで　-> この程度なんで
0334デフォルトの名無しさんNGNG
>>332
速度的にループさせると遅くなるのでは？と考えまして、その意味でのガリガリの表現でした。
少し試してみました、データ件数が少ないので何とも言えないのですが、速度の差はあまり無いみたいです。
有難うございました。
0335>>307NGNG
モジュール(*.exe/*.dll)全体ならinitialization/finalizationでAllocMemCountを比較、
クラス毎ならNewInstance/FreeInstanceのオーバーロード。
ちなみにそのコードだとFree忘れを(チェックではなく)もみ消してるようにしか見えないが？
報告させて、キッチリ忘れてる箇所でFreeするようにするのが筋と思う。(GCしたいなら別だが)
0336デフォルトの名無しさんNGNG
訂正、おーばーらいど…鬱です逝って来ます
0337デフォルトの名無しさんNGNG
>>330
昔Adobe風味なUI頼まれてDock使ってみたんだが
状況の保存、復元がうまくできなくて断念(鬱

結局TForm継承したTDockFormを作って
移動中にほかのフォームに近づくと吸い寄せられるよーな作りにした。
でTDockFormにPageControl配置してそれをDockの親？にして、
TabSheetをDock/UnDockするといい感じだったような記憶が・・・
この場合は保存/復元はTDockForm単位でできたような・・・

あいまいでｽﾏｿ
0338166NGNG
雪を降らす奴作ってたんだけど全然うまくいかない
誰かヒント下さい！！
0339デフォルトの名無しさんNGNG
>>331
それで正解です。
CSVの仕様（MS独自？）では半角スペース、若しくはカンマのあるときは
"で囲み、"そのものを表すときは""と表し、かつそのセルは"で囲みます。

Tstringlistのcommatextはその仕様を満たしており、331で吐き出された
データはそのままでOKです。

そのデータをcommatextプロパティに代入すれば、元のデータに戻ります。
よって332のような処理は不要です。
0340デフォルトの名無しさんNGNG
>>337殿
レスありがとう。

> 状況の保存、復元がうまくできなくて断念(鬱
ﾔﾊﾟｰﾘ(;´Д`)

> 結局TForm継承したTDockFormを作って
(以下略失礼)
なるほど
漏れはそこまで作り込む時間も技術も無いので、
ドッキングは諦めます(;´Д`)
0341デフォルトの名無しさんNGNG
>>339
その後発覚した事なのですが、どーしても 全ての項目を " で囲んでやる必要ができてしまい、
結局 332さんに書いて頂いた方法と同じような方法を使うことにしました、Memoコンポへ読み込んだり
吐き出したりするだけなら良かったのですが、外部のとある見積システムへデータを流し込む時に、
全ての項目に " が付いていないと 「不正な数値です」と怒られてしまうのです、
見積システムがボロなので仕方ないのですが、結局、332さんの方法でやってみます。

何れにせよ、DelphiがCSVの仕様を満たしていないのでは無いことが理解できましたので
勉強になりました。ありがとうございました。
0342デフォルトの名無しさんNGNG
>>341
セルに「"」文字が入ってる場合はどうなるか？など、
「外部のとある見積システム」の挙動を把握しておくことをオススメします。
0343デフォルトの名無しさんNGNG
タスクバーに常駐するだけのものを作りたい。DataModuleでやってみたけど、すぐに終了されてしまう。どうすればいいですか？
0344デフォルトの名無しさんNGNG
BorlandのFAQ, Q&Aにあったよ
0345デフォルトの名無しさんNGNG
ファイルのI/Oで質問です。
大きなテキストファイルを読み込むとき、
メモリの使用量を減らすため一度には読み込まず、
一定の量ごとに分けて読み込もうと思うのですが、
これでは、2バイト文字が分断される可能性があります。
これを回避する方法はないでしょうか。

具体的には、TFileStream.Readで
一回に32KB分をCharの配列に読み込んで、
それをStringに変換し、しかるべき処理をして、
EOFに達するまでそれを繰り返していくという流れです。
0346デフォルトの名無しさんNGNG
Readlnで行ごとに読んでいけば分断されないことが保証されるよ。
0347344NGNG
>>346
書き忘れていました。すみません。
改行コード(CR,LF)などをしっかり管理したいので、
行ごとに読み込むということはできません。
0348デフォルトの名無しさんNGNG
>>345
ByteType 関数をつかうとか？
0349345NGNG
>>347
名前欄を訂正します。 ×344 → ○345
0350345NGNG
>>348
回答ありがとうございます。
処理が煩雑になりそうですが、考えてみます。
0351348NGNG
>>345
やはり行毎に読むのが安全だとおもいますよ。
改行コードは最初に調べておき、書き込む時点で修正すればよろしいかと。
0352デフォルトの名無しさんNGNG
カーソルの読み込みを
Screen.Cursors[99] := LoadCursorFromFile('hoge.cur');
とやって読み込んでるのですが、カーソルが無いと読み込めないですよね。
特にエラーは出ないですが。

これをファイルの中に埋め込む事って出来ないですか？
0353デフォルトの名無しさんNGNG
Readで一バイトずつ読んでいくとか。
バッファリングは内部でやってくれるよ。
0354348NGNG
>>352
リソースファイルにカーソルをいれておくとヨイ。
それをプロジェクトソースでインクルードする。
{$R xxxx.RES}という具合。
0355345NGNG
>>353
> バッファリングは内部でやってくれるよ。
すみません。バッファリングとはどういうことでしょうか。
0356デフォルトの名無しさんNGNG
>>355
胃にやさしい頭痛薬。
0357デフォルトの名無しさんNGNG
風邪薬。
0358デフォルトの名無しさんNGNG
行の途中で分断されるのも都合が悪いと思うが。
0359デフォルトの名無しさんNGNG
始めまして！
FileListbBoxに表示されているファイル名をダブルクリックしたときに、
とある処理を行いたいのですが、どうすれば良いでしょうか？
以下のような事を行って見ましたが、ダブルクリックしても反応なしでした。

type
TForm1 = class(TForm)
FileListBox1: TFileListBox;
procedure FileListBox1OnDblClick(Sender: TObject);

（途中省略）

procedure TForm1.FileListBox1OnDblClick(Sender: TObject);
begin
ShowMessage('dblclick ok');
end;
0360デフォルトの名無しさんNGNG
ListBoxのAutoCompleteプロパティについての質問です。
Delphi6のヘルプには、

>ユーザーがさらに文字を入力すると，一致する文字列が長くなるため，
>ItemIndex はそれより後の項目に変更されます。

とあるのですが、このような動作をさせるためには、どうすればいいのでしょうか？
0361360NGNG
自己解決。
SortプロパティをTrueにしなきゃいけなかったのね。

ところで、このキー入力時は一定時間内に連続して入力しないと
リセットされてしまうようですが、どこかで変更できるのでしょうか？
0362デフォルトの名無しさんNGNG
procedure TForm1.FormCreate(Sender: TObject);
begin
word := 'おはよう';
lebel1.　
end;

label1.でコード補完するとDelphiが止まってしまいます。既出ですか？
wordなんて使わないから予約語だなんて知らなかったんですよ。マジで。
当方Delphi6です。
0363デフォルトの名無しさんNGNG
俺んとこだとちゃんと一覧出るよ。
0364デフォルトの名無しさんNGNG
>>362
何が言いたいのか分からない・・・とりあえず変数は定義すれ
0365デフォルトの名無しさんNGNG
あ、宣言っつったほうが正確か
0366デフォルトの名無しさんNGNG
>>362
たいへん、おもしろうございました。
0367デフォルトの名無しさんNGNG
例外が発生した際に、その例外メッセージをダイアログではなく、
他の方法で表示したいのですが、

try
　...
except
　ReportError( '例外メッセージ' );
end;

このとき、例外メッセージはどのようにして取得することが出来るので
しょうか。
0368デフォルトの名無しさんNGNG
try
except
　on E:Exception do
　　ShowMessage(E.Message);
end;
つかヘルプ嫁
0369デフォルトの名無しさんNGNG
PQCompoを使ってPOSTGRESQLに接続している人に教えて頂きたいのですが、
他で排他にてレコードが参照されている場合に、こちらが、レコードがロックをかけて
更新しようとすると待ちになってしまい固まったように見えてしまいます。
今から更新しようとするレコードがロック状態なのか否かを先に調べて、メッセージ
でも表示させたいのですが、どのように実現すればよいのか判りません、何か
SQLで状態を参照したり出来るのでしょうか？

板違いのような気もしたのですが、Delphi+PQCompoってことで一応こちらで質問
させて頂きました。

環境は、D6(WinXP home)+PQCompo1.5+PostgreSQL-7.1(Linux)です
0370デフォルトの名無しさんNGNG
>>369　折れも、昔同じ部分でひっかかったよ、そして解析してみたんだが厨房なもんで結局諦めた、
折れの解析によると、libpqの仕様だったとおもうよ、非同期問い合わせ関数を使えば、なんとかなる
のだが、ちょっと試した限りじゃ難しくて手に負えなかった、つーか、最初から非同期問い合わせで
やつ作りにしてなかったんで、トランザクションが中断された場合を考えるとジャー臭くなって止めた。
そんなこんなで、独自にロックしてるよ！って情報を蓄積するテーブルを１つ作成して、そのテーブル
を参照してから処理するようにした。当時はレコードロックが無かったんで今よりは意味があったが、
今ならレコードロック可能なんで、作りと運用を工夫すればロックの待ちで長時間放置されないよう
なことも可能なのでは？
0371369NGNG
>>370
やはり・・・・・・・。
大体ワカリマシタ有難う御座いました。
0372デフォルトの名無しさんNGNG
>>362
Update 当ててからテストしてみ。
0373デフォルトの名無しさんNGNG
アマゾンで注文してた
Sams teachs you DElphi in 21 days
という本が届いたので、またDelphi を始めます。
電話帳みたいに分厚いです。


0374デフォルトの名無しさんNGNG
直前にフォーカスがあったウインドウのハンドルを得るにはどうしますか？
直前にアクティブだったウインドウのハンドルはGetNextWindowで得ることができるんですけど・・・
0375デフォルトの名無しさんNGNG
>>374
フォーカス当たったらその値を記憶していく。
0376デフォルトの名無しさんNGNG
初めてプログラムに手をつけるなら
Delphiがいいと言われたので、ダウンロード、インストールしました。
でもそれから何をすればいいか分かりません。
Delphi初心者のために全て解説してくれてるサイトとか
ありませんか？基本だけでも分かるような。
0377デフォルトの名無しさんNGNG
>>376
本買いな。
基礎をしっかり覚えるならそれが一番いい。

どうせPascalを完璧に解説してるサイトなんて・・・ある？
0378デフォルトの名無しさんNGNG
>>376
50MBも落とすのは馬鹿らしいんじゃなかったっけ？
0379デフォルトの名無しさんNGNG
>>378
？それは僕じゃないですよ。
僕は１ですから。
0380デフォルトの名無しさんNGNG
>>376
まずはメモ帳とdcc32.exe、これ最強。
IDEはしばらくは起動しない。
0381デフォルトの名無しさんNGNG
>>380
Delphiの楽しさがこれっぽっちも・・・ｗ
0382374NGNG
>>375
外部プログラムのフォーカスがあったウインドウハンドルって意味なんですけど、
それを監視するってことでしょうか？とりあえずやり方サパーリですけど・・・

さらに質問なんですけど、外部プログラムをアクティブにするやり方なんですけど、
SetForegroundWindowだと最善面にくるもののアクティブにならず（なるやつもある）、
SetActiveWindowだと何の音沙汰もなし・・・で、非常に悩んでおります。

※フォーカスはキー入力先、アクティブはフォーカスのあるウインドウを含むって意味です。
0383デフォルトの名無しさんNGNG
>>382
HOOKする。
0384デフォルトの名無しさんNGNG
何か起動したら一瞬で消えました。
黒い画面が出てきて文字がバーッて書かれたあとに。
0385デフォルトの名無しさんNGNG
>>384
DCC32か？コマンドプロンプトから起動しる。
0386デフォルトの名無しさんNGNG
>>384
プログラムの前にWindowsのお勉強が必要かもしれない・・・。
0387デフォルトの名無しさんNGNG
コマンドプロンプトとは・・？
0388デフォルトの名無しさんNGNG
DOSプロンプトともいう。
0389デフォルトの名無しさんNGNG
ん、結局どうすればいいですか？
できたら詳しく教えてもらうと嬉しいのですが・・。
0390デフォルトの名無しさんNGNG
>>389

>>377

無視はいかんよ。いいこと言ってる方のレスだけ・・・。
0391デフォルトの名無しさんNGNG
つまり本屋に行くまでは
諦めなければダメですか？
0392デフォルトの名無しさんNGNG
>>391

まぁいいか。
Delphiを機動・・・

って言うかシリアルナンバーとか取得した？？
0393デフォルトの名無しさんNGNG
メモ帳を開く。
おもむろに
---------------------------------
{$APPTYPE CONSOLE}
program hoge;
begin
Writeln('はろーわーるど。');
end.
---------------------------------
と打ち込み、hoge.dprというファイル名で保存。
コマンドラインから dcc32 hoge.dpr を実行すると、 hoge.exe が完成。
すばらしい。
0394デフォルトの名無しさんNGNG
>391
半日待っても問題ないだろ。
それまではサンプル端から起動していけ。
Delphiでどんなことができるかなんとなくわかるから。
0395デフォルトの名無しさんNGNG
本なんていらねーよ
0396デフォルトの名無しさんNGNG
>>395　んだ
自分のやりたいことがはっきりしていればヘルプを見るだけで
十分アプリは作れる

Delphiが出た当初
「特に行き詰まることもなく覚えられるから本は必要ない」
とう話もあったように思う
0397デフォルトの名無しさんNGNG
うそつけ。Pascal がわかんなきゃなんにもできねーよ。
0398デフォルトの名無しさんNGNG
>>397
Pascalの文法なんか知れてるよ、ヘルプを見るまでもないくらい

サンプルを参考にするだけで自然に使えるようになると思うよ
0399デフォルトの名無しさんNGNG
あんたがそう「思う」のは自由だ。
0400デフォルトの名無しさんNGNG
んだ
0401優しく教える予定だった人NGNG
>>376
インストール出来たんだね。　そしたら ファイル(F) プロジェクトを開く
そして Delphi6\Demos\RichEditl\richedit.dpr　から開いてみて

そこから F12 を押してフォームとコードが切り替えられる
F9 を押すと実行出来る

このDemosのディレクトリには他にもサンプルが色々あるから、これを読み込んで
は眺めたり実行させたりして操作を試してみて
0402優しく教える予定だった人NGNG
それと、Delphi6のアップデート１は最低あてておくこと
http://www.borland.co.jp/download/delphi.html

あと、F1がヘルプだから、　あちこちで押してみる。
procedure とか文字が見えたらそれをマウスでクリックしてf1を押して調べてゆくようにしたらいい
0403デフォルトの名無しさんNGNG
漏れのバージョンは
6.0(build 6.163)
なんだけど、パッチ必要？
0404デフォルトの名無しさんNGNG
漏れのは 6.240 UP2
0405デフォルトの名無しさんNGNG
初心者向け
Do It YourSelf---Life with Delphi　http://home.onestop.net/mineko/index2.html
ゼロからDELPHI講座　http://www.text2music.com/mine/delphi/index.html

初心者向け
Do It YourSelf---Life with Delphi　http://home.onestop.net/mineko/index2.html
ゼロからDELPHI講座　http://www.text2music.com/mine/delphi/index.html

初心者向け
Do It YourSelf---Life with Delphi　http://home.onestop.net/mineko/index2.html
ゼロからDELPHI講座　http://www.text2music.com/mine/delphi/index.html

0406デフォルトの名無しさんNGNG
>>404
今パッチ当てたらそうなった。
やっぱり必要だったんだ。
あとほかにパッチはいらないよね？
0407デフォルトの名無しさんNGNG
>>406
BW_108b.exe
Star_108b.exe
0408デフォルトの名無しさんNGNG
\Borland Delphi Personal Installer\documentation
に入ってる、pdf読みナよ。
0409デフォルトの名無しさんNGNG
というかやはり
何のexeでも開くと一瞬で消えてしまうのですが、
どうすればいいですか？
0410デフォルトの名無しさんNGNG
>>409
DOSプロンプトから起動
0411デフォルトの名無しさんNGNG
すいません、さっきもそれ言われたんですが
わかりません。
スタート→プログラム→アクセサリ
みたいな感じで説明してもらえませんか？
0412デフォルトの名無しさんNGNG
あ、できました。
黒い画面が出てます。
この後どうすればいいですか？
0413デフォルトの名無しさんNGNG
ComboBox のスタイルが csSimple のとき、
ダブルクリックすると2回イベントが発生するんですが、
回避方法をご存知の方、教えていただけないでしょうか。
0414413NGNG
補足：
エディットのところだと1回なのですが、下のリストをダブルクリックすると
ダブルクリックイベントが2回発生してしまいます。
0415デフォルトの名無しさんNGNG
comboboxはバグだらけ。まともに使えるのはcsDropDownだけ・・・これまじよ
0416デフォルトの名無しさんNGNG
procedure TForm1.Button1Click(Sender: TObject);
var
H:HWND;
begin
H:=GetNextWindow(Application.Handle,GW_HWNDNEXT);
SetForeGroundWindow(H);
keybd_event(VK_CONTROL,0,0,0);
keybd_event(Byte('V'),0,0,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
keybd_event(Byte('V'),0,KEYEVENTF_KEYUP,0);
end;

だめね・・・これじゃ貼付が上手くいかないわ・・・どうすればいいのかしら？
0417優しく教える予定だった人NGNG
操作に慣れたら、自分で作ってみよう
※ファイル->新規作成->アプリケーション
　　これだけで骨格が作られるからすぐに　名前を付けて保存しておこう
※ファイル->プロジェクトに名前を付けて保存
　Unit1に名前をつけて保存 と出たら 新しいフォルダを作成をして Helloフォルダを作ろう
　　そしてクリックしてunit1.pasのまま保存する
　すぐに Project1に名前を付けて保存とでるから、これの名前を Hellow.dprとして保存しよう

まず、画面にこんにちはと表示してみよう
※F12を押してフォームが表示されている時にF11を押す
※イベントと書かれたタブをマウスでクリック
※OnPaintと書かれた右側の空白欄をダブルクリック
　これで画面に表示するイベントが書ける状態になった
　 begin と end の間にコードを書けばいい
たとえば
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Ellipse(1,25,80,50);
Canvas.TextOut(10,30,'こんにちは');
end;
　と２行を追加する。　
　そして、F9を押せば実行されるだろう。
この行のそれぞれの意味はマウスでクリックしてF1を押して調べてくれ
0418デフォルトの名無しさんNGNG
Delphiをはじめたばかりのobject pascalも
ぜんぜん分かってない厨房ですが　よろしくお願いします。

終了時に closeを使ったら、ファイルセーブもなく終わってしまうので
見よう見まねで、データが変更されてたらメッセージを出るようにしましたが
これをファイルのオープンなどにも再利用したいのです。

終了時に書いた"procedure TFo…"の１ブロックをよその"procd…"の中で
呼べない物でしょうか？

あとbutton1～10.Enabled:=True;とまとめて処理をしたいのですが
どの様に書いたらいいのでしょうか？
0419優しく教える予定だった人NGNG
>>418　もう少し具体的に書いてくれた方がいいなあ

まず>>417　の TForm1.FormPaintを 例に　Form2から呼び出すには
　Form1.FormPaint(Form1);
　のように Form1を付ければ呼び出せる。
　ただし、当然描画されるのは Form1に描画される

　Form2に描画させたいなら、
procedure TForm1.FormPaint(Sender: TObject);
begin
　with Sender as TForm do begin
　　Canvas.Ellipse(1,25,80,50);
　　Canvas.TextOut(10,30,'こんにちは');
　end;
end;
　と、両方に描画出来るように作っておいて Form1.FormPaint(Self) と引数でどれに描画するか指定する


まとめて処理する方法は、　for i:=0 to ControlCount-1 do begin で　
if Controls[i] is TButton then with Controlst[i] as Tbutton do
　begin
　 Enable:=True;
　　・・・　他の処理
　end;
みたいな感じかな
0420デフォルトの名無しさんNGNG
>>419
さっそく教えて頂きありがとうございます！

一つめのほうですが、質問のニュアンスがちょっと違いまして
たとえば"TForm1.Exit1Click"以下必要なコードを書いた上で
"TForm1.Button1Click"のコード中で、先の"Exit1Cllick"を呼びたいのです。

単純にButton1.Clickで
begin
Exit1Click;
end;
と書いてコンパイルすると「実パラメータが足りません」と蹴られてしまいました。

教えて頂いた別のフォームからの呼び出しは、今後の参考にさせて頂きます。

二つめのまとめて処理する方法は、咀嚼して後でやってみます。

本題とズレるのですが、sageで書くのが正解なのでしょうか。
0421デフォルトの名無しさんNGNG
shift+Delと言うキー割り当てをしたいのですがどうしたら良いですか？

Deleteだけだと46でいけますよね。

0422優しく教える予定だった人NGNG
>>420
　同じですよ

TForm1.Button1Click(Sender:TObject)
begin
Exit1Click(Sender);
end;
みたいにするといいです。
Exit1Clickの　引数 つまりSenderを使ってないなら　Exit1Click(nil); みたいに nil を渡しても同じです

もし Exit1ClickでSenderが Exit1である事が期待されているなら
Exit1Click(Exit1);
のようにします
0423デフォルトの名無しさんNGNG
>>421
ShortCut:=Shift+Del
0424デフォルトの名無しさんNGNG
>>422
たびたびありがとうございます。
教えて頂いた方法は○でしたが、でも欲しい所で×でした。
ちょっと長くなりますが、そのまま貼ります。

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i: Integer;
SaveAnswer: Word;
begin
if Table1.Active = True then
for i :=0 to Table1.Database.DataSetCount - 1 do
if Table1.Database.DataSets[i].State in [dsEdit, dsInsert] then
begin
SaveAnswer := MessageDlg('内容が変更されています。保存しますか？',
mtConfirmation, [mbYes, mbNo, mbCancel], 0);
if SaveAnswer = mrYes then
begin
Table1.Database.DataSets[i].Post;
CanClose := True;
end
else if SaveAnswer = mrNo then
CanClose := True
else
begin
CanClose := False;
Exit;
end
end
else
Exit;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
FormCloseQuery(Sender);
end;

やはり「実パラメータが足りません」とエラーが出ます。
ホントに厨房ですみません・・・
0425デフォルトの名無しさんNGNG
　そのまま貼ると半角スペースは消えてしまうのですね、きっと。
0426デフォルトの名無しさんNGNG
ヘルプのOnCloseQuery見れ
0427デフォルトの名無しさんNGNG
つーかCloseQuery呼んでも終了しないし。
Form1.Closeでいいんじゃないの？
0428デフォルトの名無しさんNGNG
>>426 >>427
Closeを呼ぶとそれが呼ばれるのでしたか。
OnCloseQueryの本当の意味が分かってなかったです。
ありがとうございました。
0429デフォルトの名無しさんNGNG
>>424
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
と定義されているんだから、このメソッド（手続）は２つの引数がある

だから　呼び出すには 2つの引数を用意しなければいけない。
そして２番目は var だから参照渡し、つまり２つめの引数は変数を渡さなければいけない

・・・というふうに読む
　ただし、これを Exit1Clickで呼び出しても無意味だけどね
0430デフォルトの名無しさんNGNG
DLLってどうやって作れば良いんですか？
関数をまとめて入れちゃえば良いの？
0431デフォルトの名無しさんNGNG
>>430 DLLウイザードで骨格作って　

　関数を宣言するように

exports
　関数名 index 1;
と外部に提供する関数名を書いておく

フォームが必要なら新規作成でフォーム作って必要なタイミングで作成するだけ


0432デフォルトの名無しさんNGNG
>>429
こちらも回答ありがとうございます。
まだ教えて頂いた内容はまだ咀嚼できてませんが
次からの参考にさせて頂きます。

それと最初に回答をくださった >>419のかた
重ねてお礼申し上げます。
0433デフォルトの名無しさんNGNG
DOSプロンプトを開いたらどうすればいいのですか？
まったくの初心者で何も分かりません。
0434デフォルトの名無しさんNGNG
>>433　なに？　どういう事？　誤爆？
0435デフォルトの名無しさんNGNG
>>433
昨日の高校1年生？　ならお名前欄に　高１#覚え易い英字　とでも入れておくれ

Delphi32 と入力して改行すれば、Delphi IDEが開くから　そこから >>401
0436高１ ◆mI/k17xg NGNG
改行したら
コマンドまたはファイル名が正しくありません
といわれました。
0437デフォルトの名無しさんNGNG
カレントディレクトリを
C:\Proglam Files\Borland\Delphi6
にしてから、
delphi32と入力してみましょう
0438高１ ◆mI/k17xg NGNG
おっ！できた！
form1とか出てます。
0439デフォルトの名無しさんNGNG
そしたら、F9押してみな。
何もしないプログラムの完成だ！！
0440デフォルトの名無しさんNGNG
ありがち。。。
0441高１ ◆mI/k17xg NGNG
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.


と出てきました。
ちなみに起動は一回一回delphi32と入力しなければ
いけないのですか？
0442デフォルトの名無しさんNGNG
DOSプロンプトから起動する必要はない。
スタート>プログラム>Borland Delphi6>Delphi6
で機動
0443高１ ◆mI/k17xg NGNG
>>401
さんのでデモを開くたびにエラーみたいのが出て
無視するかみたいの聞かれるんですが。
0444デフォルトの名無しさんNGNG
>>443
正確に書かないと判らないよ。
0445デフォルトの名無しさんNGNG
＞高１
ちん毛は生えてますか？
0446デフォルトの名無しさんNGNG
>>436
それはどうも正しくインストールされていないように思う。
もしかしてパソコンがWin2000かXPでは？
0447高１ ◆mI/k17xg NGNG
>>445
ああ。
>>444
クラスTImageが見つかりません。
といっています。
0448デフォルトの名無しさんNGNG
>>447　やっぱりちゃんとインストールされてないね
　インストールの途中でエラー出なかった？

再度インストールして >>402 のアップデートも実行してみる事
0449高１ ◆mI/k17xg NGNG
BorlandDelphiPersonalEditionJP.exe

これですよね？
前にダウンロードしたファイルなどは全て削除してから
再度やった方がいいですか？
0450デフォルトの名無しさんNGNG
>>447
再インストールしましょう。


0451デフォルトの名無しさんNGNG
>>449
コントロールパネルの　アプリケーションの追加削除で　Delphi6アンインストールしてあれば
削除する必要はないよ。

0452デフォルトの名無しさんNGNG
ここの連中は放置というものを知らない
0453デフォルトの名無しさんNGNG
>>452　放置できるだけしないから　聞きたい事あったらどうぞ (Delphiに限る)
0454デフォルトの名無しさんNGNG
Delphiに関する質問であれば放置はしない
0455デフォルトの名無しさんNGNG
>>454
何で同じことを言い直したんですか？
0456デフォルトの名無しさんNGNG
>>454
何で同じことを言い直したんですか？
0457デフォルトの名無しさんNGNG
対応がスレタイトルと違うと言う奴が現れたから、
態度変えたらこんどは452のような奴が。結局はアラシがもくてきですか。
0458デフォルトの名無しさんNGNG
「もくてき」は「目的」という漢字なんですよ。
0459高１ ◆mI/k17xg NGNG
再インストールして最後に、
今リスタートしますか？ってとこを
はいにしても何もならなかったから
自分で再起動しようとしたらビジー状態です
みたいになって待機押しても変わらなくて
結局強制終了ボタン二回押してした。
0460デフォルトの名無しさんNGNG
＞押してした。
なにをした？　オナニーか？
0461デフォルトの名無しさんNGNG
はーい、先生！！
ここは誰かの日記スレじゃありませーん！
Delphiに関係ある質問にやさしく答えるスレでーす！
高１くんは話し相手が欲しいなら馴れ合い板にでもｳｾﾛって感じです！！！
0462デフォルトの名無しさんNGNG
>>459　しょうがないねえ・・・とりあえず　そのへんの報告は自分のたてたスレで報告しなさい。
　それから使ってるパソコンのメモリとはHDの空容量とかWindowsのバージョンとか書くといいよ
0463高１ ◆mI/k17xg NGNG
もういい、諦める
0464デフォルトの名無しさんNGNG
>>463 まあプログラミングは18になってからでも遅くない。
　今は色んな事やったり本読んだりして人間としての経験値を上げなさい。
0465デフォルトの名無しさんNGNG
そろそろC#を使った人にDelとの比較が聞きたいな～
0466中2 ◆mGm.IRgU NGNG
Delphi 6 Update Pack 2 って、Personal版でも使えますか？
0467デフォルトの名無しさんNGNG
>>466
公式サイトに書いてあるでしょ
まず公式サイトを嫁
http://www.borland.co.jp/delphi/del6up.html#del6up2
0468デフォルトの名無しさんNGNG
>>466
ヘルプ読め！
0469中2 ◆mGm.IRgU NGNG
トライアル版　＝　Personal版
のような気がしたんで。違うんですね？
0470デフォルトの名無しさんNGNG
＞高１
そんなことより、ともっちスレでともっち継いでみない？
0471デフォルトの名無しさんNGNG
>>469
トライアル版というのはEnt版のトライアルじゃないかな
0472デフォルトの名無しさんNGNG
>>469
Personalにはトライアル版は存在しません
無料でダウンロードしたやつも立派な製品版です

Delphiの場合、トライアル版というのはEnterpriseのやつのこと

だからPersonalでもUpdatePackを当てる必要があります
0473416NGNG
｡･ﾟ･(ﾉД`)･ﾟ･｡　誰か教えて・・・>>416
0474中2 ◆mGm.IRgU NGNG
>>471
>>472
Thx!
MS HTMLのヤツがうまくコンパイルできなかったから、当ててみる価値ありそう。
0475デフォルトの名無しさんNGNG
>>407
それは何？

>>408
どのPDFの何ページ目を読めばいいの？

なんかパッチあてないとやばいの？

0476デフォルトの名無しさんNGNG
>>416
GetNextWindowでHWnd取れてるの？
0477416NGNG
>>476
レスどうもです。getnextwindowで直前にアクティブだったウインドウのハンドルを取得できてます。
それでsetforegroundwindowでそのウインドウを最善面にすることもできてます。
でも問題は最善面にくるものの、アクティブにはならず・・・ってとこです。
setforegroundwindowの説明では最善面にしてアクティブにするって書いてるのに・・・
しかも貼り付けできたりできなかったりなんですよ。例をだすと秀丸はできてメモ帳はできないって感じで・・・
0478デフォルトの名無しさんNGNG
>>416
つーかFAQだから
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=037939
0479416NGNG
>>478
えーとこれは確か最前面に出ずにタスクバーが点滅するって問題ですよね？OSの仕様が変わって・・・。
僕が困ってるのは最前面に出るけどアクティブにはならないってことなんですけど、これと関係あるんでしょうか？
OSはMEとXPです。一応試してみますけど・・・
0480デフォルトの名無しさんNGNG
>>416
これでできるんじゃないの？

＞一応試してみますけど・・・
はネーヨナ。

これでもダメならもっと良い方法もサンプルで転がってたし、
もっと自分で探せ。
0481デフォルトの名無しさんNGNG
最近失礼な人が多いですわ。
0482416NGNG
いやぁ、表現が悪くて申し訳ないっす。
もっと良い方法やサンプルを探してみますm(_ _)m
0483デフォルトの名無しさんNGNG
まあ、２ｃｈで礼儀云々言っても仕方ないと思うが
いくら２ｃｈでも相手が真面目に答えてるならそれなりの礼はつくすべきだろう
0484DELモナーNGNG
>>481
(前から思っていることを言っているだけ。416さんに言っているわけではないよ。)

　 ∧＿∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　 本当に無礼な人が書いたものであれ、そういうつもりが
　（　　　　）　 |　なかった人のものであれ、字面だけ追いかけてくと失礼に
　｜ ｜ ｜ 　|　見えるものがあるよね。
　（＿_）＿）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

言い回しひとつで不快な感じになってしまうから、
書き込む人(特に質問者)は注意なくちゃね。
例えば質問するときに、ただ疑問形の文を一文だけ書くようだと、
失礼に見える可能性がある。
逆に、丁寧語を使うと回答されやすいこともある。
誤解を与えない日本語を書くようにしたほうがいいと思うよ。
(それが案外難しいこともあるけど、
日本人なら日本語ぐらいちゃんと書きたいね。私も含めて。)

あと、無礼な人ついて思うのは、
このスレをｦﾁしてる人(回答者)は別に質問者の質問に
答えなくても全然構わないのに、わざわざ数分～数十分の時間と、
ヘルプなどで裏を取る手間をかけて答えるのだから、
多少礼儀を持って質問をすることは必要かと。
(でも回答者が威張っていいということは、決してない。)

当たり前なことだとは思うんだけど･･･。
0485484NGNG
>>484
といいながら前半部分がなんだか無礼な人を擁護しているように
見えるように書いてしまった･･･。擁護するようなことは決してない。
0486デフォルトの名無しさんNGNG
整数の正負を知る命令ってありますか？
0487デフォルトの名無しさんNGNG
QBasicならSGNで調べられるが、Pascalにはないっぽい。
0488デフォルトの名無しさんNGNG
>>487
無いんですか。
ありがとうございました。
0489デフォルトの名無しさんNGNG
Delphi6になかったっけ Sign 関数。
0490デフォルトの名無しさんNGNG
sign

>ただ疑問形の文を一文だけ書くようだと
に対するネタかと思ったぞ(藁
0491デフォルトの名無しさんNGNG
>>484
反対の賛成（古い！）

いろんな香りのする集団があった方が良いと思う.
言い回しとか気にせず、放置されることも前提の上で好きなことを言い合えるのが
2ch の存在意義。わずかでも儀礼を必要とするのなら、別のところに行け。
0492デフォルトの名無しさんNGNG
それよりもなによりも、Object Pascal 言語ガイドを見ていて発見。
(. .) は [ ] と同等らしいな。知らなかった…
いや、知っていても何の役にも立たないんだけど、

var hoge: array (.0..4.) of Integer;
begin
　for I:=0 to 4 do
　　Sum := Sum + Hoge(.I.);

なんて書き方が出来るってナンか新鮮。
0493デフォルトの名無しさんNGNG
膳膳
0494デフォルトの名無しさんNGNG
いや、ＭＬに比べればものすごーく気が楽だと思うけど。
ＭＬなんて敬語やらそれに対する返答やら、面倒でイヤ。
純粋に聞きたいことを聞きたいではないか。

失礼だが、２ｃｈがわずかな礼儀をも必要しないと
思っているのはあなただけなのでは。

http://www.2ch.net/before.html
>暴言や第3者を不快にさせるような発言はやめましょう
>人間的モラルやルール・ネットマナーに反した発言はやめましょう
0495素数２NGNG
>>492 やると見にくい
0496デフォルトの名無しさんNGNG
だからうぜーってんだよ
ｱﾌｫをｱﾌｫととがめる奴はより異常にｱﾌｫなんだよ
いちいちレス付けんなよ
つーか投げーんだよ
無視するか市ねｳﾞｫｹの一行にしとけ
0497デフォルトの名無しさんNGNG
[エラー] Unit1.pas(30): 未定義の識別子 : 'sign'
0498素数２NGNG
０と比較してやれば良いんじゃない？ ＜正か負か
0499デフォルトの名無しさんNGNG
（　´∀｀）ﾏﾀｰﾘ♪
0500デフォルトの名無しさんNGNG
>>497
今まさに心から言おう
「逝ってよし」と
0501デフォルトの名無しさんNGNG
>>489
>>490
ありましたか！
ありがとうございます。
0502デフォルトの名無しさんNGNG
テキストボックスに数字を入れて、ボタンをクリックすると、signが発動して正か負か判断してラベルに表示する、というつもりで書いたんだけど

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := sign(val(edit1.Text));
end;

end.

[エラー] Unit1.pas(30): 未定義の識別子 : 'sign'
[エラー] Unit1.pas(30): 実パラメータが足りません
[致命的エラー] Project1.dpr(5): 'Unit1.pas' ユニットはコンパイルできませんでした

となります。
0503デフォルトの名無しさんNGNG
ヘルプ嫁
0504デフォルトの名無しさんNGNG
ともさかりえ堂々と交際宣言・・・どうでもいいことだね・・・
0505デフォルトの名無しさんNGNG
そろそろ雪降らすの出来たか？
休み明けだぞ。
0506デフォルトの名無しさんNGNG
>>505
シュガー？
0507デフォルトの名無しさんNGNG
上の方で「雪を降らす効果はどうやったら良いのか？」って話題に出てたから
前スレから言ってたぞ。

前スレの雨の応用で行けるんだけどね。
0508416NGNG
ああ僕は愚かでした。これでできましたm(_ _)m

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_MENU,0,0,0);
keybd_event(VK_TAB,0,0,0);
keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,0,0);
keybd_event(byte('V'),0,0,0);
keybd_event(byte('V'),0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;
0509デフォルトの名無しさんNGNG
>>508
強引だねぇ・・・いや、俺はスマートなやり方わからんけどね・・・
0510デフォルトの名無しさんNGNG
>>502
Help使ってる？
signにカーソル当ててF1な
0511デフォルトの名無しさんNGNG
>>509
自分で解決したって勝ち誇ってらっしゃるのよ。ﾎｯﾄｹ。
0512416NGNG
>>511
いや実はそうなんですけど、ひょっとしたら誰かの役に立つかもしれないし・・・
ってことで↓のほうがよいですm(_ _)m

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_MENU,0,0,0);
keybd_event(VK_ESCAPE,0,0,0);
keybd_event(VK_ESCAPE,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,0,0);
keybd_event(byte('V'),0,0,0);
keybd_event(byte('V'),0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;

いや、もうこれで最後です。カキコするの・・・すいませんでした・・・
0513デフォルトの名無しさんNGNG
>>512
その通りです。
一度質問をして、それが回答によって解決しても、よらずに解決しても、
見ている人の参考になるので、どういう風に解決したか書くべきです。
0514デフォルトの名無しさんNGNG
>>475
とりあえずQs.pdfを全部読んで試してくれ。
Object Pascalはoplg.pdfを読めば分かる。
0515デフォルトの名無しさんNGNG
>>502
usesにMathを追加。
で、ヘルプでvalを見る。
0516デフォルトの名無しさんNGNG
（ﾟ∀ﾟ）おはよー
0517デフォルトの名無しさんNGNG
（ﾟ∀ﾟ）ｵﾒﾃﾞﾄｰ＞511
0518デフォルトの名無しさんNGNG
2典やっと来たよ。
0519デフォルトの名無しさんNGNG
質問です！
ネット上のサーバーににある（自分のサーバーとする）テキストをGetする方法って無いですか？
もしくはそのテキストに書かれてる内容を読んで来る方法など。

ローカルのファイルと比較がしたいんです。

>>518
２典結構おもしろい。
特に文末の語りが。
表紙をはずすと・・・。
0520519NGNG
本にはInternetタブのNMHTTPを使えって書いてあるけどそんなの無いし。
もちろんプロフェッショナルです。

そもそもこのコンポーネントでファイルのGet出来るのかな？
0521519NGNG
FastNetって言うタブにあった・・・＞NMHTTP
本にだまされた。

これ以外に「こっちの方が使えるよ」って言うコンポーネントあります？
0522デフォルトの名無しさんNGNG
>>521 Indyはどうよ？
0523デフォルトの名無しさんNGNG
>>521
Indyのほうがマシだよ。
0524519NGNG
Indyって何するコンポーネント？
テキストデータ以外にも扱えるかな。

アーカイブファイルを拾って来たり。
0525519NGNG
テキストを持ってくるのは出来たんですけどバイナリファイルを持ってくるのが出来ない
NMHTTPでやるとファイルがhtmファイルになってダウンロードされるし。
0526デフォルトの名無しさんNGNG
>>524
プロ版なら右のほうのタブにIndyあるでしょ。タブが３つくらい。
httpだけなら目的はNMHTTPと同じだよ。
でも、使い勝手はIndyが上。ソースもついてくる。
IndyならidHTTP1.Get(URL, Stream); 形式で呼べばバイナリだろうがテキストだろうがOK
つか、Demoにサンプルあるから見てみ。
0527526NGNG
ごめん。↑の２行目が意味不明だ。

×httpだけなら目的はNMHTTPと同じだよ。
○TIdHTTP(Indy)とNMHTTPの目的は同じだよ。
0528519NGNG
>>526
＞IndyならidHTTP1.Get(URL, Stream); 形式で呼べばバイナリだろうがテキストだろうがOK

Streamって言うのは保存するファイル名でしょうか？
さっきIndy使ってみてこのメソッドを触ってみたんですがなんかエラー出るんです。
0529デフォルトの名無しさんNGNG
Delphiでファイル名を変える方法とファイルの削除の方法を教えて下さい。

実行ファイルと同一ディレクトリにあると想定してです。
0530デフォルトの名無しさんNGNG
「名前を付けて保存」「プロジェクトから削除」
0531デフォルトの名無しさんNGNG
>>530
いや、違います。
プログラムからファイルの操作です。
0532519NGNG
ヘルプ！

procedure Get(AURL: string; const AResponseContent: TStream); overload;
これを使うとエラー出ます。

エラー内容
[エラー] Uupdate.pas(79): 指定された引数で呼び出すことのできるオーバーロード関数 'Get' が
定義されていません

　HostFile := 'http://www.???.com/hoge.zip';
　IdHTTP1.Head(HostFile);
　IdHTTP1.Get(HostFile,LocalFile);
これだけじゃ駄目なんですかね？
0533ちょっとスゴイかもよ♪NGNG
http://www.kokorode.com/000000/
0534デフォルトの名無しさんNGNG
>>529　RenameFile, DeleteFile
>>532
まんま、HostFileかLocalFileの型がおかしんじゃねえの？
0535デフォルトの名無しさんNGNG
Delphi6 Personal で TMemo を使った簡単なメモ帳を作っています。
TSaveDialog と TOpenDialog について困っています。

「名前を付けて保存」の時に新規のファイルだった場合は、
'新規.txt'となるように、
　　　FileName プロパティ = 新規
　　　DefaultExt プロパティ = txt
としました。

1.　自作メモ帳を起動させて、メニューバーから「名前をつけて保存」を
　　選ぶと、セーブダイアログのファイル名の所には'新規'とあらかじめ入力された
　　状態となりました。
　　そのままダイアログの保存ボタンをクリックすると'新規.txt'と保存されました。

2.　次ぎに、メモ帳の中身を編集して、もう一度「名前をつけて保存」を押して
　　セーブダイアログを呼び出すと、今度はダイアログのファイル名の所には
　　'新規.txt'と拡張子付きであらかじめ入力された状態になっています。

3.　これを'TEST'として保存ダイアログの保存ボタンを押すと、
　　当たり前ですが'TEST.txt'として保存されます。

4.　そして再度、「名前をつけて保存」を押してセーブダイアログを呼び出すと、
　　ダイアログのファイル名の欄には'TEST.txt'と入力された状態になります。
　　今回はこのまま保存を選びました。

5.　次ぎ。今度はメニューバーから「開く」を選び、OpenDialog を呼び出します。
　　オープンダイアログから一番最初に保存した'新規.txt'を選び開きます。
　　'新規.txt'が開かれました。

6.　'新規.txt'が開かれた状態で「名前をつけて保存」セーブダイアログを呼び出すと、
　　ダイアログのファイル名の欄には先程保存した'TEST.txt'のままになって
　　しまいます。

長くなりましたが、6番で保存ダイアログのファイル名の欄を
現在開いているファイル名（6番の場合'新規.txt'）にしたい場合、どうすれば良いですか？

また、開くファイルを新規にウインドウを作って開く（現在編集中の
メモ帳ウインドウはそのままで）ようにするのに良い方法はありますか？
0536535NGNG
> 6番で保存ダイアログのファイル名の欄を
> 現在開いているファイル名（6番の場合'新規.txt'）にしたい場合

　　↓　↓　↓　↓　↓

6番で保存ダイアログのファイル名の欄を
現在開いているファイル名（6番の場合'新規.txt'）が入力された状態にしたい場合

分かりづらい文章ですみません
0537デフォルトの名無しさんNGNG
TstreamとStringが互換性無いって言われる
どうしたら良いですか？
0538デフォルトの名無しさんNGNG
>>537
確かに互換性はない。
0539デフォルトの名無しさんNGNG
>>535
SaveDialog1.FileName:=OpenDialog1.FileName;

> また、開くファイルを新規にウインドウを作って開く
自分をもう一つ起動させればいいんでは？
0540デフォルトの名無しさんNGNG
C++,VC++,C,Delphiの中で初心者にうってつけの言語はどれですか？
0541デフォルトの名無しさんNGNG
C#！！
0542デフォルトの名無しさんNGNG
>>537
というか、>>528での、
＞Streamって言うのは保存するファイル名でしょうか？
ここで、根本的に間違ってると思われ。
TStream型の所をヘルプでじっくり読んでみるといいかも
String型で受け取るなら、>>164 参照。
0543デフォルトの名無しさんNGNG
>>540
Delphi。
最も美しいから。
そして1番の理由はここがDelphiスレだから。
0544535NGNG
>>539さん、
ありがとうございます。

> SaveDialog1.FileName:=OpenDialog1.FileName;

これは以下（>>545-546）のどの段階で（何処に）入れればいいのでしょうか？
あまりに初心者質問で申し訳ないっす。


> > また、開くファイルを新規にウインドウを作って開く
> 自分をもう一つ起動させればいいんでは？

開くファイルを持ったままもう一つ起動させるってことですよね？
理屈は分かるのですが、書式（？）が分からなくて・・・
いま、リファレンスが書いてある本を探しているのですが、
自宅近くの書店には入門書しかなくて・・・（VBやVCはたくさんあるのに・・・）
0545535NGNG
＜＜名前をつけて保存＞＞現在のソース

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin

if SaveDialog1.FilterIndex=1 then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

if SaveDialog1.FilterIndex=2 then
begin
SaveDialog1.DefaultExt:='html';
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

if SaveDialog1.FilterIndex=3 then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

CFileName:= ExtractFileName(SaveDialog1.FileName) ;
Form1.Caption := CFileName + '試作メモちょう';
end;
end;


※オブジェクト インスペクタの変更箇所

　　FileName プロパティ = 新規
　　DefaultExt プロパティ = txt
　　Filter = テキストファイル (*.txt)|*.txt|HTMLファイル (*.html;*.htm)|すべてのファイル (*.*)|*.*
　　FilterIndex = 1
　　Options.ofOverwritePrompt = True
0546535NGNG
＜＜開く＞＞現在のソース

procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName) ;
CFileName:= ExtractFileName(OpenDialog1.FileName) ;
Form1.Caption := CFileName + '試作メモちょう';
end ;
end;

※オブジェクト インスペクタの変更箇所

　　Filter = テキストファイル (*.txt)|*.txt|HTMLファイル (*.html;*.htm)|すべてのファイル (*.*)|*.*
　　FilterIndex = 1


長くなってすみません
0547デフォルトの名無しさんNGNG
>>545
CFileName:= ExtractFileName(SaveDialog1.FileName);の前にOpenDialog1.FileName:=SaveDialog1.FileName;
>>546
CFileName:= ExtractFileName(OpenDialog1.FileName);の前にSaveDialog1.FileName:=OpenDialog1.FileName;

> 開くファイルを持ったままもう一つ起動させるってことですよね？
> 理屈は分かるのですが、書式（？）が分からなくて・・・
ヘルプのコマンドラインユーティリティのところ読むと良いと思われ。
0548デフォルトの名無しさんNGNG
Delphiって他の言語に応用効くの？
プログラム始めたいんだけど、何から手をつけていいのかｻﾊﾟｰﾘわからん。
もし応用効きそうならDelphiから始めてみようかな。
0549デフォルトの名無しさんNGNG
Delphi5で入力データをEXCELへ出力する方法のサンプル
または参考文献などありましたら教えていただけませんか。
Excelxxxxx.Renge[A1,C3].Value := 'TEST';
のような使い方ではなくセル範囲を可変で使用したいのです。

VBなら
xxxxx.Cells(i,j);
と記述できるんですが．．．
0550535NGNG
>>547さん
どうもありがとうございました。

　今まで何気なく使っていたフリーウェアが
　こんなに細かいことまで考えて作られてるとは・・・
　自分がプログラムに手を出して初めて分かった気分です。
0551デフォルトの名無しさんNGNG
>>548
応用って言葉が微妙だが

Object PascalとVCLという面ではあまり応用効かない(BCB使うときくらい)
WindowsのプログラミングやOOを学ぶという面では応用が効く

C++やJavaと比べるとPascalのほうがなんとなく初心者にはよさげ。
とりあえずPersonalダウンロードしる！
0552デフォルトの名無しさんNGNG
>>548
＞Delphiって他の言語に応用効くの？

文法こそ違えど考え方と機能はほぼCと同一。
テンプレートなどを除いたC++と言ってしまってもいい。
0553デフォルトの名無しさんNGNG
>>551
了解。とりあえずPersonalﾀﾞｳｿしてみるよ。でもDelphiってどの程度の
プログラムが作れるの？こんなこと言っちゃ誤解を生むかもしれないけど
仕事として使えるくらいのことできる？例えばだけどDelphiを使ったソフトって
どんな物があるのかな。
0554535NGNG
>>548さん、自分も金曜日に Personal を DL したばかりの初心者です。
ObjectPascal（Delphi で使われる言語）の知識が C/C++ や VB に応用が利くかは
ワカランですけど、プログラムの構造（？）は学べると思いますよ。
条件分岐や変数などの考え方は一緒だと思います。
Delphi は VBなどと並んで素人が理解しやすい部類だと思いますけど、
Personal はフリーで DL できますから、とりあえず手を着けてみるのもアリかと。
自分は入門書買ってしまいましたが、ネットでもたくさん解説されたサイトがありますし。
0555535NGNG
ちょっとレスが遅かったか・・

> 例えばだけどDelphiを使ったソフトって
> どんな物があるのかな。

このスレが参考になるかと（ネタ含む）

delphiで作られた有名ソフトって何がある？
http://pc.2ch.net/test/read.cgi/tech/990056026/
0556デフォルトの名無しさんNGNG
>>555
DelphiはDelphiで作られています。
0557デフォルトの名無しさんNGNG
>>554-555
ありがとう。なるほど「かちゅーしゃ」もDelphiで作られてたのか。
ちょっと感激。んじゃ早速ﾀﾞｳｿしてみようかな！
0558プログラム初心者NGNG
>550
>今まで何気なく使っていたフリーウェアが
>こんなに細かいことまで考えて作られてるとは・・・
>自分がプログラムに手を出して初めて分かった気分です。

禿同です。自分も同じように
規定の文字数を入れると自動的にカーソルが次の入力ＢＯＸに移動する、とか
そういうのはいちいち自分で書かないといけないんだなぁと思ったことがあります。

たしかに面倒ではあるけど、
細かいところまで気が利いてるソフトって使いやすいですよね。
0559デフォルトの名無しさんNGNG
C++BuilderもDelphi製だし(w
0560デフォルトの名無しさんNGNG
519さんと似た質問なんですが
WebサーバーにGetリクエストPostリクエストを送って返事を得たいのですが
どうすればいいのでしょうか。

Personal版のせいかヘルプでそれらしいものを調べても（TWinSocketStreamなど）
リンクが見つかりません、と出てしまいます。

「プロフェッショナル版を買え」等と言わずにPersonal版で何とか実現できませんか？
0561デフォルトの名無しさんNGNG
karekano
0562デフォルトの名無しさんNGNG
TClientSocketでWinsockを直に使う <- 調べれ
Indy使う <- Janeのソース見れ
WinInet使う <- monazillaの資料見れ
0563デフォルトの名無しさんNGNG
プログラム初心者が仕事で使えるとか気にするなっつーの！！
0564デフォルトの名無しさんNGNG
>>562
抜けてる。
WSA系とsocket bind accept recieveAPIを直接呼ぶ。
0565560NGNG
>562,564
Indyってフリーソフトだったんですね。
てっきりプロフェッショナル版のコンポーネントだと思ってました。

助言を参考に、もうちょっといろいろ試してみます。
0566デフォルトの名無しさんNGNG
>>549
可変というのが変数で指定したいというのなら
↓お試しあれ

uses ComObj;

procedure ExcelTest;
var
　i : Integer;
　j : Integer;
　vOleApp: Variant;
　vOleWnd: Variant;
begin
　vOleApp:=CreateOleObject('Excel.Application');
　try
　　vOleApp.Workbooks.Add;
　　vOleWnd:=vOleApp.ActiveSheet;
　　for i:=1 to 10 do
　　for j:=1 to 10 do
　　begin
　　　vOleWnd.Cells[i, j].Value:=i*j;
　　end;
　　vOleApp.Visible:=True;
　finally
　　vOleWnd:=Unassigned;
　　vOleApp:=Unassigned;
　end;
end;
0567デフォルトの名無しさんNGNG
《ﾟДﾟ》ｺﾞﾗｧｧｧｧｧｧｧｧｧｧｧｧｧｧｱ!!!!!!!!!!!!!!!!
【コンポーネントパレットの［Additional］ページにある
ActionManagerコンポーネントをダブルクリックして，フォームに配置します】
ってあるけどActionManagerなんてねェぞ！
ほんとはどこにあるんですか？
0568デフォルトの名無しさんNGNG
>>567
買う
0569デフォルトの名無しさんNGNG
（ﾟ∀ﾟ）ｵﾊﾖｰ
0570デフォルトの名無しさんNGNG
>>567
散々がいしゅつです。これで56回目です。
Personal版にはActionManagerはついていません。
0571 NGNG
アプリ起動時にbsSizeToolWinで作成し、
起動している間は常にインスタンスを保持し続けるフォームがある。
その間、ユーザの操作により、幾度と無く表示・非表示を切り替えられる
のだけど、そのVisibleの値を終了時に保存したいんです。

で、OnDestroy()でVisibleの値を取ってみたら、常にFalseなんです。
まぁ当然といえば当然なのかも知れませんが…

出来ればそのﾌｫｰﾑの中で値の保存を完結したいのですが、
(ﾟдﾟ)ｳﾏｰな方法って無いでしょうか?

Delphi5 Up1 + Win2kPro


>>570 しかし、よく数えたなぁ…
0572デフォルトの名無しさんNGNG
TEditで　数字とBS、Enterのみ入力を受け付けるようにしたいのですが
どうしたら良いのでしょうか？
そしてEnterが入れば、次のTEditの移動もさせたいです。

すみませんが教えてください。
0573デフォルトの名無しさんNGNG
>>572
onkeydownは？
0574デフォルトの名無しさんNGNG
PageControlでTabSheetを動的生成して、その上にScrollBoxを置きます。
そのScrollBoxの上にImageを置くにはどうすればよいでしょうか？
0575デフォルトの名無しさんNGNG
>>574
parentをScrollBoxにすれば？
0576574NGNG
>>575
そのやり方がいまいちわからないんですよね・・・どう記述すればよいのか・・・

tabsheet:=TTabSheet.Create(self);
tabsheet.PageControl:=PageControl1;
with TScrollbox.Create(self) do begin
parent:=tabsheet;
align:=alClient;
end;
with TImage.Create(self) do begin
parent:=（ﾟ∀ﾟ）ワカラン・・・
0577デフォルトの名無しさんNGNG
>>571
CloseQuery内でやれ
0578567NGNG
そうだったんすか・・・
逝ってきまｐ
《ﾟДﾟ》ｺﾞﾗｧｧｧｧｧｧｧｧｧｧｧｧｧｧｱ!!!!!!!!!!!!!!!!
0579571NGNG
>>577
それだと、メインフォームを閉じられたときとかCloseQuery通らないんですよ。
んで状態を保存できないと…
それに動的にユーザがShow/HideするのでOnCloseも使えないし…

メインフォームのOnDestroyだと既にToolWinな窓は破棄済でAV出るし…(;´Д`)
0580デフォルトの名無しさんNGNG
>>579
OnHide、OnShowで記録とか
0581577NGNG
>>579
だからメインフォームのCloseQuery内でやれって
0582572NGNG
>>573
OnKeyPressで、if (Pos (Key, '1234567890-') = 0) and (Key <> #8) and (Key <> #13) then　・・・と
それらしいのを作ったのですが、EnterだけはWindowsの警告音が鳴ります。
やはり基本的に間違ってるのでしょうか・・・

それとSelectNext(ActiveControl, True, True);・・・で
Enter入力で　次のTEditには飛べました。
0583デフォルトの名無しさんNGNG
NMHTTPでサーバー上のファイル容量を取得する方法って無いですか？
IdHTTPなら出来るそうなんですが。

それとローカルにあるファイルの容量も知りたいです。
0584574NGNG
>>574　
(#ﾟДﾟ)＜馬鹿、氏ね、頭悪すぎるわ・・・俺・・・
0585571NGNG
>>581
あ、そう言うことでしたか、誤解ｽﾏｿ。
それでやったらうまく逝きました。
禿しく感謝です。

>>580ｻｿもﾚｽｻﾝｸｽｺです。

>>583ﾛｰｶﾙなら、
FindFirst
FindNext
あたりでPathをFileまんまにして使ってみたら？
確かTSearchRec構造体にSize: Integer;
ってﾒﾝﾊﾞがあったと思われ。
これで出来るはず。
ﾃﾞｨﾚｸﾄﾘ中なら、再帰検索で問題ﾅｯｽｨﾝｸﾞ。
0586デフォルトの名無しさんNGNG
>>582
if (AnsiPos(Key, '1234567890-')=0)or(Key=#13)or(Key=#8) then
  Key:=#0;
0587572NGNG
>>586
やはりEnterを入力すると、Windowsの一般警告音がなります。
なんでしょうか・・・

あと遅れましたが、>>573 >>586さん、レスありがとうございます。
0588デフォルトの名無しさんNGNG
>>587
TEditのOnKeyPressに>>586コピペしてもなるの？
0589デフォルトの名無しさんNGNG
>>587

Key=#0;
でキーを判定してSelectNext(ActiveControl, True, True)
とかする前後でキーの内容をクリアしないと音が鳴ってしまうが、その話と違うのか？


0590デフォルトの名無しさんNGNG
>>589
日本語マトリックスが壊れていたらしい、

キーを判定してSelectNext(ActiveControl, True, True)
とかする前後でキーの内容を Key=#0; 等としてクリアしないと
音が鳴ってしまうが、その話と違うのか？

です。
0591572NGNG
>>588
はい、数字やBSはokですが、Enterは入力その物はokですが警告音が出ます。
0592572NGNG
>>589
いえ、そう思ってSelectNextを外してますがやはり鳴ります。
0593デフォルトの名無しさんNGNG
みんな#13とか使っているんですか？私は Char(VK_RETURN)って書くけどね。
別にどうでもいいのですけね（ｗ
0594デフォルトの名無しさんNGNG
けね（ｗ
0595デフォルトの名無しさんNGNG
Mainmenu－MenuItem－プロパティーのショートカットに
’＋’を指定したいんですが、怒られました。
どう書けばいいんでしょうか・・。
0596デフォルトの名無しさんNGNG
freeはなぜ使うのかを教えてくれ。
0597デフォルトの名無しさんNGNG
>>596　今迄の言語遍歴とか教えてくれんとどう説明していいか判らん
0598デフォルトの名無しさんNGNG
>>597
中級らへんです。
0599傍観者NGNG
>>572
キーボードで入力するだけじゃなくて
クリップボードから貼り付けることもできるんだけど･･･。
アルファベットとかを貼り付けられたら･･･。

あとEnterで次のコントロールにフォーカスを移動するのは
Windows標準の動作ではない。Tabキーを使う。
Enterはダイアログボックスだったら、[OK]ボタンを押すのに使われる。
0600572NGNG
>>599
クリップボードからの処理カットは、次のステップで考えます。
標準操作は確かにTabですが、続けての項目なのでEnterでも
処理ができると便利だからです。
0601優しく教える予定だった人NGNG
>>595
　テンキーの所にある”＋”ですよね？　実行中に設定するには
　 なんとか.ShortCut:=ShortCut(VK_ADD,[]);
　と設定します。

プロパティエディタにどう入力すればいいかは

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=ShortCutToText(ShortCut(VK_ADD,[]));
end;
みたいに書いて実行した結果の通り書けばOK
0602優しく教える予定だった人NGNG
--------Textショートカット一覧------
Scroll Lock
BkSp
Tab
Enter
Shift
Ctrl
Alt
Esc
変換
無変換
Space
PgUp
PgDn
End
Home
Left
Up
Right
Down
Sys Req
Ins
Del
Num *
Num +
Num -
Num Del
Pause
Scroll Lock
Right Shift
Caps Lock
ひらがな
半角/全角
0603初心者ＢNGNG
バイナリデータを読み込む方法を教えて下さい。
0604デフォルトの名無しさんNGNG
>>603
TFileStreamを使えばいいのでは?
0605デフォルトの名無しさんNGNG
>601
　できましたー。ありがとうございました。「Num +」「Num -」でした。
って、かなり初歩なんだろうな・・・。でも、色々Tips読みあさったけど全然なかったんで・・。
0606デフォルトの名無しさんNGNG
>>598
ｶｴﾚ
0607デフォルトの名無しさんNGNG
>>598 長らくだれも答えないようなので答えよう。

freeってオブジェクトの破棄のFreeだよね。
自分で作成したオブジェクトはFreeを呼び出して破棄しなければならない。
それは、自分で作成したものは自動的に破棄されないから。
きちんと最後にFreeをしないと、おそらくメモリリークになると思われ。
別に自分は詳しいわけでもないので、これ以上のことはヘルプの
「VCL リファレンス
TObject.Free」とかを読んで。

>>606 そんな冷たいこと言わないで。ﾏﾀｰﾘといこうよ。
0608初心者ＢNGNG
>>604
TFileStreamってなんですか？
詳しく教えて下さい。
0609デフォルトの名無しさんNGNG
>>608
ファイルを扱いやすいように抽象化したって位のもの。

くわしくはヘルプ嫁。
0610デフォルトの名無しさんNGNG
Del6のIDEの検索・置換ダイアログで勝手に文字列が設定されるのがジャマ過ぎ。
本当にイライラしてストレスがたまる。OFFにできない？
0611デフォルトの名無しさんNGNG
>>572　は、Enterキーで警告音が鳴るとかって言っていたのは解決したのか？

解決してないならOnKeyPressのソースを貼ってみろ、あと、教えてくれてる奴の方法を
ちゃんと読んで理解してるかな？
0612572NGNG
>>611
残念ながら、まだ未決です。
うちのソースを貼りますので、ご指南頂ければありがたいです。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
　if (Pos (Key, '1234567890-') = 0) and (Key <> #8) and (Key <> #13) and (Key <> #27) then
　　 begin
　　　Key := #0;
　　　ShowMessage('半角数字とハイフンだけが入力できます。');
　　end;
end;

本当は、Enter入力でTabを兼ねるようにしたいのですが
上の分が解決できてないのでそれも止まっています。
0613デフォルトの名無しさんNGNG
>>612

例えば、Enterだけ言えば、これをそのまま貼ってみて、音が鳴るか試して

　　　if (Key = #13) then
　　　begin
　　　　　　SelectNext(ActiveControl, True, True);
　　　　　　Key := #0;
　　　end;

　　　if (Pos (Key, '1234567890-') = 0) and (Key <> #0) then
　　　begin
　　　　　　Key := #0;
　　　　　　ShowMessage('半角数字とハイフンだけが入力できます。');
　　　end;

あと、Enterで移動したいなら、FormのKeyPressにEnterでの移動用のコード
を書いて KeyPreviewをTrueにした方が楽だと思うけど、どーよ。
0614デフォルトの名無しさんNGNG
>>610
できる。
環境オプションのエディタ見れ
0615572NGNG
>>613
ありがとうございます。貼ってみたらｏｋでした。

ただ
> if (Pos (Key, '1234567890-') = 0) and (Key <> #0) then
の、(Key <> #0)でまたキー入力を消してますが
ここの場所ではどんな仕事をしているのでしょうか？

Enterと合わせてBSなど追加してやってみましたが
上記の有無で結果が変わってきました。
まだプログラミングのなんたるかを理解してないので
この差が分かりません。
解説して頂ければ助かります。
0616デフォルトの名無しさんNGNG
>>612
ENTER,とかESCみたいな特殊キーはOnKeyDownで見た方が良さげ。
0617デフォルトの名無しさんNGNG
>>615
上のIF文でEnterだったら Key:=#0 にしてるんで、Enter入力だったのに次のIF文で、
ひっかからったら嫌かな？と思って書いてあるだけです。

ちゃんとした書き方をすれば書けるんでしょうが、貴方が書いたソースの流れから
大きく変化させない方が解り易いかと思いそのように書きました。

あと、今回のように行き詰ったら、ソースを分解したり段階的に試したりして、
シンプルにしてデバッグしやすいようにして試して見てください。
0618572NGNG
>>616
これは指摘があったのでやってみたのですが、charとwordの違いで
うまくいかなかったです。
これは私の不勉強ゆえちゃんと使えるとは思うのですが・・・

>>617
はい、わかりやすかったです。
それと指摘通り次のIF文でやはり引っかかりました。

いろいろ教えて頂きありがとうございました。
0619デフォルトの名無しさんNGNG
質問です。

私はDelphi6PROを使用しています。
でもって私の会社はムカつくことにDelphi6パーソナルを使用してるんです。
（営利目的では使用しちゃダメだとわかっててやってるから腹ただしい・・）

そこでお願いなんですが。
私が今組んでるプログラムを他の会社の人に渡したときに開けない様にする方法って無いでしょうか？
言いたいことは、「Proで開発したものだからパーソナルでは開けません」 と、言いたいんです。

Proにしかない特殊な物をusesに突っ込むとか、コンポーネント使うとか・・・。

教えて下さいませ。
0620619NGNG
それに以前「キミのプロフェッショナル持ってきてくれる？」って言われたこと有るし。
なんで不正使用の片棒担が無いとだめなんでしょうか？

「Proには認証があるから・・・」と逃げましたけど。
0621デフォルトの名無しさんNGNG
>>619
意味がわかりません。本当に論理的思考ができるプログラマの方ですか？
0622デフォルトの名無しさんNGNG
まあまあ。割れを使わないだけましとおも割れ
0623デフォルトの名無しさんNGNG
>>619
DB関係のコンポーネントを仕込んでおいて（使っていようといまいと）
→これでPersonalではプロジェクトをコンパイルできんはず

実行時パッケージを使うようにすればいいんでないかい？
→これでパッケージを配布しなければ実行もできんはず
0624デフォルトの名無しさんNGNG
>>620
ソフト自己負担かよ！

凝ったことやると自然とpersonalでは開けなくなるかもしれん。
0625デフォルトの名無しさんNGNG
>if (Pos (Key, '1234567890-') = 0) and (Key <> #0) then

これは if not (Key in ['0'..'9' , '-',#0]) then　と同じかな？
0626デフォルトの名無しさんNGNG
BDEなんかどうよ？
Personal付いてないでしょ。
0627デフォルトの名無しさんNGNG
訂正・・・かな
>DB関係のコンポーネントを仕込んでおいて（使っていようといまいと）
>→これでPersonalではプロジェクトをコンパイルできんはず
プロジェクトを読み込んだときにそのコンポーネントが削除されるだけ
という気もしてきた
0628デフォルトの名無しさんNGNG
ソースのusesにDBとかを分かりにくいように入れておくのがいいかもね
0629デフォルトの名無しさんNGNG
>>620
＞「Proには認証があるから・・・」と逃げましたけど。

何故かﾜﾗﾀ
0630デフォルトの名無しさんNGNG
>>618
普通は、#13とかchr(13) とか使いません。
理由は、キーコードを直接使用するとソースの見通しが悪くなる点等があります。

OnKeyDownでやる場合、

if (key = Windows. とここまで入力して見てください、
コード補完で VK_～ の部分にキーが出てきますので、それを使ってください、
Enterは VK_RETURN です。
0631デフォルトの名無しさんNGNG
ソースの一部をわざと消して渡せばパーソナルでもプロでもコピーできない。
っていうか、プロ買わせろよ。仕事だろ。学生に頼めば諭吉３本で買えるし。
0632デフォルトの名無しさんNGNG
アップグレードはお店じゃ買えないでしょ
0633デフォルトの名無しさんNGNG
>>631
学生ってアカデミック版？それ商用に使えたっけ？
0634デフォルトの名無しさんNGNG
>>633
無理
0635デフォルトの名無しさんNGNG
>>634
だよね
0636デフォルトの名無しさんNGNG
>>634
つーか、俺の知ってる会社では、会社でアカデミック版を仕入れて普通の会社に
売っている、まぁDelphiの話じゃないけど、SQL-ServerとかVBとかWin2000Serverとか
だが、これって小売やってる所じゃ当然のように行われている事みたいだ。
一旦売ってしまえば、ユーザ登録の段階ではアカデミック版なのか通常版なのか
のチェックは無いからね。
いっそ、アカデミック版の小売は廃止して直販のみでの販売にして欲しいと願う昨今。
ショップでも店員と親しくなると、アカデミック版をこそっと売ってくれるし、まぁ、いかがな
ものかと。
0637619NGNG
たとえPro買ったとしてもみんなで使い回すのが目に見えてる。

見せしめに家の様な会社が摘発されて晒されます様に・・・。
0638デフォルトの名無しさんNGNG
告発すればいいんじゃないかな？
0639デフォルトの名無しさんNGNG
>>637
いろいろありますな･･･。
0640572NGNG
>>625
はい、今やってみてうまくいきました。
こっちのほうがキレイですね。

>>618
やはりキーコードを書くのは良くないんですよね。
そうじゃないかなと思ってました。

コード補完で出てくる候補で何とかなりそうです。

レスありがとうございました。
0641頭が直ったDELモナーNGNG
>>640
　 ∧＿∧ 　　／￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　572さん頑張ってるね。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）
0642デフォルトの名無しさん NGNG
|￣￣￣￣￣￣￣￣￣|
　|　次でボケて　　　|
　|＿＿＿＿＿＿＿＿＿|
　　　 ∧∧ ||
　　 ( ﾟдﾟ)||
　　 /　づΦ


0643デフォルトの名無しさんNGNG
619は自分で速報板にスレ立てて自分の会社晒して
0644デフォルトの名無しさん NGNG
|￣￣￣￣￣￣￣￣￣|
|　次でボケて　　　|
|＿＿＿＿＿＿＿＿＿|
　　　 ∧∧ ||
　　 ( ﾟдﾟ)||
　　 /　づΦ
0645デフォルトの名無しさんNGNG
>>642,644
ずれてる
0646デフォルトの名無しさんNGNG
|￣￣￣￣￣￣￣￣￣|
|　　　　ﾍﾀｸｿ　　　　　　|
|＿＿＿＿＿＿＿＿＿|
　 　 ∧∧||
　　 ( ﾟдﾟ)||
　　 /　づΦ
0647デフォルトの名無しさんNGNG
>>619＝貧乏会社の癌
早く潰れちまえ
0648デフォルトの名無しさんNGNG
　|￣￣￣￣￣￣￣￣￣|
　|　次でキメて　　 　|
　|＿＿＿＿＿＿＿＿＿|
　　　 ∧∧ ||
　　 ( ﾟдﾟ)||
　　 /　づΦ


0649デフォルトの名無しさんNGNG
サーバーにあるファイルを書き換える方法って無いですか？
（サーバーは自分のサーバーだと想定して）

サーバー上にあるテキストファイル http://www.xxxxx.co.jp/hoge.txt　が
”あああああ”
だとしたらローカルのプログラムから書き換えて更新したいんです。
”あああああいいいいい”とかに

Delphiで出来ますでしょうか？
0650デフォルトの名無しさんNGNG
CGIかFTP覚えれ
0651デフォルトの名無しさんNGNG
619の話も驚いたけど、>>636の話はホント驚いた！
>>619さんもACCSとかにタレこみすれば？
タレこみ先によっては報奨金が出るって話。
ただそれで会社が潰れたら困るね・・・。

>>648 次にパス。
0652デフォルトの名無しさんNGNG
（´-`）。o ○ （「出来るか？」って質問、よく見るけど「出来る」ｏｒ「出来ない」って一言レス
もらって、何かウレシイのかな？）
0653デフォルトの名無しさんNGNG
ｳｻﾞｲﾖ?
0654デフォルトの名無しさんNGNG
>>649
HTTPコンポーネントでput出来なかった？
ファイルをGetしてからローカルで書き換えてそれをput

ダメ？

誰かフォローキボンヌ！
0655デフォルトの名無しさんNGNG
>>652
お前はsageが出来るのか？
0656デフォルトの名無しさんNGNG
>>655
元々あがってるスレッドをsageる必要性とは？
0657デフォルトの名無しさんNGNG
>>649
Indyで出来た予感
サンプルで似た様な事やってたし

違った？
0658572NGNG
昨日はアドバイスを　たくさん頂きありがとうございました。
また質問をしてすみませんが、モニターの表示解像度が変更されても
起動するソフトが常に真ん中に表示されるようにするのは
どうしたら良いのでしょうか。
0659デフォルトの名無しさんNGNG
すっごい基本的なことかもしれませんが…
イベントプロシージャって、かならず "Sender: TObject" を引数に取りますよね。
これってどういう意味があるんですか?

今まではそういうもんだと思って、余り気にしていませんでした。
0660デフォルトの名無しさんNGNG
>>659
呼び出し元を特定するため。
１００個のチェックボックスがある。
それぞれOnCheck書いてたら死にたくなる。
そういう場合は１００個のOncheckイベントを一つのプロシージャに割り当てることができる。
その場合、呼び出し元がわからないとどのチェックボックスがクリックされたかわからない。
そこでSenderのnameを確認する。
0661デフォルトの名無しさんNGNG
>>660
nameを確認するより、
Senderをチェックボックスにキャストしてアクセスした方が良いのでわ？
0662デフォルトの名無しさんNGNG
それか、Objectがあるチェックボックスとイコールか調べるとか。
0663デフォルトの名無しさんNGNG
使い方は人それぞれとｗ。
0664デフォルトの名無しさんNGNG
人それぞれですけど、僕はこれのおかげで女の子にモテモテになりました。
0665デフォルトの名無しさんNGNG
いや、俺の知り合いはこれのおかげで会社やめたよ？
0666デフォルトの名無しさんNGNG
>>664-665
禁煙パイポかい！ｗ
0667デフォルトの名無しさんNGNG
引数の事教えて下さい

たとえば実行ファイル起動時に引数を渡して起動すると、Edit1にその引数が代入される
って言うのをやりたいのです。

出来るんでしょうか？
0668デフォルトの名無しさんNGNG
>>667
ParamStrを使う・・・詳細はヘルプでどうぞ
0669デフォルトの名無しさんNGNG
>>667
argv>>667
http://www.google.co.jp/search?hl=ja&newwindow=1&q=delphi+%83R%83%7D%83%93%83h%83%89%83C%83%93%88%F8%90%94&lr=

検索できない子は趣味とは言えどプログラマとしては問題外。
0670デフォルトの名無しさんNGNG
>>658
TForm.Position で不足する機能は何？
0671デフォルトの名無しさんNGNG
>>658
TFormのヘルプを開いて、プロパティに目を通しておこう
やりたいことの多くがプロパティを設定するだけでできてしまうことが分かるだろう

Delphiのクラス（VCL）はそのように設計されている
「MFCとは違うのだよ、MFCとは」
0672572NGNG
>>670-671
ごめんなさい、そんな項目があったのですね。
見逃してました　お手を煩わしすみませんでした。
0673デフォルトの名無しさんNGNG
aviファイルを実行ファイルの中に埋め込みたいんですがどうやれば良いのでしょうか？
かちゅ～しゃはaviを埋め込んでますよね。

Aviの再生にはTAnimate使ってます。
0674デフォルトの名無しさんNGNG
>>673
ttp://www.borland.co.jp/qanda/delphi/d0003111.html
0675デフォルトの名無しさんNGNG
Resource Workshopってどういうものなんでしょうか？
Delphi６には見あたらなくて・・・
イメージエディタと言うのならあるんです。

それともフリーなんでしょうか？

0676デフォルトの名無しさんNGNG
>>675　こっちで聴いてみたら？
Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/
0677デフォルトの名無しさんNGNG
>>675
Delphi6に付いてなかったっけ？　＞Resource workshop
0678デフォルトの名無しさんNGNG
Delphi6とかのメニュー部分（ファイルとかって部分です）って移動出来ますよね、
あれを俺のプログラムでもやりたいのですが、ControlBarの上に何を乗せたら
あのような事が出来るのでしょうか？

ToolBarでやろうとすると、ペロっとメニューのようにはならないみたいで悩んで
います、某ツールでDelphi自身の該当箇所のクラスを調べてみると、
TDockToolBar らしいのですが、こんなのありませんし、どーしましょうか。


みんなの知恵をオラに少しわけてくれ！
0679デフォルトの名無しさんNGNG
>>678
ControlBarにControlBar乗せてみ
0680デフォルトの名無しさんNGNG
>>675
Pro版ならCDに入ってる。Personalだとどうだろ。
rcファイルを自力で記述して、brcc32.exeでコンパイルすればworkshopが無くても逝ける。
ttp://halbow.cool.ne.jp/Chap19.html#Chap19-3
なんか見とけば逝けるんでは。
0681679NGNG
>>678
あとラベル貼りたいならLabeledEdit
小さいのがいいならActionMainMenuBar

そのたActionToolBar、もいける
0682デフォルトの名無しさんNGNG
>>680
Professionalです。
CDは家にあります。
急いでる訳じゃないので帰ってからやります。

CDの中にコッソリ入ってるんですかね？
Delphi5は入ってる記憶が有ったんですが。
0683デフォルトの名無しさんNGNG
>>681
できたよ、ありがとう。どーも新しい機能が使いこなせてないです。（反省）
0684デフォルトの名無しさんNGNG
>>682
大丈夫。ｶｷｺ前に確認したから。丁度インストし直したばっかなもんで。
俺自身はworkshop入れてないけど。
0685デフォルトの名無しさんNGNG
FreeBSDにCLIが移植されて、C#だとWindowsのバイナリがFreeBSDでも動くらしいが、
これって 将来的にDelphiと関係ありな事？それとも無関係？
ひょっとして .NET が広まったら、Kylixって無意味になるのでしょうか？
Delphi.NETで世界を制覇できるようになる？圧倒的なよーわからん戦略でC#が蔓延
してしまい、大好きなDelphiでは仕事をさせてもらえなくなる可能性あり？
0686デフォルトの名無しさんNGNG
>>685
　去年の夏に言われてたけど　さあどうでしょうね
　公開されたのはCLR ではなく そのサブセットのCLIだけのようだし

C#が成功するなら JAVA にだってチャンスはあった筈でしょうしね
0687デフォルトの名無しさんNGNG
>>685
言ってることがようわからん。
バイナリが動くならC#以前からもあるが。
XWindow上でwineやWinエミュレーター動かせばそのまま動く。
Windowsの電卓も動いたし。

で、それがどうしたの？

DelphiとkylixはCLXによってなりたってるでしょ。
両者ともGUI統合環境と言うサポート上で。

そもそもWindowsのバイナリをそのままBSDで動かすと言うのが危険きわまりない。
Win依存だらけのソースだったらどうするべ？
0688デフォルトの名無しさんNGNG
>>687
CLI/CLRは wine とは全く意味が違うとおもわれ。

> BSDで動かすと言うのが危険きわまりない。

この部分は同感。
つーか、せっかくのBSDを不安定にしたいなら使っても
いいけど、サーバ用途で使ってるBSDで動かす気には
なれんな。
0689デフォルトの名無しさんNGNG
Lindowsが全て解決してくれるよ？
0690デフォルトの名無しさんNGNG
Lindowsなんて使い物にならんだろ、そもそもあれこそwineの塊だろ？
つーか、激しくすれ違いな気がする（ｗ
0691デフォルトの名無しさんNGNG
カレントディレクトリ（ExtractFileDir）にある実行ファイルの存在有無ををチェックして
その後ファイルが実行されているかどうかを調べる方法は無いですか？

前者は出来ると思うんですが後者は難しそう・・・

UNIXだとshellコマンドで出来たんですが。
0692デフォルトの名無しさんNGNG
>>691
もっといい方法があるかもしれんが、今すぐ思いつくのだと、プロセスを列挙して、
各プロセスの実行ファイル名とそのファイル名が一致するかどうかの判断かな。
Win9xではToolHelp32、WinNTではPSAPI.DLLを使用すれば面倒だが出来たはず。
0693デフォルトの名無しさんNGNG
>>690
Lindows 作っているところは、Kylix の Wine を移植したところよん。
0694デフォルトの名無しさんNGNG
>>691
Windowsで？
なら、EnumWindows API
0695デフォルトの名無しさんNGNG
Lindows日本語とおるなら　99$払って買うよ
0696デフォルトの名無しさんNGNG
>>695
DEBIANベースでって部分までは好感持てるのだが、
全てのユーザがroot権限ってのが /.Jに書かれていたのを読んで幻滅した。

DEBIANベースならLinux側は日本語もそこそこ使えるだろうが、Windowsアプリ
だったらWINEがどこまでチューンされるかによるんじゃないの？
最近のWINEは試してないけど、以前のは日本語関係は駄目だったように記憶している。
0697デフォルトの名無しさんNGNG
Ａ、Ｂ、Ｃ、Ｄ、Ｅ、Ｆの６チームがリーグ戦を行った。
勝敗の結果は次のようであった。Ｆが勝った相手はどのチームか。

　１　Ｂは１勝２敗２引き分け
　２　ＥはＢに敗れ、３勝２敗
　３　Ｄは１勝もできなかった
　４　Ｃは２勝３敗
　５　Ｆが勝ったのは１回のみ


0698デフォルトの名無しさんNGNG
>>697
また宿題ですか・・・。
0699デフォルトの名無しさんNGNG
>>697
判った！Ｄは阪神！
…sage
0700デフォルトの名無しさんNGNG
>>697
Delphiで解こうというのでない限り、
激しくスレ違い、いや板違い。
>>1
>DELモナーがどんな厨房疑問でもやさしく答えます。
というのは、質問の内容が、Delphi初心者がつまづくような内容でも
やさしく答えよう、という意味。
スレ違いの質問や、厨房のような姿勢での質問は、
どこであろうと晒される。

ちなみに答えはC。
0701デフォルトの名無しさんNGNG
>>700
俺は熱狂的なCファンだ！CがFに負けるわけねーだろ、このウスラハゲ！
0702デフォルトの名無しさんNGNG
>>699
今年は阪神が優勝するのだがなにか？
0703700NGNG
>>701
勝敗表。5つの条件からここまで矛盾することなく分かる。
　Ａ Ｂ Ｃ Ｄ Ｅ Ｆ 勝-負-分
Ａ＼○○？○？ ?-?-?
Ｂ●＼●△○△ 1-2-2
Ｃ●○＼○●● 2-3-0
Ｄ？△●＼●△ 0-?-?
Ｅ●●○○＼○ 3-2-0
Ｆ？△○△●＼ 1-?-?
0704デフォルトの名無しさんNGNG
ＥはＢに敗れているので、
＼ＡＢＣＤＥＦ
Ａ＼？？？？？?-?-?
Ｂ？＼？？○？1-2-2
Ｃ？？＼？？？2-3-0
Ｄ？？？＼？？0-?-?
Ｅ？●？？＼？3-2-0
Ｆ？？？？？＼1-?-?

Ｃに引き分けが無い以上、ＢはＣに敗れている。
＼ＡＢＣＤＥＦ
Ａ＼？？？？？?-?-?
Ｂ？＼●？○？1-2-2
Ｃ？○＼？？？2-3-0
Ｄ？？？＼？？0-?-?
Ｅ？●？？＼？3-2-0
Ｆ？？？？？＼1-?-?

ＣはＤに敗れておらず、かつ引き分けでないので、
＼ＡＢＣＤＥＦ
Ａ＼？？？？？?-?-?
Ｂ？＼●？○？1-2-2
Ｃ？○＼○？？2-3-0
Ｄ？？？＼？？0-?-?
Ｅ？●？？＼？3-2-0
Ｆ？？？？？＼1-?-?

Ｃの２勝が決まり、Ｃに引き分けが無いので、ＣはＦに負けている。
よって、ＦはＣに勝った。
0705デフォルトの名無しさんNGNG
>>673
かちゅーしゃはaviを埋め込んでいません
0706デフォルトの名無しさんNGNG
>>673
お前の目は節穴か。
anime.avi ってファイルがおもっきりあるだろーが。
0707デフォルトの名無しさんNGNG
実行ファイルにAVI埋め込み上手くいきました。
FONTとかも埋め込められるんですね。

それにしてもResource Workshopは使いづらかった・・・。
0708デフォルトの名無しさんNGNG
単に埋め込むだけなら、Delphiのプロジェクトに .RES を入れるだけでいいぞ
別にWorkShop使わなくても
0709デフォルトの名無しさんNGNG
jconvertってのを拾ってきてEUC <--> SJIS のプログラムを書いてるんだけど、
日本語が部分的に化けてしまう、jconvertって結構有名だと思ったんだが、
使ってる人いますか？使えてますか？
又は、EUC<-->SJISのコンポとかで完璧なのがあれば教えて下さい。
よろしくお願いします。
0710デフォルトの名無しさんNGNG
>>709
EUCにも色々あるけど
0711デフォルトの名無しさんNGNG
>>710
EUC-JPだと思うけど、漢字が使えるEUCって沢山あるのでしょうか？
0712デフォルトの名無しさんNGNG
デルファイってよくBeginとendがいやだって言う人居るじゃん。あれってなんでかな？
ルールに乗っ取った書き方だけどエイリアス出来ないのかな？
不可視にしちゃうとか。
ぁ、自分はなれてるから大丈夫だよ。
インプライズ時代からの付き合いなんで・・その前からも。
さぎょうしてると周りの人がBegin、endにやたらと、
いちゃもん付けてくるもんだらか。
コーディングによっては逆に見やすくなったりもするんだけどね。
うまく説明出来ないけど。
0713デフォルトの名無しさんNGNG
>>712
> デルファイってよくBeginとendがいやだって言う人居るじゃん。あれってなんでかな？

仕様ルールをよく知らない人間のただの戯言だろ、それが仕様なんだ、従うのが
嫌なら使わなきゃいいだけだ。
しかし、そんなレベルのプログラマはおそらく他の言語でもマトモなプログラムは書いて
ないと思う、相手にしなくてもいいよ。
0714デフォルトの名無しさんNGNG
>>712-713

日本人はbegin/endはキーを打つのが嫌いで、{}は楽で好き。
英語圏の人はbegin/endが読みやすくて好きで、{}が記号みたいで嫌い。
0715デフォルトの名無しさんNGNG
俺はBegin、Endの方が断然見やすいけど。
0716デフォルトの名無しさんNGNG
Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Delphi
0717デフォルトの名無しさんNGNG
韓国には EUC-KR がある。理屈の上では EUC-xx で xx にほとんどの国が入る。

EUC ってのは Extended Unix Code の略で、ひとことでいうと８ビット目をセット
するだけ。エンコード規則だと思えばよい。

Unicode 以前にすでに多くの国で符号化集合の規定が進んでいて、基本として
7bit 単位で符号化することにし、8bit 目で、複数の符号化集合（通常の日本語文書だと
8 bit 目が０の時は残り 7 bit は US-ASCII 相当。8 bit 目が 1 の時は二つ分 14 bit で
漢字一文字）を指定する。

で、規格上は 8 bit 目 0 と 1 の時の符号化集合を指定するエスケープシーケンスを
送らなきゃいけないのを、どうせひとつの環境ではいつも同じ符号化集合の組み合わせだ。
ってんで省略したのが EUC

だから EUC-KR や EUC-中国（-ch かなぁ？わすれた）が存在する。使われているかどうかは
別ですが。
0718デフォルトの名無しさんNGNG
>>707
WorkShopはTurbo Pascal for Windows時代の遺物だから・・・
でも他のアプリケーションのリソースを抜き取ることができる利点はある
（IEとかはだめだけど）
0719デフォルトの名無しさんNGNG
UP2 修正版公開あげ。

http://www.borland.co.jp/delphi/del6up.html#del6up2
0720デフォルトの名無しさんNGNG
OpenDialogでファイルを選択すると絶対パスしか取得出来ないのですが、
選択ファイル名だけを取得するにはどうしたら良いでしょうか？
0721デフォルトの名無しさんNGNG
>>720
ExtractFileName
0722デフォルトの名無しさんNGNG
>>721
出来ました
ありがとう御座います
0723デフォルトの名無しさんNGNG
>>722
関数のヘルプは「Delphiヘルプ」-「VCLリファレンス」にあるよ
0724初心者ＢNGNG
Ｑ１．タスクトレイにプログラムを常駐させる方法を教えて下さい。
Ｑ２．メインアイコンを３２×３２と１６×１６で分ける方法を教えて下さい。
0725デフォルトの名無しさんNGNG
>>712
メール見たら・・・
0726デフォルトの名無しさんNGNG
なんて巧妙な縦読みだ。
0727デフォルトの名無しさんNGNG
>>724
Ａ１．トレイにアイコン表示するコンポでも使え
Ａ２．アイコンリソースに３２×３２と１６×１６の両方を入れたアイコンを使え
0728デフォルトの名無しさんNGNG
>>712
そこまでいくと個人の好き嫌いになっちまうよ。
俺だってincludeが嫌いってだけでC言語がきらいだよ。
0729デフォルトの名無しさんNGNG
たてーよみーかぁぁぁ
0730デフォルトの名無しさんNGNG
>>712
かなり手の込んだ縦読みだな。
文章も普通だし。
0731デフォルトの名無しさんNGNG
文字があったとし徐々に横にずらしていくのはどうしたら良いでしょうか？

VBでは簡単に出来たんですが。
0732デフォルトの名無しさんNGNG
>>731　やりたいことが伝わってこないんだけど
Webがどうたらじゃなく基本的な動作なら
「VBなら簡単だけどDelphiでは難しい」
なんてことはまずないと思うよ（>>723のヘルプを参照）
0733初心者ＢNGNG
>>731

private
I : Integer;
Str2: string;

procedure TForm1.OnFormCreate(Sender : TObject); //起動時の初期化処理
var
N : Integer;
Str : string;
Retry : Boolean;
begin
N := 20; //ずらす回数
Str := 'Hello.'; //ずらす文字
　Retry:= True; //繰り返す→True 繰り返さない→False
end;

procedure TForm1.OnTimer1Timer(Sender : TObject); //TTimerコンポーネント
begin
if I < N then
begin
Str2:= ' '+Str2; //' 'の中身はスペース
I := I+1;
end
else
if Retry then
begin
Str2:= Str;
I := 0;
end;
Edit1.Text:= Str2; //コンポーネント名はご自由に
end;

こんなもんではどうでしょう？
このソースでは、Str入力した文字列がN回ずらされてEdit1に出力されます。
今速攻で作成したので文法には自信ないです。
0734デフォルトの名無しさんNGNG
>>731
２つの事を知れば解決します
　１、AnsiStringはシフトJISなので１文字単位に処理したいなら WideStringを使う
　２、ＶＢのMid相当の関数は copyである
0735初心者ＢNGNG
733　ずれた、鬱だ。
0736デフォルトの名無しさんNGNG
>>733
酒の肴になりそうです
どうもありがとう
0737初心者ＢNGNG
>>731
すいません。
こちらをコピペしてください。↓
http://simfan.cn1.jp/other/source1.txt
0738デフォルトの名無しさんNGNG
>>737
コンパイラが答えを出してくれるだろうね
0739DEL→Delモナー ◆fPymXWHY NGNG

　 　 　 　 　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 　 　　| >>193-194のリンク集の
　 　 　 　 　　| リンク切れを修正して、再編集したよ。
　 　 　 　 　　|
　 　 　 　 　　| 次スレの先頭に貼ろうと思うんだけど、
　 　 　 　 　　| ここに追加してほしいサイトとか、
　 ∧＿∧　　| このリンク集の中で特に（・∀・）ｲｲ！っていうサイトが
　（　´∀｀）＜. あったら、次スレになる前に教えて。
　（　　　　）　.| （・∀・）ｲｲ！サイトは星印でも付けようと思うよ。
　｜ ｜ ｜　 | かなりでかいけど、よろしく。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0740Delモナー ◆fPymXWHY NGNG
■関連サイト
Delギコさん作成のものを再編集しました。

○入門
Do It YourSelf---Life with Delphi
http://home.onestop.net/mineko/index2.html
ゼロからDELPHI講座
http://www.text2music.com/mine/delphi/index.html
Ｄｅｌｐｈｉ（デルファイ）のページ
http://www.threeweb.ad.jp/~satou/

○VBからの移行
Deep Forest - Switching Delphi / VB
http://member.nifty.ne.jp/deepforest/vbdel.htm
Visual Basic から Delphi/Kylix への移行ガイド(公式)
http://www.borland.co.jp/delphi/papers/vbtodel/
Delphi Acid Floor+
http://www.wwlnk.com/boheme/
0741Delモナー ◆fPymXWHY NGNG
○Tips・FAQ
Osamu's Square - Delphi
http://www2.big.or.jp/~osamu/Delphi/
Delphi広場 - FAQ
http://www.sakaki.keiaikai.or.jp/faq.html
Delphi Acid Floor+
http://www.wwlnk.com/boheme/
Leafel's note - Programing
http://hp.vector.co.jp/authors/VA015850/program.html
日本Delphi振興会
http://hp.vector.co.jp/authors/VA009712/take/delphi/
雑文の頁 - Delphi神殿Tips
http://nug.nasu-net.or.jp/~sakai/delphi/index.html
M&I Tips
http://member.nifty.ne.jp/m-and-i/tips/tipspage.htm
Gen'sDelphiLabo
http://www2.biglobe.ne.jp/~sakai/gensfaq2.htm
Borland Q&A Delphi(公式)
http://www.borland.co.jp/qanda/delphi/index.html
Borland Tips Delphi(公式)
http://www.borland.co.jp/tips/delphi/index.html
RG VEDA
http://homepage1.nifty.com/beny/index.html
Sky Engine by Delphi
http://www.geocities.co.jp/SiliconValley-SanJose/7625/index.html
COSMIC TOWER DELPHI MILLION TIPS
http://homepage1.nifty.com/cosmic/delphi/delphitips.html
TechnoCity - Delphi & Windows プログラミングＴＩＰＳ集
http://hp.vector.co.jp/authors/VA003525/tips.htm
(続く)
0742Delモナー ◆fPymXWHY NGNG
STUDIO MU - Delphi Q&A
http://www.para.tutics.tut.ac.jp/~ohno/mu/devroom/delphi_qa_g.html
中村の里 - Delphi
http://www.asahi-net.or.jp/~HA3T-NKMR/delphi.htm
Ken's Software HomePage - Delphiの話題
http://homepage1.nifty.com/kens-hp/delphi.htm
Katsuya's Home - Tips
http://www.apionet.or.jp/~tubokura/k_tips.html
Programming Library - Delphi Page
http://homepage1.nifty.com/MADIA/delphi/index.html
ＤＥＫＯのアヤシいお部屋。 - Delphiによるテクニック＆アルゴリズム
http://homepage1.nifty.com/ht_deko/techalgo.html
Goditi la vita ! - 也工房
http://www.asahi-net.or.jp/~GV4J-SGUR/narik/nari.htm

○特定分野
Win32 API by Object Pascal of Delphi(API)
http://halbow.cool.ne.jp/top.html
Delphi Programming(API、コンポーネント)
http://www.takenet.or.jp/~ryuuji/delphi/
Ak's Laboratory[Delphi Construction] (画像処理)
http://www2s.biglobe.ne.jp/~aks-lab/delphi_lecture.htm

○コンポーネント
Delphian World
http://home1.infonia.ne.jp/~delphian/delphi/
Delphi Super Page(英語)
http://delphi.icm.edu.pl/
(続く)
0743Delモナー ◆fPymXWHY NGNG
○バグ
Delphi Bug-List Project
http://www.infonia.ne.jp/delphi/

○環境のカスタマイズ
GExperts
http://www.gexperts.org/
ＦＵＵ's Software フリーカーソル無効化アドイン
http://homepage1.nifty.com/fuu/

○コミュニティ・ML
Osamu's Square - Delphi-ML過去ログ検索
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/search.cgi
USERS GROUP - Delphi メーリングリスト
http://www.users.gr.jp/ml/delphi.aspx
Delphi広場
http://www.sakaki.keiaikai.or.jp/
Borland Maniacs!
http://member.nifty.ne.jp/h_kova/
NIFTY SERVE Delphi Users' Forum: FDELPHI(@niftyの会員になる必要あり)
http://www.nifty.ne.jp/forum/fdelphi/faq/title.htm

○書籍案内
Delphi 関連書籍(公式)
http://www.borland.co.jp/bookinfo/delphi.html
USERS GROUP - Delphi 関連書籍
http://www.users.gr.jp/books/delphi.asp
(終わり)
0744Delモナー ◆fPymXWHY NGNG
>>739-743
思ったよりかなり行数を取るな・・・。
もっと短くしよう。
0745デフォルトの名無しさんNGNG
俺的には、ここが結構分かりやすかったが．．．。
flow of water
http://isweb21.infoseek.co.jp/computer/wblue/
0746Delモナー ◆fPymXWHY NGNG
>>745
　 ∧＿∧ 　　／￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　ありがとう。追加しておく。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）
0747Delフサギコ ◆zE1iiRdQ NGNG
　　 ∧,,∧　　　 ／ﾘﾝｸ集。このあたりにﾚｽしておくと
　　ミ,,ﾟДﾟ彡　＜　次から、引用がしやすくて
　　 U　　つ゛　　＼他の人も参照しやすくなるかと思われ
　＠ﾐ　　ﾐ
　　 ∪''∪　
Delphiお役立ちサイト(コピペ)
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538

どんどん追加してヨシ
0748デフォルトの名無しさんNGNG
age!
0749デフォルトの名無しさんNGNG
Zlibユニットを使ってZIPファイルの圧縮＆解凍はできますか？

TCompressionStreamを実際に使ってみたところ、ヘッダも一緒に
吐き出してるようなのですが・・・。
ただ、zip32j.dllで同じファイルを圧縮しても、バイナリ的に
符合しないので見当がつきません。
0750デフォルトの名無しさんNGNG
超初心者にオススメの本はありますか？
書籍スレでも探せませんでした。みなさんのオススメを教えてください
0751デフォルトの名無しさんNGNG
>>750
Delphi付属のマニュアル。本気です。
あとは、TryPCとかが出してるムック本かなぁ。
0752デフォルトの名無しさんNGNG
>>750
>>745でいいんじゃない？
0753750じゃないよ。NGNG
基礎だけがわかった初心者向けの本はありませんか？

ＩＤＥの使い方、ifやforなどの構造文、classの作り方とかは分かったのですが
それの例題みたいなのがたくさん載ってる本とかないですか？
0754デフォルトの名無しさんNGNG
TBitMapで透過させる方法はどうすればいいのでしょうか？
IamgeはTransparentをTrueにするだけで出来たのですが・・・
0755デフォルトの名無しさんNGNG
TBitmap.Transparent
0756デフォルトの名無しさんNGNG
>>753
そこまで理解できてるんなら、本なんか頼んないでも、
なんか自作してみたら？
その方が随分と勉強になると思うけど・・・。
0757デフォルトの名無しさんNGNG
>>755
それをＴｒｕｅにしただけでは透過しないんです。
コードはこうなってます。

Img := TBitmap.Create;
Img.Width := s;
Img.Height := s;
Img.Transparent := True;
Img.Canvas.CopyRect( Rect(0,0,s,s), Form2.Image1.Canvas, CharRect(0,0,x,i,s) );
CharImg[x+1,y] := Img;
0758デフォルトの名無しさんNGNG
>>757
半透明の事を言いたいのか？
0759デフォルトの名無しさんNGNG
>>757
灯火させるようなＢＭＰになってんの？
0760757NGNG
>>758
半透過というのでしょうか？
>>759
Imageの段階では透過してます。
0761757NGNG
http://www.geocities.co.jp/SiliconValley-Cupertino/6174/puyo2ch.bmp
ビットマップはこれを使用してます
0762通りすがりですがNGNG
>761
お、おもしろそう。
完成の暁にはぜひ一言声かけてください。
0763デフォルトの名無しさんNGNG
>>761
いいねぇ、なんかゲームとしての仕組みはあれだが・・・。
なんか、たぶんあるであろう連鎖以外に特別な技が欲しいな。
0764デフォルトの名無しさんNGNG
>>757
検証しやすいようにもう少しソースを貼ってみて
（コンパイルが通る程度に切れないかい？）
0765デフォルトの名無しさんNGNG
>>761
コンパイルに通報します
0766デフォルトの名無しさんNGNG
コンパイルってまだ生きているｎｏ？
0767757NGNG
>>764
　　 Image1.Picture.LoadFromFile('puyo2ch.bmp');
Img := TBitmap.Create;
Img.Width := 32;
Img.Height := 32;
Img.Transparent := True;
Img.Canvas.CopyRect( Rect(0,0,s,s), Form1.Image1.Canvas, Rect(0,0,32,32) );

CharImg := Img;
Img := CharImg;
Form1.Canvas.CopyRect( Rect(0,0,s,s), Img.Canvas,Rect(0,0,s,s));
こんな感じです。
ただ実際はBackImg(TBitmap)に描いてからformに書き込んでます
0768デフォルトの名無しさんNGNG
名前をもっと変えた方がいいんじゃにゃいの？ギコギコとか
0769デフォルトの名無しさんNGNG
モナモナで
0770デフォルトの名無しさんNGNG
>>767
最後のここ
Form1.Canvas.CopyRect( Rect(0,0,s,s), Img.Canvas,Rect(0,0,s,s));

こーする
Form1.Canvas.Draw(0,0,Img);
0771757NGNG
>>770
出来ました！！
本当にありがとうございます！！
0772デフォルトの名無しさんNGNG
>>771
うむ、完成したら報告よろしく。
でも、ちゃんとゲームとしての速度が出るか不安も残る・・・
0773757NGNG
ここに報告するのはどうかと思うのでリンクを貼っておきます。
ttp://incoming.jp/puyo/index.html
0774デフォルトの名無しさんNGNG
>>772
Delphiなら普通に作れば大丈夫
0775デフォルトの名無しさんNGNG
TimageってBitmapしか使えませんでしたっけ？
JpegやGifが使いたいんですが。
0776デフォルトの名無しさんNGNG
Ｊｐｅｇはいけたと思うよ
0777デフォルトの名無しさんNGNG
ジェダーイに逝ってTGifImage採ってこい。
0778Delモナー ◆fPymXWHY NGNG
>>747
　 ∧＿∧ 　　／￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　>>740-743を貼っといた。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）
こちらへ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538
0779デフォルトの名無しさんNGNG
Rubyyyyyyyyyyyyyyyyyyyyyyyyy!
0780デフォルトの名無しさんNGNG
>>779
それなんですか？
0781デフォルトの名無しさんNGNG
>>780
激しくすれ違いな奴は相手にするなよ、報知でよろしく
0782初心者ＢNGNG
>>724
リソースに入れるアイコン名を教えて下さい。
0783飯 ◆z/PMXgLI NGNG
Delphi6でブラウザを作ってみたいのですが、
Delphi6でIEコンポーネントを使うにはどうすればｲｲのですか？
教えてください。
0784Delモナー ◆fPymXWHY NGNG
>>783
>>123,126で既出。
それともこれ以上の情報がほしいとか、そういう質問?
0785デフォルトの名無しさんNGNG
>>782
プロジェクトオプションで選択しる！
0786飯 ◆z/PMXgLI NGNG
>>784
わーお。既出でしたね。
すみません。
0787名無し募集中。。。NGNG
>>783
[コンポーネント]→[ActiveXコントロールの取り込み]
で、Microsoft Internet Controlsをインストール

ActiveXタブにWebBrowserが追加されてるはずなので、
これをフォームに貼り付ける。

ついてに、ボタンも貼って、

procedure TForm1.Button1Click(Sender: TObject);
begin
　WebBrowser1.Navigate('http://www.yahoo.co.jp');
end;

みたいな感じ
0788デフォルトの名無しさんNGNG
Robyyyyyyyyyyyyyyyyyyyyyyyyy!
0789デフォルトの名無しさんNGNG
ギｆ
0790デフォルトの名無しさんNGNG
実行ファイル（exe）を削除しようとするときに、そのファイルが実行されていたら
消せませんよね？
これってエラーを吐いてちゃんと分岐処理って出来るんでしょうか？

・実行されていなかったら・・・削除する
・実行されいたら・・・削除できないからエラーダイアログを返す

こんなのです。
0791デフォルトの名無しさんNGNG
実行されてるファイルのハンドルを見て存在したら…
なんて言う分岐が出来たと思います。

指定したプログラムを終了させる事も出来るはずなので、
実行されていたらダイアログを出して終了させても良いか確認し、
OKなら終了させて削除なんて事も出来たと思いますよ。
0792デフォルトの名無しさんNGNG
>>790
ファイルを削除－＞まだある
0793初心者ＢNGNG
>>760
DeleteFile関数の出力で分岐する方法です。↓
http://simfan.cn1.jp/other/source2.txt
0794初心者ＢNGNG
コンポをOnFormCreate中で、Createコマンドを使って
作成しようとすると、書き込みエラーが発生するのですが、
正しい作成方法を教えて下さい。

>>793
レス先間違えた。正しくは、（>>790）
0795デフォルトの名無しさんNGNG
procedure TForm1.Form1FormCreate(Sender: TObject);
begin
　Button1 := TButton.Create(Self);
end;
ってかんじー
0796デフォルトの名無しさんNGNG
>>795
１．Button1をちゃんと宣言しているかどうかチェック
２．Butoon1.Parent:=Self; を書いておく
とりあえず以上で・・・
0797デフォルトの名無しさんNGNG
漏れもレス咲き間違えた
× >>76
○ >>75
0798デフォルトの名無しさんNGNG
76→796
75→795

撃つ出汁脳
0799初心者ＢNGNG
早速レスありがとです。
やってみます。
0800デフォルトの名無しさんNGNG
ImageでJPEGを読み込もうとするとエラーが出るんですが何故ですか？

Img1.Picture.LoadFromFile('C:\aaa.jpg');

ってやるとエラーが出るんです。
0801usNGNG
jpeg
0802デフォルトの名無しさんNGNG
>>801
どういうことですか？
0803デフォルトの名無しさんNGNG
やまなし、おちなし、いみなし
0804デフォルトの名無しさんNGNG
無駄なレスが増えるからちゃんと書いてやれよ
usesにjpegを追加だ。わかったな
0805デフォルトの名無しさんNGNG
TImageが読み込めるのはIconとMetaFileとBitmap・・・JPEGは対象外でしょ
今手元にあるのはDel5（6は隣の部屋）だけど多分変わってないはず
0806デフォルトの名無しさんNGNG
>>805 自己レス
ヘルプを鵜呑みにした・・・読めるね・・・恥・・・討つだし脳
0807デフォルトの名無しさんNGNG
>>805
普通にJPEG読み込めましたよ？
プロパティから設定すると。
0808デフォルトの名無しさんNGNG
読める
0809デフォルトの名無しさんNGNG
読める…　読めない…　読める…　読めない…　読める…　読めない…………
読める！
0810デフォルトの名無しさんNGNG
usesにjpegを追加するだけで何故読めるようになるんだろう？
ってのは中村氏も最初疑問に思ってたぐらいだしね。
0811デフォルトの名無しさんNGNG
>>810
なんで？
0812デフォルトの名無しさんNGNG
>>810
うわ！
本当だ
usesにjpegって記入しただけで読めちゃった。

なんて単純な・・・
0813デフォルトの名無しさんNGNG
>811
　jpeg ユニットによって、TGraphic から派生した TJPEGImage クラスが定義される。
　んで、TImage.Picture は　TPicture で、自分が解釈できるものに合わせて適切な
TGraphic を呼び出すから、この時点で TGraphic として　TJPEGImage が使われて、
正しく読めるんだな。
　TImage.Picture がアイコンなら TIcon を、メタファイルなら TMetaFile を勝手に選択
して生成利用しているのと、原理はいっしょ。

　オブジェクト指向をうまく使っている例だよ。
　これを応用すれば、GIF や PNG を読めるクラスを TGraphic から派生で定義してや
ることで、JPEG と同じように使えるんだな。
0814デフォルトの名無しさんNGNG
アダプタパターンだっけか？
0815素数２NGNG
質問です。
CSVファイルをTstringgrid に突っ込んでデータベースとしているのですが
自作の検索フォームの動作がうまくいかんのです（クエリーと言うのか？）
TCombobox TCombobox　TEdit と並んでいて　検索結果を TListboxに表示　と言うのを作っております


例えば

「名前」　　「含む」　「モナー」　かつ
「色」　　「含まない」　「オレンジ」　　かつ
「頭身」　「＝」　「８」　

これで　８頭身モナー（オレンジ以外）　の一覧が　TListbox　に表示される
と・・・

よく見る機能なのですが自分では実装できませんでした・・・
このような機能を作る際の定石などがあればご教授いただけたら幸いです。
0816素数２NGNG
>>815　ちなみに 開発環境は Del6 Pro です。
カードゲームのテキスト管理ソフトを作ってます（データは１０００～２０００件程度）
0817デフォルトの名無しさんNGNG
>>813
TGraphicから派生してクラスを定義して、usesしただけでどうして読めるようになるんでしょうか。
疑問なんですが。
0818デフォルトの名無しさんNGNG
>>817
VCLソース嫁。勉強になるぞ
0819デフォルトの名無しさんNGNG
>>815
データベースを使うのが楽ちんでいいと思うけど、テキストファイル
ということなんで、その部分をコーディングしなくちゃならん
(CVSファイルを検索するためのライブラリって無いのかなあ)。

で、どうやるかというと、木構造を使ってレコードが条件にマッチ
するかどうかを一つ一つ判定していくのが定石だと思う。電卓の
プログラムなんかが参考になると思ったんで探してみたんだけど
いい感じのが見つからなかった(w
0820デフォルトの名無しさんNGNG
>>815
D6使ってるみたいだし、MyBase使ってみれば？
まさにこういう用途にうってつけだと思うが。
0821デフォルトの名無しさんNGNG
>>817
何で読めないと思うのかが不思議。
0822素数２NGNG
mybase・・・難しいなぁ　データベースは触ったこともないから・・・。
とりあえずどっかしらから頑張るっす。
どんどん機能拡張していったものだから根本を変えるのは大変かなぁ　（現在β２２。
0823デフォルトの名無しさんNGNG
>>820
MyBase使ってるの？
どっかに優しい説明書無い？　情報ｷﾎﾞｰｳ！
0824デフォルトの名無しさんNGNG
自分もDelphiでデーターベースソフト作ろうと思ってるんだけど、何が一番良いですか？
csvやらアクセス取り込むやら方法はいっぱいあるじゃ無いですか。

これが一番簡単で手っ取り早くて良いって言うのを教えてください。

csvは中見られたらおしまいなんですよね・・・。
0825素数２NGNG
ぼやき；
うーん Tstringlist は引数に使えないのか、戻り値に使えないのか・・・エラーが出る。
commatextで事なきを得たが　いまだに動作は変だ・・・
>>815　も１項目だけなら簡単にできるんだが、２項目目からはもはや理解不能なコードを書いてる俺。
0826817NGNG
TPicture.RegisterFileFormatをInitializationでよんでいるわけですね。なるほど。
jpeg.pasがないので残念がっていたら、
中村さんのwebページにまんま解説ありました。
0827初心者ＢNGNG
すごく初歩的な気がするんですけど、
ＤＬＬの読み込み方法を教えて下さい。
ヘルプとか見てもいまいち良くわからないです。
0828デフォルトの名無しさんNGNG
>>827　スタテック？それとも動的に読みたいの？
0829デフォルトの名無しさんNGNG
１）Tstringlist　を引数に使うより TStrings を引数に使って TStringListを渡すのが普通

２）戻り値に使える。ただしインスタンスの寿命管理の問題がややこしくなるので注意する事

３） >>815のような事で楽したいなら 正規表現検索の出来るコンポーネントを入手して
　　検索条件から正規表現を動的に作り出したらいい
0830デフォルトの名無しさんNGNG
やたあああああああああああ
復刊.COMからメールだああ
---------------------------------------------------
復刊ドットコムをご利用いただきありがとうございます。
下記の書物に対して投票数が規定数に達しましたことを
ご連絡いたします。

(略)

交渉の状況や結果は、可能な限りメールにてお知らせ致しますのでお待ち下さい。
また、交渉状況表をご覧いただければ、交渉中に入ったかどうかわかりますので、ぜひご覧になってください。
http://www.fukkan.com/nego.php3

登録No.4407 登録日時 2002/04/01 08:56:22
------------------------------------------------------------------------------
　ジャンル　　 : コンピュータ
　書名　　　　 : Delphi オブジェクト指向プログラミング
　著者名　　　 : 塚越　一雄
　出版社　　　 : 技術評論社
　本の内容　　 : 1997年に発行された、Delphiでのオブジェクト指向を分かりやすく解説した、
Delphi中級者以上のユーザ必須の書。
ISBM4-7741-0427-2 C3055

　現在の得票数 : 100
0831DELモナNGNG
>>815
まあ、このコードでも使ってみなさいと。

type TFindOption = record
　FEnable:Boolean; //有効か否か
　FIncluding:Boolean; //キーワードを含むか否か
　FKeyword:string;
end;

type TFindOptions = record
　FName, FColor, FTall:TFindOption;
end;

function Match(CommaText:TStrings; FindOptions:TFindOptions):Boolean;

　function MatchProc(AText:string; FindOption:TFindOption):Boolean;
　begin
　　Result := True;
　　if not FindOption.FEnable then Exit;
　　Result := FindOption.FIncluding = AnsiSameText(CommaText[0], FindOption.Keyword);
　end;
begin
　Result := MatchProc(CommaText[0], FindOptions.FName) and
　　　　　　MatchProc(CommaText[1], FindOptions.FColor) and
　　　　　　MatchProc(CommaText[2], FindOptions.FTall);
end;

procedure Find(Data, Result:TStrings; FindOptions:TFindOptions);
var
　I:Integer;
　C:TStrings;
begin
　C := TStringList.Create;
　for I:=0 to Data.Count-1 do begin
　　C.CommaText := Data[I];
　　if Match( C, FindOptions ) then
　　　Result.Add( Data );
　end;
　C.Free;
end;
0832デフォルトの名無しさんNGNG
>>825
まずは、戻り値に使えない理由を知るべきでしょう。

function GetTStringList:TStringList;
begin
　Result := TStringList.Create;
end;

↑みたいに、Result 変数に対してちゃんと
TStringList.Create しないとダメよ。

もしくは、

var
　GlobalTStringList:TStringList;

function GetTStringList:TStringList;
begin
　if not Assigned( GlovalTStringList ) then
　　GlovalTStringList := TStringList.Create;
　result := GlovalTStringList;
end;

これは Create - Free の関係を（あまり）気にする必要がない。
Singleton パターンもどき。
0833デフォルトの名無しさんNGNG
エクスプローラでファイルを右クリックしたときに出てくる
シェルメニューの編集をしたいです。

そこでレジストリを調べてみました。拡張子毎の情報は HKEY_CLASSES_ROOT
\.* にあって、キーを頼りに情報を捜すということは分かりました。

問題は、恐らくDLLを参照しているであろう {XXXX-XXXXXX-XXXX} みたいなキーの場合です。HKEY_CLASSES_ROOT\CLSID\{XXXX-XXXXX-XXX}\InprocServer32\
の標準キーにDLLのファイル名が書いてありますね。
多分、DLLにあるメニュー項目取得関数を呼び出して
動的にメニューを構築していると思うのですが、
なんという名前の関数を呼び出せばよいのですか。


0834Delモナー ◆fPymXWHY NGNG
>>831
　 ∧＿∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　私以外のDelモナー、久しぶりに見たよ。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）

私は「元祖」じゃないけど。
0835何気に元祖DELモナですNGNG
>>831 訂正.
含むか、含まないか　であれば

MatchProc 関数内の

AnsiSameText(S1, S2) の部分を
( AnsiPos(S2, S1) >= 1 )

にした方が良いですな
0836デフォルトの名無しさんNGNG
C++からDelphiに移ったんですが、C++みたいに構文の途中で変数の宣言などは出来ないのですか？
0837DELモナNGNG
Pascal では、変数の宣言場所はあらかじめ決められていて、
それ以外の場所で宣言することはできないよ。

自分は、途中で宣言可能なよりも、一括して宣言しなければ
ならない Pascal 文法の方が見やすくて好き。
0838デフォルトの名無しさんNGNG
VBみたいに全角文字変数も駄目なのかな？
上司のソース見たらもの凄いことになってた

全部Public変数だし全角で宣言してるし・・・
四角 as～って言う風に
0839Delモナー ◆fPymXWHY NGNG
>>838
全角って入力しにくくないのかねぇ。
そういえば、VBの初心者向けの本で、
関数名を全角で宣言しているというすごいものがあったな。
普通の言語なら半角英数字で書くものだけど・・・。
0840デフォルトの名無しさんNGNG
>>836
素直にC++Builder使っとけとか言ってみる。
0841Delモナー ◆fPymXWHY NGNG
>>835
あなたが「元祖」DELモナさんですか・・・。
この名を借りさせてもらいました。
このスレも立てさせていただきました。
勝手にしてｽﾏｿ。
0842デフォルトの名無しさんNGNG
Formをセンターに持ってくる方法って無いですか？

Form1.Position := poDesktopCenter;
では無く別の方法で求める方法です。

Formshowでこれをやろうとすると
「OnShow/OnHide イベントの処理中は表示状態の変更は出来ません」
って言うエラーが出るんです。

Screen.DesktopHeightなどから求められないかなと思いまして・・・
どうも上手くいかず。
0843デフォルトの名無しさんNGNG
>>842
いつフォームをセンターに持ってくるかは別にしてまずは
ボタンが押されたらセンターに持ってくるコードを書いてみたら。

フォームの幅・高さとScreen.DesktopWidth, Screen.DesktopHeightを
使えばセンターは求まる。
0844デフォルトの名無しさんNGNG
D6はほんと買いなの？
MyBaseはみんな使ってないつうか、使い方聞いても無視されちゃうし・・・
ちょっと愚痴、ｽﾏｿ
0845デフォルトの名無しさんNGNG
>>842
Form1.Top := Screen.DesktopWidth div 4;
Form1.Left := Screen.DesktopHeight div 4

これでいけました。
どうもありがとう御座います。

あってるかわからないけど・・
;
0846デフォルトの名無しさんNGNG
>>845
4ってどこから・・・。
0847 ◆fwK7enJI NGNG
>>845
　Self.Top := Screen.DesktopHeight div 2 - Self.Height div 2;
　Self.Left := Screen.DesktopWidth div 2 - Self.Width div 2;

これで中央によります。
0848846NGNG
>>847
だよね。
個人的には

Self.Top := (Screen.DesktopHeight - Self.Height) div 2;
　Self.Left := (Screen.DesktopWidth - Self.Width) div 2;

だけど。
0849デフォルトの名無しさんNGNG
>>844 Paradoxは使って見た？
0850デフォルトの名無しさんNGNG
>>844
漏れ仕事でつかってるけど買いだと思う。
DBクライアントつくるなら最強(ただしEnterprise)

MyBaseは単に使ってる人が少ないだけだと思うが（ｗ
C/S構成でCをSから切り離して動かすときとか便利そう。
時間が空いたら手をつけたいとは思っているが・・・

MyBase単独で使う分にはParadoxと大差ないと思われ
0851デフォルトの名無しさんNGNG
簡単なMyBaseの使い方。(これ以上を僕に訊かないでね。僕も知りませんから)

・TClientDataSetを配置する。
・ClientDataSet1のコンテキストメニューから「項目の設定」を選ぶ。
・出て来た小さい窓のコンテキストメニューの「項目の新規作成」でフィールドを追加。
・ClientDataSet1のコンテキストメニューから「データセットの作成」を選ぶ。(これでオブジェクトツリーの「？」が消える)
・TDataSet経由でTDBGridなんかに繋げば、編集できる状態になる。
・ClientDataSet1.SaveToFileでdfXMLを指定すればXMLとしてセーブできる。(デフォルトはバイナリーセーブ)
・ロードのときは一旦ClientDataSet1.ActiveをFalseにして読み込んでからまたTrueに。
・変更記録が延々記録されているので、時々はClientDataSet1.MergeChangeLogで整理。
0852デフォルトの名無しさんNGNG
>>838
　英数字以外を変数名に使うのは置いといて、
＞全部Public変数だし
　なぜ皆ここに突っ込まん（ｗ
0853デフォルトの名無しさんNGNG
簡単なメッセーンジャーを作ろうとDelphiに着手しましたが
>15のソースを実行しても出来ません・・・鬱・・・
あれ以外になにか宣言とかいるんですか？ちなみにエラー等はまったくで無かったです。
Del6Personalです。
0854デフォルトの名無しさんNGNG
>>852
おやじプログラマがよくやる。
Publicを覚えたらアホの一つ覚えみたいに使いまくるって奴ね
0855デフォルトの名無しさんNGNG
>>853 偽春菜を手に入れて ttp://www2s.biglobe.ne.jp/~wind_f/projectd/project1.htm
0856デフォルトの名無しさんNGNG
>>844
Delphiで一番気軽に扱えるDBは間違いなくParadox

でも、C/Sでクライアントの数が多いようなら
InterBase(FireBird)を使ってみるのもいいのでは
・・・IBXはくせがあるので最初はそれなりに苦労するけど
（dbXで接続するよりはずっと高速なのでやっぱりIBXがお薦め）
0857デフォルトの名無しさんNGNG
>>844
Delphiで一番気軽に扱えるDBは間違いなくTInifile
0858デフォルトの名無しさんNGNG
>>857
ｗ
0859デフォルトの名無しさんNGNG
>>857
質問です
TIniFileでDBGridを使う方法を教えてくだちゃい
0860デフォルトの名無しさんNGNG
あんまり触ってないがADOも結構よさげ。
BDEよりかは素直？な感じがする。
BDEは何回使ってもTransactionが挙動不審なような(鬱

ただし遅いがな。(Access2000で試したところ)

D6に移行してからは
　RDBMS : dbExpress(or BDE)
　お気軽アプリ : ADO or TIniFile（ｗ
てなかんじに切り分けてるかな。

あと、MyBase(MidasLib)使うと運用ライセンスかかるんじゃなかったけ？
値段忘れたが
0861デフォルトの名無しさんNGNG
もうDelphi7出るのかよ！
0862Delモナー ◆fPymXWHY NGNG
>>861
本当?初耳だよ。ソースは?

書き込みが02/04/01 23:59ってなってるんだけど・・・w
0863デフォルトの名無しさんNGNG
ぐ･･･漏れの会心のｴｲﾌﾟﾘﾙﾌｰﾙﾈﾀが不発に終わってしまった･･･
また来年頑張ろう･･･。
0864Delモナー ◆fPymXWHY NGNG
　 ∧＿∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　こんなもの作ってみたよ。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）

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

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

http://www2.to/source/ からも行けます。


>>863 やっぱりそうだったのね(w
0865寒い。　　NGNG
寒い。　　
0866デフォルトの名無しさんNGNG
URLDownloadToFileで応答が無いと、
その間、操作不能になるのですが、
もっと便利なヤツ、または操作不能にならない方法は無いですか？
0867clientNGNG
get
0868866NGNG
>>867
ClientSocketを使うのですね？
ありがとうございます。
使った事無いので調べてみます。
0869素数２NGNG
>>815です。
なんかできました。
とにかくなんでもTstringlistに入れて比較したら何とかなりました・・・みなさんありがとう。
勉強になりましたです。
0870デフォルトの名無しさんNGNG
Windowsの起動時にアプリを起動させるにはスタートアップやレジストリに登録させるなりして
起動できますが、Windowsの終了時にソフトを起動させたい場合はどうしたら良いでしょうか？
0871デフォルトの名無しさんNGNG
>>870
Windowsの終了を監視するアプリを常駐させておくくらいしか思いつきません。

でも終了処理中って新しいプロセスを起動できなかったような。
0872デフォルトの名無しさんNGNG
まあ、Delphiは１年ごとにバージョンアップするから、
秋頃に７が出ても不思議ではない。.NET対応？
0873デフォルトの名無しさんNGNG
>>872
Delphi.NETってより、密かにC# Builderの開発に余念がないと思われ。
Delphi7.NET対応->C#Builder->半年程度でDelphi8.NET発表 って構図な予感
0874デフォルトの名無しさんNGNG
(　ﾟдﾟ)ﾎﾟｶｰﾝ 　おらDel6Perosonal・・・
0875デフォルトの名無しさんNGNG
(　ﾟдﾟ)ﾎﾟｶｰﾝ 　スペルミスしてるし↑
0876デフォルトの名無しさんNGNG
すみません、QuickReportをもっと活用したいと思うのですが
Borlandから間接的にもソースを買えましたでしょうか？

それともフリー／シェアで、良いコンポーネントがあれば
ご紹介頂ければありがたいです。
ちなみに当方は、よくDBを組んでおります。
0877初心者ＢNGNG
>>870
Windowsタスクに登録すれば？
0878デフォルトの名無しさんNGNG
今日の朝Builder6届いたんだけどこれも認証あるのかな？
認証あった方が嬉しいんだけど。
0879デフォルトの名無しさんNGNG
>>878
なんで嬉しいの？
0880デフォルトの名無しさんNGNG
>>879

割れ物使ってる会社がヒィヒィ言い出すから

まあボーランドの認証はあってないような物だけど俺が嘘ついて
「１５日経過すると使えなくなりますよ」って脅す。
0881社長NGNG
>>880
ちみ、転勤ね。
0882デフォルトの名無しさんNGNG
>>876
LightRep
0883デフォルトの名無しさんNGNG
>>880
パーソナル使ってライセンス違反してる会社なら知ってるけど、
割物使ってるような会社が存在するのか？情けないね、倒産してみたら？
0884デフォルトの名無しさんNGNG
>>883　まあ会社ってさあ　社員雇ってると毎月必ず給料払わなければならないんだよ
　やってみれば判るけど、これってスゴイプレッシャーだよ。
　たいていの人間が起業したらトイレで流す水までウルサク言うようになるさ
　人売会社でもやれば別だけどさ
0885デフォルトの名無しさんNGNG
>>884
だからってやっていい事と悪い事がある。 【ﾀｲｰﾎ！
0886デフォルトの名無しさんNGNG
まるで政治家みたいだな。
0887デフォルトの名無しさんNGNG
>>853
いまさら遅いと思うけど同じ所で詰まったので・・・
あのページの下の方でサンプルをダウンロードできます。

で、ダウンロードしたやつを開いてみるともう少し微調整が必要なことが分かります。
0888デフォルトの名無しさんNGNG
Delphiで顧客データを扱うソフトを作らなくちゃいけないんですが、
どのようなDBがお勧めですか？
出来るだけ配布時に手間のかからない物が良いです。
BDEのインストールとかは避けたいですね。

実行ファイル単体で動く物にしたいと思います。
csvにしようかと思ってるのですが、中が丸見えだし・・・。

何かオススメありますか？
0889デフォルトの名無しさんNGNG
>>888
1000件程度なら普通にバイナリで保存しろ、適当な圧縮ライブラリ
拾ってきて使ったら、簡単な暗号化にもなるぞ。
んで、起動時に前件メモリに読み込んじゃえ。早いぞ！
0890デフォルトの名無しさんNGNG
前の派遣先でＶＢ使ってたんだけど、そこの一人がDelphi6Personal使って一部ＧＵＩ作って
そのま納品してたよ・・・これってライセンス違反だよね？バレル可能性はあるの？
0891デフォルトの名無しさんNGNG
>>890
あとでプロフェッショナルで組み直せば何ら問題なし。

0892デフォルトの名無しさんNGNG
>890
その人がその仕事で直接・間接的に給料をもらってなければ
良いんじゃない？

というか、これ「他人がやってる事だけど…」と言いながら
自分がやってることがばれるかどうか不安で書き込んでるじゃ…
0893デフォルトの名無しさんNGNG
>>849-851
MyBaseのレス、ありがとです。
確かにParadoxって手もありだが現行パッケージって売ってたっけ？
リンクして他の事もしたいのでMyBaseでやってみます。
でもレスが少ないとこみると、やっぱ使ってないんだろうね・・・
0894デフォルトの名無しさんNGNG
>>893 やくざさんへ

皆が言ってるパラドックスは　Paradoxテーブルを使って勉強しろという意味だと思うぞ
Demosにあるだろ？　あれを見てみたら？
0895デフォルトの名無しさんNGNG
おい、お前ら、マウスのホイールについて教えてください。

ホイール１単位回したときにスクロールする行数はMouse.WheelScrollLinesで取得できるけど、
１単位回したら一ページ分スクロールする設定であることを調べるにはどうすればいいんだ？
レジストリ見るしかないのか？
0896デフォルトの名無しさんNGNG
>>895
俺たちは、アプリ側でiniファイルを作成して独自に設定するようにしています。
0897デフォルトの名無しさんNGNG
>>891
開発自体が業務だから、問題あるだろ！ゴルァ！
0898デフォルトの名無しさんNGNG
>>888
どの程度のデータを扱うのか知らんけど、
MySQLあたりはどうかな？手軽で早いよ。


0899素数２NGNG
天本英夫って生きてたんだ・・・
0900素数２NGNG
済みません・・・・↑誤爆です
0901デフォルトの名無しさんNGNG
そろそろ次スレ準備しておいて！

早めによろしく！　＞やさしいモナー
0902デフォルトの名無しさんNGNG
自作メモコントロールを作りたいのですが、
ＩＭＥの変換ウィンドウを指定した場所に持ってくるにはどうすれば
良いのでしょうか。
0903デフォルトの名無しさんNGNG
>>902
IMM系API
0904デフォルトの名無しさんNGNG
>>902
SetImeCompositionWindow
0905Delモナー ◆fPymXWHY NGNG
>>901
　 ∧＿∧ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜　分かりました。
　（　　　　）　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）

次も立てさせてもらうよ。
すでに多少準備はしてあるんで。
0906（　´∀｀）さん NGNG
DelphiのPersonal版を製品版で買うのはお金がもったいないですかね？
やっぱり無料で手に入れる方がいいんですかね？
0907素数２NGNG
４８００円だから買ってもいい気がするけど。言語ガイドついてくるし
0908デフォルトの名無しさんNGNG
わざわざ店に出向いたり、注文して届くのを待ったりするより
ADSLでサクッと無料版落とした方が良いと思う。
言語ガイドはPDFだけど付いてるし。
言語ガイドを本にするためだけに4800円払うのはどうかと。
0909素数２NGNG
あっ、ＰＤＦでついてるんだ・・・知らな買った。
0910デフォルトの名無しさんNGNG
>>893
ParadoxはDelのPro以上なら普通に作成して使えるよ
（データベースデスクトップは製品版Paradoxのサブセット）
ローカルデータベースとしては十分に高性能
0911別に作るワケじゃないがNGNG
「解説・説明サイト」で使ってるデルファイの画像って無断なのかな？
いちいち断って使ってる人っているのかな？
つーか、気にするもんでもない？
やっぱりやり方ってスクリーンショットがあると無いでは大違いだと思うんだな。
0912デフォルトの名無しさんNGNG
アプリケーションの実行時画面のスクリーンショットにも著作権あるの？
ゲームとかならあるみたいだけど…
0913デフォルトの名無しさんNGNG
>>906
CDも無料で貰えるよ
Borlandに申し込んでみてん
0914デフォルトの名無しさんNGNG
初心者ならCD付き解説書を買うのが良いかも。
0915デフォルトの名無しさんNGNG
カーソル座標を取得したいんですが、以下のコードで
どこが間違ってるのか教えてください。Del6Personalです。

procedure TForm1.Memo1Click(Sender: TObject);
var
   i: Integer;
   p: TPoint;
begin
   Memo1.Perform(EM_GETSEL, 0, LPARAM(@i));
   Memo1.Perform(EM_POSFROMCHAR, WPARAM(@p), i);
   Caption := IntToStr(p.X) + ',' + IntToStr(p.Y);
end;
0916デフォルトの名無しさんNGNG
ListViewで、OwnerDataを使ってるときにCheckBoxの表示は出来ないのでしょうか？
0917デフォルトの名無しさんNGNG
>>915　EM_POSFROMCHARは、
　　　　　WParamに文字位置を入れて、LParamには0を入れます。
　　　　　で、戻り値にXとY座標が16bitずつ分かれて返ってきます。

DWord p = Memo1->Perform(EM_POSFROMCHAR, i, 0);
Caption = IntToStr(LOWORD(p)) + ", " + IntToStr(HIWORD(p));

（Delphiで書くとたぶん間違えるのでC++で書いてます）
0918915NGNG
>>917
ありがとうございます。私もたった今わかったので、自己解決レスを
書き込もうと思ったら、>>917さんのレスが．．．。
Del6付属のWinHelpにも、BorlandサイトのTipsにも

>WParamには、TPoint型の変数へのアドレスを渡します。

と書いてあるので、すっかり騙されてました。
Borlandもお茶目なことしますね。（w
0919デフォルトの名無しさんNGNG
ボーランド、品質が落ちたな。
0920デフォルトの名無しさんNGNG
>>918
>Borlandもお茶目なことしますね。（w

MS 製のヘルプが間違っていた（過去形）ことが原因
0921デフォルトの名無しさんNGNG
責任は転嫁するもの。
0922初心者ＢNGNG
質問です。
　TStringsから適当な行を取り出すことは出来るようになったのですけど、
　stringから適当な文字を取り出すにはどうやるのでしょうか？
0923デフォルトの名無しさんNGNG
>922 pos と copy を使います (マルチバイト文字用のもある)

var s:string;
var n:integer;

s:='適当な文字';
n:=pos('な',s);
result:=copy(s,n,High(Integer));
0924（　´∀｀）さんNGNG
>>913
DelphiのCD無料で貰えるんですか？
0925デフォルトの名無しさんNGNG
>>910
MyBaseを差してるのだから、BDE無しに興味があるんじゃないのかな？
あいにく僕は、D5proしか持っていないのでそれ以上のコメントが出来ないが・・・
0926デフォルトの名無しさんNGNG
>>923
Posなんか使わず全部AnsiPosにしる！



…今ソース公開されてるけど1Byte文字しか考慮されてない
コード直してる最中なんだよぅ(;´Д`)
0927デフォルトの名無しさんNGNG
>>924
もらえるよ
スターターキットって言うの
0928888NGNG
機能質問した>>888です。

１０００件以上データが有る場合はやっぱりデータベースが良いのでしょうか？
２０００件くらいになりそうなんですが・・・。

配布に手こずらずにもっとも手軽に扱える物って無いでしょうかねぇ・・・。
0929デフォルトの名無しさんNGNG
>>928　どんなふうにしたいかによると思うけど
1000件でもデータベース機能を使えば TDbGridが使えるし
SQLが使えるから検索・抽出はとても楽だ
自前でやると、そういうのを作らなければいけない。

まあ、作るのはたいした事ないけど
自分の勉強を兼ねてという事ならSQLくらい使えるようにならないとさ

0930デフォルトの名無しさんNGNG
えと、自分のアプリでしかつかわないデータを、
楽に管理したり表示したり編集したりするために
DBコンポーネントを使いたいのですが、
そういった場合でも利用者側のＰＣに
ＢＤＥをインストールしなければならないのでしょうか。
0931デフォルトの名無しさんNGNG
>>930 D5pro 迄ならそうだね ent 又は D6proなら MyBaseがあるだろう
0932デフォルトの名無しさんNGNG
>>930
たぶん駄目。
BDEやめて欲しい・・・。
0933デフォルトの名無しさんNGNG
>>931
MyBaseは配布時によけいな物付けなくて良いの？
商用じゃ無いから問題ないと思うけど

実行ファイル以外によけいなものくっつけるのいやだし・・・。
0934デフォルトの名無しさんNGNG
D6Pro持ってないから具体的には知らんけど
http://www.borland.co.jp/kylix/db/benefits.html

>アプリケーションを配布する際にも、面倒なコンフィギュレーションを必要としません。
>クライアントには、実行ファイルを配布するだけです。

>MyBase を使っても、アプリケーションのファイルサイズは 300K バイトしか増えません。
>MyBase は、他のデータベースエンジンファイルを必要としないため、アプリケーションを容易に配布できます。
0935デフォルトの名無しさんNGNG
TForm を独自拡張した TFormEx を使いたいとします。

IDE のツールバーにある「新規フォーム」で、この
TFormEx を出すようにするにはどうすれば良いでしょうか。
0936デフォルトの名無しさんNGNG
>>935 常にという事ですか？　リポジトリに登録して利用するんじゃなくて
0937デフォルトの名無しさんNGNG
よく判らんけど
”デフォルトの新規フォームを指定する”
でヘルプをひいてみたら
0938デフォルトの名無しさんNGNG
>>934
Delphi6proなんだけどMybaseって言うのが見あたらない

別途インストールしなくちゃ駄目なのかな
0939デフォルトの名無しさんNGNG
DBGrid使うだけでも配布にBDE必要なんですかね？
0940デフォルトの名無しさんNGNG
>>938 某のサイトで Kylixの使用レポートを丹念に読むといいよ
>ClientDataSetをフォームに張り付けて、名前をDSetにしましょう。
>MyBaseとして機能させるにはFieldDefsをクリックしてそれぞれフィールドを追加し、
>右クリックで作成することでできます。
0941デフォルトの名無しさんNGNG
>>939 データセットに BDE以外のもの　例えばMyBaseとか使えばそういう事はない

他には
http://www.torry.net/db_text.htm
0942Delモナー ◆fPymXWHY NGNG
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. 新スレ立てました。
　（　　　　）　.| ただし、このスレが980に行くまでは、
　｜ ｜ ｜ 　| 新スレはsageておいて下さい。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

新スレはここ
モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/test/read.cgi/tech/1017803412/
書き込みに一部失敗しました。ｽﾏｿ。

このスレの終わりが近くなったらもう一度知らせます。
0943デフォルトの名無しさんNGNG
>>933
前にｷﾞｺスレに書いた気がするが
MyBase(TClientDataSet)を配布するときはMidas.dllが必要になるが
MidasLib.dcuとスタティックリンクすれば実行形式のみで配布できる。
0944デフォルトの名無しさんNGNG
>>942
GoodJob!!

> 3と4が逆になってしまったー!!!
> >>3-4は逆にして読んでください。
これくらい(ﾟεﾟ)ｷﾆｼﾅｲ!!

こういうシリーズ物のスレ立てるツールってあれば便利なのにねぇ。
>1から>nまで、だーっと一気にnGetされることもなく書き込んでくれるヤツ。
0945Delモナー ◆fPymXWHY NGNG
>>944
ありがとう。
一応クリップボードのユーティリティを使ったが・・・。

あと、新スレの3
http://pc.2ch.net/test/read.cgi/tech/1017803412/n3
を30行に収めたつもりなのに、最後に余計な改行を入れてしまった・・・。
省略されてるよ。失敗。
0946デフォルトの名無しさんNGNG
なんかDB使うの面倒になってきた
csv使っちゃおうかな

でもデータ容量がもの凄いあるし・・・

アクセス使えないかな・・・
0947デフォルトの名無しさんNGNG
DelphiでDBはFireBird+IBXが最強、只だし
0948デフォルトの名無しさんNGNG
>>947
BDE無しでいける？
0949デフォルトの名無しさんNGNG
>>948
いける
アプリの配布はFireBirdのインストーラを別にすれば
exeだけでOk
0950デフォルトの名無しさんNGNG
>>949
出来れば別のインストーラーも無しで行きたいけど・・・
FireBirdって言うのでやってみるよ
0951ソケット ◆NIEdbLqs NGNG
いきなりですが
DelphiでSAPIを使い方等があるサイトありませんか？
0952デフォルトの名無しさんNGNG
>>950
ADOはだめなのれすか
0953デフォルトの名無しさんNGNG
↓InterBase(FireBird)スレ
http://pc.2ch.net/test/read.cgi/tech/1015250429/l50
0954デフォルトの名無しさんNGNG
>>952
VBの時はADO使ってたんです
MDB（Access）を使って
そういえばDelphiでもAdo使えたんだ
0955デフォルトの名無しさんNGNG
DelphiのAdoは不要な物をインストールとかしなくて良いんですかねぇ。
VBの時はAccess入ってないユーザーが使えないために7MBくらいのインストーラ作った覚えが・・
0956デフォルトの名無しさんNGNG
>>951
SAPIがスピーチAPIの事なら
ttp://www2s.biglobe.ne.jp/~Nori/vision/speech/

というか検索しろ
http://www.google.co.jp/search?hl=ja&q=SAPI+Delphi&lr=lang_ja
0957デフォルトの名無しさんNGNG
>>950
FireBirdのインストーラもただのexeファイルだし
（CD-Rにでも焼いておいて最小クライアントで一度インストールすれば終わり）
InstallShieldを使う必要もないから配布はとっても楽だよ
0958デフォルトの名無しさんNGNG
>>946　どうめんどくさいの？
0959デフォルトの名無しさんNGNG
>>955
漏れはいまADO(Access2000)で作ってるけど
BDEいれるよりはいいかなーてくらいで選択。
MSからﾀﾞｳｿﾛｰﾄﾞしる！とかいっても通用しそうだし（ｗ

よくわからんけど、Win2kとかなら標準で入ってるのか？>ADO
0960デフォルトの名無しさんNGNG
FireBirdって2.6Mしかないのか・・・
すげー魅力的だな
0961デフォルトの名無しさんNGNG
で、結局どうしたらイイですか？

・配布時にexeファイル以外不必要とする。（データベースのデータファイルは別）
・件数が１０００や２０００件行っても大丈夫。
・Delphi6proで扱える。
・出来れば中を見られない

この条件に当てはまった物です。

もうMybaseやらBDEやらAccessやらでぐちゃぐちゃです。
0962デフォルトの名無しさんNGNG
>>961　では宣託を与えよう

キミは MyBaseを使いたまえ
0963デフォルトの名無しさんNGNG
>>962
そういえばMyBaseってSQL機能持ってないですよね
0964デフォルトの名無しさんNGNG
>>963 yes
0965デフォルトの名無しさんNGNG
>>964
ぎゃふん！
0966デフォルトの名無しさんNGNG
一応ファイルを開くところまで行ったんですが・・・
データベースファイルってどうやって用意すれば良いんですか？
作り方です。

Adoの時はMDBをそのまま開いてたしアクセスで作成出来ましたけど・・・。
0967デフォルトの名無しさんNGNG
>>966 MyBaseがどうたらいう人ですか？　なら 名前欄で判るようにお願いします
MyBaseの話なら >>940

一般的には BDEなら　付属の　DataBase DiskTop　で作るのが簡単でしょう
　後、SQLが使える人なら SQLのCreate文を用意しておけば色々と楽です。
0968初心者ＢNGNG
>>923
では、文字列のN番目の文字の抽出方法を教えて下さい。
0969デフォルトの名無しさんNGNG
>>968 VBと同じようにやりたいなら AnsiStringsではなく 一旦WideStringにして使うといいよ
0970DBNGNG
>>967
名前付けました

やっぱりcsvなどのカンマテキストで数千件のデータを扱うのは無謀でしょうか？
0971デフォルトの名無しさんNGNG
>>970
　無謀ではないと思いますよ。
　ただ他人から見ると、検索とか一覧とか作り込む程になんて無駄な労力をかけてるのだろうかと

　一度 データベースコントロールを触ってみてから判断するといいでしょう
0972DBNGNG
>>971
だってexe以外に余計なものくっつけて配布出来ないし・・
MyBaseなら大丈夫なんだっけ？

やってみるよ。
0973デフォルトの名無しさん NGNG
ちょっとしつもん。Del5で、TComboBoxなのですが、
StyleをDropDownやDropDownListのままで
各行の色を変えたい(DrawItemを呼びたい)のだが、どうすれば良いですか？

切り口だけでも教えてください。
0974デフォルトの名無しさんNGNG
オーナードローを使いましょう。
OnDrawItem とかそんな感じのイベントがあるから、
Rect などの引数を元にして Canvas に描けばよいです。
0975デフォルトの名無しさん NGNG
>743

OnDrawItem イベントは，Style プロパティが csOwnerDrawFixed か
csOwnerDrawVariable の場合にのみ発生します。

なんですよ。なので、StyleがDropDownのままだと、
イベント自体が上がってこないのよ。

一応TWinControlからTCustomComboBoxの真似て作ってるんだが。
どうにも、思うようにならないのよ。
0976973NGNG
>975 の >743 は >974 の間違いですな。
0977デフォルトの名無しさんNGNG
>975⊃>974≠>743
0978デフォルトの名無しさんNGNG
ZLibを使おうとおもい、サンプルコードを書いたのですがナゼかエラーがおこります。どうしてでしょうか。

uses ZLib;
{ Edit1 ～ Edit5 と、Memo1、Button1 を配置する }
{ Edit1 に文字列を入力して Button1 をクリックすると、
Edit2 に圧縮前のバイナリ、Edit3 に圧縮後のバイナリ、Edit4 に展開後のバイナリ、
Edit5 に展開後の文字列が表示される。Memo1 にはサイズが表示される. }
procedure TForm1.Button1Click(Sender: TObject);
procedure ReportFmt(Fmt:string; Params:array of const);
begin
Memo1.Lines.Add( Format( Fmt, Params ) );
end;
var
P:PChar;
PSize, I:Integer;
POut:Pointer;
Ms:TMemoryStream;
begin
{ ストリームに文字列を読みこむ }
Ms := TMemoryStream.Create;
P := PChar( Edit1.Text );
Ms.Write( P, Length( P ) );

{ 圧縮 }
ZLib.CompressBuf( Ms.Memory, Ms.Size, POut, PSize );

{ サイズ報告 }
ReportFmt( '----------------',[] );
ReportFmt( '圧縮前 %d バイト', [Ms.Size] );
ReportFmt( '圧縮後 %d バイト', [PSize] );
0979９７８NGNG
{ 圧縮されたデータをストリームに書き込む }
Ms.Position := 0;
Ms.Write( POut, PSize );


{ 圧縮前のバイナリを表示する }
Edit2.Text := '';
for I := 1 to Length(Edit1.Text) do
begin
Edit2.Text := Edit2.Text + UpperCase(IntToHex(Ord(Edit1.Text[I]),2))+' ';
end;

{ 圧縮後のバイナリを表示する }
Ms.Position := 0;
Edit3.Text := '';
while Ms.Position < Ms.Size do
begin
Ms.Read(P, 1);
Edit3.Text := Edit3.Text + UpperCase(IntToHex(Ord(P[1]),2))+' ';
end;

{ 展開する }
Ms.Position := 0;
ZLib.DecompressBuf( Ms.Memory, Ms.Size, 0, POut, PSize );

{ 展開されたデータをストリームに書き込む}
Ms.Position := 0;
Ms.Write( POut, PSize );
0980９７８NGNG
{ 展開後のバイナリを表示する }
Ms.Position := 0;
Edit4.Text := '';
while Ms.Position < Ms.Size do
begin
Ms.Read(P, 1);
Edit4.Text := Edit4.Text + UpperCase(IntToHex(Ord(P[1]),2))+' ';
end;

{ 展開後の文字列を表示する }
Ms.Position := 0;
Ms.Read( P, MaxInt );
Edit5.Text := P;

Ms.Free;
end;
0981Delモナー ◆fPymXWHY NGNG
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. このスレはまもなく終了します。
　（　　　　）　.| 新たに質問をする場合は、新スレでどうぞ。
　｜ ｜ ｜　 | このスレはもうageないでください。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

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

>>978-980
長めのソースには、
ソース置き場用意したんで、そっちを使ってもらえたら・・・。
>>864 参照。
09821000NGNG
1000
0983デフォルトの名無しさんNGNG
埋め立て協力
0984デフォルトの名無しさんNGNG
984
0985デフォルトの名無しさんNGNG
985　
0986デフォルトの名無しさんNGNG
　　　　　　　／￣￣￣￣￣￣￣￣
　　　　　　　|　埋め立て
　　　　　　　＼
　　　　　　　　 ￣∨￣￣￣￣￣￣
　　　　　　　　　∧＿∧
　　　　　　　　 （　´Д｀）
　　　　　 　／⌒　　　　⌒ヽ
　　 　 　／_／|　　　　　へ　＼
　　　　（ぃ９ ./　　　　/　　 ＼ ＼.∧＿∧　 ／￣￣￣￣￣￣￣
　　　　　　　/　　　 ./　 　　　ヽ　（ ´Д｀ ）＜　しますた
　　　　　　（　　　　/　　　　　　∪ ,　　/　　　＼＿＿＿＿＿＿＿
　　　　　　 ＼　.＼＼　　　　　(ぃ９　　| ﾋﾞｼｯ!!
　　　　　　　 .＼　.＼＼　　　 /　　　 /　　,、
　　　　　　　　　 >　 ）　）　　./　　　∧_二∃
　　　　　　　　 /　／／　　 ./　　　　￣￣　ヽ
　　　　　　 　 /　/ /　　.＿/　 /~￣￣/　／
　　 　　 　　 /　/ /　)⌒ ＿ ノ　　 　 / ./
　　　　　　 （　ヽ ヽ　|　/　　　　　　 （　ヽ､
　　　　　　　 ＼__つ).し 　　　 　　　　 ＼__つ
0987デフォルトの名無しさんNGNG
　 　 ∧＿∧　　　　　　　　　　　　（(
　　 （　´Д｀）　　ｳﾒｰ　　　　　　　）　)
　　／ 　　　＼　　　　　　　　　　ノ
　　| |　　　　 | ＼　　　　　 　　(（　　((
　　| |　/⌒|⌒|ヽ二二つ　　　 ）　　　　）　丿
　　ヽ二二Ο./　　　　　 ＼　（(　(　　　ノノ
　　（＿|　|_|　|_　　　　　　　＼　∴∵
　　　 .（＿_)＿_)　　　　　　　／/》||ヾミ＼
0988デフォルトの名無しさんNGNG
　　 　 　 　 　 　 __
　 　 　 　 　 　 />､",::　…ﾋﾏだし…
　　　　 　 　 ,.-!`　<::
　　　　　　 /, ,､,､/,/::
　 　 　 　 / ,>､''' /!::
　　　　　 `´ﾉ ｀~ /::
　　　 　 　 /,>'　ﾉ::
　　　 　 　／ ／:::
　　　　　(　<::::
　　　　　 |＼＼:::
　 　 ＼　| ,!::＼~!:
　　　　 _,! i、:: '-':
　　 　 '-‐'´＼
0989デフォルトの名無しさんNGNG
　　　　　 　　　 ／⌒彡:::
　　　　　　　　/冫、　）::: ･･･埋めとくか･･･
　　　　　　　__| `　 ／:::
　　　　　 ／ 丶'　　ヽ:::
　　　 　/ ヽ　　　 /　/:::
　　　　/　/へ ヘ/　/:::
　　　 /　＼ ヾミ　 /|:::
　　　（__／| ＼___ノ/:::
　　　　　 /　　　　/:::
0990デフォルトの名無しさんNGNG
　　　　　　　v
　　　　　　(ﾟωﾟ)　＜そろそろ出番だな
　　　　　／(　 )＼　　　　　　　　
　　　　　　／'＼
0991デフォルトの名無しさんNGNG
埋め
0992デフォルトの名無しさんNGNG
|　 | ∧
|＿|Дﾟ)
|文|⊂）
|￣|∧|　992ｹﾞﾄ
0993♥NGNG
♥
0994デフォルトの名無しさんNGNG
　　　 Λ＿Λﾊｯ！　 ／￣￣￣￣￣￣￣
＿＿（ ；´Д｀)＿＿＜　9･･･994っ！
|　 〃(　つ　つ　　 | 　＼＿＿＿＿＿＿＿
|＼ ⌒⌒⌒⌒⌒⌒＼
|　 ＼ 　　　　　 　　　 ＼
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |____＿___＿＿＿__|
0995デフォルトの名無しさんNGNG
　あいやー
0996デフォルトの名無しさんNGNG
　　　　　　　v
　　　　　<(ﾟωﾟ)　＜うっ！
　　　　　　(　 )＼　　　　　　　　
　　　　　　／'>
0997デフォルトの名無しさんNGNG
　　　　　　　v
　　　　　　(ﾟωﾟ)>　＜はっ！
　　　　　／(　 )　　　　　　　　
　　　　　　　<'＼
0998998NGNG
　　　　　　　v
　　　　　<(ﾟωﾟ)>　＜うっ！
　　　　　　(　 )　　　　　　　　
　　　　　　／'>
0999999NGNG
　　　　　　　v
　　　　　　(ﾟωﾟ)／　＜はっ！
　　　　　／(　 )　　　　　　　　
　　　　　　　<'＼
10001000NGNG
　　　　　v 　　　　　 ｗ
　　　　(ﾟωﾟ)／ ＼（ﾟδﾟ）＜ｼﾞｰﾝｷﾞｽｶｰﾝ!
　　　／(　 )　　　　（　 ）ゝ
　　　　 <'＼ 　　　／　>

1001１００１Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。