Delphi相談室その４
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG■前スレ
Delphi相談室その３
http://pc.2ch.net/test/read.cgi/tech/1010153466/
■気楽な雰囲気がよければこちら
モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/test/read.cgi/tech/1017803412/
つづく >>2-3 あたり
0153デフォルトの名無しさん
NGNG0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNGその問題を修正するには Update1 で十分。ということ。
Update2 を当てればより多くの問題が修正される。
なお Update2 は Update1 を含んでいるので、両方落とす必要はない。
回線が太ければ両方落としてもよいけどね。
0156デフォルトの名無しさん
NGNG0157デフォルトの名無しさん
NGNGどうもありがとうです。
>>151-153
例外っていうのが、よくわからないのですが、とりあえず>>152の様にやってみます。
>>155
Air H"なので、Update1だけにしときまふ。
0158デフォルトの名無しさん
NGNGvar dmy1,dmy2:Integer;
・・・
val(Edit1.Text,IntBunshi[1],dmy1);
val(Edit2.Text,IntBunshi[2],dmy2);
if(dmy1<>0) or (dmy2<>0) then ShowMessage(E.Message);
と書く事も出来るよ。
ただし 動作は少し違う。
Edit1でエラーでも Edit2の数字が代入されてしまう
0159デフォルトの名無しさん
NGNG何故かE.MessageのEが未定義の識別子として怒られてしまうのですが。(苦笑
多分打ち間違えてないはず…？？？
Val() ってどうやって使うんですか？
>>151によれば数字かどうか判定するらしいですが、ヘルプを見てもｻﾊﾟｰﾘわからなかったので。。。
0160デフォルトの名無しさん
NGNGval(Edit1.Text,IntBunshi[1],dmy1);
val(Edit2.Text,IntBunshi[2],dmy2);
if(dmy1<>0) or (dmy2<>0) then ShowMessage('値が入力されていません') ;
val は数字なら 数字にして代入してくれて
数字でないなら 何文字目が数字でないと思ったかを３番目の引数で返してくれる
で３番目の引数が０かどうか見れば数字だったかどうかがわかるという事
0161デフォルトの名無しさん
NGNG前者
Exception(ExceptObject).Message
0162デフォルトの名無しさん
NGNG思うのですが、コンポーネントパネルのところに
Win32とか無いんです（激泣
無償版を落としたんですけどどうしてなんでしょう？
Standardはあるのですが、中にはFrameだけです。
それ以外のコンポーネントっていうのがありません。
おわかりになる方どうか教えてくださいです。
0163デフォルトの名無しさん
NGNG0164デフォルトの名無しさん
NGNGと書いて何の事か判らなければ、無視してね
0165デフォルトの名無しさん
NGNG再インストールしたら出てきました（あぅぅ
indyというのをインストールした際におかしく
なってしまったのかもしれないです。
今度は慎重にやってみます。
ありがとうございました。
>>164
すみません。
見る前にアンインストールしちゃってました。
今更遅いですよね？
お二方、厨な質問にお答え頂けてありがとうございました。
逝ってよし！と言われずに教えてもらえてよかったです。
0166デフォルトの名無しさん
NGNG0167デフォルトの名無しさん
NGNGｷﾀ━━(´ⅴ｀)━( ´ⅴ)━( ´)━( )━(´ )━(ⅴ｀ )━(´ⅴ｀)━━!!!!!
その方法でできました。
感謝感謝！
Val の用法もよくわかりました。
でも、
Edit1.Text := Bunshi[1];
Edit2.Text := Bunbo[1];
if (Edit1.Text1 = '') or (Edit2.Text = '') then
ShowMessage('');
の場合にエラーが出るのが理解できていないのですが、
↑はどうして悪いのですか？
例外と言われてますが、何の例外なんですか？
0168デフォルトの名無しさん
NGNG本によればInstallShield Express Borland Limited Japanese Editionという物を使うみたいなんですが、
それが見当たりません。
それは元々Delphiに付属しているものなのでしょうか？
付属しているとしたら、どこにあるんでしょうか？
0169デフォルトの名無しさん
NGNGどれとどれをまとめようと思ったのですか？
0170デフォルトの名無しさん
NGNG別に必要じゃないんだけど、試してみようと思って。
.pasとか.dfmとかあるでしょ？
それを一つにまとめられるんですよね？？？
0171パソナラー
NGNG0172デフォルトの名無しさん
NGNG0173デフォルトの名無しさん
NGNG0174デフォルトの名無しさん
NGNGもうすでにどこかに*.exeが出来てるはず。それを配布するだけ。
ただし、初心者は*.exeがどこにできるかわからんという罠。
0175デフォルトの名無しさん
NGNGhttp://www.geocities.co.jp/SiliconValley-Oakland/6548/
Lesson8参照
と再び自分のサイトを晒してみるテスト
0176デフォルトの名無しさん
NGNGどうもありがとう！
実行ファイル、見つかりました。
自動で作成されてるとは…
知らない間にそのアイコン見てました。(苦笑
>>175
おっ！
サイトがパワーアップしてる！
タブブラウザかぁ…(￣ー+￣)
0177素数２
NGNGインストールできねー と悩んでしまったら internetタブに既に在った。
あと SampleIconフォルダ って何処にあるのでしょうか。検索掛けても見つからなかった・・・
0178デフォルトの名無しさん
NGNGネタだろ。ネタだと言ってくれ。
Lesson6をもう一度、目を皿にして見直せ。
0179デフォルトの名無しさん
NGNG0180デフォルトの名無しさん
NGNGマジでマジで。
表彰したくなっちゃいましたよ。
んじゃ。
0182素数２
NGNG更新される前のキャッシュを見ていました・・・
0183デフォルトの名無しさん
NGNG(ﾟДﾟ)ｳﾏー
0184デフォルトの名無しさん
NGNG0185デフォルトの名無しさん
NGNGYahoo!Geocitiesの新ガイドラインを考える
http://kaba.2ch.net/test/read.cgi/news2/1003331784/l50
(ほとんど保守書き込みな罠... 過去スレログとか読んだほうが(･∀･)ｲｲ!です)
0186デフォルトの名無しさん
NGNGいいっすねえ。次はゲーム作り編とかやってほしいな。
0187175
NGNG俺自身素人なので、ひょっとしたら嘘教えているかもしれないという罠…
>>177
6proうらやますぃ…
じゃなくて、わかりました。書き足しておきます。
>>185
全然知らなかった…
もしジオでソフト公開したらどうなるんだろうか…
教えてくれてありがとです。
移転、検討します。
>>186
あっ、俺もゲーム編見てみたい。
でも俺はブラウザしか作ったことないので、まだ無理です…
0188デフォルトの名無しさん
NGNGobjExcel := CreateOleObject('Excel.Application');
with objExcel do begin
with objExcel do beginで
レコード、オブジェクトまたはクラスのいずれかが必要です
と怒られてしまうんですが、こういう使い方はダメ？
0189デフォルトの名無しさん
NGNG0190デフォルトの名無しさん
NGNG0191デフォルトの名無しさん
NGNG0192デフォルトの名無しさん
NGNG0193デフォルトの名無しさん
NGNG0194デフォルトの名無しさん
NGNG0195デフォルトの名無しさん
NGNG0196デフォルトの名無しさん
NGNG自分はDelじゃなくてBCBなんだけど、参考になったよ。
これからも更新頑張ってほしい。
サーバスペースだけど、自分鯖持ちだから用意できるっす。
で、連絡しようと思ったら連絡先が書いてない罠・・。
0197175
NGNGそういえば、メールアドレスとか書いてなかったっけ。
トップページに書いておきます。
ホントに貸してもらえるのなら、とても有り難いです。
でも、もし、「あれ？♥とか書いちゃって、こいつ女？」とか下心が有るのなら、アレです。
がっかりさせてごめんなさい。ちゃんとブランブランとした感じのが付いてます。
ついでに男食の趣味も無いです。ｺﾞﾒﾝﾅｻｲ。
しかもﾋｯｷｰです。
それでもよければ、おながいします。
と、真面目にお願いしてレスが返ってこなかったら悲しいから、
違う角度から攻めてみたとか言ってみるテスト。
0198デフォルトの名無しさん
NGNG0199デフォルトの名無しさん
NGNG0200196
NGNG>下心が有るのなら、アレです。
そんなんじゃないから大丈夫っすよーｗ
ついでに、男色の趣味ももちろんありません。
メールアドレス見つけ次第メールしますね。
0201Delフサギコ ◆zE1iiRdQ
NGNG～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜ しつもんっす。
UU"""" U U ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
FileExists('A:\')とか'A:'と入ると
> ---------------------------
> Sendtoinformation: SendToInformation.exe - ディスクがありません
> ---------------------------
> ドライブにディスクがありません。 ディスクをドライブ A: に挿入してください。
> ---------------------------
> キャンセル 再実行(T) 続行(C)
> ---------------------------
このような表示がされて迷惑なんで、、表示させたくないのですが
何か方法ありますか？
DirectoryExistsもダメだったです。
ディスクが入ってなかったらFileExistsにはFalseを返してﾎｽｲ
環境依存でしょうか？
0202デフォルトの名無しさん
NGNGかな。
0203デフォルトの名無しさん
NGNGGetVolumeInformation の帰り値で判定するとか
0204Delフサギコ ◆zE1iiRdQ
NGNGミ*ﾟДﾟ彡＜ サンクスコ！！>>202さん
ﾐ⊃⊃ ＼
～ﾐ ﾐ ￣￣￣￣￣￣￣￣￣
⊂'｀Ｊ ﾋﾟｮﾝ
｜｜
｜｜
ωωω
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
とりあえず、こっちで解決しました。
SetErrorMode(SEM_FAILCRITICALERRORS);
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=042840
このエラーモードってアプリ内で有効なんだろか？
ErrorModeを元のままにしておきたかったら
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=042823
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=042822
ここが参考になったです。
Windows.pasには
const
SEM_FAILCRITICALERRORS = 1;
{$EXTERNALSYM SEM_FAILCRITICALERRORS}
SEM_NOGPFAULTERRORBOX = 2;
{$EXTERNALSYM SEM_NOGPFAULTERRORBOX}
SEM_NOALIGNMENTFAULTEXCEPT = 4;
{$EXTERNALSYM SEM_NOALIGNMENTFAULTEXCEPT}
SEM_NOOPENFILEERRORBOX = $8000;
{$EXTERNALSYM SEM_NOOPENFILEERRORBOX}
こんな風に定義されてるっすね。
>>203さん
GetVolumeInformation 調べてみます。
0205デフォルトの名無しさん
NGNG0206デフォルトの名無しさん
NGNGドライブ一覧の取得をしたかったんだけど、
GetLogicalDriveStrings
で出来るっぽい事がわかった。
>>201-204
サンクスコ！
0207デフォルトの名無しさん
NGNGURLを忘れてしまいました。誰か知ってる方がいたら教えて欲しいのですが。
0208デフォルトの名無しさん
NGNGhttp://hp.vector.co.jp/authors/VA014436/prg_memo/delphi/c_d.html
http://www.ne.jp/asahi/nagoya/ahomaro/builder/index.html
http://homepage1.nifty.com/susho/windoze/datatype.html
http://www2d.biglobe.ne.jp/~katsu_k/borland.html
他色々ありました。
0209Delフサギコ ◆zE1iiRdQ
NGNG追加しときました。
∫
∧,,∧ ∬ ／￣￣￣￣￣￣￣￣￣
ミ,,ﾟДﾟノ,っ━~ ＜ パクリぺーじは元ﾌｧｲﾙに直ﾘﾝ。
＿と~,,, ~,,,ﾉ＿. ∀ ＼＿＿＿＿＿＿＿＿＿
.ﾐ,,,/~), .| ┷┳━
￣￣￣ .し'J￣￣|... ┃
￣￣￣￣￣￣￣ .┻ 堂々とﾊﾟｸるのはいかがなものかと。
0210Delフサギコ ◆zE1iiRdQ
NGNG起きないマシンがあって...同じ、Delphi6コンパイルのWin2kProだが。。。
∧,,∧ ／
ミ,,ﾟДﾟ彡 ＜ どういう環境依存なんだろ？
ﾐつ つ゛ ＼
＠ﾐ ﾐ
∪''∪ ま。いっか。
んで、ERRORMODEは
SEM_FAILCRITICALERRORS = 1;
SEM_NOOPENFILEERRORBOX = $8000;
どっちがええんや？
0211デフォルトの名無しさん
NGNGフィールドは何となくわかりました。
メソッドとプロパティってどういうもので、例えばどういう風に使うんですか？
0212デフォルトの名無しさん
NGNG言語ガイド嫁
0213デフォルトの名無しさん
NGNG>例えばどういう風に使うんですか？
つ、使ったことないの？
0214211
NGNG最近「Borland Delphi 6 オフィシャルコースウェア応用編」っていう、
アスキーから出てる本を読み始めたんですけど、最初にその内容が出てきて挫折。(泣
0215デフォルトの名無しさん
NGNGまず何か作ってみる方がいい気がする。
色々調べながら必要な知識を吸収していくうちに、
基本的な事も少しずつ分かってくるし、そういうやり方の方が遣る気を持続出来る。
0216デフォルトの名無しさん
NGNGこのDelphi1にはコーチというのが付いていて、
操作しながら覚えるというような形式のものだった。
今ついていたとしても NT系では動かないから 2000とか XPでは動かないだろうけど
こういうのをまた作ればいいのになあ・・・
それかオンラインソフト的に２千円程度で
0217211
NGNGでも知識がないので、作りたい物が作れないっす！(泣きぃ
今は時計が作りたいんですがね。
関数とかわからないんで、無理みたいです。(ﾌﾟ
Delphiの予約語の辞典みたいなのが欲しいところです。
そんなもんは存在してるんですかね？
書店には無かったんですが。
0218デフォルトの名無しさん
NGNG時計が作りたいなら、まずはこことか。
時間に関する関数はヘルプの
VCLリファレンス
ルーチン一覧（カテゴリ別）
日付時刻ルーチン
に載ってるよ。
0220211
NGNG一、 フォームを透明化にしても、ラベルの文字が透明化されない方法
一、 実行時にフォームを常に一番前に表示させる方法
よろしくお願いします。
0221デフォルトの名無しさん
NGNG>>211はなによりもまずDelphiについてるヘルプをよく読むことだな
フォームの透明化～はどうやって透明化してるかによる
フォームを一番手前はフォームのプロパティにある
0222211
NGNGDelphiのヘルプは難しいからなぁ。
読めるようになったら読みますぅ。
フォームの透明化はフォームプロパティのAlphaBlendとAlphaBlendValueでやっておりまする。
一番手前…あったあった♪
それと話戻るけど、メソッドはわかったじぇ！
よく使う処理とかをまとめておいて、値を受け渡したりできるっていうのだよね？
VBでいう、凡用プロシージャみたいな。
0223デフォルトの名無しさん
NGNG0224211
NGNG0225デフォルトの名無しさん
NGNGメソッドは クラスに対して指示するのに使います。
クラスメソッドと間違えないようにね・・・・なんて混乱させてみる。
0226デフォルトの名無しさん
NGNGモナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/test/read.cgi/tech/1019134412/l10
こっちの方がいいんじゃないの？「やさしい」だからして（藁
つーか、
＞メソッドとプロパティってどういうもので、例えばどういう風に使うんですか？
↑これが、どーゆー意味で書いてるのかが分からん。
0227デフォルトの名無しさん
NGNG0228211
NGNGとりあえず、メソッドはオブジェクト内部で定義された関数・手続きらしいね。
理解できないけど。（ﾌﾟ
>>226
Valを説明してくれてる>>160の様に日本語の説明と具体的な使い方が知りたかったのれす。
>>227
う～ん、ごめんなさい。
VBだと、Form1.Line x1, x2 y1, y1 みたいなのはメソッドって言いますよね？
プロパティはプロパティウィンドウに表示されてるﾔﾂがそうだけど、他にもあるんですよね？(泣
も っ と わ か り や す い 本 買 っ て き ま す 。 。 。
0229デフォルトの名無しさん
NGNG0230デフォルトの名無しさん
NGNGラベルの文字を一度ビットマップに書き出して、
それをスキャンしてリージョンを生成するのが一番手っ取り早い。
小細工みたいな方法だと、所詮実行結果も怪しい(「遊ぶDelphi2.0J」みたいに)
0231デフォルトの名無しさん
NGNGAlphaBlendとAlphaBlendValue では遅いし環境依存だし
自前で処理する方法考えた方がいいんじゃない？
0232デフォルトの名無しさん
NGNGだ か ら 、 メソッドも、プロパティも ヘ ル プ に書いてあるって言ってんだろうが！！！
0233デフォルトの名無しさん
NGNGＶＢわかるみたいだから、とりあえず、ＶＢユーザーの為のDelphi入門、みたいな本が
あったと思うから、そういうの見たほうがいいのでは？
持ってないから内容に関してはなんともいえないけど。
0234名無しヘタぐらま ◆B18Bks.Y
NGNGプロパティもメソッドもVBのとほとんど同じです．
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
begin
// 実行時にプロパティを読む，書く例
Edit1.Text := '｢' + Edit1.Text + '｣ ﾅﾝﾃｼﾗﾈｰﾖ! ｳﾜｧｧｧｧﾝ!!';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// Clear メソッド
Edit1.Clear;
end;
</PRE>
VBでもこれとそっくり同じことができる（はず）．
0235名無しヘタぐらま ◆B18Bks.Y
NGNGあれ？ PRE タグって埋められないのか（＾＾；恥ずかしい(///)．
２ちゃんでのタグの使い方ってどこに行けばあるのでしょうか…．
0237デフォルトの名無しさん
NGNG0238デフォルトの名無しさん
NGNG0239デフォルトの名無しさん
NGNG0240デフォルトの名無しさん
NGNG0241デフォルトの名無しさん
NGNG0242デフォルトの名無しさん
NGNG0243デフォルトの名無しさん
NGNG0244デフォルトの名無しさん
NGNG0245外人
NGNG0246デフォルトの名無しさん
NGNG0247デフォルトの名無しさん
NGNGCマガジンの2001年7,8月号にVBからDelphiへの移行(移植)の記事があります。
参考になると思うのでバックナンバーを取り寄せてみてはいかがでしょう。
0248デフォルトの名無しさん
NGNGやっとインストールが終わり起動してみる。
やたらと時間が掛かる。まぁ、他にもいろいろアプリ動かしてるから当たり前か。
そして翌日、パソコンを起動して、一番始めに起動してみる。
おっせぇぇぇぇぇぇぇ～～～～～！！！
どうやら我が家のCPUがヘナチョコなだけだったらしい。
でもせっかく買ったものだし、起動さえすれば困ることはないのでいろいろ頑張ってみることにする。
これだけだ、特に意味は無い。
0249デフォルトの名無しさん
NGNG(((( ;゜Д゜)))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
0250デフォルトの名無しさん
NGNG0251デフォルトの名無しさん
NGNG0252デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています