ミ,,゚Д゚彡フサギコのフサフサDelphi談話室�B
レス数が1000を超えています。これ以上書き込みはできません。
0001フサギコ
NGNG〜′,,,,,,,,,,ミ,,゚Д゚彡< DelphiやBorlandについて熱く語ろうや
UU"""" U U \_________
0002フサギコ
NGNGミ,,゚Д゚彡DelフサギコのフサフサDelphi談話室�A
http://pc.2ch.net/test/read.cgi/tech/1013298748/l50
0003フサギコ
NGNGDelphi相談室その4
http://pc.2ch.net/test/read.cgi/tech/1018211735/l50
Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/l50
0004フサギコ
NGNG ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄
∧,,∧,,,,,, ) (´;;
⊂ミ゚Д゚⊂ `つ (´⌒(´
"""""
Borland Delphi 6 Personal ダウンロード
http://www.borland.co.jp/delphi/personal/
Borland Kylix Open Edition ダウンロード
http://www.borland.co.jp/kylix/openedition/
JBuilder 5 Personal ダウンロード
http://www.borland.co.jp/jbuilder/jb5/download/
Borland C++ Compiler 5.5 無償ダウンロードサービス
http://www.borland.co.jp/cppbuilder/freecompiler/
0005デフォルトの名無しさん
NGNG0006デフォルトの名無しさん
NGNG0007フサギコ
NGNG〜′,,,,,,,,,,ミ,,゚Д゚彡
UU"""" U U
本当は、これで4のはずなんだけどなぁ。
でも�Aがあったんだから�Bができてもよかろうに・・・
まぁ、マターリとしていこうや。
0008デフォルトの名無しさん
NGNGミ,,゚Д゚彡DelフサギコのフサフサDelphi談話室�B
http://pc.2ch.net/test/read.cgi/prog/1012435004/
0009デフォルトの名無しさん
NGNGマ板にあるからだろうけど
すっかりネタスレになっちゃってるし
本スレというのは、もはやふさわしくないな〜
0010デフォルトの名無しさん
NGNG禿同
0011デフォルトの名無しさん
NGNGみんなはどうですか?
0012デフォルトの名無しさん
NGNG説明書読めばわかるがプロジェクトで設定。
0013デフォルトの名無しさん
NGNGhttp://415.teacup.com/hori/bbs
001411
NGNG0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNGまたDelphiで作られた代表的なソフトを教えてください。
0019デフォルトの名無しさん
NGNGかちゅ〜しゃ
0020デフォルトの名無しさん
NGNGdelphiで作られた有名ソフトって何がある?
http://pc.2ch.net/test/read.cgi/tech/990056026/l50
0021デフォルトの名無しさん
NGNG個人プレーで仕事してる人や
パッケージソフトを作ってるところでは
結構使われてるみたい
チームプレー重視のところだと「建前」でM$にせざるを得ないけど
そうじゃなければ効率重視だもんね
0022デフォルトの名無しさん
NGNGDelphi使いって変態さんの集まりですか?
0023デフォルトの名無しさん
NGNGプログラミングなんていう面倒な行為を好んでやる俺たちが
多少なりとも変態であることは認めるにやぶさかでない
0024デフォルトの名無しさん
NGNG0025デフォルトの名無しさん
NGNGCLXを使ったクロスプラットフォームに関するスレを立てたいのです。
具体的には、、、
ネットで検索すればVCLを使ったフリーで素晴らしいコンポーネントが山ほど見つかりますが、
しかしKylixで使えるようなコンポーネントは中々無く、またあったとしてもクロスプラットフォームで
無いものばかりです。
もし、優れたクロスプラットフォームなコンポーネント(あるいはクラス・関数)が数多くあれば、
マジでWindows←→Linuxなことが出来るのでは?
そんなわけでがんばって作ってみますです…
みたいなスレを立てたいのですが…
002625 ◆U3XM4e82
NGNG厨国語の使用&長文レススマソです。
実際問題、僕自身コンポーネントを作ったことが無い厨なので、
これから3日〜1週間ほどの間、こちらのスレのほうで何かしら
お邪魔させてもらってもよろしいでしょうか?
スレ違いでしたらモナスレか本家(?)相談室の方で
やっていこうと思うのですが…
0027デフォルトの名無しさん
NGNGいいんじゃねぇの
0028デフォルトの名無しさん
NGNG0029Delフサギコ ◆zE1iiRdQ
NGNG**をCLXで作ってくれなら
手伝えるかも。
LinuxのAPIとか知らんけど…
たぶん、Kylixで使えないコンポの中には
Kylixはもっていないので動作確認してないだけ。
とかいうのも、かなりあるかも。
....そでもないかな。
GUIが絡まなければ、クロスは容易なはずだけどね。
0030デフォルトの名無しさん
NGNG〜′,,,,,,,,,,ミ,,゚Д゚彡 <Delフサギコさんの登場ですか。
UU"""" U U
0031デフォルトの名無しさん
NGNG>LinuxのAPIとか知らんけど…
どっちのAPIにも依存しないのがCLXだと思われ。
だからCLX+標準手続き以外は使えないっす。
0032Delフサギコ ◆zE1iiRdQ
NGNG,,,,,,,,,,,,,,,,∧,,∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
〜′,,,,,,,,,,ミ,,゚Д゚彡 < よー、わかりまへん
UU"""" U U[大阪弁]_______________
Linux(or Qt)とWinと両方のコードを用意するのも
クロスの宿命かと.....
0033デフォルトの名無しさん
NGNG.NETとの兼ね合いもあるし某国としても解決は茨の道ですな。
0034デフォルトの名無しさん
NGNG0036デフォルトの名無しさん
NGNGデバッグの時に、ActiveXのバリアント型は評価できないの?
あと、IDLやらタイプライブラリを参照してどんなインターフェースやメソッドが
あるのか見ることはできないのでしょうか。VBのオブジェクトブラウザや、
入力支援機能みたいに。(入力支援はDelにもついてますけど、COMのクラスや
インターフェースについて)
それと、素朴な疑問なんだけど、ActiveXをインポートしてカプセル化して使う
ようですが、これってつまりはDispインターフェースを使ってないバインド方式
をつかってるってことなのでしょうか。VBで使うCOMは確かデュアルで作れって
MSDNで書いて書いてあったので、VBはDispインターフェースを使っているのだと
思っていたのだけど。 (VBはコンパイルすると早いバインドをするのでしょうか?)
以上、よろしくお願いします m(_ _)m
0037デフォルトの名無しさん
NGNGActiveX取り込み時にTLBが出来ているはずです。 それを見て下さい。
デバック時も、Delのオブジェクトとしてデバック可能です
OLEVariantでアクセスした場合の話は別の話です
例えば
var nm,obj:OLEvariant;
begin
obj:=WebBrowser1.OleObject;
nm:='http://pc.2ch.net/test/read.cgi/tech/1021554929/';
として obj.Navigate2(nm); とすれば当然VBと同じような方式の呼び出し方になります
普通は WebBrowser1.Navigate2(nm); とします
0038かおりん祭り◇IidAAeuI
NGNG0039デフォルトの名無しさん
NGNG004025 ◆U3XM4e82
NGNGヘルプ&Del4プロバイのコンポーネント作成に関するドキュメントを
軽く読んだだけけですが、コンポーネント作るのかなり大変ですね…
エディタでゴリゴリ作らなきゃならない、Object Pascalの文法を
ほぼ完璧にわかってないといけない、ある程度クラスライブラリについて
理解して無いといけないなどなど…
Delphian Worldで公開してる方々僕からしてみれば神だ…
スレ立ての承認ありがとうございます。
せめてTButtonから継承し、単純なプロパティやメソッドなどを
ひとつずつ持っているだけ…みたいな物ぐらい作れるようになったら
立てようかと思います。
0041デフォルトの名無しさん
NGNG(*
エディタでゴリゴリ作らなきゃならない、Object Pascalの文法を
ほぼ完璧にわかってないといけない、ある程度クラスライブラリについて
理解して無いといけないなどなど…
*)
いや、普通・・・。
まぁ、がんばろう。
004225 ◆U3XM4e82
NGNGCLXの中で普通にWinAPI使っているような気が…
(Delphi6-Source-ClxのQDialogs.pasとか…。)
コンパイラ指令使って、MSWINDOWS用とLINUX用の処理書いてやれば大丈夫かと…
ただ、ひとつの.pasファイルにWin用とLinux用の処理混在させるとソースが汚くなるし、
かといって2つに分けると、作るときに二度手間な箇所が増えてキツイ…
0043営農ギコ
NGNG速度が欲しいならプラットフォーム毎に書けばいいし。
0044Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ このあたりを、さらっと読めばサラサーティー
ミσ゚Д゚ミσ
●基礎からわかるDelphi5
三原 幸一 秀和システム \2,400 ISBN4-87966-937-7
これの6がでてる
●実践Delphiコンポーネントプログラミング
秀和システム出版編集部 秀和システム \2,800 ISBN4-87966-798-6
●Delphi 4 プログラミングバイブル
Marco Cantu 著篠原 慶 監訳 インプレス \5,680 ISBN4-8443-1273-1
これも6がでてる。
004525 ◆U3XM4e82
NGNG現在Del4プログラミングバイブルは図書館からのレンタルで手元にあり、
6版もすでに書店で注文済み(しかし到着予定2週間後…)
実践〜の方はコンポマターク作ったこと無い僕でも(とりあえずな)コンポ作れそうなヨカーン…
本買い過ぎて金無いんで、また近所の図書館に全部注文かけときます。
それまで頑張ってDel4プロバイの4部を読まねば…
ちなみにこんなの採取しますた
ttp://www.migaro.co.jp/rad/support/toptext.htm
このメルマガの第三回からコンポの作り方の入門程度を扱った連載してるデス。
0046デフォルトの名無しさん
NGNGそうしなくても普通には使えると思われてる言語なのかね、Delphiは。
いいのかわるいのか、微妙だ・・・。
0047デフォルトの名無しさん
NGNG0048デフォルトの名無しさん
NGNGまぁ、フリーのVBだと考えて入ってくると痛い目を見るぞと。
0049デフォルトの名無しさん
NGNG0050デフォルトの名無しさん
NGNGしかも勉強しないと本当の良さはわからない罠。
0051デフォルトの名無しさん
NGNGちと古いがコレが参考になる。
http://home1.infonia.ne.jp/~delphian/delphi/history/bookrank2/book.html
Del6Personalが出てきてからDelphi本が増えてきているみたいだから、
もう一度ランキングやってもいい気がするな
0052デフォルトの名無しさん
NGNGhttp://www.asahi-net.or.jp/~HA3T-NKMR/books.htm
0053デフォルトの名無しさん
NGNG>●実践Delphiコンポーネントプログラミング
これって今でも手に入る?
コンポの作り方だけじゃなくて、オブジェクト指向の勉強にもなるって言うから
けっこう気になってて前から探してるんだけど、見つからないよ・・・
漏れはコンポの作り方は、基本だけどDelphi2.0付属の「コンポーネント開発者ガイド」を
何度も読んだ。愛想はないけど読みながらいろいろやってると、だんだんわかってくるよ。
これも最近のDelphiにはついてこないのだろうか・・・・?
0054デフォルトの名無しさん
NGNGこの本なんかいいんじゃない?
http://www.ascii.co.jp/books/detail/4-7561/4-7561-4002-5.html
0055デフォルトの名無しさん
NGNG〜′,,,,,,,,,,ミ,,゚Д゚彡 <Borland Delphi6オフィシャルコースウェア好きだなぁ。
UU"""" U U
0056デフォルトの名無しさん
NGNGレスありがとうございます。 返事が遅くなってスマソ。
OLEVariantを使ってるとDispインターフェースで使うことになるわけですかぁ。
VC++のスマートポインタみないなもんなんだろうか。
ところで、新しい疑問なのだけれど、
Dispインタフェースを使ってDispインターフェースを使えますか?
つまり、OLEVariantは内部的にDispインターフェースの利用をインプリメント
してあって、ドット演算子(?)をオーバーライドしてあるわけですが、
このOLEVariantからGetIDsOfNamesなどを呼び出せるのでしょうか?
ATLだと、確かIDispatchは純粋仮想な親クラスなので自分で実装しない
限りは不可能なように思えますが、OLEVariantをDelのas演算子などで
キャストしてDispインターフェースを呼ぶこと等は可能なのでしょうか。
0057デフォルトの名無しさん
NGNG>Dispインタフェースを使ってDispインターフェースを使えますか?
この質問、よく考えたらおかしいです。
うまいことGetIDsOfNamesなんかを呼び出す方法を教えてください。
0058デフォルトの名無しさん
NGNGあれは何なんですか?
0059デフォルトの名無しさん
NGNG0060デフォルトの名無しさん
NGNG0061デフォルトの名無しさん
NGNGInprise
はい、URLを打ち間違えたことのある人は挙手すること。
0062デフォルトの名無しさん
NGNG夢ではありません
0063デフォルトの名無しさん
NGNGおかげでC#Builderとも言える製品が私たちの元へ。
0064デフォルトの名無しさん
NGNGOleVariant型変数からIDispatch型変数へ代入できませんでしたっけ?
あるいは直接キャストでもいけた気が。最悪TVarDataへキャストして中身を取るとか。
0065営農ギコ
NGNGBorlandをBolandと間違えたことあるっす
0066デフォルトの名無しさん
NGNG/ 丶
/ ノ、
/ /ヽ丿彡彡彡彡彡ヽヽ
| 丿 ミ
| 彡 ____ ____ ミ/
ゝ_//| |⌒| |ヽゞ
|tゝ \__/_ \__/ | | ________________
ヽノ /\_/\ |ノ /
ゝ /ヽ───‐ヽ / / >>65 そんなあなたにVisualBasic.NET
/|ヽ ヽ──' / <
/ | \  ̄ / \
/ ヽ ‐-  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0067デフォルトの名無しさん
NGNGRolandみたいだ。
0068デフォルトの名無しさん
NGNG0069デフォルトの名無しさん
NGNG0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNGTActionManager と
TActionMainMenuBar を使ってメニューを作っていますが
分割線を作れません。
TMainMenu だと、Caption を - にするとできたのですが。
教えてください。
0072デフォルトの名無しさん
NGNG0073デフォルトの名無しさん
NGNGオブジェクトツリー上で新規作成してそいつのキャプションをハイフンにするとか
0074デフォルトの名無しさん
NGNG一応、Captionはハイフンになっているのですが、
表示が分割線にならずハイフンで表示されてしまうんですよ。
ActionMenuBar や、ActionToolBar使うなって事ですかね。
0075デフォルトの名無しさん
NGNGプロパティくらい全部見てから物言ってくれ。
0076デフォルトの名無しさん
NGNG0077デフォルトの名無しさん
NGNGそういう事です。
0078デフォルトの名無しさん
NGNG007925 ◆U3XM4e82
NGNGこのfreeCLXって結局何なんでしょう?
やっぱりやっぱりクロスプラットフォームな事よりも
Linux環境をPascalで扱うためのプロジェクトなのかなぁ…
#しかしスレ立てるのホントにどうしよ?
#ム板の状況から判断する限り、これ以上スレ立てるのは本当に危険かも…
#この際自由にDelの話題を扱えるサイトを作った方がいいかなぁ…
0080デフォルトの名無しさん
NGNGこのスレには方向性が存在しないので
新スレたてるよりはこのスレを乗っ取るのがよいかと。
0081QQQ
NGNGできれば、DirectXをDelphiで使うみたいなやつですが?
008225 ◆U3XM4e82
NGNGマジですか
何はともあれ即興でサイト作ってしまいました
(痛い文章になってる事には触れないでホスィ…。今日はもう眠いっす)
ただ、無駄にトップページにアクセス解析張ってしまったので、気になる方は
串でも刺してくださいデス…
ttp://members.tripod.co.jp/utuboku/
今考えているのは、
�@CLXでテキストエディタの作成(機能も見た目もまだ全然駄目駄目。)
�Aもし�@の機能がそこそこ納得できるものにできたら、それを元に多機能なMemoコンポーネントの作成。
もちろんLinuxでも動くようにしたいっす…
0083デフォルトの名無しさん
NGNG知ってるかもしれないけど、DelphiでDirectXを扱うコンポーネント
ttp://www-fu.magma.ne.jp/~hayase/dddd/
これ使ったゲームは結構あるみたいだから…
Help見てよくわからなかったら、検索かけて入門サイトとか探してほしい…
0084デフォルトの名無しさん
NGNGサイトではないけど、
DelphiXの解説本。
ttp://www.shuwasystem.co.jp/books/wwwsrch/cgi-bin/content/952/index.htm
と、そのサイト
ttp://linux.yks.ne.jp/~hori/
ただし、DelphiXは、Delphi6ではそのままでは動かないので、少し修正の必要あり。
ところで、そこのDelphiX 掲示板って、ずいぶん前から死んでるよね?
「Delphiビジュアルプログラミング 秘密のテクニック150」って本の後ろのほうに、
堀さんからDelphi6対応版のアナウンスがあった。って書いてあるけど、
どこであったんだろう?
0085デフォルトの名無しさん
NGNG異色童子さんが移植してたような。
0086Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /Webアプリの
_ ミ,,゚Д゚彡_< ASPオブジェクトSessionとApplication
.=| |==U==U=| |= \の扱いはどうですか?
| |@ミ ミ .| |
| | ∪''∪ | | Session.OnStartとかある?
| | | | Sessionに自作クラスを入れたりとかは?
どとNETに移行考え中なんだけど
VCL実装を知っておきたいのです。
0087デフォルトの名無しさん
NGNG俺現在これで勉強中。
0088デフォルトの名無しさん
NGNG漏れ現在これで勉強中
0089デフォルトの名無しさん
NGNG(・∀・)カエレ!
0090名無し~3.EXE
NGNG詳しく分かりやすく紹介されたページってないですか?
例えば、
「画面に文字出力」→「ShowMessage」みたいな
0091デフォルトの名無しさん
NGNGとても参考になりました。
0092デフォルトの名無しさん
NGNG>>91 (*^ー゚)b だろ?
>>90
大雑把だけど、とりあえずこんなのもあるよということで
・ヘルプ目次→・VCLリファレンス→・ルーチン一覧(カテゴリ別)
目的のページが見つかるまでこれでがまんしる
0094デフォルトの名無しさん
NGNGいや、何となく気になっただけなんですけど。
0095デフォルトの名無しさん
NGNG0096Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ < AAはかけんぞゴルァ
二二二二ミ,,゚Д゚彡 \
ミつ/\ヘ ということで、
 ̄ _∬__ ̄ / //  ̄\ EmEditorっす・これでAAもバチシ
&____ノ \// \
\ 自分でPlugIn作って
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄| Em文字列とDelphi文字列を
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ 置き換えたりするライブラリ整備で急がしかりけり
でもDelphiでPlugIn作るとDLLがでかくなって
エヂタの起動が遅くなる罠に陥りかけっす。
Emは行ごとに
Modify情報をもつから、そのあたりのコード
プログルマ泣かせです。
かなりコッテリしぼられたよ。
0097マイケル�U世
NGNG0098デフォルトの名無しさん
NGNGそれは晒しageか?w
0099デフォルトの名無しさん
NGNGTTreeNodes や TTreeNode は TTreeViewなしで使えるのでしょうか。
TTreeView はアプリとしては利用したいのですが、表示したいTree構造を
必要に応じて Assign して入れ替えて使いたいと考えております。
Assign でやらないで、View に Tree のポインタを渡して再描画ってのが
理想なのですが、Delphi初心者なのでどんな方法が適切なのかわかりません。
具体的に実装部を以下のようにして見ましたが、これで問題ないでしょうか?
サンプルを探してみても、TTreeViewに付いてくるのを使っているものしか見
つかりませんでした。 (TreeNds:TTreeNodes;Node:TTreeNode)
TreeNds := TTreeNodes.Create(nil);
Node := TreeNds.AddChild(nil,'root');
0100デフォルトの名無しさん
NGNG使えるよ。
0101デフォルトの名無しさん
NGNGNode := TreeNds.AddChild(nil,'root');
でエラーがでて停止します。
TreeNds := TTreeNodes.Create(nil);
この式を実行後 TreeNds の中身を評価すると、'()'になってました。
ではオブジェクトが生成されていないような気がするのだけど。
ん〜。 なんでだろう。
0102デフォルトの名無しさん
NGNG>考えております。
これはTTreeNode"だけ"でやるべきだろ
木構造を表すのはTTreeNodeよ?
0103デフォルトの名無しさん
NGNGんー。TTreeNodesはTTreeNodeのコレクションですか。
確かに使う目的がちがいそうですね。
今TTreeNodeをCreateしようとしているのですが、成功しません。
TreeNds := TTreeNode.Create(nil);
とやっているのだけれど。
TTreeNodeはCreateの引数にTTreeNodeがあって、
TTreeNodesはCreateの引数にTCustomTreeViewがあるんですね…
0104デフォルトの名無しさん
NGNGTTreeNodeはCreateの引数にTTreeNodeがあって
↓
TTreeNodeはCreateの引数にTTreeNodesがあって
0105デフォルトの名無しさん
NGNGTTreeViewのLoadFromStreamとSaveToStream使うとかは?
0106デフォルトの名無しさん
NGNGうーん、でもそれだとロードされていない間はデータにアクセスできないです。
やっぱりTTreeViewを使わないとTTreeNodeは使えないんだろうか。
Webで探しても全然例がみつからん。
0107デフォルトの名無しさん
NGNGTreeView1.Items.Assign(TreeView2.Items);
ってやるしかないかも。
0108デフォルトの名無しさん
NGNGそうすると、このツリー構造のデータを扱うモジュールをフォームから
切り離せなくなるんだよなぁ。 おとなしくツリークラスを作るか…
0109デフォルトの名無しさん
NGNG0110デフォルトの名無しさん
NGNGありがとう、TComponentを調べて、ツリークラスを作ってみるよ。
0111デフォルトの名無しさん
NGNGOwnerにTreeViewを指定しないわけにはいかないんだな。
0112デフォルトの名無しさん
NGNGOwnerにnil渡しても問題ない罠。
0113デフォルトの名無しさん
NGNG0114デフォルトの名無しさん
NGNGNodeをAddするとあぼーん
Count見てもあぼーん
何してもあぼーん
0115デフォルトの名無しさん
NGNG0116デフォルトの名無しさん
NGNG0117ダックソン�U世
NGNG0118デフォルトの名無しさん
NGNGCNU's not UN*X.
0119デフォルトの名無しさん
NGNG0120ダックソン�W世
NGNG0121デフォルトの名無しさん
NGNG0122デフォルトの名無しさん
NGNG0123デフォルトの名無しさん
NGNG正解。
0124デフォルトの名無しさん
NGNG0125デフォルトの名無しさん
NGNGY
0126デフォルトの名無しさん
NGNG漏れはコンパイラの仕組みはよくわからないが、
うるさい程の厳密な文法が早さの秘密なのか?
0127デフォルトの名無しさん
NGNGPCの中にちっちゃいオッサンが200人ほど入り込んで処理するからです。
VBは16人くらいです。
0128デフォルトの名無しさん
NGNGSHARPポケコンPC-G850のBASICインタプリタならコンパイル時間ゼロ秒ですが何か?
0129デフォルトの名無しさん
NGNG0130デフォルトの名無しさん
NGNGただし本当に0なのかは分かりませんが。
0131デフォルトの名無しさん
NGNG一行書き込むごとにその行を中間言語へコンパイルしてるんでしょ
0132デフォルトの名無しさん
NGNG字句解析−構文解析−意味解析−実行
コンパイラで言う中間コードは存在するか微妙だね。
JITとインタプリタの差がかなり曖昧。
0133デフォルトの名無しさん
NGNG同じくらいの規模のDelphiの何倍も時間がかかりました。
C++はメシが喰える程の頃でしたが、VBでもコーヒが飲めました
インタプリタであっても、しっかりしたモジュール化がサポートされていないとサイズが
大きくなるとサイズに比例以上の速度で遅くなるようです。
0134デフォルトの名無しさん
NGNG通常のC++のコンパイラ等と違い、Pascalは1パスでコンパイル可能だから。
後は、コンパイル速度を著しく落とすような極端な最適化をやっていないから。
とか(ごめん、かなり適当)。
Borlandのコンパイラの速度は昔から速いことで有名だね。
0135デフォルトの名無しさん
NGNGC++ => プリプロセッサ => コンパイラ=>アセンブラ => OBJ でこれをリンカーが処理します
ヘッダが一つでも違うと、全てを再コンパイルからやりなおす必要があります
Delphiはこれらの工程を一挙に行います
また、pascal言語は先読する必要がありません
まるでアセンブラのように、1行解釈しては翻訳してゆけば良いのです
たとえば C言語だと、一つの関数でも 全部読まないと必要なスタックフレームのサイズが判り
ません。 だから昔のコンパイラだと、先頭で JMP文を吐いておいて、スタックフレームを一番
最後に作って先頭にJMPするなんてコードを吐いてました。
pascalだと beginの前に必要なスタックのサイズが判ります
0136デフォルトの名無しさん
NGNGvar siz:Integer;
begin
p:=PChar(s);
siz:=Length(s);
while Siz>0 do begin
dec(Siz);
case p^ of
{ShiftJisの第一バイト}
#$81..#$9F , #$E0..#$EF: begin
inc(p); //次の文字が {ShiftJisの第2バイト}でなければ
if p^ in [#$40..#$7E,#$80..#$FC ] then inc(p)
else begin Result:=false;Exit;end;
end;
{EOF }
#$1A:
begin Result:=True; exit; end;
#0:
begin Result:=false; exit; end;
#$09, {TAB}
#$0d,#$0a,{改行}
#$20..'~': inc(p);
else begin Result:=false;Exit;end;
end;
end;
end;
function MojiTest(s:string):string;
var p:PChar;
var isMoji:Boolean;
begin
isMoji:= isShiftJIS(s,p);
if isMoji then if p^ = #$1A then
isMoji := (Integer(p)-Integer(PChar(s))) <5;
if isMoji then Result:='たぶん文字' else
Result:=IntToStr(Integer(p)-Integer(PChar(s)))
+'文字目が$'+IntToHex(Ord(p^),2)+'だから変';
end;
var w:String;
begin
w:=Memo1.Lines.Text;
Memo2.Lines.Add( MojiTest(w));
w[random(Length(w)-1)+1]:=Char(random( 7));
Memo2.Lines.Add( MojiTest(w));
end;
0137136
NGNG0138Delフサギコ ◆zE1iiRdQ
NGNGミ,,゚Д゚彡
ミつ[|lllll]) SJISに限らず、テキストとバイナリが区別つけられないかしら?
〜ミ ミ
U U.
それはさておき、とある、EmEditorPlugInのDLLを
つくってまして、
usesからunitをはずして
チューニングしexeサイズを減らしてたら
そのPlugInがやたら不安定になってしまって
---------------------------
EMEDITOR.EXE - アプリケーション エラー
---------------------------
"0xff6400bf" の命令が "0xff6400bf" のメモリを参照しました。メモリが "read" になることはできませんでした。
プログラムを終了するには [OK] をクリックしてください
プログラムをデバッグするには [キャンセル] をクリックしてください
---------------------------
OK キャンセル
---------------------------
---------------------------
アプリケーション エラー
---------------------------
EAccessViolation がモジュール rtl60.bpl の FF63F0BF で発生しました。
アドレス FF6400BF でアドレス FF6400BF に対する読み込み違反がおきました。.
---------------------------
OK
---------------------------
こんなエラーが妙なタイミングで頻発するようになってしまいました。
rtl60絡みなので
D6UP2のせいかとおもって
D6アンインスコし、D6サイインストしたりしたのですが
症状、一緒ですた。
なんかぜんぜん直りません。
これって、何がどう悪くなってしまったのでしょうか。。。
ああ、もうさっぱり。
0139デフォルトの名無しさん
NGNG>SJISに限らず、テキストとバイナリが区別つけられないかしら?
前も書いたがEUCはWindowsではバイナリ扱い。
何をもってテキストファイルとするか決めないとまとまらない。
EUC SJIS JIS ASCII unicodeくらいか、最近使われてるのは。
0140デフォルトの名無しさん
NGNG> usesからunitをはずして
> チューニングしexeサイズを減らしてたら
これがいかんだろ。必要なunitまで削ったと思われ。
元に戻すべし。
0141Delフサギコ ◆zE1iiRdQ
NGNGミ,,゚Д゚彡 コンパイルエラ-が出ると思われ
ミ つ旦)~~ なんですが......
〜と,,,~),,~)
一休さんみたいに一休み一休みして
落ち着いて調べてみたらいいアイデア出るかな。
あと、isEUC,isJIS,isASCII,isUnicode
関数があったらええなー,,,
0142デフォルトの名無しさん
NGNG同じユニット名のソースがあちこちにあって別のユニットがリンクされてたというオチとか?
0143Delフサギコ ◆zE1iiRdQ
NGNG|Д゚彡 ヒトヤツミヒトヤツミしながら考えます
| U
| ミ 雑談スレという事で
| U 適当なカキコしてみるです。
別スレで話題になっていたので
C#と比べてDelphiの弱点とか
気になる点を言ってみるです。
・構造体?Object型?の扱いが中途半端
C#では構造体にもメソッドが使えるようになっているらしい?だっけ?
忘れたけど。
・名前空間の扱いが変、というか機能不足
自作でTComboBoxExとか作ってたとしたら
D6から標準搭載されてるから、どしたらいいの?
IndyだってTIdXXXって名前なんか変だよ。
・ファイル列挙が弱すぎ
俺は自作してるからいいけど
FindFirst、FindNextでループ回すコードが
きれいなわけない。
・Drag&DropがVCL標準で実装されてないとはトホホ。
IndyみたいにOLEDrag&Dropコンポーネントの権利ゆずってもらえ。
0144デフォルトの名無しさん
NGNG厨な質問ですいません。
Delphi6 自体はWindows XPでの動作を保証していないですよね。
互換モードで動かせってボーランドに書いてあったし。
では、Delphi6を使って作ったアプリケーションについてのWindows XPでの
動作というのはどうなるんでしょうか??
何かまずいところあるのでしょうか?
Windows XPでの動作をさせるための方法や留意点はありますでしょうか?
ちなみにデータベースデスクトップでParadoxを使ってのアプリケーションを考えています。
データベースデスクトップについて詳しく書いてあるサイトや本もご教授願えればと思います。
よろしくお願いします。
0145Delフサギコ ◆zE1iiRdQ
NGNG[環境オプ]にファイルパス通さなきゃいけないやり方は変だし
わかりにくいし、使いにくし
従来のIDEにインストールのやり方もいいけど
旧VBのようにプロジェクト毎に取捨選択
出来てしかるべきだと思われ。
・インターフェースがちょっと使い方、わからなさすぎ。
VCLで普通に使われてないから、
どうやってインターフェースつかったらいいかわかりにくい。
身近じゃない感じ。
・XML.
俺はいらんがいる人もいるみたいだから
エンプラ版じゃなくても簡単に使えるようにしてくれい。
・Webアプリ
シャルロット?
スクリプト言語に手を出すのが遅すぎた。
DelのWebアプリ開発
誰も使ってないから、ネットで情報を得ることも出来なくて
誰も使いはじめようとしない悪循環に入っている気がする。
どうしても、.NETやASPに比べて使おうという気力が沸かない。
・Formのサイズ制限の実装がいまだに変
結局WM_GETMAXMININFOで自作する必要がある。
些細な所で気になるよ。
当然.NETのWinFormはそんなことないし。
・ApplicationForm
今時…いいかげん昔のVCLの仕様を
引きずる必要ないだろうに。
.NETじゃ当然そんなのもないし。
|,,∧ C#と比べない所でも
|Д゚彡 もっと、便利な機能が
⊂ミ イパ^イホスイ
| ,;゙
|´ IDEエディタ部のソース公開とか
IDEダイアログページの部品のVCL化とか
0146デフォルトの名無しさん
NGNG開発してるってアナウンスあったよね?
まあ 素直にJAVA使った方がいいの当然だから辞めたのかな
0147Delフサギコ ◆zE1iiRdQ
NGNGミ,,゚Д゚彡 <XPで試し厨、ルナはOFFってますが。
ミ つ且~~
ミ,,__ ヾ モチカシシテ rtl60系エラーは
⊂二二二UU二二⊃ XPでコンパイルしてるからかしら?
まさか…
とりあえずフサの環境では
Delphi6自体の動作は安定してるようです
>Windows XPでの動作をさせるための方法や留意点はありますでしょうか?
あんまし聞いたことはないっすね。
0148デフォルトの名無しさん
NGNG>>141
>必要なunitまで削ったと思われ。
>コンパイルエラ-が出ると思われ
>なんですが......
そんなことないよ。
unit MyUnit;
interface
implementation
uses YourUnit;
initialization
YourUnit.ChangeSettings(...);
end.
このMyUnitをusesするとYourUnitの挙動が変るけど
usesしなくてもエラーにはならない。
0149デフォルトの名無しさん
NGNGまあそうは言っても・・・
標準でアレもコレもついてないから、
作ろうという意欲も湧くし
作れば愛着も湧くし、
そうこうしてるうちに作っても簡単ってレベルになれるし、
全〜部標準で、組み合わせるだけって、なんか楽しくないかもね
0150デフォルトの名無しさん
NGNG0151144
NGNG0152デフォルトの名無しさん
NGNGほぼ同意。
名前空間はすぐにでも何とかしてほしい。
ついでをいえばコレクションとかイテレータとかマップとか
Javaまでとはいわんがもうちょっと何とかしてほしい。
0153デフォルトの名無しさん
NGNGJAVAやC#のいいところを取り込んだ言語仕様にへんこうしてほしい。
0154Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧∩ /
ミ,,゚Д゚彡 < 同意してもらえますた。
U ミ \____________
@ミ ミ
∪''∪
イテレータといえば、
.NETでは
イテレータインターフェースを備えたものに対して
ForEach文が有効になるのかな。
その仕様も入れて欲しいです。
>>149さん
標準でアレコレついた方がRADとしては
いいんではないでしょうか。
全部標準でついてきても、その標準を超えてみるとか
違ったアプローチで実装してみるとか
たのしみはいくらでもありだと思うです。。
それに、.NETでは標準なのに
VCLでは海外コンポを使わなければダメ
っつのは、うれしくはないっす。
0155Delフサギコ ◆zE1iiRdQ
NGNG,,,,,,,,,,,,,∧,,∧ /
〜′,,,,,,,ミ,,゚Д゚彡< VCL標準でないから抑止欄
UU""" U U \_______________
そもそも、マップとかハッスってなんですか?
…また聞いても使わなきゃ忘れちゃうけど…
HashStringListはあるはずです。
が使ってないので、有用性がわからん。
Vectorは似動的配列というのは
この前教わったから
わかったようなわからないような感じ。
スタックやキューはD5から搭載だったかな。
0156デフォルトの名無しさん
NGNG0157デフォルトの名無しさん
NGNGmapは簡単に言うと連想配列。というか検索しれよ。
0158Delフサギコ ◆zE1iiRdQ
NGNG〜′,,,,,,,,,,ミ;゚Д゚ミつ ))) < ご、ごめんなスマソ
UU"""" U \_
誤爆じゃなくて、誘導してみたんですが。
わかり肉買ったすか。
連想配列…ググって検索しても使わないとすぐ忘れる罠に,,,,
あ・・・アボーン扱いですな。こりゃ。
連想配列が役に立つ場面を想定しなければいかんですのね。
0159デフォルトの名無しさん
NGNG0160デフォルトの名無しさん
NGNGhttp://www-ise2.ise.eng.osaka-u.ac.jp/~iwanaga/stl/map.html
0161デフォルトの名無しさん
NGNGアルゴリズムのライブラリなんて標準にしちゃったら、
確かに初心者には優しいかもしれないけど、それでいいのか?
と漠然と不安を持ってた。
しかしまあパソコンの性能は有り余ってるんだからそれでいいんだろうとも思った。
お仕事はそれでいいとも思った。
でも、Delphiが好きだったのは、そういうのを自分で作る楽しみがあったからかもしれない。
C++やJAVAでそういうの自作してたら笑いもの扱いだものね
0162デフォルトの名無しさん
NGNGDelphiもXMLやら正規表現やら標準ライブラリにあってもいいくらいだよ。
0163デフォルトの名無しさん
NGNG初心者に優しいのではなく可搬性が上がる。
STLは初心者に優しいとは思えんが。
0164デフォルトの名無しさん
NGNGHashStringList。。。
某はこのあたりは中途半端だね。
>>162
そう、正規表現が標準なのには驚いた。やっぱあると便利だよね。
0165デフォルトの名無しさん
NGNG0166デフォルトの名無しさん
NGNGでも、ひとたびライブラリにない問題にぶち当たると面倒に感じる罠。
0167Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /WinXPとD6で問題なさそうって言ったけど
ミ ,,ミ < うそでした。問題大有りだよ、この糞OS。
し ミ \
ミ 〜ミ
∪''∪
どうやらVCLの内部で例外がたくさん発生して
それをさばききれなくなっているらしい。
IDEからデバッグ起動したら
こんなメッセージがでますた。
同じDLLでWin2000なら問題なし。
XPの互換モードも効果なし...
---------------------------
情報
---------------------------
プロジェクト C:\Program Files\EmEditor3\EMEDITOR.EXE で一度に多数の例外が発生しました。
'access violation at 0xff6400c9: read of address 0xff6400c9'
プロセスは停止しています。再開するにはステップ実行または実行を選択してください。
---------------------------
OK ヘルプ(H)
---------------------------
でもって、XPのプログラムの落ち方がダメダメで
2000みたいにOSはなんとか落ちないって状態にならずに
D6が落ちたとたんに
タスクマネージャがGUIの足ひっぱって
全GUI道連れにしておちまする。。。。。
ダサダサOSだ。。開発にはまったく使えない。
0168デフォルトの名無しさん
NGNGいや、ダメとは言いませんけど…
折角DelphiはVCL(Classes.pas)使わなければ非常に軽くなるのに…
メモリーが勿体ないと思う時代は過ぎ去ったのですね…
Delphiで作られた.dllの例外を、別の言語で作られたEmEditor.exeがさばけないのは当然のような気が。
(例外そのものはWin32の機構ですけど、ObjectPascalのクラスにすぎないExceptionを経由して情報を渡しているから)
片っ端からtryで囲って.dllの中で例外を表示させてみるとか。
0169デフォルトの名無しさん
NGNGXPが悪いんじゃなくて、XPに対応してないDelphiが悪い。
0170デフォルトの名無しさん
NGNG0171デフォルトの名無しさん
NGNGまじかよ!!
でるふぁい駄目じゃん!
0172デフォルトの名無しさん
NGNG0173デフォルトの名無しさん
NGNG0174デフォルトの名無しさん
NGNGこういう拡大解釈も最近よく見るな…>>171も釣られなさんなって…
「Delphi.NETにランタイムが必要」というのもこの類の拡大解釈ではないかと最近思ってきました。
写真でusesにBorland.Vcl.〜と書いてあったのは事実ですが、スタティックリンクできないなんてどこにも書いてません。
記事を探しましたが大した事は書いて無かったし。
Delphi.NETで作られたアプリにはBorland.Vcl.〜.dllが必須と明記された記事があるなら教えてください。
事実無根ならBorlandを信じることにします。
( …これで実際に裏切られたら本気でC#に移行を考えないと…w )
0175デフォルトの名無しさん
NGNGVCL使ったDLL呼び出すとメモリリークする問題とか、
TThread使うとメモリリークする問題とかあったと思いますが、
それらはもう直ったんでしょうか?
0176デフォルトの名無しさん
NGNG釣られてるのはあなたじゃないんですか?
0177デフォルトの名無しさん
NGNG.NETでスタティックリンクってどういう意味?答えてみ。
0178デフォルトの名無しさん
NGNGC#でも csc A.cs B.cs でひとつのexeにくっつくじゃないですか。
dccilコンパイラがusesで書かれた先(.NETの名前空間やdllとは限らず、dcu相当の独自中間ファイルかもしれない)
をどう処理しようが別に構わないわけで。
まあ夢想でしかありませんけど。
0179デフォルトの名無しさん
NGNGこれを見ればわかると思うけど、ConvertIt.exeの中にBorland.〜ネームスペースの
クラスが一緒に入ってるよ。だからDLLは別途不要。
0180デフォルトの名無しさん
NGNG直ってないよ。
0181デフォルトの名無しさん
NGNGBorlandを信じていてよかったと思えた瞬間…
Microsoft.VisualBasic.dllだけでなくMicrosoft.VisualC.dllすら存在する状況下で
全く専用のdllが要らずmscorlibとSystem.〜にしか依存しないというのも
それはそれで疑問が…やっぱり巨大exeは健在か?(w
0182デフォルトの名無しさん
NGNG0183デフォルトの名無しさん
NGNG書き込み自体は久々ではないんだけどね...
0184Delフサギコ ◆zE1iiRdQ
NGNGClasses.pasはPluginによって
使ったり使わなかったりです..
StringListで処理させたい時もあるし,,,
__________
∧,,∧ /とりあえずClasses重すぎ....
ミ,,゚Д゚彡 < クラスとか
ミ つ且~~ \_詰め込みすぎじゃないかしら
〜ミ,,,,,, ,,ミ TStringList自作しても
結局TListは使うから..Classes使うのは同じなのかな。。
パケージってのは
実行時パッケージのことすか?
メモリがさすがにもったいなくなったので
usesのものは極力減らしてまするんですが
PlugInのモノによっては
PopupMenuを使いたくて
DataModuleに貼り付けて動的生成したりしてるもんすから…
>Delphiで作られた.dllの例外を、別の言語で作られたEmEditor.exeがさばけないのは当然のような気が。
じゃ…なんでWin2KはOKでWinXPはだめなんだろか..トホホ
>VCL使ったDLL呼び出すとメモリリークする問題とか、
はみつつです。(w
キシュツですか?
0185デフォルトの名無しさん
NGNG情報源きぼーん
0186デフォルトの名無しさん
NGNGDelphi MLとかC++BuilderMLとか
その他多数。すげえ有名。
0187デフォルトの名無しさん
NGNGTStringListはstd::stringとvectorかlistで簡単に自作できるから強いね。
0188デフォルトの名無しさん
NGNGあ、それはDelphiでもSaveToFileを手で書けば解決するでしょう
0189デフォルトの名無しさん
NGNGVCL無しでですか?
0190デフォルトの名無しさん
NGNG次に出るDel7では少しだけ.net対応になるんだろ?
少しだけってどれくらいなんだ?
そしてKylix3にC++Builder混入疑惑…
某板のコロスケ刷れでも話題だが、どこまで扱えるんだろう・・・?
0191Delフサギコ ◆zE1iiRdQ
NGNGイヤーン 少しダケヨーン
∧,,∧
ミ゚Д゚*ミ
ミ⊃ ⊂ミ
〜ミ ▼ ミ
U U 〜●・●〜
それぞれ名前は忘れたわ
Del7ではコンパイルしたとき
.NET用のバイナリも出力できわ
>>だからWinCEとかでも動いたり動かなかったりするらしいわ
Del.NETでは
.NET用クラスライブラリをDelphiから使えるわ
VB<>C#<>Delphi相互のクラス利用が可能のようよ
って認識。違うかしら
Kylix3はLinux版Delphi+BCBだと思われよ
0192デフォルトの名無しさん
NGNG>.NET用クラスライブラリをDelphiから使えるわ
>VB<>C#<>Delphi相互のクラス利用が可能のようよ
俺はフォームデザイナがWindows.Formsに対応できてないだけと睨んだけど。
Pascal.NETとしては使えるが今のC#SDKのような悲しい環境で。
っていう話だと理解してた。
0193デフォルトの名無しさん
NGNGそんなもんつかうやついるはずないよ。
君の理解はまちがい
0194デフォルトの名無しさん
NGNGDelphi.NET
->従来のDelphiソースを.NET用にコンパイルできるミラクル環境。
0195デフォルトの名無しさん
NGNGだったらBorlandマンセーなんだけど
VB6とVB.NETみたいな悲しい関係になってほしくないなあ
0196デフォルトの名無しさん
NGNG0197デフォルトの名無しさん
NGNGVB.NET -> .NET対応を重視 -> 従来ソースとの互換性が・・・。
Del.NET -> VCL対応を重視 -> .NETとの互換性が・・・。
行き着く先はC#なのさ。
言語開発スレの新言語が.NET対応になったらもしかすると・・・。
0198デフォルトの名無しさん
NGNG従来のソース資産は普通、関数とかせいぜいTObject継承でしょ?
0199デフォルトの名無しさん
NGNG.NET対応を重視するとすべての言語がC#の文字面を変えただけのものになってつまらん。
ぜひともVCLとの互換性を重視してほすぃ
0200Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ ∬ /プレゼンから想像するのも
ミ,,゚Д゚彡っ━~ < ファンならではの楽しみ
_と~,, ~,,,ノ_. ∀ \ ですね
ミ,,,,/~), │ ┷┳━  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
 ̄ ̄ ̄ .じ'J ̄ ̄| ┃
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ┻
http://homepages.borland.com/aohlsson/BorCon2002/RAD1115.html
Pascal.NETじゃないし
VCL互換は保持するでしょう。
.NETでもAPIは使えるんだし。
VCLソースをCILコンパイラってのを通せばいいだけかも。
0201デフォルトの名無しさん
NGNG>Also included in DCC32 compiler in Delphi 7
>・Nested types
…classの中でさらにclassが宣言できる?
>・Namespaces
…Borland.Vcl.StdCtrlsみたいにunit名が階層化できる?(ネイティブのときも使えると嬉しいですね)
>・Garbage collection
…流石にCLR上で動かす場合だけでしょ…ネイティブの時は恐らく無関係?
>・Class properties and fields
…今まで書けなかったclass propertyが書けるようになる?
Delphi for .NETの方に100% CILと書いているということは
Delphi 7 の.NET対応はWindows依存の部分が残っているということでしょうか
Windows.pasがそのまま使えたら、API宣言付きC#みたいなもので最強かも
0202Delフサギコ ◆zE1iiRdQ
NGNG_____________
∧,∧ ,:: /
ミ,,゚Д゚彡っ━'~ | コンパイラ切り替え式じゃないかしら?
ミ∪ ~,ノ < Delphi for Winと for .NETは別Exeになるかもね。
ミ '' ミ \____________
し'~し'
0203デフォルトの名無しさん
NGNG_i'__`i
ミ,,゚Д゚彡
(ミ Hip ミつ やってきたぞ!Delphi最強!片っ端から投げ散らすぞ!
ミ Hop ミ
∪ ∪ イエーイおまえらシコシココード書いてますかぁ?イエーイ
0204デフォルトの名無しさん
NGNGttps://sourceforge.net/projects/delphinet/
0205144
NGNGげええ。Delphi6でWindowsXPで動くアプリケーションを作ることになっているのですが
やめた方がいいの??? 業務用アプリだからやばいよなぁ。。。
0206デフォルトの名無しさん
NGNGいやそんな書き込みだけ見て判断してはいけないよ。
DLLをプラグインとして使う場合、内部で例外が出ても、それを
DLL内部でキャッチしてDLL外に出さないようにしないとダメとか
そういう細かい当然やるべき事をやってる上での事かどうかとかそういう情報と込みで見ないと
0207Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ やり方がわかりません鬱
ミ,, 彡 鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱
ミ ∪ 鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱
ミ〜,, ミ 鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱
∪ ∪ 鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱鬱
0208デフォルトの名無しさん
NGNGtry catch
0209デフォルトの名無しさん
NGNG俺はそのエディタのプラグインの事は判らないんだけど
EMエディタから呼ばれる関数・手続きがあるだろ? それを hoge とする
procedure hoge( dt:THogeData);
begin
try
except
// 出来ればここで、キャッチしたエラーをデバック中はログに吐くとか
// (ログに吐くのはVCLを使わずにAPIでやらないと意味がないけどね)
// せめてメッセージを出すとか
on E:Exception do MessageBox(0,PChar(E.Message), 'HogeDLLでエラー', MB_OK );
else MessageBox(0,'鬱・・何だか判らん', 'HogeDLLでエラー', MB_OK );
end;
end;
Delphiの例外は、APIの構造化例外で処理されてるから
こういうふうに、全部例外をDLL内で処理しないと exe側でキャッチされてしまう
で、exe側でキャッチしても、当然例外オブジェクトの扱いが違うから
鼻から悪魔が出る事もあると
そういや DLLの作成時にUNITのinitialization 節が 実行されない不具合直ってるみたいだ
0210デフォルトの名無しさん
NGNG基本的にこういうのは別のメソッドにしとくといい
0211デフォルトの名無しさん
NGNG0212デフォルトの名無しさん
NGNGそんなことはわかってると思うよ。
例外処理をしたってそのDLLがWindowsXPでは正常に動作しないことには
なんら変わりがないと思うが。落ちないだけで。違うのかな?
0213デフォルトの名無しさん
NGNG何かDLL側の潜在的なバグで例外が出てるのに
エディタ側は構造化例外をキャッチしてないのだと思うけどな
0214デフォルトの名無しさん
NGNGwindowsXP上でDelphi作成アプリを動かすと問題があるって
話は見つからないよね?大丈夫なのかな?
0215デフォルトの名無しさん
NGNGVisualStyleを使用しなければ基本的に問題ない。
ただし某のサポートは受けられない。
0216デフォルトの名無しさん
NGNGpascalならあるんですけど授業と食い違うんですよ
0217デフォルトの名無しさん
NGNG6なら落とせる。
0218デフォルトの名無しさん
NGNG0219デフォルトの名無しさん
NGNG0220デフォルトの名無しさん
NGNG>大卒には必須の知識ですが?
取りあえず鉱石学部の奴に謝れ。
0221デフォルトの名無しさん
NGNGまぁDelphiはPascalじゃなくてObjectPascalだからなぁ。
でもdcc32使って、{$APPTYPE CONSOLE}しとけば、
いわゆるガッコウでやるようなPascalとほとんどかわらんだろ。
かわるとしたらファイル入出力とかかな?
標準Pascal
Reset -> Read or Readln -> Close
Rewrite -> Write or Writeln -> Close
ObjectPascal
AssignFile -> Reset -> Read or Readln -> CloseFile
AssignFile -> Rewrite -> Write or Writeln -> CloseFile
だったかな?
0222デフォルトの名無しさん
NGNGTFormにこれらのプロパティやメソッドがあるから別名としてTextFile/AssignFile/CloseFileもあるだけで。
0223デフォルトの名無しさん
NGNGしかしこれ見るとdel6にはほとんどいいとこねーな…
ウリだったCLXも使ってる人は少数派だろうし
0224デフォルトの名無しさん
NGNG俺はPersonalで初めてDelphiに触れたんで、FreeのDel6Personalは
大きな意味があった。
ありがとう、Borland。
0225いさかじゅうぞう
NGNG同じく。
0226デフォルトの名無しさん
NGNG0227デフォルトの名無しさん
NGNGタカラ、ギコ猫を商標登録していた!
http://news.2ch.net/test/read.cgi/newsplus/1023008632/
★ギコ猫略奪!強欲、極悪企業タカラに対抗処置を!
http://school.2ch.net/test/read.cgi/shikaku/1023008580/
スマソ モウシマセン。
0228デフォルトの名無しさん
NGNGhttp://aa.2ch.net/test/read.cgi/mona/1023024788/
0229営農ギコ
NGNGCLXは「今後」使う人が多くなるでしょ。
早くBCBのLinux版キボンヌ[w
0230デフォルトの名無しさん
NGNGLinuxイラナーイ
0231デフォルトの名無しさん
NGNG0232デフォルトの名無しさん
NGNG0233デフォルトの名無しさん
NGNG0234Delフサギコ ◆zE1iiRdQ
NGNGA | ・・・・イヌTAKARA・・・・
K |彡
A ⊂ミ
R |ミ
A |J
0235デフォルトの名無しさん
NGNG顔文字/AA板出身の俺としては『宝頃すけ』だ。
一人寂しく宝鯖にDoS攻撃スクリプトでアタックしてるよ…
逮捕されても良いさ
#スレ違い書き子スマソ
#(逮捕されに)逝って来ます
0236デフォルトの名無しさん
NGNG0237Delフサギコ ◆zE1iiRdQ
NGNG| A |∧,,∧ 正直.フサもアタク
| K ミ*゚Д゚ミ したかたかも。
| A |⊂ ミ
| R | ミ
| A=@|゙゙∪
0238Delフサギコ ◆zE1iiRdQ
NGNG●∩∧,,∧ アタックNoワン
ミ゚Д゚,,ミ ↑犬だから
ミ ,つ
 ̄  ̄ ミ゙゙_ ミ〜 ト  ̄  ̄  ̄
∪゙ヽ ミ オ
/ ∪ \
/ : オ
/ || . ォ \
/ | : ォ \
/ .
| . ォ
あたっく〜〜♪ あたっく〜〜♪
なー♪、んばー♪ わーーん♪
♪ ∧,,∧ ♪
ミ,,゚Д゚彡 ♪
ミつ[|lllll]).
〜ミ ミ
U''U 記念カキコ
http://dailynews.yahoo.co.jp/fc/entertainment/toys/
0240西村博之
NGNG考慮すべきで(事実上の作者である)ネット利用者の気持ちも分かるはずだ。
これまでもアスキーアートを使ったグッズや書籍などが生みだされている。
そういった自由にキャラクターを育て、自由に使える状況を存続させていきたい」
0241デフォルトの名無しさん
NGNGトッキョじゃなくてショウヒョウだと思われ。
0242Delフサギコ ◆zE1iiRdQ
NGNGhttp://itpro.nikkeibp.co.jp/free/NSW/NEWS/20020603/2/
_______________
,,,,,,,,,,,,,∧,,∧ /
〜′,,,,,,,ミ,,゚Д゚彡< Monoっぽいのが出来るかな?
UU""" U U \_______________
0243デフォルトの名無しさん
NGNG>アピール材料は十分仕入れてきたようだ。
だって (w
Delphi 生き残れんのかな〜?
Kylix もいまいちのような気がするし...
(これは Linux とも絡むが)
Delphi 1.0 発表時の「これだ!」っていう衝撃がない。
なんとかせ〜 > Borland。 信で下さい > MS。
0244デフォルトの名無しさん
NGNG最近のバージョンアップは不満。
0245デフォルトの名無しさん
NGNGMSが氏ぬとBorlandも氏にます。
0246Delフサギコ ◆zE1iiRdQ
NGNG>最近のバージョンアップは不満。
ミ ゚Д゚彡、同意同意.
MSの著しいVerUpをみせつけられたら
某何やってんのかと思われ
(Kylixに足はひっぱられたんだろうが)
リファクタリングとかJBで取り入れてるくせに
XP的ユーザーの意見反映が
ちっともなされてなくて鬱。
0247243
NGNG不覚にもワラタ..... 現実を直視するとコワイ。
Win 止めて Linux へ行きます。 誰か仕事くれ〜。
でも Kylix2 へはバージョンアップしないぞ!
Kylix4 まで待ちだな....
0248デフォルトの名無しさん
NGNGC#に移ります。delphiさようなら。
0249デフォルトの名無しさん
NGNGどうだろう? Win32APIは十分に枯れているから
今現在、 windows互換OSを作るのは難しい事じゃないだろうし
それが間に合うまで、とりあえず緊急にはWIN95のUpdateキット
でも出せばライセンス数的には十分だろう
今MSが潰れて泣くのはXPユーザと、C#に期待してる人売業者
だけだろう。
0250デフォルトの名無しさん
NGNG0251デフォルトの名無しさん
NGNGまたQtで作るのかな?
だったらGNOMEマンセーのXimianとはうまく棲み分けられそうだけど。
問題は、Monoの成果を搾取してまたBlackdownの悲劇を繰り返さないことだけ。
0252デフォルトの名無しさん
NGNG0253デフォルトの名無しさん
NGNG消えろ
0254デフォルトの名無しさん
NGNG上げんなカス。(嘲笑激藁
0255デフォルトの名無しさん
NGNGTAKARAみたいな企業だ。(嘲笑禿藁
0256デフォルトの名無しさん
NGNG>Borlandってオープンソースの成果盗みまくり。
企業が使っちゃいけない理由はなし。
0257Delフサギコ ◆zE1iiRdQ
NGNGミ ゚Д゚彡 もっとユーザーサイドコンポーネントを
標準コンポとして利用しる
0258デフォルトの名無しさん
NGNGMSのソフトがgzip使ってたってお話聞いたことない?
0259デフォルトの名無しさん
NGNGMSはユーザーに貢献してるから許されるんだよ。
0260デフォルトの名無しさん
NGNGマイクロソフト
マイク ソフト
マイ クソフト
マイ クソ太〜
0261デフォルトの名無しさん
NGNGDelギコはC使えますか?
Delphiスレなのに関係ない質問御免!
でもぜひ聞いてみたい・・・
0262デフォルトの名無しさん
NGNG0263デフォルトの名無しさん
NGNG原因を特定することさえ不可能だと思われるメモリリークを
自ら作り込んだ後に、軽やかな、しかししなやかな演出で
自らリークを解消し周囲の絶賛を受けることができるのか
ということ。
0264デフォルトの名無しさん
NGNG0265デフォルトの名無しさん
NGNG0266デフォルトの名無しさん
NGNG0267デフォルトの名無しさん
NGNG安心しろ、Del系の書籍が少なすぎ&Helpが初心者向けじゃないから
大方のDelを使う奴は他のオブジェクト指向言語をある程度は使える。
ついでに言うとKylixを使用している奴の場合、何かとC・C++の知識は必要。
とネタにマジレスしてみるテスト
ところで今現在Kylix使っている奴いる?
色々な理由でKは小物ツールを作るには向いてないような気がするんだけど…
みんなはどんなの作ってる??
0268デフォルトの名無しさん
NGNGそんなヤツいないよ(沙
0269デフォルトの名無しさん
NGNG>>265の言うDel"厨"はそれ以外の少数派のことだろうな。
0270デフォルトの名無しさん
NGNG本気でやるならclxなんてヘボイ形式作んないで、
既存のDelphiアプリがコンパイルすればLinuxで動くようにするだろうし。
0272デフォルトの名無しさん
NGNG無料版インストールして、HelloWorld動かして、おー動いた動いた。
で、それっきり触ってない。
0273デフォルトの名無しさん
NGNGkylixってdaemonとかcgiとか作れるの?
0274デフォルトの名無しさん
NGNG爽 快 に 必 死 だ な 。
>既存のDelphiアプリがコンパイルすればLinuxで動くようにするだろうし。
0275デフォルトの名無しさん
NGNG買ったよ。
Kylixに限ったことじゃないんだがどうもdbExpressが好きになれないんだよなー。
あと、Enterでプロパティエディタがアクティブにならない点。
0276デフォルトの名無しさん
NGNGLinuxイラナーイ
0277デフォルトの名無しさん
NGNG0278デフォルトの名無しさん
NGNG0279デフォルトの名無しさん
NGNG0280デフォルトの名無しさん
NGNG「付属CD-ROMに収録したプログラムやデータなどは、著作権法により保護されていますので、
特別の表記が無い限り改変や再配布はできません。」と書いてあるのですが。
これはマジでしょうか?
再配布ができないのは良いとして、付属のサンプルコードを改変してはいけないとは悲しい。
0281デフォルトの名無しさん
NGNGわ ざ わ ざ 流 用 す る ほ ど の 物 で も な い
が漏れの感想。
0282デフォルトの名無しさん
NGNGどうもオレはその時の気分でゴッチャになる(分裂気味?)。
どっちがいいとかあるんだろうか?
0283デフォルトの名無しさん
NGNG「改変して、『by オレ・作』はダメアルヨ」って意味じゃないの?
0284283
NGNG改変して、『by オレ・作』にして、それを公開する(ネットでとか)のはダメアルヨってこと。
0285デフォルトの名無しさん
NGNGLCMapString派
0286280
NGNGスクリーンセーバーを作ってみたかったのです。
コピぺせずに一から作るなんてできないよー。
まあ参考書にソースコードが付属している場合、再配布、または改変しての再配布について
禁止しているのは珍しくないですけど。
でも個人的にソースをいじって試してみることについても禁止しているように見えたので。
使えねー本だ。ウワーン
結局他でサンプルソースコードをゲットしました。
すいません。ちょっと愚痴を言ってみたかっただけでした。
0287Delフサギコ ◆zE1iiRdQ
NGNGミσ゚Д゚ミσ 常識の範囲内で対応シル
そんな意味不明な使用許諾?
守らなくていいだろ。
守らなければ訴えられる時だけ
気をつけれ。
0288デフォルトの名無しさん
NGNGああ、「Delphi で作るスクリーンセーバー制作講座」か。
あそこのソースは「どうぞご自由に」って書いてあるもんな。
「ソースアーカイブの2次配布はいかなるかたちであれ禁止」だそーだが。
0289280
NGNG結局使ったのはBorland Developer Network(旧 Borland Community)の記事とCode Centralにある
ソースです。
せっかく作った(実際はほとんどソースをコピぺなんですけど)スクリーンセーバーが
配布できないのに気づいたのでやつ当たりしちゃいました。
まあそれが普通なんですよね。日経ソフトウェアさんごめんなさい。
0290デフォルトの名無しさん
NGNG謝る必要は無いと思うが…
むしろ雑誌・書籍についてあるソースを改変不可にするなんて、まともな出版社のすることじゃないと思われ。
0291デフォルトの名無しさん
NGNGSameText派
0292デフォルトの名無しさん
NGNGどちらかといえば UpperCase 派です。
0293デフォルトの名無しさん
NGNGセイムだろ…
http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?sw=0&MT=same
ねただったらスマソ
0294デフォルトの名無しさん
NGNG鬱出汁脳
0295デフォルトの名無しさん
NGNG入れられちゃって…)
0296デフォルトの名無しさん
NGNGで揃えてPos関数とかを使うって意味じゃないの?
SameTextで検索ってどうやんの?
0297Delフサギコ ◆o7ab2ChY
NGNG|_____G_|__ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
川|川 / 臭 \|ノ〜 < VBマンセー! \(^〇^)/
川川 ◎---◎|〜 \________________
川川 3 ヽ〜 彡.| ̄ ̄ ヽ
川川 ∴) A(∴)〜 : . |G5 /
川川 U /〜 | ; ;/彡
;川川 ダッラ〜 | /
/  ̄\\;;;;;;;;;;ノ\____⊃⊆
/ / \ Vノ // .  ̄| ⊆
|二二| GI AヽヽNTSヽ/----- <_ヽ
ヽ | ヽヽ 5 ヽ
ヽ ヽ ヽヽ )
\ \ _)_) ノ
/ ヽ \g8gg& ;;\
/;; ; ヽ つ二3;; ; \ /
( ;; ; ;/\(;;;);;)\ ) .
:: \∴ヽ しっっ彡|;∴;/
\;;;\ /;;;/
/ ) ( \
UUUU UUUU
0298デフォルトの名無しさん
NGNGif SameText(Copy(Text1, Pos, Len), Text2) then
0299デフォルトの名無しさん
NGNGアホですか?
Pos が分かってたら苦労はありません。
0300デフォルトの名無しさん
NGNG0301デフォルトの名無しさん
NGNGサメテキスト派って、頭悪いんですね。
0302デフォルトの名無しさん
NGNG0304デフォルトの名無しさん
NGNG>>298のPosは検索位置、Lenは比較する文字列の長さを表す。
読み取れないか?
0305デフォルトの名無しさん
NGNGこういう使い方をすれってことだろ
Len1 := Length(Text1);
Len2 := Length(Text2);
for i := 1 to Len1 do
if SameText(Copy(Text1, i, Len2), Text2) then
0306サメテキスト派
NGNG0308デフォルトの名無しさん
NGNG2バイト文字が考慮されてないからダメじゃん(藁
0309299
NGNG読み取れる。失礼した。
282 の質問では、「大文字・小文字」を区別しない検索だよね
この場合、SameText() でやるより、明らかに UpperCase()
か LowerCase() でどちらかに揃えて、Pos() というのが
一般的だよね。オレの Delphi は古いので SameText() という
関数がないのだが、あえて SameText() を使うとすると、どんな
メリットがあるのでしょうか?
0310デフォルトの名無しさん
NGNG無知を露呈する前にヘルプでも読み耽ってくれよ。
0311デフォルトの名無しさん
NGNGそのメリットは>>291に聞かないとわからんな。
俺(>>298)は>>296の
> SameTextで検索ってどうやんの?
に答えただけだから。>>298に書いたように実際に使ったことは無いので。
0313デフォルトの名無しさん
NGNG0314デフォルトの名無しさん
NGNG0315デフォルトの名無しさん
NGNG0316デフォルトの名無しさん
NGNG0317デフォルトの名無しさん
NGNG0318デフォルトの名無しさん
NGNG0319デフォルトの名無しさん
NGNG0320デフォルトの名無しさん
NGNGそれはすごいですね。サメテキストも変ですが
0321デフォルトの名無しさん
NGNG0322デフォルトの名無しさん
NGNG0323デフォルトの名無しさん
NGNG必死ですね(プ
0324デフォルトの名無しさん
NGNG0325デフォルトの名無しさん
NGNG0326デフォルトの名無しさん
NGNG0327デフォルトの名無しさん
NGNGここだけ口調が違います
0328デフォルトの名無しさん
NGNG「大文字・小文字の区別無しに比較する」かの違いだろ。
なんで引っかかるんだ?このアフォ(>>299)は
0330デフォルトの名無しさん
NGNGみんな暇を持て余してたんだ。
0331デフォルトの名無しさん
NGNG0332デフォルトの名無しさん
NGNG0333真性299だが
NGNG0334デフォルトの名無しさん
NGNG0335デフォルトの名無しさん
NGNG0336デフォルトの名無しさん
NGNG0337デフォルトの名無しさん
NGNG0339355
NGNG0340デフォルトの名無しさん
NGNG読解力無い奴だな。(298からの流れでわかりきった事だが)
0341デフォルトの名無しさん
NGNGPos() の実装はともかく、コード上では比較しないよ。
0342デフォルトの名無しさん
NGNG天然ですか?藁
0343デフォルトの名無しさん
NGNGぁ〜ぁ、こいつやヴぁw
0344デフォルトの名無しさん
NGNG0345デフォルトの名無しさん
NGNGみなさん、お付き合いありがとね!
0346デフォルトの名無しさん
NGNGさようなら・・・アフォな人・・・
0347デフォルトの名無しさん
NGNG0348真性299だが
NGNG0349デフォルトの名無しさん
NGNG0350デフォルトの名無しさん
NGNG0351デフォルトの名無しさん
NGNG| \〉`ヽ-―ー--< 〈\ |
7 , -- 、, --- 、 ヽ
/ / i ヽ ヽ
| (-=・=- -=・=- ) | < 読み取れる。失礼した。
/ 彡 ▼ ミミ 、
く彡彡 _/\_ ミミミ ヽ
`< ミミ彳ヘ
> ___/
0352デフォルトの名無しさん
NGNG(# `�D´)ノ<つぃはてんさいなのれす!
0353デフォルトの名無しさん
NGNG0354Delフサギコ ◆o7ab2ChY
NGNG0355デフォルトの名無しさん
NGNG0356デフォルトの名無しさん
NGNG本物は ◆zE1iiRdQ なんですけど。
0357デフォルトの名無しさん
NGNG�Aで、Delphiユーザ=丸付き数字表示可、ということでOKになりますた。
0358デフォルトの名無しさん
NGNG0359デフォルトの名無しさん
NGNGはいはい、馬鹿って言っちゃいけないんだよね。
アフォ はいいけど。
よい子は手を洗って寝ましょうね。
0360デフォルトの名無しさん
NGNG0361デフォルトの名無しさん
NGNG0362デフォルトの名無しさん
NGNGcase-insensitive boyer-moore
0363デフォルトの名無しさん
NGNG3人寄っても馬鹿は馬鹿。
0364デフォルトの名無しさん
NGNG0365Delフサギコ ◆zE1iiRdQ
NGNG意気込みの人は折らんのかえ…
_____________
∧,,∧ /似たようなのを作ってみてるので
ミ,,゚Д゚彡 < もっと優れたのに改造スレ
(ミ ミ) \
〜ミ ミ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪''∪
サッカー勝ったはいいが、俺は仕事だったよ。
範囲で検索AnsiPos
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1023631451&rm=100
0366デフォルトの名無しさん
NGNG作るんなら >>362 >>364 のあたりで(笑)
0367Delフサギコ ◆zE1iiRdQ
NGNGDelphi6プログラバイブ読んで
Interfaceの実装を改めて復習してみてます。
で、ふとした疑問です。
propertyでのインターフェースの実装委譲って
何のために実装されてるんすか?
はっきり逝って、Interfaceって概念自体、
Delphi使いには理解しにくいのに
更に意味不明な領域まで引き込んでくれる
実装委譲って仕組みはInterfaceの学習の際に
わかりにくすぎて学習意欲が一気に萎えてしまうような
変な仕様だと思うのですが、詳しくわかっておられる方、
実装委譲の必要性はなんなのでしょうか。
なんかTAggregatedObjectとかいう聞いたこともないような
クラスもあるみたいだし、、
ほんと、Interface周りはヘジタンの言うようなシンプルさに
程遠い実装だなー。ってなDQNな感想をもってしまったのですが
どうなんでしょう。
プログラバイブの著者さんも、Interface実装と委譲とを混ぜたら
メソッド名のぶつかり問題に遭遇するってのを書いているし。
まじで、Delphiに幻滅する仕様なんですが....
長文スマソ。
_____________
∧,,∧ /なんか、Interfaceに
ミ,,゚Д゚彡 < いっつも文句言ってるぞ
U つ \オレ...
@ミ ミ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪''∪ もうそろそろ、Delphiにも言語的限界を
感じちゃうな。
0368Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /WinXPでCtrl+Shift+Zで
ミ,,゚Д゚彡 < 窓のフォーカスが外れるのは
ミつ つ \MSの嫌がらせかなあ??
@ミ ミ
∪''∪ どんなエディタでもみたいなんだけど,,,,,
あと、D6ってなんだか
array of Stringに対して
AnsiIndexOfとかで内容を検索できるみたい
StringListは使わないつもりかな?
文字列処理ルーチンをみましたが関数が増えすぎて正直なにがなんだか...
AnsiContainsStr/TextとかAnsiStartsStr/Textとか
AnsiMatchStr/TextとかConcat、DupeString....
AnsiReplaceStr/Text(StringReplaceでいいのでは?
調べてみると,,,,全部いらんし......
(自分で作って3行程度の関数なんてVCLにならんくていいyo...
いったい、誰が製作指揮とってるんだろ?
オレにすら、設計がイマイチ、と思わせる開発されても
正直失望...
0369素数2
NGNGやっとの事でJpegが表示できるようになった!(Gifその他は無視することに決定。
ビューワーって意外とむつかしいのね。 知識が追いつかないですよ・・・
0370デフォルトの名無しさん
NGNG/⌒ヽ )
i三 ∪ ←Del
|三 |
(/~∪
三三
0371デフォルトの名無しさん
NGNGJpeg展開ルーチン実装したのならすごいと思う。
でも、Susieプラグインに対応する方が死ぬほど楽だと思う。
0372無責任だが
NGNGimplements については VCLでもactiveX関係の実装にしか使われていません
詳細は、ヘルプの
Delphiプログラマーズガイド
一般的なプログラミングタスク
委任した実装の使い方
前後から読むと良いでしょう
もし、 implements の機能が無ければ、例えばこのヘルプの例で
IRGB8bit のインターフェースの
Red,Green,Blue をいちいち書かなければいけません。
で、それは、メンバーとして持っている FRGB8bit: IRGB8bit;をそのまま
呼び出すだけなの殆ど意味の無いコードを書く事になります
0373デフォルトの名無しさん
NGNG> Delphi使いには理解しにくいのに
こういうこと書く奴のせいでdel厨とか呼ばれるんだよな…
0374Delフサギコ ◆zE1iiRdQ
NGNG返信もらえて。よかった、
相変わらず詳しいっすね。
>もし、 implements の機能が無ければ、例えばこのヘルプの例で
>IRGB8bit のインターフェースの
>Red,Green,Blue をいちいち書かなければいけません。
いちいち書くのがオーオーピーでのHasAの関係で
それが冗長でもわかりよいコードになるのではないでしょうか?
(HasAには不必要メソドを隠蔽ってのもありますが,,,それはおいておいて)
もしInterface無しで、HasAのクラスに
実装委譲する機能があったと想像すると
そんな機能、混乱を招くだけではないかしら。
>implements については VCLでもactiveX関係の実装にしか使われていません
という事は、implementsは忘却してもよろしそうですね。
0375デフォルトの名無しさん
NGNGDelphiに対する批判に過剰反応する奴がいるからDel厨って言われるんだよ。
そういう奴にはDelphiに対する要望すら批判に聞こえるらしい。
0376デフォルトの名無しさん
NGNGObjectPascalが他のOOPLをリードしている点のひとつだと思ってるのですケド。
面倒な委譲メソッドの数を減らせるのはもちろん、
・機能の問い合わせ方法をas演算子に統一できる。
・全てがTObjectから継承という世界観を崩さないまま多重継承(もどき)ができる。
0377デフォルトの名無しさん
NGNG夢・独り言
http://life.2ch.net/yume/
0378デフォルトの名無しさん
NGNG>>377 ハイハイ そっち行きますよ。
0379デフォルトの名無しさん
NGNGimplementsはCOMのアグリゲーションそのまんまですね。
静的な設計におけるインターフェイスはInterface型よりもメソッドポインタ
を使ったほうがベターでしょう。
0380Delフサギコ ◆zE1iiRdQ
NGNGDelphi使いでInterface使って便利な
何か機能を実装してるヤシって見たことないんだけど...
それで、Del使いには理解しにくいって言うのは言い過ぎかな。
D6バイブ読んで初めてしったんだけど
InterfaceにGUIDのある無しで機能が変わったりするらしいね。
そういう仕様のInterfaceはちょっと面倒っすね。
>>376さん、
うっそーんミ゚Д゚;彡多重継承モドキはIntefaceだけで十分じゃないのかしら?
,,,あ、そうじゃなくて実装を委譲してしまうから、多重継承に近くなれるのか...
深すぎて、フサにはわかんない。
0381Delフサギコ ◆zE1iiRdQ
NGNGD6バイブの受け売りだけど
>InterfaceはCOMを実装するために作ったad hocな仕様なんでしょう。
いまは違うみたいです。(こじつけかもだが)
>静的な設計におけるインターフェイスはInterface型よりもメソッドポインタ
>を使ったほうがベターでしょう。
それはやり方がわかりませんです。
0382デフォルトの名無しさん
NGNG追加したり外部から機能を呼んだりする時にしっくりきますね。やったことはないですが。
メソッドポインタは
TFireworkInterface = record
Fire: procedure of object;
end;
TUchiageHanabi = class
procedure Fire;
function GetFireworkInterface: TFireworkInterface;
end;
function TUchiageHanabi.GetFireworkInteface: TFireworkInterface;
begin
result.Fire := Self.Fire;
end;
という感じです。
0383376
NGNG例えば、IObserver/IObservableなんてのを作ったとき、implementsがあると
IObservableの実装を使いまわせます。
OpenToolsAPIのように、機能の問い合わせをひとつのオブジェクトに集中して
個々をasで問い合わせるという作りができます。
アクロバットなアイデアとしては
派生クラスで、幾つか用意された実装クラスのどれかをimplementsするのを当てにして
Self as IXXX なんてのも考えられます(やりすぎと思いますけど
Javaに同様の機能が無いのでデザインパターンに使われていないのが惜しいぐらい
0384デフォルトの名無しさん
NGNG0385デフォルトの名無しさん
NGNGせっかくinterfaceがあっても、つい実行時型情報を使ってしまわない?
published にさえしておけば、メソッド名から検索出来てしまうんだから
機能を名前で管理出来てしまう
0386Delフサギコ ◆zE1iiRdQ
NGNG...面白さがいまいちわからない...っ酢>>384
>implementsがあると IObservableの実装を使いまわせます。
implementsがなくても記述をバンガレは実装を使いませると思うのだけど、
>>385
それは美しくなさそう,,,コンパイルエラーも出ない?
いま、ふと考えたんだけど
Memo1.Textに'MyObject.MyMethod'という文字列がある場合
ソース中のMyObjectのMyMechodを呼び出すって
事も、RTTIなら出来ちゃうんだろうかしら。
0387デフォルトの名無しさん
NGNGRTTIも駆使すれば色々できそうですね。
詳しくないので幾つか応用例を教えて欲しかったり。
interface/RTTIを駆使したDelphi専用デザインパターンなんてのも
列挙してみれば面白いかも。
0388デフォルトの名無しさん
NGNG0389デフォルトの名無しさん
NGNG0390デフォルトの名無しさん
NGNG>C#ですべてできること
VB.NETでもできますね
0391デフォルトの名無しさん
NGNGそれが嫌なんですよ〜
IObservable程度なら少しですけど、メソッドが幾つもある巨大な実装ならどうします?
変更時単なる委譲部分まで書き直すのも鬱ですよ。
特に問い合わせ元を集中したばあい、implementsが無いとやってられません
(5つ以上のインターフェースを他にimplementsしているクラスなんてのも作ったことがあります)
>>388, 390
implementsに相当する機能はC#に存在しませんが何か?
0392デフォルトの名無しさん
NGNGでもなあ、 VBで
Interface MyInterface
Function MyFunc1( MyInt As Integer) As Integer
End Interface
とか見ると、なんか ObjectPascalにそっくり
0393デフォルトの名無しさん
NGNG別のスレで正規表現をエスケープした名前をメソッド名にして
lexのように処理させるというアイデアが出ていた。
でも、publishedなメソッド名を列挙して
http://www.users.gr.jp/ml/archive/delphi/54178.asp
列挙したメソッド名から引数が一致するかどうか迄判るのだろうか?
0394デフォルトの名無しさん
NGNG禿同。
interfaceの仕様って、ObjectPascalの文法の中でかなり浮いてるよな。
他の部分は芸術的とも言えるような言語仕様なのに、interfaceだけは
後からこじつけたような仕様だし、、
0395デフォルトの名無しさん
NGNG∧_∧
/⌒ヽ ) >>394
i三 ∪ だって後からこじつけたんだもん。
|三 | しょうがないじゃん…
(/~∪
三三
0396デフォルトの名無しさん
NGNGそんなふうにいうが、ActiveXやCOMがこれだけ使い易く、しかも同じくらい使い易いVBよりも
高速に扱えるようにしてしてくれてるのはその interfaceのお陰では?
0397デフォルトの名無しさん
NGNG不満があるとすれば、
・GUIDを書かなかった場合は内部で勝手に生成して欲しい
・インターフェースを返す関数の戻り値を受け取らなかった場合
_Releaseが呼ばれるのが呼び出した側の関数の最後になるのを早めて欲しい(文の直後とかに)
ぐらいです。強いていうなら、
参照カウンタとは無関係な純粋にFreeで解放するモデルの延長としてのinterfaceも欲しかったですね。
折角IInterfaceを設けたのですから、IUnknownをIInterfaceから派生し、
_AddRef, _ReleaseはIUnknownで定義され自動増減もIUnknown(からの派生)として取り扱う時だけ有効、とか。
interfaceに不満しか言わない人は、一度COMとは無関係に、
interfaceを使いまくった設計をしてみるのは如何でしょう?
0398デフォルトの名無しさん
NGNGどうすればよいのでしょうか・・・。
自作ビューワーの 進む、戻る にしたいんですけれども。教えて偉い人!
0399デルファイの名無しさん
NGNG具体的な値はSDKのヘッダーファイルを検索すれば調べられます。
まあ、実は同じことやったことがあるのでコピペしておきます。
const
WM_XBUTTONDOWN = $020B;
WM_XBUTTONUP = $020C;
WM_XBUTTONDBLCLK = $020D;
XBUTTON1 = $0001;
XBUTTON2 = $0002;
もっといい方法があれば、教えて偉い人!
0400デフォルトの名無しさん
NGNGhttp://messages.yahoo.co.jp/bbs?.mm=GN&action=m&board=2000083&tid=a1zdelphibdibf4bctbcalda53a1bca5ja1bca1z&sid=2000083&mid=115
0401デフォルトの名無しさん
NGNG0402デフォルトの名無しさん
NGNGそういえばWebServceとかはInterfaceつかってるな
0403デフォルトの名無しさん
NGNG0404増田ジゴロウさんの正体が知りたいっ子
NGNG他が分かってんのか?と言われたら自信無いけど(藁
「解放する必要が無い」って読んだ気もするけど、どーなの?
どうも勘違いしてる気がする>オレ
0405意外と、山崎ホウセイ(字わからん)かもしらん(確証無し
NGNG0406デフォルトの名無しさん
NGNGその派生としてICOMInterface型を宣言して、そっちはM$仕様の
ばっちい実装にすれば良かったのでは、と最近思う。
0407デフォルトの名無しさん
NGNG普通のinterfaceはシンプルにまとめ、普通のWideStringはAnsi同様参照カウンタでメモリーの節約を…
とかやって欲しいですね。
0408デフォルトの名無しさん
NGNGはげどう。DelphiってMSに歩調を合わせるために、かなり設計思想を犠牲にしてるような。
0409398
NGNG何となく簡単そうなむつかしそうな・・・一段落したら試してみるです。
今日やってみようとおもったのだが先にサブフォルダ検索の実装
をやろうと思ったら6時間も掛かっちゃって・・・
苦労して作った割には動作は重いし・・・
フォルダ20個で合計2000ファイルの読み込みに20秒・・・アホな
0410デフォルトの名無しさん
NGNGただ、メモリー管理を楽にして欲しいという要求に答える為に参照カウンタ型の
メモリ管理機能を組み込もうとした。 その為に仮想メソッドポインタだけの
構造体という姿勢を崩すよりは、AddRef Releaseををコンパイラが呼び出す
だけにした方が綺麗だし簡単となったんじゃないの?
その機能のないinterface型を作ってしまうと、Delphiのクラス型はJAVAと違って
自動メモリ管理されないから逆にややこしいし
COM型のインターフェースと共存して混乱してしまう
0411デフォルトの名無しさん
NGNGDelphi6 Personalで、
「オブジェクト変数の参照」と、「オブジェクト変数」の監視(ポインタ)表示で
値が違ってるんです。
で、スコープはクラスのメンバにしてあるのに、
そのオブジェクトのインスタンスのポインタを代入したメソッドを抜けると
監視表示できなくなるんです。
NewTag := TTag.Create(inTag);
SetNewTag(inTag,Ele,NewTag);
TagList[TagMX-1] := @NewTag;
TTagはTComponentの派生、
NewTagはメソッドの頭で宣言したTTag型のオブジェクト変数、
SetNewTagはTagのメンバ変数(プロパティ)を設定(代入)してるだけ、
TagListは^TagList型のこのクラスのパブリックな静的配列、
TagMXは1です。
問題のオブジェクト変数はNewTagで、こいつの監視(ポインタ)表示が
@NewTagと違っていて、メソッドを抜けるとTagList[0]が見えなくなるんです。
インスタンスは破棄していないのに。
どうやったらこのTagList[0]の値を別のこのクラスのメソッドから使えるように
なるか、教えてください。 お願いします。
0412デフォルトの名無しさん
NGNG0413デフォルトの名無しさん
NGNGそりゃObjectPascalでは、C++とは違って、オブジェクト変数ってのは
元々ポインタだから、@NewTagってのはポインタ変数のポインタになりますねん。
NewTagってのがメソッドのローカル変数なら、メソッドを抜けたら@NewTagの
値は不定になりますねん。
0414デフォルトの名無しさん
NGNGガーン
ってことは、
@NewTag -> NewTag にすればいいの?
0415デフォルトの名無しさん
NGNGごめん、どの辺が読みづらいか教えて。
ひょっとして改行?
0417デフォルトの名無しさん
NGNG>@NewTag -> NewTag にすればいいの?
いや、@NewTag -> pointer(NewTag) だと思ふ。
0418デフォルトの名無しさん
NGNGWow!(泣いている) うまく行きました。 ありがとう。
これで2時間ちょっと悩んでました。
子供の頃から10年以上CやC++をいじってきて、ポインタも解ったつもり
になってたのに、実は才能ないじゃん、中国へでも売られてしまえばいいんだ
なんて思い詰めていました。 やっぱりまだ日本にいることにすます。
0419デフォルトの名無しさん
NGNGPointer型にキャストしろってことですか?
TagList を array[0..99] of TTag にしました。 代わりに。
でも、これでうまくいくんなら TList を使ってPointer型に
キャストした方がシンプルですね。 やってみます。
ありがとうございました。
ところで、オブジェクト変数がポインタってことは、キャスト
すれば継承によらずにどんな変数にでも代入できちゃう
ってことですよね? いや、コンパイル通すだけなら
C++でもできるけど、それで動くようにできちゃうんですね。
ついでですみませんが、いまMSHTMLを使っているのですが、
ActiveXの取り込みで取り込んでも、このクラスが現れません
よね。 VBのオブジェクトブラウザからなどだと見えるように
なるのだけど。 入力支援機能が働かないのでオブジェクト
ブラウザと行ったり来たりでコードを書いてます。
支援機能を使う方法はないのでしょうか?
0420デフォルトの名無しさん
NGNGオブジェクトならTObjectの方が美しいけどね。
0421デフォルトの名無しさん
NGNG0422デフォルトの名無しさん
NGNG継承と無関係な型にキャストするのは危険と思われ。
プロパティやメソッドにアクセスしたとき何が起こるか…
第一、コンパイラに怒られなかったけ?
0423デフォルトの名無しさん
NGNGpublic
property A: …
end;
TClassB = class(TObject)
public
property B: …
end;
procedure Hoge;
var
Obj: TObject;
begin
Obj := TClassA.Create;
TClassB(Obj).B := x; // どっか〜ん!
0424デフォルトの名無しさん
NGNGクラスである前にやつらはポインタって話じゃないの?
0425デフォルトの名無しさん
NGNG皆さんはどんな規則でつけてる?
0426デフォルトの名無しさん
NGNGそのあとバグ取りだろうが機能追加だろうがなんだろうが必ず1ずつあがる・・・現在β24だってさ。
0427425
NGNG0428デフォルトの名無しさん
NGNGメジャー:
0〜1未満 未完成
1 一通り完成
2〜 ガラリと変わる場合(ほぼ1から作り直しぐらい)の時に上げる
マイナー:
大きな機能追加、修正があった時に上げる
リリース:
ちょっとしたバグとり、修正の時に上げる
ビルド:
IDEにより自動更新
0429デフォルトの名無しさん
NGNG0430デフォルトの名無しさん
NGNGなにか高速化のいい手はあるでしょうか? filelist Tstringlist でグローバル変数。
procedure TForm1.filesearch(ddir:string);
var
sr:TsearchRec;
res:integer;
i:integer;
ext:string;
begin
ListBox1.Items.BeginUpdate;
res:=FindFirst(ddir+'\*.*',faAnyFile,sr);
while res=0 do
begin
if not ((SR.Name='.') or (SR.Name='..')) then
if ((SR.Attr and faDirectory) = faDirectory) then filesearch(ddir + '\' + SR.Name); //対象がディレクトリの場合、自分を再帰呼び出し
else
begin //対象がファイルの場合リストに追加
ext:=LowerCase(extractfileext(sr.name));
if (ext='.jpg') or (ext='.jpeg') or (ext='.bmp') then filelist.Add(ddir +'\'+sr.name);
end;
end;//if end
res:=FindNext(sr);
end; //while end
findclose(sr);
ListBox1.Items.Assign(filelist);
for i := 0 to ListBox1.Count-1 do
begin
ListBox1.Items[i]:=ExtractFileName(ListBox1.Items[i]);
end;
ListBox1.Items.EndUpdate;
end;
0431430
NGNGfilelist は Tstringlist でグローバル変数。
procedure TForm1.filesearch(ddir:string);
var
sr:TsearchRec;
res:integer;
i:integer;
ext:string;
begin
res:=FindFirst(ddir+'\*.*',faAnyFile,sr);
while res=0 do
begin
if not ((SR.Name='.') or (SR.Name='..')) then
begin
if ((SR.Attr and faDirectory) = faDirectory) then
filesearch(ddir + '\' + SR.Name) //ディレクトリの場合再帰
else
begin
ext:=LowerCase(extractfileext(sr.name));
if (ext='.jpg') or (ext='.jpeg') or (ext='.bmp') then
filelist.Add(ddir +'\'+sr.name);
end;//else end
end;//if end
res:=FindNext(sr);
end;//while end
findclose(sr);
end;
0432無責任だが
NGNG1、 手続きを作る時は出来るだけ依存関係を引数に纏める事
2、 再帰を使う時は関数内関数を使うと格好良く書ける
procedure filesearch(ddir:string;ListBox1:TListBox);
var filelist :TStrings;
procedure files(ddir:string);
var sr:TsearchRec;
ext:string;
res:integer;
begin
res:=FindFirst(ddir+'\*.*',faAnyFile,sr);
try
while res=0 do
begin
if not ((SR.Name='.') or (SR.Name='..')) then
if ((SR.Attr and faDirectory) = faDirectory) then files(ddir + '\' + SR.Name) //対象がディレクトリの場合、自分を再帰呼び出し
else
begin //対象がファイルの場合リストに追加
ext:=LowerCase(extractfileext(sr.name));
if (ext='.jpg') or (ext='.jpeg') or (ext='.bmp') then filelist.Add(ddir +'\'+sr.name);
end;
res:=FindNext(sr);
end; //while end
finally findclose(sr); end;
end;
var i:integer;
begin
ListBox1.Items.BeginUpdate;
filelist:=TStringList.Create;
try
files(ddir);
ListBox1.Items.Assign(filelist);
finally filelist.free;end;
for i := 0 to ListBox1.Count-1 do
begin
ListBox1.Items[i]:=ExtractFileName(ListBox1.Items[i]);
end;
ListBox1.Items.EndUpdate;
end;
0434430
NGNGlistboxなどを引数にするなどするのも気がつかんかったけど、確かにこっちの方が管理しやすそうですね。
>>433
同じフォルダを開いたときに
今メインに使ってるビューワーだと3秒で済むのに、俺の作ったのだと20秒掛かるんです・・・
0435無責任だが
NGNGええと、遅いのは ループ中にあった
ListBox1.Items[i]:=ExtractFileName(ListBox1.Items[i]);
これのせいだと思うよ。 >>432のように再帰ループ中から外して さらに
assignしてからを止めて
ListBox1.Items.Add(ExtractFileName(filelist[i]));
と末尾に追加した方がいい
0436デフォルトの名無しさん
NGNG実用に耐える速度です。感謝です。
関数内関数って宣言が実装を兼ねてるんですねぇ。面白い
0437デフォルトの名無しさん
NGNG0438デフォルトの名無しさん
NGNGよんじゃ駄目
0439デフォルトの名無しさん
NGNG0440デフォルトの名無しさん
NGNG0441デフォルトの名無しさん
NGNG0442デフォルトの名無しさん
NGNGそれ以外の場合はエラーコードを返しますですよ。
で、ヘルプに載ってる例では、0返したときだけFindCloseを呼んでます。
0443デフォルトの名無しさん
NGNGインストールした筈のコンポーネントは
起動時はコンポーネントパレットに表示されてるのに、プロジェクトを開くと消えてる・・・
del6 proですが、こんなことあるんか!
del6インストールし直してみるか・・・
0445Delヒッキー
NGNG0446デフォルトの名無しさん
NGNG独り言は日記帳に書いてください。
0447デフォルトの名無しさん
NGNGTreeNodeをTreeView無しで使いたいです。
んで、TreeNodesを作って、TreeNodeをAddChildすると「親ウィンドウがない」って怒ります。
仕方ないので、動的にTreeViewを作ってItems.AddChildしたのですが、これも怒られます。
やっぱ、画面に見えちゃう系のオブジェクトはSelfがnilだと駄目なんでしょうか?
フォーム無しのイケてるアップリケーションでも使いたいよ。
0448デフォルトの名無しさん
NGNG寝ろ。
0449デルファイの名無しさん
NGNGTComponentあたりを流用してもいいですけどね。
ストリーミングなどでTTreeNodeでなければいけないなら、
TTreeViewはコモンコントロールのラッパーなので、項目も外部で管理されているため
ウィンドウハンドルが必要です。Visible = False で使うしか無いでしょう。
0450447
NGNGありが�d。
やっぱ無理か。。
最初は、自分で作ってたんだけど、ノードの移動とかを考えると
MoveToがあるTreeNodeが便利かなあ、と思って使ってみたら
使えなかったよ。。。トホホ。。
なんか代替案考えます。
0451447
NGNGCLXのTreeNodeを参考にして作ればいいんだ!MoveToあるし。
すげー!パオーン
0452デフォルトの名無しさん
NGNGこれが一番の謎です。
0453デフォルトの名無しさん
NGNG0454デフォルトの名無しさん
NGNG0455デフォルトの名無しさん
NGNG0457デフォルトの名無しさん
NGNGなぜか色数の指定とサイズ指定ができないんです。
スキャナの制御とかやってるかた、つーかTWAINですな。
なにかいい方法ないでしょうか。
0458デフォルトの名無しさん
NGNG0459デフォルトの名無しさん
NGNG0460デフォルトの名無しさん
NGNG「今年の第二四半期」ってあと一週間しかありませんケド……
0461デフォルトの名無しさん
NGNG0462デフォルトの名無しさん
NGNGけど、一度現れると、朝まであらゆる場所で見かけたりするけどな。
0463デフォルトの名無しさん
NGNG|仕事疲れたら出るダロ.|
|_________|
∧∧ ||
( ゚д゚)||
/ づΦ
0464デフォルトの名無しさん
NGNG0465デフォルトの名無しさん
NGNGnifty Delphiフォーラム:
謎の全知師(最近見ないけど)
瑠ろう
Delphiメーリングリスト
中村
Delphiスレ
Delフサギコ
あと、誰いる?
MLのあの人はあえて出さなかったよ。
0466デフォルトの名無しさん
NGNGDelphiスレなら
最近、「無責任だが」氏はなかなかがんばっているようだね
トリップつければいいのに...
0467Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /激務→出張→缶詰→激務→失恋
_ ミ,,゚Д゚彡_< で、踏んだり蹴ったりで、現実逃避してますた
.=| |==U==U=| |= \
| |@ミ ミ .| |  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| | ∪''∪ | | 何もする気がありませんが何か?
| | | |
0468デフォルトの名無しさん
NGNG昨年末に、彼女と別れた、とかいっててもう失恋ですか。
もてるんだか、そうでないんだか、分かりませんね。
0470Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /失恋ってっても人妻さんに単なる片思いですし
_ ミ,, 彡_< いいことなんて、なんにもないです。
.=| |=ミ ミ=| |= \"あーきらめましょおー♪あきらめましょー♪"
| | ミ@ ミ | |  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| | ∪''∪ | | 近所の猫にオリジン弁当のから揚げを
| | | | やったら、なつかれました...
女の子もなついてくれないかな。
0471Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧クルッ / ついでに言うと
_ ミ,,゚Д゚彡_< 元カノは半ストーカーと化してます,
.=| |=ミ ミ=| |= \
| | ミ@ ミ | |  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| | ∪''∪ | |
| | | |.ポリ公には相談に逝きました.....欝だ...
もうみずぽですか?みずぽなんですか?
逝きるってなんですか。日曜昼からAA書く事ですか・・・・・・
0472デフォルトの名無しさん
NGNG日曜の昼間も仕事しつつ息抜きに2chすることです・゚・(ノД`)・゚・
0473デフォルトの名無しさん
NGNGにんげんがいきるりゆうなんてなにもないんだから
しんでいいよ
0474デフォルトの名無しさん
NGNG忘れたいことや思い出すと錯乱状態に陥ったりすることもあります。けれど、
生きることには何の具体的な希望があるわけではありません。ですから、
地獄の底を這いずるように生きましょう。我々には氏ぬことも許されません。
0475デフォルトの名無しさん
NGNGまあ、発泡酒でも飲んでおけ。
0476Delヒッキー
NGNGまぁここでマターリしていきなされ・・・
0477デフォルトの名無しさん
NGNG|,,∧
|д゚彡
⊂ノ 2chってたまにヤサシイよな
|ミ
|
━━━━━━━━━━━━━━━━
0478デフォルトの名無しさん
NGNG>人妻さんに単なる片思い
オレにも経験がある。つらいよねぇ.....
いい女はだいたい人妻だしね
>逝きるってなんですか。
うーむ、結婚して子供つくると、この答えは自明になる、と思う
適当にみつくろって、身を固めることを勧めたいと思ふ
>現実逃避
2ch は現実逃避の一つだね。たまにはコテハンよして、
「デフォルトの名無しさん 」で書き込んでみるとよいと思ふ
0479デフォルトの名無しさん
NGNG>>>Delフサ
>>人妻さんに単なる片思い
>オレにも経験がある。つらいよねぇ.....
>いい女はだいたい人妻だしね
同感です。
くどいけど引用しときますた。 マーフィーの法則にもあるんじゃろか。
>>逝きるってなんですか。
>うーむ、結婚して子供つくると、この答えは自明になる、と思う
>適当にみつくろって、身を固めることを勧めたいと思ふ
犬もいいよ。素直でかわいくて。
0480デフォルトの名無しさん
NGNGミ,, ゚Д゚彡 < >>478 結局AAでDelフサとわかる罠(w
ミ つ[|lllll]). \_________
@ミ ミ
∪∪漏れDelフサじゃないよ
0481デフォルトの名無しさん
NGNG独身のホモでもない俺はいい男じゃないんだろうなーいい男ってなんだろうなーいい女もわかんねーや。
最近ファイルのD&Dで起動したときに勝手に変わる作業フォルダの悩みを解決してちょとうれし。
↑
絶対パス指定以外にいい方法はない物だろうか。
0482デフォルトの名無しさん
NGNGGetTempFolder
0483デフォルトの名無しさん
NGNGどうすればよいですか。
0484デフォルトの名無しさん
NGNGっつーかヘルプ読んでくれ。
0485デフォルトの名無しさん
NGNG∧,,∧ /
ミ,,゚Д゚彡 < 貴様等中村師の御相手して差し上げやがれ
ミ つ且~~ \__________
〜ミ,,,,,, ,,ミ お世話になってる奴多いだろ?
0486デフォルトの名無しさん
NGNG0487デフォルトの名無しさん
NGNG0488デフォルトの名無しさん
NGNGつまり、使い物にならん、と?
0489デフォルトの名無しさん
NGNGそれはいくらなんでも過去ログに失礼
0490デフォルトの名無しさん
NGNGこれ、どう答えんのかなぁ…?今まで見た中でdelphiでは最強な初心者質問レスだなぁ…)
0491デフォルトの名無しさん
NGNG納得できない自分に気がついたときだという罠。
取り返しがつかない。exceptなときだね。
0492デフォルトの名無しさん
NGNG>質問レス
質問なのか回答(レス)なのか分からんが?
0493490
NGNG「質問」だけで良かったか…。つーか、広げると怒られそうだ…)
0494デフォルトの名無しさん
NGNG0495TeamB/2ch ◆SE69s0c2
NGNGマ板のスレッドはみんな流れてしまったようで...
0496Delフサギコ ◆zE1iiRdQ
NGNGミ,, 彡
ミ ∪
ミ〜,, ミ
∪ ∪
∧,,∧ あ、TeamBさん、こんばんちは
,ミ ゚Д゚彡
ミ ∪
ミ〜,, ミ
∪ ∪
∧,,∧ すいませんリアルに鬱です
ミ,, 彡
ミ ∪
ミ〜,, ミ
∪ ∪
夜中一人だと大変寂しいので
もう寝ます。
サカー見る気も起きません。
0497Delフサギコ ◆zE1iiRdQ
NGNG,ミ*゚Д゚彡
ミ つ
ミ〜,, ミ
∪ ∪
0498デフォルトの名無しさん
NGNG ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ̄
∩ ∩
〜| ∪ | (´´
ヘノ ノ (´⌒(´
((つ ノ⊃≡≡≡(´⌒;;;≡≡≡
 ̄ ̄ ̄(´⌒(´⌒;;
ズコーーー
0499デフォルトの名無しさん
NGNG韓国がフツーに負ける様を見て、少しは和みましたか?
0500デフォルトの名無しさん
NGNG人いるんだ…。凄いなぁ…)
0501デフォルトの名無しさん
NGNG0502デフォルトの名無しさん
NGNG金払うヤツいるんだなぁ…)
0503デフォルトの名無しさん
NGNG0504デフォルトの名無しさん
NGNG0505デフォルトの名無しさん
NGNG0506デフォルトの名無しさん
NGNGhttp://www.atmarkit.co.jp/fdotnet/opinion/kawamata/2002_06.html
0507デフォルトの名無しさん
NGNG俺、VisualStudio も .NET も普通に使うけど、
川俣はいやだ。オピニオンって感想文とは違うんだけどな。
0508デフォルトの名無しさん
NGNGMSマンセーの小デブのいうことなど知らん
0509デフォルトの名無しさん
NGNGなんかその文章の途中からC#をDelphiに置き換えてたら、俺の気持ちとよく会うなあ
Delphiを使うようになってから良くコードを書くようになった。
そして周りとは話が合わなくなった。
0510デフォルトの名無しさん
NGNG別に。
嫌でも次バージョンのDelphiで.NETはとりこまれるし、
その次でフル対応になるみたいだし。
0511デフォルトの名無しさん
NGNG自分でメモリ管理したい場合はそれなりの手間が必要だし
インラインアセンブラでSIMDでゴリゴリとかだと0点近いだろし
サンクとか、ネイテブコードを動的に作るとかコルーチンとか
そんなテクニックを使いたい奴はどうする?
自分の作りたいアプリで常に80%程度にしとけや!
0512デフォルトの名無しさん
NGNGこのデブ、前は「コードはなるべく書くな。」ってほざいてませんでした?
0513Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧クルッ /昔、マ板に
_ ミ,,゚Д゚彡_< 彼のスレが立ってたんじゃないかな
.=| |=ミ ミ=| |= \
| | ミ@ ミ | |  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| | ∪''∪ | |
| | | |.
0514デフォルトの名無しさん
NGNG読むに値しない駄文ですた。
0515デフォルトの名無しさん
NGNG0516デフォルトの名無しさん
NGNG0517デフォルトの名無しさん
NGNGモナー板に帰る。
0518デフォルトの名無しさん
NGNG0519デフォルトの名無しさん
NGNGタスクバーもどきを作っているのですが、
タスクトレイに登録されているアプリケーションのハンドルを得るにはどうすればよいのでしょうか。タスクトレイのアイコンと、そのアイコンがクリックされたときの
メッセージを取得してタスクトレイのアプリケーションに送信、というのを実現したいのですが。
0520デフォルトの名無しさん
NGNG難しそう。タスクトレイのクラスって、機能が公開されてない
0521デフォルトの名無しさん
NGNGここで質問するよりWin32API質問箱に投げるべきだよな、これ。
Delphiには関係ないやん。
とりあえずLiteStepのソースを解析してみることをおすすめする。
ttp://indiestep.sourceforge.net/
これが理解できないなら諦めな。
0522デフォルトの名無しさん
NGNGフサギコは夏の間毛を短くしないの?
暑苦しくないの?
意味不明?
0523おながいします
NGNG0525デフォルトの名無しさん
NGNG0526デフォルトの名無しさん
NGNG0527デフォルトの名無しさん
NGNG0528デフォルトの名無しさん
NGNG[email protected]
0529デフォルトの名無しさん
NGNG吐田の突き放し過去ログ攻撃とえらい違い
0530Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ / フト思い出したですが
ミ*゚Д゚彡< 桜島子宮ってなんか
ミつ つ \ やらしい響きがするんですが
〜ミ ,, ミ. 猫の思い過ごしですか?
∪ ∪
0531Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /
ミ;゚Д゚彡< でもタクちゃんには
ミつ つ \ 厳しいみたいだぞっと>>529
〜ミ ,, ミ.  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪ ∪
そういえばpちゃんと言えば
黒い子豚だったような...
0532デフォルトの名無しさん
NGNG0533Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ っっ
ミ;,゚Д゚彡 っ ワッ・・・ワン
ミ ⊃⊂ミ
ミ ミ
∪ ∪ ス デ ワスレテタ....イヌ ダッテ コトヲ
0534デフォルトの名無しさん
NGNGhttp://aa.2ch.net/test/read.cgi/mona/1019790685/
0535Delフサギコ ◆zE1iiRdQ
NGNG,,,,,,,,,,,,,,,,∧,,∧ /P3とかP4とかセレとかモバP3とか
〜′,,,,,,,,,,ミ,,゚Д゚彡 < CPUの種類を出来る限り
UU"""" U U \プログラで求めたいのですが
どうしりゃいいでしうか?
過去ログですか?
0536デフォルトの名無しさん
NGNGMMX/SSE/SSE2/3DNow/Enhanced3DNowとかのフラグもあるはず
右も左もわからんVB厨房がレスしてスマンコ
0537埋め立て係 ◆UmeesDJs
NGNG0538埋め立て係 ◆UmeesDJs
NGNG0539埋め立て係 ◆UmeesDJs
NGNG0540デフォルトの名無しさん
NGNGCPUID 判定
あたりで検索
0541埋め立て係 ◆UmeesDJs
NGNG0542無責任だが
NGNG組み込み技術者の意地で今直した所。
修理屋を呼びたかったけど、部屋が散らかりすぎてて恥ずかしくて断念。
2時間かかった。
原因は過電流検出回路の信号用ダイオードが抵抗に化けていた事
こんな電流の流れない所のダイオードが壊れるなんて驚き。
さあ後納期は1週間、まだ影しか出来てないけど頑張るぞ・・・・
0543デフォルトの名無しさん
NGNGこのスレで毎日コミュニケーションズの「Delphiパーソナルプログラミング」という本を読んだことある方、いらっしゃいますか?
その中で実際ソフトを作る所で、グラフィックパズルとか作ってるんですけど、難しくないですか?
他の部分はほぼ完璧に理解してると思うんですが、実際作る所が理解できません。
0544デフォルトの名無しさん
NGNG0545デフォルトの名無しさん
NGNG0546Delフサギコ ◆zE1iiRdQ
NGNGもっといいソフトがみつかりましたので
作るのやめました。です。DLLもあるようですね
http://homepage2.nifty.com/smallroom/soft/soft.html
___________
∧,,∧ /
ミ,,゚Д゚彡 < ありが�d。
ミ つ日 \___________
.@ミ,,,,,, ,,ミ
0547デフォルトの名無しさん
NGNGそういわずにこれ、お読みなさいな↓
http://appzone.intel.com/scripts-util/download.asp?url=/jp/developer/jpdoc/24547003_j.pdf&title=IA-32+インテル(R)+アーキテクチャ・ソフトウェア・デべロッパーズ・マニュアル、上巻:基本アーキテクチャ&fullpg=3&site=jp
http://appzone.intel.com/scripts-util/download.asp?url=/jp/developer/jpdoc/24547103_j.pdf&title=IA-32+インテル(R)+アーキテクチャ・ソフトウェア・デべロッパーズ・マニュアル、中巻:命令セット・リファレンス&fullpg=3&site=jp
http://appzone.intel.com/scripts-util/download.asp?url=/jp/developer/jpdoc/24547203_j.pdf&title=IA-32+インテル(R)+アーキテクチャ・ソフトウェア・デベロッパーズ・マニュアル、下巻:システム・プログラミング・ガイド&fullpg=3&site=jp
0548デフォルトの名無しさん
NGNGhttp://appzone.intel.com/scripts-util/download.asp?url=/jp/developer/jpdoc/24161819_j.pdf&title=AP-485+インテル(R)+プロセッサの識別と+CPUID+命令&fullpg=3&site=jp
0549デフォルトの名無しさん
NGNG,,,,,,,,,,,,,,,,∧,,∧
〜′,,,,,,,,,,ミ,,゚Д゚彡
UU"""" U U
0550デフォルトの名無しさん
NGNG0551デフォルトの名無しさん
NGNG〜′,,,,,,,,,,,,彡゚Д゚ミ
UU"""" U U
0552デフォルトの名無しさん
NGNGo〜′__________(゚Д゚) <床屋行きました
UU U U
0553デフォルトの名無しさん
NGNGo〜′__________(゚Д゚) <ずれ修正
UU U U
0554デフォルトの名無しさん
NGNG〜′,,,,,,,,,,,,彡゚Д゚ミ <また生えてきました
UU"""" U U
0555デフォルトの名無しさん
NGNG〜′;;;;;;;;;;;彡;゚Д゚ミ <かえって、毛深くなってしまいました
UU"'"'"'"U U
0556デフォルトの名無しさん
NGNG0557デフォルトの名無しさん
NGNG0558デフォルトの名無しさん
NGNG0559modoki ◆zVn/zRzw
NGNG参照ボタンのような、ファイル参照画面を出すのには
どうすればいいでしょうか?
0560素人
NGNG自作しても良し。
0561デフォルトの名無しさん
NGNGのコードを置き換えれば一応できますな
0563デフォルトの名無しさん
NGNG[Dialogs] の TOpenDialog を Formに置いて
if OpenDialog1.Execute then
処理
こんなふー。
0565デフォルトの名無しさん
NGNGつーか、もう既に二人もこたえてる質問だよ(藁
0567素人
NGNG単にopendialog?
どっち?
0568modoki ◆zVn/zRzw
NGNGvar OpenDialog1: TOpenDialog;
begin
OpenDialog1.Execute;
end;
end.
ボタンを作って、こう↑書いてみたんですが
押しても参照ダイアログが出ないですね。
>>563のようにオブジェクトをフォーム上に配置したらうまくいきましたが
こんな感じでやりたいことはすべてフォーム上にあらかじめ配置しておく
というのがDelphiの基本なのかな・・・?
イマイチイメージがつかめないけど勉強します。
0569デフォルトの名無しさん
NGNGそりゃ、おぶぜくとをせーせーしてねーから。
var
od : TOpenDialog;
begin
od := TOpenDialog.Create(Self);
if od.Execute then begin
ほげほげ
end;
od.Free;
end;
0571西安 ◆CYANh33g
NGNGそりゃ当然。
OpenDialog1 は変数宣言したはいいけど実体を生成してないし。
procedure TForm1.Button1Click(Sender: TObject);
var
OpenDialog1: TOpenDialog;
begin
OpenDialog1 := TOpenDialog.Create(nil);
OpenDialog1.Execute;
OpenDialog1.Free;
end;
みたいに自分で生成するか、フォームにあらかじめ配置するかしなきゃね。
0572西安 ◆CYANh33g
NGNG0573素人
NGNGつーか、「ポトペタ」って死語なのかねぇ…。
0574デフォルトの名無しさん
NGNGと思ったのですが、TOpenDialogをフォーム上に配置したとき、
Unit1.pasのどこにもCreateしている個所が見当たらなかったです。
これは、どこか目に見えないところでDelphiの神様が
生成してくださっているのでしょうか?
0575デフォルトの名無しさん
NGNGもうね、はげしくわろた
0576デフォルトの名無しさん
NGNG{$R *.dfm}
0579デフォルトの名無しさん
NGNGInside Delphi の8章に詳しく載ってる(プロフィールつき)。
0580デフォルトの名無しさん
NGNGどうするのでしょうか?
プロパティではとくに見当たらなかったので、できないということですか?
0582569=580
NGNG同一人物です。
ヘルプは 「TOpenDialog フォルダ」 で検索しましたが
とくにそれらしい情報がなかったので。
ファイルを選択して、そこからパスを取得しファイル名部分を削除
という処理でいいのかな。
0583デフォルトの名無しさん
NGNGSelectDirectoryをヘルプしてやれ
0584デフォルトの名無しさん
NGNG(#・ж・)プンスカプン オコッタゾオ!
0586デフォルトの名無しさん
NGNGたぶん、死ぬほどFAQですよの間違い。これ、今日のポイントです。
0587素人
NGNG0588デフォルトの名無しさん
NGNGこれって、「洗濯機でご飯を炊きたいんですけど」、という感じ
専用のダイアログを使えよ
0589デフォルトの名無しさん
NGNG掃除機で洗濯したいですけど、Delphi ではどうしたらいいでしょう
「Delphi 掃除機」で検索しましたが見つかりません。
0590MFCマソ
NGNGなあ。
0591デフォルトの名無しさん
NGNGわかり辛いネタですが何はともあれ検索してみました。
http://www.google.com/search?num=50&hl=ja&lr=lang_ja&q=Delphi%20掃除機
あなたが求めているのは「窓の手」付属の「不要ファイル掃除機」でよろしいですか?
0592デフォルトの名無しさん
NGNGヘルプ詠め。
0593デフォルトの名無しさん
NGNGごめんアドが変でした
0594デフォルトの名無しさん
NGNG0595Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /
ミ,,゚Д゚彡 < 初心者スレで話題にしたネタですが
ミ つ日 \___________
.@ミ,,,,,, ,,ミ
列挙型⇔文字列
集合型⇔文字列の相互変換関数
作りました。
Iniファイルの値保持時などに使うと
キットいい感じ。
列挙型⇔文字列、集合型⇔文字列の相互変換
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1025982772
0596デフォルトの名無しさん
NGNG0597デフォルトの名無しさん
NGNG0598デフォルトの名無しさん
NGNG0599Delフサギコ ◆zE1iiRdQ
NGNGミ,,゚Д゚彡 なんで集合型はByteにキャストできるんですの?
Byte0..255符号なし 8 ビット
256パターンしか判別できなさそうなんだけど....
ふと疑問思いました。
0600デフォルトの名無しさん
NGNGTNumber = 0..512;
TNumbers = set of TNumber;
こんなのをコンパイルしてみると
「集合型は 256 個以下の要素しか持てません」
なんていうエラーが出ました
だからByte型より大きい型にキャストする必要がないんでない?
ちなみにDel6です
0601デフォルトの名無しさん
NGNGそのまんまでしょ。。。
0602Delフサギコ ◆zE1iiRdQ
NGNGミ⊃Д`彡 ウワーン
回答を楽しみに2ch来たのにー...
なんか俺が激しく勘違いしてるのか
質問の意味が通じてないのか、どっちかで
さっぱりワカメだよー
えっと、集合型、set of TNumberは
たとえば
TNumber = (n0, n1, n2, ... , n255); //≒TNumber = 0..255;
って定義されているものを
複数個まとめて
[n0, n1, n2, n5, n100, n254]
とか管理できるもんだと思うのですが
そうすると
256個それぞれに対して集合の中の有る無しを
調べなければならなくて
256個の所にそれぞれ2進数のフラグ値が必要なんじゃないかと....
あ、あ、、、きっと俺が激しく勘違いしてるんだろな。
∧,,∧
ミ⊃Д`彡 ウワーン
0603Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧
ミ⊃Д`彡 ウワーン、ageてやる
やっばし、激しくわけわかりません。
適当に調べてるさいちうに書いたコード
type
TEnumNumber = 0..7;
TEnumNumbers = set of TEnumNumber;
procedure TForm1.Button3Click(Sender: TObject);
var
EnumNos: TEnumNumbers;
B: Byte;
begin
B := Byte(EnumNos);
end;
このコードはコンパイル通るのに
TEnumNumber = 0..8;
にすると"正しくない肩キャスト"エラが出るんです。
これはなせ?
0605西安 ◆CYANh33g
NGNG違った、ずれてる。
だから 0..8 だと 8bit で表現できなくて Byte より大きい型でキャストしないといけないのでは?
多分 WORD。
0606Delフサギコ ◆zE1iiRdQ
NGNGミ⊃Д´> ウワーンニダ
2^8=256でByteで表現できたよー
でも、それだったら
Byteにキャストできるのは
要素が8個の列挙型だけじゃない!
もっとたくさん要素ある列挙型は何に
キャストしたらよいの?
∧,,∧
ミ⊃Д`彡 ウワーンヤッパワカナイヨ
0607Delフサギコ ◆zE1iiRdQ
NGNGByte8個>>Word16個>>Longword32個
の要素数でキャストできるけど・・・
∧,,∧
ミ⊃Д`彡 ウワーン、それ以上キャストする肩がないよ-
そんでもって、要素数によって
キャストコード変えなきゃいけなくて、鬱
∧,,∧
<⊃Д´> ウワーン、某ランドは
イルポンに謝罪しるニダ
0608西安 ◆CYANh33g
NGNGTEnumNumber1 = 0..7;
TEnumNumbers1 = set of TEnumNumber1;
TEnumNumber2 = 0..15;
TEnumNumbers2 = set of TEnumNumber2;
TEnumNumber3 = 0..23;
TEnumNumbers3 = set of TEnumNumber3;
TEnumNumber4 = 0..31;
TEnumNumbers4 = set of TEnumNumber4;
TEnumNumber5 = 0..39;
TEnumNumbers5 = set of TEnumNumber5;
TEnumNumber6 = 0..47;
TEnumNumbers6 = set of TEnumNumber6;
TEnumNumber7 = 0..55;
TEnumNumbers7 = set of TEnumNumber7;
TEnumNumber8 = 0..63;
TEnumNumbers8 = set of TEnumNumber8;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers1)));
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers2)));
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers3)));
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers4)));
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers5)));
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers6)));
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers7)));
Memo1.Lines.Add(IntToStr(SizeOf(TEnumNumbers8)));
end;
結果
1
2
4
4
5
6
7
8
0609600
NGNG漏れも激しく勘違いしてたみたいだ
何で256個も要素をもてるのにByte型で十分なんだよー
鬱だし脳
0610デフォルトの名無しさん
NGNG64個までならInt64型があるよ
type
TNum = 0..63;
TNums = set of TNum;
procedure TForm1.Button1Click(Sender: TObject);
var
num: Tnums;
i: Int64;
begin
i := Int64(num);
end;
これでコンパイル通ったよ
0611デフォルトの名無しさん
NGNG0612デルファイの名無しさん
NGNGset A は元々 superbitpacked array[A] of Boolean みたいなものだし。
単に集合→文字列変換の関数の引数に総称的に渡したいとかなら
型無しconstパラメータで充分な気が。
0613デフォルトの名無しさん
NGNG(Max div 8) - (Min div 8) + 1
Min と Max は集合の基本型の下限と上限です。特定の要素 E が何バイト目かは次の式でわかります。
(E div 8) - (Min div 8)
そのバイト内で何ビット目かは次の式でわかります。
E mod 8
E は要素の順序値を表します。可能であればコンパイラは CPU レジスタに集合を格納しますが,集合が汎用整数型より大きい場合,または集合のアドレスを取るコードがプログラムに含まれている場合は,集合は常にメモリに格納されます。
0614デフォルトの名無しさん
NGNG>ウワーン、それ以上キャストする肩がないよ-
こんなのどうでしょうか。
type
TNum = 0..255;
TSetNum = set of TNum;
TSetCast = array[0..31] of Byte;
function ByteToBitStr(bt:Byte):string;
var
i:integer;
begin
result := '';
for i := 0 to 7 do begin
if Odd(bt) then
result := '1'+result
else
result := '0'+result;
bt := bt shr 1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
SN:TSetNum;
SC:TSetCast;
s:string;
i:integer;
begin
SN := [3,8,255];// Test
SC := TSetCast(SN);
s := '';
for i := 0 to 31 do
s := ByteToBitStr(SC[i])+' '+s;
Memo1.Lines.Add(s);
end;
0615デルファイの名無しさん
NGNGDelphi6のTypInfo.pasに、SetToString/StringToSetを見つけてしまったのは気のせいでしょうか
0616Delフサギコ ◆zE1iiRdQ
NGNGミσ゚Д゚ミσ そのソースはすでにしこぶる参考にしてますです。
TypInfoのヤシはどうやらプロパティに限定した
使い方を想定してるみていですね。
∧,,∧ >>614
ミσ゚Д゚ミσ byte/word/longwordなどにキャストするのではなく
array[0..31] of Byte;
とかにキャストしるってことですね。
参考にしたいと思います。
∧,,∧ >>612
ミσ゚Д゚ミσ 俺のもっとも尻鯛情報を知ってなさるような気がシルニダ<`Д´>
∧,,∧ >>610
ミσ゚Д゚ミσ サンコスク
0617デルファイの名無しさん
NGNGtype
ByteSet = set of 0..7;
var
ByteValue: ^ByteSet;
I, M: Integer;
ElemTypeInfo: PTypeInfo;
ElemTypeData: PTypeData;
begin
Result := '';
ElemTypeInfo := GetTypeData(TypeInfo)^.CompType^;
ElemTypeData := GetTypeData(ElemTypeInfo);
ByteValue := @Value;
for I := ElemTypeData^.MinValue to ElemTypeData^.MaxValue do
begin
M := I mod 8;
if M in ByteValue^ then
begin
if Result <> '' then
Result := Result + ',';
Result := Result + GetEnumName(ElemTypeInfo, I);
end;
if M = 7 then Inc(ByteValue)
end;
if Brackets then
Result := '[' + Result + ']';
end;
0618デルファイの名無しさん
NGNGDelフサギコさんは某ランドに謝罪して下さい(w
0619Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /
ミ,,゚Д゚彡 < StrToSetはどうやって作るのでしょうか?..
U つ \戻り値に肩無しConstは無理だろうし...
@ミ ミ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪''∪
_____________
∧,,∧ /
<ヽ`Д´> < まだまだ謝罪を要求するニダ
U つ \
@ミ ミ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪''∪
0620デルファイの名無しさん
NGNGTMaxSet = set of Byte;
PMaxSet = ^TMaxSet;
function StrToSet(TypeInfo: PTypeInfo; const Value: string): TMaxSet;
という宣言を持ち
type
TEle = (e00, e01, …(中略)… e38, e39);
TRan = e01..e35;
TSet = set of TRan;
var
A: TSet;
begin
PMaxSet(@A)^ := StrToSet(TypeInfo(TSet), 'e10 e20');
という使い方で動作する関数StrToSetを作ることができた、とだけ言っておきましょう…
なんか悔しいので中身は教えてあげない。
ヒント: メモリを破壊する心配は不要。レジスタに収まらない戻り値は、
呼びだし側が確保したバッファのアドレスが渡されるので、使う分だけ書き換えればOK。
( まあこんな事しなくても procedure StrToSet(…, out Result); でいいですけどね )
0621デフォルトの名無しさん
NGNG0622デフォルトの名無しさん
NGNG0623デフォルトの名無しさん
NGNG,,,,,,,,,,,,,,,∧,,∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
〜′,,,,,,,,,<ヽ`Д´>< DelphiやBorlandについて熱く語るニダ
UU"""" U U \_________
0624デフォルトの名無しさん
NGNGスレッドクラスから、フォームを表示する方法を教えてください。
procedure TManager.Execute;
var
BForm : TForm2;
begin
{ ToDo : スレッドとして実行したいコードをこの下に記述してください }
BForm := TForm2.Create(Application);
BForm.Visible := true;
end;
end.
と、スレッドクラスでやってもフォームが表示されません。
中身の二行を最初のフォームのボタンのイベントの中に書いたら
表示することができたのに。 なんで?
ちなみに、スレッドの起動は、同じように最初のフォームのボタンのイベント内に
MyThread := TManager.Create(true);
MyThread.Application := Application;
MyThread.Resume;
などと書いております。 よろしくおながいします。
0625デフォルトの名無しさん
NGNGオレだったらメインスレッドにメッセージ送って From2 を作らせる
0626624
NGNGApplication.CreateForm(TForm2, Form2);
これをシンクロで呼んだりしてもいいのかな?
デバッガで動作を追ってみると、新しく作ったスレッドからTForm2.Create(Application); を実行するとその次の行のBForm.Visible := true;が実行されていませんでした。
イベントディスパッチャにでも化けてるんですかね?
0627デフォルトの名無しさん
NGNG0628624
NGNGprocedure TManager.Execute;
begin
{ ToDo : スレッドとして実行したいコードをこの下に記述してください }
//BForm := TForm2.Create(Application);
Synchronize(CreateForm);
end;
procedure TManager.CreateForm;
begin
BForm := TForm2.Create(Application);
BForm.Visible := true;
end;
で成功しました。
なぜ?メッセージループってプロセスの共通リソースで管理してるものじゃないの?
新フォームのメッセージループへメッセージをApplicationが振り分けてくれる必要があるとおもうのだけど、これはApplication.Runを実行したスレッドでないと登録してくれないってことでしょうか。
別スレッドでフォームを作ると帰ってこないので、やっぱり新メッセージループを作ってるのでしょうか。
だとすると、Windowのハンドルをなんとか捕まえてVisibleにすれば見えると思うのだけど、そこまで実験できませんでした。
Application.CreateFormとTForm2.Create(Application)の違いもわかりませんでした。
0629625
NGNG詳しくは知りませんが、メッセージキューは、ウィンドウを作るスレッドごとに
ウィンドウズによって作られます。ですから、ウィンドウを作って、メッセージ
ループをまわさないスレッドはそこで止まります。これを避けるために、
VCLのオブジェクトをつくるメソッドはメインスレッドで実行するように
TThread.Synchronize があるのですね。こうすると、メインスレッドの
Application.Run の中のメッセージループの圏内に入るのですね。
TWinControl の派生クラスをメインスレッド以外で作るときは、
Synchronize を使うか、Form1 に適当なメッセージ(WM_APP+55とか)
を投げて、そのハンドラに作らせればよいのかな。ウィンドウをつくらない
スレッドにはメッセージキューは割り当てられません。
0630デルファイの名無しさん
NGNGCPUウィンドウで確認したところ、最適化の状況(Aの割り当てられ方など)によってメモリを破壊する事が判明。
嘘情報書いてしまいました。
やはり、procedure StrToSet(TypeInfo: PTypeInfo; const Value: string; out Result): とするしか無いかも。
0631625
NGNGこれは TApplication.CreateForm のソースを読むと分かるが、
MainForm(デフォルトでは Form1) 以外のインスタンスを作るときには
ほぼ同じだと思います。
0632624
NGNGメッセージキューがスレッドを区別してるわけですか。
既にメッセージキューを持っているスレッドなら、新しいウィンドウのイベントもそのキューを使うわけですね。
で、新しいメッセージのディスパッチルーティンを実行してくれるわけですか。
C++風に解釈すると、ディスパッチルーティンをチェーンできるように関数へのポインタが一つ空けてあって、それを使ってチェーンしていくのかな?
考えてみると、OSはキューにイベントを入れた後、コールバックでディスパッチルーティンを非同期で呼び出す必要があるわけですが、このときにスレッドを指名する必要がありますね。
もし指名できないなら、そのプロセスの全てのスレッドにタイムスライスを与えてみるとか…激しくリアルタイムで無くなりそうですけど。 まさかメッセージループを処理するようなイベントを送ればいいなんて言えないし(w
そういうと、MFCにもメッセージを処理するスレッドと処理しないスレッドがあったような気がします。
忘れていました。
0633625
NGNGまぁ、そうとも言えますが、OSがウィンドウにメッセージをポストするとき
そのウィンドウをつくったスレッドのキューに入れる、ってことですね。
>既にメッセージキューを持っているスレッドなら、新しいウィンドウのイベントもそのキューを使うわけですね。
そうです。動的に TForm2 のインスタンスをつくっても動くのはそのためです。
>で、新しいメッセージのディスパッチルーティンを実行してくれるわけですか。
いえ、ひとつのメッセージキューには、最低ひとつのメッセージループがあれば
よいのです。これは、Delphi の GUI アプリの場合は Application.Run の
中にあります。
>OSはキューにイベントを入れた後、コールバックでディスパッチルーティンを非同期で呼び出す必要があるわけですが
いや、キューにポストして、たんにそのスレッドにタイムスライスを与えてメッセージループ
を回すだけです。メッセージループが、キューからメッセージを取り出して、DispathMessage()
でコールバック関数(ウィンドウ関数)を呼び出します。ですから、GUI アプリの
メインルーチンは、メッセージループだけであり、キューを経由するメッセージはもちろん
SendMessage() で送られたメッセージもすべて、メッセージループのなかの PeekMessage()
または GetMessage() が実行されるタイミングで、メッセージ処理ハンドラが呼び出している
と解釈しても間違いではありません。ハンドラを直接・間接に呼び出しているわけですから、
各ハンドラの処理が終わると、また、メッセージループに制御が戻り、それがまわって
次のメッセージ処理を行なうわけです。
0634デフォルトの名無しさん
NGNG×メッセージ処理ハンドラが
○メッセージ処理ハンドラを
スマヌ
0635デフォルトの名無しさん
NGNG0636624
NGNG>まぁ、そうとも言えますが、OSがウィンドウにメッセージをポストするときそのウィンドウをつくったスレッドのキューに入れる、ってことですね。
あ、スレッドのスタックを使ってるんだ。 ふーん。
>いえ、ひとつのメッセージキューには、最低ひとつのメッセージループがあればよいのです。
メッセージループとディスパッチルーティンを混同しておりました。DispathMessage()とやれば、OSが適切なディスパッチルーティンへ振ってくれるんですねェ。
あと、メッセージループって回りっぱなしなんですね。メッセージなくなったら空回りしてるんでしょうか?
スレッドがサスペンドしてるのかと思ってたのですが。
0637デフォルトの名無しさん
NGNG無駄に実行することがないように、GetMessage() では、キューにメッセージが
入るまではサスペンデッドになりますね。VCLでは OnIdle を呼ぶために、
PeekMessage() と WaiteMessage() でやはり無駄な実行を防いでいます。
ですから、あまり空回りはしてませんよ。
0638624
NGNGなんだ、そうかなとはおもったんだけどね(w
で、スレッドのスタックを使っているって言うことは、
あるスレッドで作ったウィンドウへのディスパッチを別のスレッドのメッセージループから行うって言うのは無理なのかな。
これができれば、ウィンドウの乗っ取りができるようになるんだろうけどなぁ。
OSの管理してる構造体にアクセスする必要があるのかなぁ。
0640Delフサギコ ◆zE1iiRdQ
NGNGやっと動きだした〜よ
東京は雨やんでるかしら。到着はいつになるかしら
。。。
0641デフォルトの名無しさん
NGNG0642デフォルトの名無しさん
NGNGGetMessage() も PeekMessage() も取り出す先のキューを指定するパラメータ
がありません。暗黙にそのコードが書かれているスレッドのキューを対象にしている
のですね。ですから、別スレッドのメッセージキューを直接覗く手段はありません。
フック関数をインストールするとGetMessege() 直後のメッセージを覗き見することは
できると思います。メッセージを加工することはできませんが。
0643デフォルトの名無しさん
NGNGどなたか退会コマンドを代って打って下さい。
0644デフォルトの名無しさん
NGNGこんな所で苦情言ってる場合か、
オマエにはオマエにしか出来ない事、
オマエのやるべき事があるだろ
まずそっちを片付けてから出直して来い
0645デフォルトの名無しさん
NGNG0646デフォルトの名無しさん
NGNG0647チェキナ名無しさん
NGNGほの板にも いらっしゃいませんでした?
同じ人ですか?
0648デフォルトの名無しさん
NGNGもし、
「>>620ホントにコード書いたのか?」
って疑ってるヤシが居るかもしれないってのが気になるなら、
PGPとかで暗号化してからコードをカキコ、
パスフレーズをあとから公開って手でちゃんと書いたって
証明できるよ。
とりあえず参考までに。
>>647
Delフサギコと単なるフサギコは別物だと思われ。
0649デフォルトの名無しさん
NGNGフサギコはクラスオブジェクトです。
0650デフォルトの名無しさん
NGNGインスタンスの一つがDelフサ?
0651デフォルトの名無しさん
NGNGAA
↓
2chキャラ
↓
ギコ――――――
↓ ↓
フサギコ Delギコ
↓ ↓
Delフサギコ ←
0652デフォルトの名無しさん
NGNGギコ――――――
↓ ↓
フサギコ Delギコ
↓ ↓
Delフサギコ ←
なんかやな継承だな・・・。
Delphiをインターフェースとした方がスッキリしそう。
0653デフォルトの名無しさん
NGNG0654デフォルトの名無しさん
NGNGprocedure Itteyosi;
procedure Golaa;virtual;
end;
TGikoFussell=class(TGikoHanyan)
procedure Fusafusa;
procedure Golaa;override;
end;
TDelGikoFussell=class(GikoFussel)
procedure DelphiOperation;
procedure DelphiNeta;
end;
0655デフォルトの名無しさん
NGNG喝!
悪しきマ板の流れを止めよう。
---------------------------------------------
0656デフォルトの名無しさん
NGNG0657デルファイの名無しさん
NGNGありがとうございます。
でも>>630にも書いたのですが、状況によって使えないのであれは無かったという方向で
0658Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /
ミ,,゚Д゚彡 < out使っても俺には実装できんがな
,;゙ ミ \_____________
ミ. ミ
/゛゛゛゛ なんかAccessVaioが出るの.
0659デフォルトの名無しさん
NGNGTGikoFussell.Fusafusaはpropertyだと思われ。
しかし型が何かわからない罠
0660Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ /
ミ;゚Д゚,,ミ < なついあつですねー
ミ つ つ \_____
@ミ ミ
(ノ'''''∪
_____________
⌒ /
/⌒ヽ < そろそろ衣替えの季節
( ヾ''""ツ, \__________
@| ミ 彡
(ノミ ゝ ゞミ
彡,,o,...oヾ
_____________
∧ ∧ /
(*゚Д゚) < すっきりんこ
( つ⊂) \_______
@| ,.|,.,
(ヾ''"_, _,."彡.
彡,,,,,o,...o,,..ヾ
0661デフォルトの名無しさん
NGNGDelニダーが出てくると思ってたのに・・・。
0662デフォルトの名無しさん
NGNGDelphiでは多重継承はできません。
0663デフォルトの名無しさん
NGNGtype
TFusafusa = (ffNone, ffShort, ffMiddle, ffLong, ffHuge);
property Fusafusa: TFusafusa read FFusafusa write FFusafusa;
かな?
0664デフォルトの名無しさん
NGNG<=(*゚Д゚) < 俺DelギコだけどDelphiの起源は朝鮮なんだよ
( ) \__________
|| |
〈_フ_フ
0665デフォルトの名無しさん
NGNG0666Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧ いまさらながら質問す..
ミ,,゚Д゚彡 まだ文字列→集合型の変換で
ミ つ⊂ミ out指定しても、うまくキャストできませんです。
ミ ミ
∪ ∪ 教えてくださいませませ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1025982772&res=5
0667Delフサギコ ◆zE1iiRdQ
NGNGミ 彡 答えてもらえないなんて、
(o ミ そんなことないよね..................................
ミ ν ミ
∪ ∪ 暑くなってストリーキングしたくなること
誰だってあると思うんだ。
|
| ∩
|∀`) < ねえよ
| ⊂)
| /
|/
0668デルファイの名無しさん
NGNGfunction NextWord(var P: PChar): string;
var I: Integer;
begin
while P^ in [',', ' ', '[', ']'] do Inc(P);
I := 0; while P[I] in ['A'..'Z', 'a'..'z', '0'..'9', '_'] do Inc(I);
SetString(Result, P, I); Inc(P, I);
end;
type TMaxSet = set of Byte;
var
ElemTypeInfo: PTypeInfo; ElemTypeData: PTypeData; P: PChar;
EnumName: string; I, ElemValue: Integer;
begin
ElemTypeInfo := GetTypeData(TypeInfo)^.CompType^;
ElemTypeData := GetTypeData(ElemTypeInfo);
for I := ElemTypeData^.MinValue to ElemTypeData^.MaxValue do Exclude(TMaxSet(Result), I);
P := PChar(Value);
repeat
EnumName := NextWord(P);
if EnumName = '' then Break;
ElemValue := GetEnumValue(ElemTypeInfo, EnumName);
if ElemValue < 0 then
raise EConvertError.CreateFmt(SInvalidPropertyElement, [EnumName]);
Include(TMaxSet(Result), ElemValue);
until False;
end;
0669デルファイの名無しさん
NGNGExcludeで必要なとこだけ消しているのが一応ポイントかなあ…
Delフサギコさんのは、いきなりset 0..63固定で空集合を代入しているので、
サイズが異なる変数を渡していると上手くいかないのだと思います。
…正直、Int64にこだわっている辺り、「人のいうこと聞いてねー」思いますた
0670デルファイの名無しさん
NGNGtkChar/tkWCharの処理を書き足すだけなのに…
0671デルファイの名無しさん
NGNG>>617のコードでは、最小値が8以降の集合で誤動作します。
MとByteValueを撤廃し、要素の判定を「if I in TMaxSet(Value) then 〜」に置き換えて下さい。
0672Delフサギコ ◆zE1iiRdQ
NGNGEnums01A := [0, 1, 7];
StrToSet(TypeInfo(TEnumNumber01), '[0,1,7]', Enums01B);
Check(True, Enums01A=Enums01B);
---------------------------
デバッガ例外が発生
---------------------------
プロジェクト Project1.exe が EAccessViolation クラスの例外を生成しました。
'モジュール 'Project1.exe' のアドレス 00453714 でアドレス 00000000 に対する読み込み違反がおきました。'
プロセスは停止しています。再開するにはステップ実行または実行を選択してください。
---------------------------
OK ヘルプ(H)
---------------------------
_____________
∧,,∧∩ /
ミ,,゚Д゚ 彡< 先生!!こんなんでました...!
__ミ ミ ミ \___________________
\,,∪  ̄ ̄ ̄\
||ヽ|| ̄ ̄ ̄ ̄||"
...|| ̄ ̄ ̄ ̄||
_____________
∧,,∧∩ /Delフサギコさんは
ミ,,゚Д゚ 彡< 「人の言うこと聞いてねー」よりむしろ
__ミ ミ ミ \「人の言うことよくわからな」
\,,∪  ̄ ̄ ̄\ になってる、思い素股。
||ヽ|| ̄ ̄ ̄ ̄||"
...|| ̄ ̄ ̄ ̄|| 悪気ないんだけど、理解できないの....(スマンコ
0673デルファイの名無しさん
NGNGTEnumNumber01とやらがリンク先のものだとしたら、TEnumNumber"s"01の方を渡してみて下さいな
0674Delフサギコ ◆zE1iiRdQ
NGNG♪ .∧,,∧ ♪ >>673のヒントでできました!
,ミ,,゚Д゚ミ. ♪
ミ,,つ[|lllll]). ありがとうです。
〜 ミ,, ,,,..ミ
∪ ∪ 集合型の基本形ってこんなして求めるんですね。
>617のコードでは、最小値が8以降の集合で誤動作します。
ってのは、わからないです。
基本形の最小値が8以下ってことでしょうか?
(調べてみまする
0675Delフサギコ ◆zE1iiRdQ
NGNGfunction SetToString(Info: PTypeInfo; const Value;
Brackets: Boolean = True): string;
type TMaxSet = set of Byte;
var
ElemTypeInfo: PTypeInfo;
ElemTypeData: PTypeData;
I: Integer;
begin
Result := '';
ElemTypeInfo := GetTypeData(Info)^.CompType^;
ElemTypeData := GetTypeData(ElemTypeInfo);
for I := ElemTypeData.MinValue to ElemTypeData.MaxValue do
begin
if I in TMaxSet(Value) then
begin
if Result <> '' then
Result := Result + ',';
Result := Result + GetEnumName(ElemTypeInfo, I);
end;
end;
if Brackets then
Result := '[' + Result + ']';
end;
これで動作していますが
無理やり、集合型に範囲外の値を代入した場合
たとえば以下のように。
type
TMyEnum = (mrOne, mrTwo, mrThree, mrFour);
TMyEnums = set of TMyEnum;
Include(MyEnums, TMyEnum(5));
Check( '[]', SetToString(TypeInfo(TMyEnums), MyEnums) );
このとき、SetToStringの関数内部でEConvertErrorを発生させたいと
思っているのですが、どうやったら、できるですか?
SetToStringに入る直前でヲッチ窓でみると
MyEnums: [(範囲を超えています) 5]
こんな表示がされているので、変な値が入っていることは
確認できるのですが。
0676Delフサギコ ◆zE1iiRdQ
NGNGSetToStringに問題があるのではなくて
無理やり代入できるIncludeの仕様がおかしいと
気が付きますた。
Includeは
Set := Set + [これ,あれ]
より高速っていうのは、ある意味罠かもですのね。
ということで、
∧,,∧ ありが�dございますた
,ミ。_。ミ 感謝感謝.
ミ∪ ∪
0677デルファイの名無しさん
NGNGこの中間の無名の値はGetEnumNameでどう処理されるのだろう…と試してみたのですが。
型情報を持っていないといわれて撃沈しました。
0678デフォルトの名無しさん
NGNGIncludeは単に
MyEnums or (1 shl ord(5))
に置き換わるから高速なわけで
必要なら TMyEnum(5)で例外を出せば良いのでは?
0679Delフサギコ ◆zE1iiRdQ
NGNGミ 彡 それにしても話題ないなあ...
(o ミ
ミ ν ミ AcidFloorも閑散としすぎてるっす....
∪ ∪
0680TeamB/2ch ◆SE69s0c2
NGNGUS の Newsgroups とかだと活発ですよ。
Public Beta がいくつも出ているし。
思うに今後は ServicePack のでる回数は減っていくのではないかと。
0681デフォルトの名無しさん
NGNGなんだか意味が分からんな。
>>US の Newsgroups とかだと活発ですよ。
以前より活発かよ?
ServicePack がなんの関係あるん?
ML が閑散としているのは事実。初心者が投稿できる雰囲気ではないから。
0682デフォルトの名無しさん
NGNG>US の Newsgroups とかだと活発ですよ。
これを読むとどんな厨房質問にもそれなりの回答がつくんだよね。
「過去ログみれ」という門前払いはないよ。
結局、初心者が初心者的質問をできないような ML は過去ログの
遺産だけを残して先細りになる。そうそう、目新しい質問があるわけでは
ないし。
0683デフォルトの名無しさん
NGNG0684デフォルトの名無しさん
NGNG1) データ本体(実体)があり、
2) それを参照しているリストは複数個ある (List1, List2, List3, ...)
3) あるリスト List からデータを削除した場合に、他のリストの
該当データも削除又は無効にしたい
4) ところが、これを以下のように書くと、大変時間がかかってしまう
procedure Remove(Data:TData);
begin
List1.Remove(Data);
List2.Remove(Data);
List3.Remove(Data);
....
ListN.Remove(Data);
Data.Free;
end;
↑のようにすると、データ数が多くなった場合に処理時間が
かかってしょうがないのです
最初は以下のようにやっていたのですが、うまく行きません
procedure Remove(Data:TData);
begin
Data.Free;
Data := nil;
List1.Pack;
List2.Pack;
List3.Pack;
...
ListN.Pack;
end;
0685デフォルトの名無しさん
NGNG途中削除のコストは大きいのです。
削除のコストを減らすには
1、削除せずに nil を削除マークとして書く方式にする
2、TListを使わずに自前のリスト型コンテナを作る
0686684
NGNGTDirectory
Files: 自分が含むファイルのリスト
Directories: 自分が含むディレクトリのリスト
AllFiles: サブディレクトリも含め、自分以下に存在するすべてのファイルのリスト(これが問題)
ようなデータ構造です。で、自分が今作っているものは
ファイル構造でたとえれば
「複数のディレクトリが、まったく同一のファイルを持つ事もある」
ような構造なのです
0687デフォルトの名無しさん
NGNGNGとMLを混同しちゃだめ。
(それにしても日本のNGの放置プレイはいつまで続くのか・・・
OhNoさん、Next Engineerに記事かいてばかりいないでたまには顔だしてよ。)
0688デフォルトの名無しさん
NGNG入れ物が違うと中身も変わるの?
日本で NewsGroup がはやらないのは単に読み書きできる人が少ないからでしょ。
企業では禁止しているところもあるし。
0689Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧
ミ,,゚Д゚ミ
Itemに参照しているListのリストを
もたせておいたりしたらどうでそ。
List.RemoveItem(Item)をすると
Item.Removeが呼ばれて
そいつ自身は
Item.Lists[i].Removeを呼び出してから
Item.Freeしたりするような
そんな感じに実装してみては?
0690Delフサギコ ◆VzDeLphI
NGNG∧,,∧
,, ゚Д゚彡
つ
TeamBタンはUS系とかお詳しいみたいなので
教えてホスイのですが、
.NET対応の情報とか、D7情報とかは
どこかで、漏れ漏れで出てきませんでしょうか?
C#の勉強をすればするほど、"よくできてるなー"
という印象を受けますですして、
こんなのあったらDelphi売れるかぁ?
Borland大丈夫かなあ?
Javaだけの下位者になっちまうのかしら。
相変わらずマーケティング下手なのが、とうとう致命傷になるのかな。
と思っていると、夜もぐっすり寝むれないほどに
ぐっすりスイミングしてしまいます。
結構、な数のDelヒャイ使いは同じように考えている
カモシレナイので
我に情報開示をキボンヌしてます。
某のロードマップがより詳細に尻たいです。
長文スマソ
0691デフォルトの名無しさん
NGNG0692デフォルトの名無しさん
NGNGボタンを押してプレビューとして、そのhtmlを表示したいのですが、
WebBrowserコンポーネントを使ってやるには、
どうすればいいんですか?
0693デフォルトの名無しさん
NGNGhttp://www.monazilla.org逝ってこい。
0694 ◆tare/k3c
NGNGいろいろ方法はあると思いますが、とりえあず。
with WebBrowser1 do
begin
OleObject.Document.Write(Memo1.Text);
OleObject.Document.Body.Style.FontSize:=12;
OleObject.Document.Close;
end;
0695デフォルトの名無しさん
NGNG0696695
NGNG0697デフォルトの名無しさん
NGNGいっぱい同じのがあるときの設計時の目印がわりだよ
0699TeamB/2ch ◆SE69s0c2
NGNG>US系とかお詳しいみたい
NDA ってご存知ですよね?NDA を結んでいる。という事実も NDA の対象なので
この手の質問には答えられましぇん。
0700名無しさん ◆BDDELPHI
NGNG0701デフォルトの名無しさん
NGNGDelフサギコ ◆VzDeLphI
この二人の同一性の証明は?
0702デフォルトの名無しさん
NGNG0703Delフサギコ ◆zE1iiRdQ
NGNG0704デフォルトの名無しさん
NGNGForm初期化時に子コンポーネント全検索して
Caption=Name or Text=Name, Lines.Count=1 and Lines[0]=Nameだったら
空文字列代入って処理を書けばよい。
0705デフォルトの名無しさん
NGNGそんなことするより、素直にコンポーネント継承したほうが早いような...
0706デフォルトの名無しさん
NGNG0707デフォルトの名無しさん
NGNGいちいち登録しないといけないし、複数の機能追加しようとすると破綻するし。
0708デフォルトの名無しさん
NGNG0709デフォルトの名無しさん
NGNGトリッパーってソフトでトリップ探したら?
とりあえず、6文字していくらいだったらすぐに見つかるよ。
0710デフォルトの名無しさん
NGNG0711デフォルトの名無しさん
NGNGhttp://www.borland.co.jp/products/newlicense.html
これって何が変わったんだ?
0712デフォルトの名無しさん
NGNG0713デフォルトの名無しさん
NGNG新トリップでのレスの中で、旧トリップのキー晒しちゃえば?
旧トリップ使えなくなるけど、同一性証明にはなる。
0714デフォルトの名無しさん
NGNG0715Delフサギコ ◇zE1iiRdQ
NGNG,,,,,,,,,,,,,,,∧,,∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
〜′,,,,,,,,,,ミ,,゚Д゚彡< トップリ変えたぞゴルァ
UU"""" U U \_________
0716デフォルトの名無しさん
NGNGぉぃ!!
0717デフォルトの名無しさん
NGNGこの場合DelはProバージョンでいいんですか?
ODBCはProにあるみたいだけど、直接アクセスする
dbExpressドライバはProにはないみたいですけど。
Proとエンプラの価格が違いすぎるんだよな。。。
0718Delフサギコ ◆VzDeLphI
NGNG∧,,∧ /
ミ,,゚Д゚彡 < DB2の方がスゲ高なんじゃないんか.....
(ミ ミ) \
〜ミ ミ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪''∪ アマリ シランケド
>699
チェッ ツマンナイ
というか、USのNGで話題になってることとか
皿してくださるだけでも楽しめるかと....
0720TeamB/2ch ◆SE69s0c2
NGNGPersonal を使うことを公言するのは何かと問題が。
ほんとの仕事であれば企業法人向けディスカウントや製品リースサービスを
考えるべきでしょう。
0721デフォルトの名無しさん
NGNGぅおぃ
0722717
NGNGちらりとボリュームディスカウントとかリースを調べてみたんですが、
数本でこういったサービス受けられるんでしょうか?
大企業が何十本と買うときのサービスのようですが。。。
0723デフォルトの名無しさん
NGNGそういうための部署なんで別に恥ずかしくないよ。
0724デフォルトの名無しさん
NGNGって構文って気持ち悪いと思いませんか?
だって「mtFirst + 1」って、列挙型と整数型を足し算してるんすよ、本来だったら
文法エラーでしょ。
type TMyType = (mtFirst, mtSecond = Ord(mtFirst) + 1);
だったらまだガマンできるんだが。
多少ソースが長くなっても硬派な所を貫いて欲しかった… > 某国
0725デフォルトの名無しさん
NGNGちゃんと心を入れ替えて
Enterprise版を3本買ってくださいね。
 ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ ニヤニヤ
( ・∀・)
( ) シゴトニPersonalナンテ ツカッタラ
| 某| アトデ タップリ シボリトルカラナ
(__)_)
0726デフォルトの名無しさん
NGNG(CerateObjectで無理やり?)
0727717
NGNG早速会社に出入りしている業者に注文。
はやく届かないかなー。
0728デフォルトの名無しさん
NGNG今、仕事で使用しているのですが、これを使って情報の部分を書く手間を省こうとしています
かちゅーしゃで、>>レス番号 と書くと、レスがポップアップしますが
これは、どんなコントロールを利用しているのですか?
使用環境はBT4.0+delphi6.0です
0729デフォルトの名無しさん
NGNGそれ面倒くさい
0730デフォルトの名無しさん
NGNGせめてSucc……
0731Delフサギコ ◆VzDeLphI
NGNG∧,,∧ /
ミ*゚Д゚彡 < 俺もつけてみた。
(ミ ミ) \
〜ミ 棒 ミ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∪''∪
Typeの床では言語処理は行われなさげ、
だから、
Odd(..
ってのは言語処理系として面倒なんじゃないでしょうか?
よくわか、ですが、
mtFirstが定数として表されてて
mtSecond = mtFirst +1
mtSecond = 1 +1
mtSecond = 2
と認識されてるのでは?
0732デフォルトの名無しさん
NGNG0733デフォルトの名無しさん
NGNGファイルとして。
0734デフォルトの名無しさん
NGNGファイルとして扱いたいのは山々ですが
フォーマットを知らないのですが
0735デフォルトの名無しさん
NGNG調べろよ。
0736デフォルトの名無しさん
NGNG使い方わかんないし、フォーマットしらんし
それで困ってるんですけど
0737デフォルトの名無しさん
NGNG>>735
0738デフォルトの名無しさん
NGNG736=734だよ。
0739デフォルトの名無しさん
NGNG作成するとなるとAPIを調べる必要があったはず。
ここにいくがよい。
ttp://members.jcom.home.ne.jp/ganzo/
0740デフォルトの名無しさん
NGNG0741デフォルトの名無しさん
NGNGaviと一口に言ってもいろいろあるんだよね。
だから、aviをどう扱いたいかいわないと答えようがない。
aviを環境依存で言いから再生するだけするのと、
自力で解析して書き込んだり読み込んだりとじゃ、コーデックの問題もあるし労力がまるで違う。
0742デフォルトの名無しさん
NGNG厳密には
type TMyType = (
mtFirst,
mtSecond = TMyType(Ord(mtFirst) + 1)
);
では?キモくない?
0743デフォルトの名無しさん
NGNG0744デフォルトの名無しさん
NGNGそれだと結局、列挙型と整数型の加算をしているような気が。
mtSecond = Ord(mtFirst) + 1
とすれば、少なくとも右辺は整数型同士の加算だから無理が無い、と言いたいんでわ?
0745デフォルトの名無しさん
NGNG他の人などからはVBやCをやったらと言われているんですが、本当にそうなんでしょうか?
それと、できれば初心者にも最適なDelphiの本を教えてください。
よろしくお願いします。
0746デフォルトの名無しさん
NGNGCはともかくVBはやめとけ。
言語仕様変すぎ+すでに発売中止。
VB.NETなら勧めるがその場合、C#覚えた方が得だろうしなぁ・・・。
0747デフォルトの名無しさん
NGNG0748デフォルトの名無しさん
NGNGあるとは言わない。
でも、そこで得たエッセンスは他の言語でも役に立つと思う。
0749デフォルトの名無しさん
NGNGBasicとPascalの違いだけでしょ?
VB.netにはDelphiは太刀打ちできてないよ。
C#とは勝負にすらならない。
何か?
0750デフォルトの名無しさん
NGNG>DelphiとVBってたいして変わらないでしょ?BasicとPascalの違いだけでしょ?
さようなら。
0751デフォルトの名無しさん
NGNGBasicとPascalなら勝負は見えてるが・・・。
このスレでBasicはPascalより優れてる!とか叫ぶ奴はいないと思われ。
って言うかBasicで思い出したけど最近HSPスレ見ないね。
0752デフォルトの名無しさん
NGNGDelphi使ってもVBと同じことしかできないのって、ちょっと悲しいかも、と言ってみるテスト。
0753デフォルトの名無しさん
NGNG何か?
0754752
NGNG0755デフォルトの名無しさん
NGNGそう?簡単にコンポーネント作れたり他の言語から呼び出せるDLL書けたり。
楽しいけどね。
0757デフォルトの名無しさん
NGNGああ、なるなる。同志かw
0758デフォルトの名無しさん
NGNGVBは大手の馬鹿が使うんだよ。
普通の人はVCを使うんだよ。
0759デフォルトの名無しさん
NGNG何となく同意。
0760デフォルトの名無しさん
NGNG0761デフォルトの名無しさん
NGNGN88-BASIC はファイル処理で挫折。
C はポインタで挫折 ←なんであんなに難しく書いてあるんだろう・・・
Delphi 萌え
0762デフォルトの名無しさん
NGNG0763デフォルトの名無しさん
NGNGって言うか妙に柔軟性無いのよね。Pascalの。
0764デフォルトの名無しさん
NGNG☆ チン 〃 Λ_Λ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
ヽ ___\(\・∀・) < VCLで正規表現サポートまだ〜?
\_/⊂ ⊂_ ) \___________
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ /|
| ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄| | BCBのpcre/regexp ツカワナイデヤリタイノ
| Borland | |
| JBuilder7SE 返品|/
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0765デフォルトの名無しさん
NGNG(型名)変数名
よりも、Pascalの
型名(変数名)
の方が255倍わかりやすいと思うのは漏れだけですか?
0766デフォルトの名無しさん
NGNGでも考えてみれば俺がC#でやってることってVB.NETでも同じくできるんだよな。
そう考えてみるとDelphiがVB.NETに追いやられてるというのも嘘ではないかも。
0767デフォルトの名無しさん
NGNG0768デフォルトの名無しさん
NGNGCでできないんだっけか。C++ならどちらでも出来たと思うけど。
まあ、どちらがどうとは思わない。
0769デフォルトの名無しさん
NGNGC#のいいところはJavaライクな簡潔さと.NETのクラスライブラリの豊富さ+α
VB.NETはVB6と違って、C#にVBの皮をかぶせたようなものだから、
機能的にはVC#と大抵同じことができる(細かくは違うよ)が、
BASICな字面のダサさはどうにもならんな。
個人的な予想では、
VB.NET→VB6をなんとか使ってたところが必死こいて使う。出来上がったものの品質もVB並
C#→そこそこスキルがあれば、.NET中最適な言語として選択。
いままでVBしか使わなかったようなところは、初めからDelphiなんか
眼中にない(選択する能力がないor選択する権限がない)から、
DelphiがVB.NETのせいでどうこう、ということはないだろう。
一度Delphiを知ってしまったらC#はともかくVB.NETをやる気にはならないと思う。
C#を知ったらVB(.NET)なんてやる気にならないでしょ?それと同じ
Delphiは.NETの登場で「豊富なクラスライブラリ」という売りがなくなった。
BorlandがDelphi.NET/7でどんな手を使ってくるのか楽しみ。
単に「.NETアプリ作れます」じゃC#と変わらんしな。
今のところ、.NETランタイムが要らないぐらいしかC#に対するアドバンテージはない。
これだけじゃそんなに長くはもたないだろう。
それよりC#/.NET風な環境を5年以上も前から提供してきたのは驚くべきこと。
0770デフォルトの名無しさん
NGNG文字列型に数値を代入できるとか、そういうVB.NETの便利さを知ったらC#なんか使う気にもならないよ。
0771デフォルトの名無しさん
NGNG0772745
NGNGレスありがとうございます。WinMeなのでVisual Basic.netはインストールできないんです。
Visual C#も同じですね・・・
となるとDelphiあたりがいいんですかね?
0773デフォルトの名無しさん
NGNG便利さって・・・それって従来のVBでも出来てた
バグの温床になりやすい仕様じゃん。(; ´Д`)
0774デフォルトの名無しさん
NGNGソースはタイプセーフじゃなくても出力されるILはタイプセーフなんだ。
そこがC#よりも進化してるところなんだよ。インテリジェントとでもいうか。
0775デフォルトの名無しさん
NGNGグダグダ言ってないでPersonalインストールしる!
0777デフォルトの名無しさん
NGNGダメじゃん。(藁
0778デフォルトの名無しさん
NGNG多分煽りだろうがILがタイプセーフかどうかという問題ではない。よく考えてみろ
0779デフォルトの名無しさん
NGNGDelphi(てかPascal)の型チェックが鬱陶しいと思うのは最初だけ。
慣れれば余計な心配がいらない分、気楽。
0780デフォルトの名無しさん
NGNGたまに死にたくなるけどねwSocket使うときとか。
0781デフォルトの名無しさん
NGNGつっても、逆にそれくらいしかメリットないような。便利は便利だが。
0782デフォルトの名無しさん
NGNG0783デフォルトの名無しさん
NGNG0784デフォルトの名無しさん
NGNG.NETの場合はメタデータやILの検証が必要だからね。
0785デフォルトの名無しさん
NGNG料理も中華やイタリアンが好きなんだよ!!
0786マジレス
NGNG0787デフォルトの名無しさん
NGNG厨房発見!
Pascalつー言語はコンパイルが早くなるように計画的につくられてるの。
0788デフォルトの名無しさん
NGNG禿堂です。(w
0789デフォルトの名無しさん
NGNGまーでもVC++よりは最適化は弱いな。
0790デフォルトの名無しさん
NGNG>>787の反論としては疑問だが内容自体は同意。
まぁ、それは言語の問題じゃないわさ。
0791デフォルトの名無しさん
NGNGたんにTurboPascalを書いた人の腕が良かったのだろう。
その技術を継承可能な範囲で、ObjectPascalを発展させたのだろう
0792デフォルトの名無しさん
NGNG0793デフォルトの名無しさん
NGNG>pascalそのものはそういう意図はなかったんだろうと思う
pascalそのものにそういう意図(高速コンパイル)があるんです。
0794デフォルトの名無しさん
NGNGpascal呼び出し規約は関数側でpush popを行うので・・・な話?
ソース出せばすむ話なんだが。
0795デフォルトの名無しさん
NGNGそれは pascalには既定されてないと思う
単に 実装がそうであったというだけでは? 現実に Delphiでは
Cスタイルも可能だし、それを使ってもコンパイルが遅くなるわけではない。
0796デフォルトの名無しさん
NGNG>この新しい言語 Pascal の特徴は、順序立ったプログラミングを要求し、
データ型をプログラミング制御の基盤としていること、
それに、事前に宣言が必要であり、構造化プログラミング技法を要求している、
ということだ。 またこの言語は、プログラミングを教授するクラスで、教材として使うためにも設計されていた。
0797デフォルトの名無しさん
NGNG?
0798745
NGNGDelphiじゃなくて別の言語を覚えた方がいいんでしょうかね・・・
0799デフォルトの名無しさん
NGNGVB.NETがいいと思うよ。ユーザー数が一番多いので気軽に質問・相談もできる。
0800デフォルトの名無しさん
NGNG0801デフォルトの名無しさん
NGNGそもそも発売されてない。
0802デフォルトの名無しさん
NGNG言語は違えどノウハウは役に立つと思うがね。
0803デフォルトの名無しさん
NGNGそれを言ったらDelphiに限ったことじゃないよ
0804デフォルトの名無しさん
NGNGただし、覚えて作る事が可能な範囲は.狭いし、それに誰でも出来るわけで
面白くないと思うんだが・・・・まあ人それぞれだから
0805デフォルトの名無しさん
NGNGしかも言語仕様ぐちゃぐちゃ。
0806デフォルトの名無しさん
NGNG0807745
NGNGVB.NETならいいがVB6はよくないということを上の方で言われたんです。
うちのOSはWinMEなので.NET入れられないんです。
そう考えるとやっぱりDelphiがいいんですかね?
0808デフォルトの名無しさん
NGNGまぁ、ただなんだから試しに使って判断してみれば?と。
アンインストールもちゃんとできますw
0809デフォルトの名無しさん
NGNGプログラミング以前にまずMeから卒業しようよ。2000かXPに。
0810デフォルトの名無しさん
NGNGプログラミングの勉強をしたいなら、Delphiはお勧め。
ただで手に入るし。
VBからCに行くのはハードルが高いが、Delphi→VBは応用が効くし、
Cの知識もある程度身につく。
参考書も種類が少ないから迷わずにすむ。 (w
0811デフォルトの名無しさん
NGNG>Delphi→VBは応用が効くし、
これに何の意味があるというのだ。
第一比較対象変じゃないか?
VBからCに
Delphi→VB
0812745
NGNGDelphiとVBって似ているんですか?
個人的にもDelphiかVisual Basicがいいかななんて思っていますが・・・
Delphiを覚えると後にどんな言語に応用が利くんでしょうか?
0813デフォルトの名無しさん
NGNGC C++ Java Perl C# PHP JavaScript etcetc...
0814デフォルトの名無しさん
NGNGそれはどういった理由から? 命令は同じじゃないでしょ。
0815745
NGNGそんなに応用幅が広いんですか!?すごいですね〜
質問ばっかりで悪いんですが、Visual Basicを覚えると後にどんな言語に応用が利くんでしょうか?
0816745
NGNG!
0817デフォルトの名無しさん
NGNGポカ━━━━━(゜д゜)━━━━━━ン
0818デフォルトの名無しさん
NGNGそれを言ったらVBなんかもっと狭いぞw
ObjectPascalは結構高級なオブジェクト指向言語です。
クラスの継承やオーバーライド、オーバーロード(これは違うな)も思いのままです。
よって、その考え方は他のクラス型オブジェクト指向言語に応用(と、言うか適用)できます。
後、Cだけど。個人的にはCとPascalは一部のキーワードが変わっただけでプログラミングスタイル
自体はかなり似ています。まぁ、どちらも同じ親から生まれたので当たり前と言えば当たり前かと。
0819デフォルトの名無しさん
NGNGVB for Applications
VBScript
以上。
0820745
NGNGDelphi>Visual Basic
の方が後にも有効って事ですね?
0821デフォルトの名無しさん
NGNGDelphiとVBは全然違うので応用できません。
0822デフォルトの名無しさん
NGNGまぁ、厨とか言われるから押しつけないけどさ。
個人的には断然そうかと。
今ではなんやかんやで6〜7言語ほど使えるようになりましたわ。
0823デフォルトの名無しさん
NGNGって言うかなんでそこまでしてVBをやりたいのか・・・・。
0824デフォルトの名無しさん
NGNG0825745
NGNGそうなんですか?
よくDelphiとVB比較している人いるんですが、比較できないんですね。
>>822
6〜7のプログラミング言語を使えるんですか!?すごい・・・
>>823
最初に覚えるんなら簡単なものがいいかなと思ったからです。
0826デフォルトの名無しさん
NGNG0827デフォルトの名無しさん
NGNG大丈夫。すでに発売中止だ。
0828デフォルトの名無しさん
NGNG簡単ですが応用は利きません。
0829745
NGNGそれもありますね。VBは雑誌も出てましたよね?
0830デフォルトの名無しさん
NGNGウソはいかん。
>>829
VBにするならVB.NETにしておけ。
>>818ので言っていることはVB.NETにも当てはまる。
0831745
NGNG以前もいったんですが、うちのOSはWinMEなので入れられないのです・・・
買うならVB6です。。。
0832デフォルトの名無しさん
NGNG0833810
NGNGDelphiとCは言語仕様が似ている。
以上、あくまで「その他の言語と比べて」の話ね。
あと、最初にVBを覚えると変なスタイルが身につく(ことがある)のでお勧めしません。
VBはDelphiをやってからでも遅くない。
0834デフォルトの名無しさん
NGNG6月いっぱいで旧VBは死んだんじゃ?
>>833
>VBはDelphiをやってからでも遅くない。
耐えられないだろうなぁ・・・。
0835デフォルトの名無しさん
NGNG必要悪を受け入れる柔軟さが身につくよね(w
0836デフォルトの名無しさん
NGNG変なスタイルって具体的にどんなこと? Delphiなら大丈夫なの?
0837745
NGNGC/C++は難しそうですし、最初はDeiphiやVBがいいというのを聞いたような・・・
>>833
やっぱりDelphiですかね。VBは選択肢から外そうとと思います。
ちなみにDelphiで初心者でもわかりやすい本ってありませんかね?
0838デフォルトの名無しさん
NGNG簡単に言うと隠匿されてるところが多い。
どっから出てきたこのコントロールとか。
後、hwnd取得するにも一苦労だったり。
0839745
NGNG0840デフォルトの名無しさん
NGNG大変ですな。がんばれ
0841デフォルトの名無しさん
NGNG具体的じゃないなぁ。濡れ衣の可能性も・・・。
0842デフォルトの名無しさん
NGNGまぁ。昔Del3にするかVB5にするかで悩んだときの判断材料だけどね。
VB使いの人俺の誤解を解いてくださいな。
0843デフォルトの名無しさん
NGNG商用アプリ開発に使えません。
商用のものなんか作らないよと油断してはいけません。
ライセンス条項の穴を突いてBorlandが警告のメールを出してきます。
警告を受けた場合、ペナルティとしてEnterprose版を強制購入させられます。
0844デフォルトの名無しさん
NGNG今からプログラミングを勉強しようって奴が商用アプリ云々が関係あるとでも?
作りたくなったらProでも買えばいい。
煽りにしても機械的すぎる。後、個人ユーザか企業ユーザか判断してから煽ってくださいな。
0845745◇Pouk254
NGNGあなた誰ですか?
勝手に745を語らないでください。
Delphiやります!
0846745 ◆VGCcTeys
NGNG0847デフォルトの名無しさん
NGNGまぁ、自分で判断したんだからいいか。
がんばれよ。
0848745◇Pouk254
NGNGまぁどうぞご自由に・・・
とりあえず、この休みはDelphiをやりたいと思います。
みなさんお騒がせしました。ありがとうございました。
またこのスレに来るかも知れませんが、よろしくお願いします。
0849745◇Pouk254
NGNGその人は私じゃないです・・・
0850デフォルトの名無しさん
NGNG記事へのリンクをロストしたんで誰か知ってたらきぼんぬ。
0851デフォルトの名無しさん
NGNGわかってるよ。わざわざ突っ込むなよ。
0852デフォルトの名無しさん
NGNGC/C++が難しいから別のから
って結局遠回りな気がするんだよな…。
変に先入観持たずにやれば、なんてことないと思うんだけど。
って友達にも同じ事言ったけど結局そいつはVB買っちゃった(w
0853デフォルトの名無しさん
NGNG○>>837
0854745◇Pouk254
NGNGC/C++が難しいと思うのは先入観なんでしょうかね?
変な質問ですが、なぜみなさんはDephiをやろうと思ったんですか?
0855デフォルトの名無しさん
NGNG0856745◇Pouk254
NGNG私が本物なんです。
トリップってどうやってつけるんですか?
0857デフォルトの名無しさん
NGNG0858デフォルトの名無しさん
NGNG1)BCBが重かった。
2)BCBよりもDelphiの方が商品として寿命が長そうだった。
3)BCBでのVCLサポートはいつもDelphiに遅れていた。
つーわけでBCBへの不満の裏返し。
0859デフォルトの名無しさん
NGNG0860745 ◆VGCcTeys
NGNGマジレスするとね、今Delphi始めても次の次のバージョンですべて知識が無駄になるよ。
VB.NETやった方がいいって。WinMeだっていうなら、Delphiよりもまず新しいOS買いなよ。
0861デフォルトの名無しさん
NGNGVB.NET勧めるくらいならC#を勧めるべきかと。
0862858
NGNGBCBのC++は変則バージョンだからな。
C++の寿命とBCBの寿命は全く一致しない。
言語の特徴はまあ仕方ないのないことだから。
客先に入れるのにはDelphiの方が相対的に安心できる。
0863デフォルトの名無しさん
NGNG> BCBのC++は変則バージョンだからな。
変則的に使うこともできる。じゃないの?
0864デフォルトの名無しさん
NGNG0865858
NGNGVCLを使わないんならそれは正しいが、それじゃBCBを使う意味がない。
VCLのプロパティ、イベントなどがその変則部分で実装されてる。
VCL周りじゃ多重継承もできないし仮想コンストラクタなんてのもある。
0866745◇Pouk254
NGNGOSを買うお金がないです・・・ 高いですからね・・・
でもなんで次々バージョンで無駄になるんですか?
0867デフォルトの名無しさん
NGNGすくなくともVCLを使うと変則的に使うしかなくなる。
0869デフォルトの名無しさん
NGNGVBがVB.Netで互換がなくなったようにDelphiも7の次は.Netに移行します。
でも、元々まともなオブジェクト指向だったので言語的な変更は少ないであろう。
問題はライブラリ。まぁ、どうせライブラリなんて2,3知ってないと使い物に鳴らんし。
0870デフォルトの名無しさん
NGNGこらこら (w
0871デフォルトの名無しさん
NGNGDelphi.NETのクラスライブラリって互換性維持のためのVCLぐらいでしょ。
0872デフォルトの名無しさん
NGNGお前、ライセンス読んでないだろ。
 ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ ニヤニヤ
( ・∀・)
( )
| 某|
(__)_)
0873デフォルトの名無しさん
NGNG( ´ー`) < シラネーヨ
\ < └───/|────
\.\______//
\ /
∪∪ ̄∪∪
0874Delフサギコ ◆VzDeLphI
NGNG∧,,∧ < みんな、たのしそうだな。
二二二二ミ,,゚Д゚彡 \
ミつ/\ヘ
 ̄ _∬__ ̄ / //  ̄\
&____ノ \// \
\
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄|
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0875デフォルトの名無しさん
NGNG( ´∀`)< Delフサギコはこのスレを裏切ったモナー
( ) \_____
| | |
(__)_)
0876デフォルトの名無しさん
NGNG突っ込むとこは、そこじゃなくて "Enterprose版" じゃねーのか。
0877Delフサギコ ◆VzDeLphI
NGNG∧ ∧ />>850
ミ,,゚Д゚ミ< 真黒ベースって何?
@_ミ \________
これか?
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1020833969
0878デフォルトの名無しさん
NGNG突っ込むも何もご購入いただくのは
Enterprise版じゃなくてProfessional版だからな。
 ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ ニヤニヤ
( ・∀・)
( ) モチロン Enterpriseカッテクレレバ
| 某| ナオヨシダケドナ
(__)_)
0879デフォルトの名無しさん
NGNGコンパイルのときはエラーなどはでませんでした。
パレットの設定を見てもインストールされていません。どうすればいいのですか?
0880デフォルトの名無しさん
NGNG当社のBronzeSupportのご利用を
お勧めいたします。
 ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ ニヤニヤ
( ・∀・)
( ) 1インシデント30000エンナ
| 某|
(__)_)
0881デフォルトの名無しさん
NGNG0882デフォルトの名無しさん
NGNGprocedure Register;
begin
RegisterComponents('ここ', [あれ]);
end;
の部分がソースにある?
0883デフォルトの名無しさん
NGNG ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ ニヤニヤ
( ・∀・)
( )
| 某|
(__)_)
0884デフォルトの名無しさん
NGNG相談室として機能してないじゃん
0885デフォルトの名無しさん
NGNG0886デフォルトの名無しさん
NGNGここは相談室じゃないよ。タイトルよく見て。
0887デフォルトの名無しさん
NGNGprocedure register;
begin
RegisterComponents('samples',[TFileRes]);
end;
というのがあります。
0888デフォルトの名無しさん
NGNG0889デフォルトの名無しさん
NGNGあと、書き忘れていたのですが、Delphi6を使っているので
uses 節 の "DsgnIntf" を "DesignIntf,DesignEditors" に変更しました。
0890デフォルトの名無しさん
NGNG試してみたよ。 確かに D6でパレットに出なかったね
でも
1,TFileRes -> TFileDFM と名前を変えた
2,//uses DsgnIntf ,DesignEditors; とコメントアウト
3,RegisterComponents('Samples', [TFileDFM]);
と Samplesにした。 また、 余分な空白を消した
と書き換えていったらいつの間にか登録出来た。
元に戻しても登録出来てる様子・・・・変だね。
0891デフォルトの名無しさん
NGNG試してみたけどダメでした。。。
もう諦めます。ご迷惑おかけしました。
0892890
NGNG× procedure register;
○ procedure Register;
なぜか、Register手続きだけは先頭大文字にしないとだめみたいだ!
0893デフォルトの名無しさん
NGNGおお!できました!!
ありがとうございます。マジ感激です。
0894デフォルトの名無しさん
NGNG0895デフォルトの名無しさん
NGNG大文字 小文字区別されるのかなあ・・・・・ .NET対応だとついでに識別子に日本語が使えたりして
0896動物園
NGNGRegister の R を大文字にしなくてはいけないのは C++Builder との整合性を取るためです。
Delphi 4 からこうなりました。
# 早く言えって? ゴメン、ついさっきこのスレッド見たので。
0897デフォルトの名無しさん
NGNGFileAgeで取得されるのは更新日時のようなんです・・・
0898デフォルトの名無しさん
NGNGDel6ProってリモートデバッグねーYO!
0899デフォルトの名無しさん
NGNG0900デフォルトの名無しさん
NGNG使わない機能イランだろ。
たった今まで気づかないくらいの機能だろ。
0901デフォルトの名無しさん
NGNGDelphiで分散アプリ作るヤシはいないと?
0902デフォルトの名無しさん
NGNG0903デフォルトの名無しさん
NGNGDelphi6 Enterpriseのご購入を
お待ちしています。
 ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧ ニヤニヤ
( ・∀・)
( ) イマスグhttp://store.borland.co.jpヘ
| 某| エンプラハ リモードデバッグ デキルゾ
(__)_)
0904デフォルトの名無しさん
NGNG商売上手だな(w
0905フサギコ
NGNGミ,,゚Д゚彡フサギコのフサフサDelphi談話室�C
http://pc3.2ch.net/test/read.cgi/tech/1027343132/l50
0906デフォルトの名無しさん
NGNG0907デフォルトの名無しさん
NGNG09081000取り合戦実施中
NGNG\∧_ヘ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
,,、,、,,, / \〇ノゝ∩ < 残りあとわずかのフサDelスレ!頑張って1000取るぞ!
/三√ ゚Д゚) / \____________ ,,、,、,,,
/三/| ゚U゚|\ ,,、,、,,, ,,、,、,,,
,,、,、,,, U (:::::::::::) ,,、,、,,, \オーーーーーーーッ!!/
//三/|三|\ ∧_∧∧_∧ ∧_∧∧_∧∧_∧∧_∧
∪ ∪ ( ) ( ) ( ) )
,,、,、,,, ,,、,、,,, ∧_∧∧_∧∧_∧ ∧_∧∧_∧∧_∧∧_∧
,,、,、,,, ( ) ( )
0909デフォルトの名無しさん
NGNG909
0910デフォルトの名無しさん
NGNG0911デフォルトの名無しさん
NGNG0912デフォルトの名無しさん
NGNG0913デフォルトの名無しさん
NGNGただの二度手間です。何のメリットもありません。
0914デフォルトの名無しさん
NGNGクラスの宣言部だけを表示することも簡単にできます。
優秀なIDEとはこういうものを指すと思います。
DelphiのIDEでは物足りなさを感じます。
0915デフォルトの名無しさん
NGNG何とも奇妙な仕様です。
どうしてVBのインターフェイスみたいにまともなものにできなかったのでしょうか。
0916デフォルトの名無しさん
NGNGそれは単にQtの功績であってCLXには何の手柄もないと思うのがどうでしょう?
0917デフォルトの名無しさん
NGNG(・∀・)イイ!
0918デフォルトの名無しさん
NGNG単なる煽りじゃなくてそこそこいいところを突いてると思う。
0919デフォルトの名無しさん
NGNGVB6/VB.NET/C#ってなんで全ての宣言の前にpublic/privateを書かないといけないのでしょうか。
自動補完対象とはいえ繁雑です。読む時桁が揃わなくて邪魔なだけです。
C++やObjectPascalはスマートですね。
>914
ウェーン、ママァ、一行と思って消したら実は数千行のロジックだったんだって〜
先輩に殴られたぁ〜イタイヨー
( Delphi.NETのIDEは全書き直しで、VS.NETみたいにマルチ言語対応らしいので少しだけ期待 )
>915
VBの文字列って、Unicodeのくせに自動でSJISに変換されてしまったり、それを回避するのが手間だったり
行き当りばったりな仕様ですね。
どうしてDelphiの文字列みたいに素直にAnsi/Wideに分けなかったのでしょうか。
( DelphiのインターフェースはCOMの仕様をまんまさらけ出してるだけだからなあ… )
>916
QtはFreeBSDやMac版もあるのでそのうちCLXもそれらで動いてくれることでしょう、
と、開き直ってみるテスト
…こんなとこ?(難しい…
0920デフォルトの名無しさん
NGNGまあDelphi7を待ちたまえ。それで駄目ならもうおしまいだな。
0921デフォルトの名無しさん
NGNG>VB6/VB.NET/C#ってなんで全ての宣言の前にpublic/privateを書かないといけないのでしょうか。
>自動補完対象とはいえ繁雑です。読む時桁が揃わなくて邪魔なだけです。
スコープごとにまとめて記述するほうがむしろ不自然。
private FCount: Integer;
private procedure SetCount(Value: Integer);
begin
FCount := Value;
end;
public property Count: Integer read FCount write SetCount;
のように関連するコードを一箇所に記述できた方が
格段に可読性・保守性が向上する。
唯一の欠点はそのクラスのインターフェースが掴みにくい事だけど
それはクラスブラウザとJavaDocライクなドキュメンテーションツールで
十分にカバーできる。
つかスレ違い。
0922デフォルトの名無しさん
NGNG>読む時桁が揃わなくて邪魔なだけです。
Tabキーを入れてみては?
0923デフォルトの名無しさん
NGNG>ウェーン、ママァ、一行と思って消したら実は数千行のロジックだったんだって〜
メ○ラでもない限り見間違うことはないでしょう。
0924デフォルトの名無しさん
NGNG>VBの文字列って、Unicodeのくせに自動でSJISに変換されてしまったり、それを回避するのが手間だったり
>行き当りばったりな仕様ですね。
それはVB6の仕様。VB.NETはそんなことは起きない。
0925イカ
NGNG0926デフォルトの名無しさん
NGNG0927デフォルトの名無しさん
NGNG0928デフォルトの名無しさん
NGNG0929デフォルトの名無しさん
NGNG0930デフォルトの名無しさん
NGNG敗北者。
0931927
NGNGがあるんだよねー。
0932デフォルトの名無しさん
NGNG間違ってないかと。
それがVB.NETに行く理由なら笑えるが。
0933デフォルトの名無しさん
NGNG0934927
NGNG正直名前変えてほしかったよ。
0935927
NGNG行くんだったらC#行くよ。
0936デフォルトの名無しさん
NGNG0937デフォルトの名無しさん
NGNG0938919
NGNG0939デフォルトの名無しさん
NGNGC++Builderの文字列はChar[]とstringとAnsiStringとWideStringと豪華4種類もあって大変です!
0940デフォルトの名無しさん
NGNGでもCOM使うときWideString使うぐらいで通常Stringだけで
いいんじゃない?
0941デフォルトの名無しさん
NGNGwstringは?wchar_tは?とか言ってみるテスト
0942デフォルトの名無しさん
NGNGTCHARがないぞw
0943デフォルトの名無しさん
NGNGShortStringもあるみたいだぞ
0944デフォルトの名無しさん
NGNGCharとか書いてるけど責めないで・・・
0945デフォルトの名無しさん
NGNGKylixはAnsiStringとWideStringだけでいいんだっけ?
0946デフォルトの名無しさん
NGNG0947デフォルトの名無しさん
NGNGつーか、D7でUNICODE対応してくれるんだろうか、そろそろ限界ぽい
0948デフォルトの名無しさん
NGNG実はUTF8Stringなんてのも定義されていたり
0949デフォルトの名無しさん
NGNGそれはVCLの話でしょ?
CLXで対応してるから既に対応済みで許してくれない?
0950デフォルトの名無しさん
NGNGDelphi Languageと呼ぶらしいけどあんまり緩い言語使用に
して欲しくないなあ・・
>>947
デフォでUNICODEはかんべんな。せめて環境オプションで選べる
ようにして欲しい。
(もしかして950ゲット?)
0951デフォルトの名無しさん
NGNG○言語仕様
IME2000のヴァカ。
0952デフォルトの名無しさん
NGNGDelphi Lang. より Object Pascalの方がまだマシな気がするなぁ、
なんか、独自仕様爆走っぽくて嫌だなぁ・・・。
しかし なぜUNICODEかんべんなの?
EditとかUNICODE使えないでしょ、だからプロパティで設定できる
ようにすりゃいいだけだと思うけど。
0953デフォルトの名無しさん
NGNG文字が消えてた死ね。
0954953
NGNG0955デフォルトの名無しさん
NGNG(゚ω゚) <そろそろ出番の臭いがしてきた!
/( )\
/'\
0956デフォルトの名無しさん
NGNGDelphi Languageは僕も嫌だ。
オリジナルのObject Pascal(Macの?)からかけ離れてきているのはわかるが、
まだPascal互換ではあるのだから、Delphi Pascalでいいと思う。
0957950
NGNGいや、単にVBで嫌な目に遭ってるだけだからなんだが・・・
なんか丁度そのてのスレが上がってきてるな〜
http://pc3.2ch.net/test/read.cgi/tech/1008913670/l50
>Delphi Lang. より Object Pascalの方がまだマシな気がするなぁ、
>なんか、独自仕様爆走っぽくて嫌だなぁ・・・。
激同。教育用のイメージが嫌だったのか、それとも
GCを初めとする言語拡張をこれからやるって宣言なのか・・・
0958デフォルトの名無しさん
NGNG> 単にVBで嫌な目に遭ってるだけだからなんだが・・・
その意味じゃ、後出しなんだからDelphiは上手くやってくれると期待したい。
取りあえず今のままじゃDB関連で苦しすぎる、DBに強いって云いつつも
表示や入力できない文字があっちゃマズイっしょ。
0959デフォルトの名無しさん
NGNGつーか、Kylix3 for Delphiとか Kylix3 for CB になるわけ?統合されて1本になる
んじゃなかったの?
0960950
NGNGhttp://slashdot.jp/article.pl?sid=02/07/24/1447237
>gcc対応じゃないの?
某独自のコンパイラみたい。フィーチャーマトリクス見る限り
gcc用makefileのエクスポートが出来るとか出来ないとか?
>統合されて1本になるんじゃなかったの?
1本です。
0961デフォルトの名無しさん
NGNGWindows版も将来1本になるんだろうか・・・。
激しく期待してしまう。
0962デフォルトの名無しさん
NGNG0963デフォルトの名無しさん
NGNGそ、そんなことはありませんよ‥‥
 ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧
(; ・∀・)
( ) チッ‥‥
| 某|
(__)_)
0964デフォルトの名無しさん
NGNGだが最上位エディションは有り得るな。
0965デフォルトの名無しさん
NGNGしかし、KylixとDelphiやBCBに加えて.NETが別製品だったらひいちゃいますけど。
いっそ、JB以外は1つの製品にして欲しいよ!
0966デフォルトの名無しさん
NGNG気がする。
0967デフォルトの名無しさん
NGNG十分戦えるって言ってられるでしょうか・・・。
「もーだめぽ」まで逝かないにしても、苦しくなるんじゃないかな。
某環境って VS.NETと比較するとコスト的に結構不利なんですよね。
もっともこれは、商用に限っての話ですが、パソにはVCL等のソースが
付いてませんし、趣味でも本気で使うにはちょい辛い。
0968デフォルトの名無しさん
NGNG@@@@ (゜д゜3
>>968
0969デフォルトの名無しさん
NGNGKylix3は C++版であってPascal版のKylix2とは別物なんだよ、知らないの?
BCBでPascalのVCLが動いてるのと同じレベルなんだけど
0970デフォルトの名無しさん
NGNG販売形式を作ってもらう方が俺的にはいいけど。
会社だとワンパックの方がお得なんだろうけどな。
0971デフォルトの名無しさん
NGNG@@@@
(゜д゜3
>>971
0972デフォルトの名無しさん
NGNGそなの?
http://www.borland.co.jp/news/kylix3.html
読んでみたけど、確かにそのようにも取れるなぁ・・・。
0973デフォルトの名無しさん
NGNGDelphi + BCB + JBuilder + Kylix でエンプラ版お得な100万円
↓
半年に一度バージョンアップ
↓
(゚д゚)ウマー
0974デフォルトの名無しさん
NGNGネタにきまってるだろ。
0975デフォルトの名無しさん
NGNGプログラマ氏ぬな。
(もしかして某も中国人やインド人使ってるのか?いや、そんなはずは・・・)
0977デフォルトの名無しさん
NGNGちゅうこくちんなんて、いないアルよ
0978デフォルトの名無しさん
NGNG>>976は米国から来たので日本語が苦手です。
すみませんね。
 ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧_∧
(; ・∀・)
( ) >>977ハ 弊社ノジュウギョウインデハ
| 某| ゴザイマセンノデ‥
(__)_)
0979デフォルトの名無しさん
NGNG0980デフォルトの名無しさん
NGNGどうしよう・・・
0981デフォルトの名無しさん
NGNGEnt版もVS.NETも全部入って\1,000-とかで。
0982 ◆tare/k3c
NGNGこれが標準になるにはまだだいぶ時間かかりそうだし。
Frameworkのインストール=VBランタイムのインストールに似ていて
すごく抵抗あるんだけどなぁ。
ネイティブな実行ファイル作れるDelphiに惹かれた自分としては
受け入れづらい…
0983デフォルトの名無しさん
NGNG>Frameworkのインストール=VBランタイムのインストールに似ていて
>すごく抵抗あるんだけどなぁ。
じゃあVC++も却下だな。
0984デフォルトの名無しさん
NGNGそれに必要なのはランタイム形式じゃないでしょ…
0985デフォルトの名無しさん
NGNGJavaVM 入れるようなもん
0986デフォルトの名無しさん
NGNG0987デフォルトの名無しさん
NGNG0988デフォルトの名無しさん
NGNG0989デフォルトの名無しさん
NGNG0990デフォルトの名無しさん
NGNG0991デフォルトの名無しさん
NGNG\△/
●
ε=ε= □へ
ノ
0992デフォルトの名無しさん
NGNG(( (゚Д゚ ≡ ゚Д゚) ニャーニャー
⊂⊂≡⊃⊃
オ と,, ≡,,づ オ
ロ し^ J ロ
0993デフォルトの名無しさん
NGNG| ┐‐ | |
| - | |
 ̄| ̄U ̄
| |〜
U"U
0994デフォルトの名無しさん
NGNGl⊆⊇`ヽ ≡ ヤホーイ
(´�D`Lノ ≡
m=○=mノ) ≡
_/_/(「_ノニコ ≡
( (0)=(__)0) ≡(´⌒(´⌒;;
0995デフォルトの名無しさん
NGNG(゚Д゚≡゚Д゚)
|し |つ
⊂__ |
し'
0996デフォルトの名無しさん
NGNG/⌒ヽ
/ ´_ゝ`)
| /
| /| |
// | |
U .U
0997デフォルトの名無しさん
NGNG〔駄目です。無視されています。
しかし>>1君!ああしなければ、他のみんながやられていたぞ!〕
「それ以上煽って僕を怒らせないでよ。
僕に残されている後185串。
これだけあればこの板の半分は壊せるよ。」
『今の彼ならやりかねませんね。』
【聞いて!>>1君!煽りさんたちの判断がなければあなたは通報されてたかもしれないのよ!?】
「そんなの関係ないよ!
煽りは・・・僕の質問を壊そうとしたんだ!!
この僕の手で・・・。
煽り!そこにいるんだろ?何か言ってよ!答えてよ!!」
《空白レス書き込み速度を連続投稿限界まで上げろ。》
【え!?】
《厨房のだだにつきあってる暇はない。》
「まだクッキーが残っ・・・ごはぁ!畜生・・・畜生・・・畜生・・・。」>>989
0998デフォルトの名無しさん
NGNG∧_∧ ニヤニヤ
( ・∀・)
( )
| 某|
(__)_)
0999デフォルトの名無しさん
NGNG,,,,,,,,,,,,,,,∧,,∧
〜′,,,,,,,,,,ミ,,゚Д゚彡
UU"""" U U
1000デフォルトの名無しさん
NGNG. -‐ ) ‐- .
.´,.::::;;:... . . _ `.
i ヾ:;_ `_,.ン|
l  ̄ ̄...:;:彡|
} . . ...::::;:;;;;;彡{ _∧
i . . ...:::;;;;;彡|・ω・`)お茶を飲んで、落ち着いてね。。。
} . .....:::;::;:;;;;彡{ /U
!, . .:.::;:;;;彡j |
ト , . ..,:;:;:=:彳 ∪
ヽ、.. ....::::;;;ジ
10011001
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。