Delphi相談室その２

ちょっと内容が高度になりすぎてしまうTechスレじゃ質問しずらい
とかはいりにくい人の為に　DelphiのTips Ｑ＆Ａ　はこちら


Delphi/Kylix Tech 2nd　はこちら
http://piza.2ch.net/test/read.cgi?bbs=tech&key=993005709
つづく>>2

前の　Delphi相談室
http://piza.2ch.net/test/read.cgi?bbs=tech&key=971261573

Delph6 の話でもはじめますか？
http://piza.2ch.net/test/read.cgi?bbs=tech&key=989950788

delphiで作られた有名ソフトって何がある？
http://piza.2ch.net/test/read.cgi?bbs=tech&key=990056026

Techの方もリンクはってればよかったね。

1>>
すぐに削除依頼を出すように。
むやみにスレ立てんなよ

delphiってもうバージョンアップしないんでしょ。
そんなのに新しいスレ建てるなんてばかげてると思わない会。

変なのが増えてきたので以後の質問は以下でお願いします。
このスレはsage進行で

http://piza.2ch.net/test/read.cgi?bbs=tech&key=993933402

>>1 スレ立てお疲れでーす。
しかし、変な嫌がらせ野郎がいるな。>>4-6

>>7
人の迷惑も考えずにスレを乱立してっからだろーがよ。
いくつあると思ってんだ、delphi関係のスレが。
もっと自粛セーよ。ぼけがー。

変なﾄﾞｷｭ煽りは無視しておいて

前スレの916の質問。

Becky風TreeView描画コード書いた。

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
　Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
　DefaultDraw := True;

　TreeView1.Canvas.Font.Color := clBlue;
　TreeView1.Font.Color := clRed;
　TreeView1.Font.Size := 15;
end;

procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView;
const ARect: TRect; var DefaultDraw: Boolean);
var
　NodeRect: TRect;
　i: Integer;
begin
　DefaultDraw := True;

　TreeView1.Canvas.Font.Color := clGreen;
　for i := 0 to TreeView1.Items.Count-1 do
　begin
　　if (not TreeView1.Items[i].IsVisible) then continue;
　　NodeRect := TreeView1.Items[i].DisplayRect(True);
　　TreeView1.Canvas.TextOut(NodeRect.Right, NodeRect.Top, '('+IntToStr(i)+')');
　end;
　TreeView1CustomDrawItem(nil, nil, [], DefaultDraw); //※
end;

※のコードが無いと
Label1のフォントにItalicなどしている場合
TreeView1.Items[0]番の右項目(上の例では'(0)')の
初期描画位置がどうしてもずれる
別にイベントハンドラ呼ぶ必要がるのではなくてFontを設定しなおしているだけなんだけど

理由がわからない。
なぜだ！教えてくれ。

よろしく。

>4=5=6=8
激しくｳﾝｺ（；´д｀）

function FourNum(s:string):double ;
var num:double;
var sym:char;
　procedure addsub;forward;
　procedure next;
　var i,j:integer;
　const sep='^+-/*()<>';
　begin
　 if s='' then begin sym:=#0;exit;end;
　 for j:=1 to length(sep) do
　　if s[1]=sep[j] then begin　sym:=s[1]; delete(s,1,1); exit;end;
　　sym:=#1;
　 for i:=2 to length(s) do
　 for j:=1 to length(sep) do
　　if s[i]=sep[j] then begin
　　　　num:=StrToFloat(copy(s,1,i-1)); delete(s,1,i-1); exit;end;
　　num:=StrToFloat(s);s:='';
　end;
　 procedure factor;
　 begin
　　if(sym = #1) then　next
　　else　if(sym = '(') then
　　　begin next; addsub;
　　　　 if(sym <> ')') then raise Exception.Create(' )がない');
　　　　 next;
　　　end;
　 end;
　 procedure muldiv;
　 var savenum:double;　 var oldsym:char;
　 begin
　　factor;
　　while (sym in ['*','/','^'] ) do begin
　　　savenum:=num;oldsym:=sym;　next;
　　factor;
　　　case oldsym of
　　　　　　'*': num:=savenum*num;
　　　　　　'/': num:=savenum/num;
　　　　　　'^': num:=power(savenum,num);
　　　end;
　　end;
　 end;
　procedure addsub;
　var savenum:double;　var oldsym:char;
　begin
　　　case sym of
　　　　'+': begin next;　muldiv;　 end;
　　　　'-': begin next;　muldiv; num:=-num; end;
　　　　　else　　　 muldiv;
　　　end;
　　while (sym in [ '+','-'] ) do
　　 begin　savenum:=num;oldsym:=sym;　next; muldiv;
　　　　case oldsym of
　　　　'+': num:=savenum+num;
　　　　'-': num:=savenum-num;
　　　　end;
　　 end;
　end;
begin //ここがFourNum関数の根っこ
　next; 　addsub; 　Result:=num;
end;

>>11 は 教科書通りの再帰下降法
　　１レスに収める為に　多少書き方は汚いけどちゃんと動くよ

#1 は数値シンボルね

関数は文字列の後に他の演算子が入らなくて(があれば
って処理すれば組み込めるよ。

>>9
迷医はあなたの質問の解決には十分な睡眠と適度な運動が必要だと
考えます。カスタム描画と VCL のイベントの関係と順序を多少理
解する必要にあるかもしれません。

この症状を対する処方箋は TreeView1 のフォントの設定を設計時に
行っておくというものです。設計時の TreeView1.Font のサイズや
スタイルを OnCustomDrawItem で設定するものとは別の内容にして
いるのが原因の１つだからです。

このため OnCustomDrawItem よりも先に発生する OnCustomDraw イ
ベントでは、まだフォントは設計時に設定した値のままです。
OnCustomDraw イベントで利用している DisplayRect メソッドは現
在のフォントに従ったラベル領域の幅を得ることになるため、設計
時のフォントの幅が OnCustomDrawItem で設定しているフォントよ
り小さいと期待した位置より左に、大きいと右にずれているでしょう。

あなたは TreeView1.Font が未設定だという迷医の診断を受けて
OnCustomDraw の中で TTreeView1.Font を設定するようなコードを
用意すればいいと考えるかもしれませんが、それは迷医の思うつぼ
にはまってしまいます。

OnCustomDraw の中で TTreeView1.Font に変更を行っても Display
Rect の返す領域は依然設計時に設定した TTreeView.Font のままに
なっています。カスタム描画ステージに突入したコモンコントロー
ルはステージを完了するまでフォントの変更を適用しないからです。

>>11 バグレポート

"--1" が -1になるぞ

"3+" で ６ が帰るぞ

だいたい空白が入るとダメじゃないか

>>14
文法チェックは殆どしてないからね
１レスに収まる為って事で勘弁してくれ

空白についてはあちこちTrimを入れると修正出来るだろう

>>13
なげー文載せんなよ。ばーか

>>16
日本語を

>>11
　--1で１が帰る方がいいのかどうか判らないけど

　　　　'+': begin next;　muldiv;　 end;
　　　　'-': begin next;　muldiv; num:=-num; end;
この２行の muldivを addsub に変更すれば再帰処理されて1になるよ

まあでも　普通は -- はデクリメント演算子に使いたいよな

>>11
（・∀・）ｲｲ！ 使わせてもらいやす。

（・∀・）ｲｲ！ バグフィックス版をアプして下さい

>>20 バグじゃないよ　仕様なんだって

どんな仕様が希望？　希望によっては変更してもいいよ

>>18　なるほど
　でもおっしゃる通り -- や ++ は別の演算子に使いたいし
　-(-(1)) と書いてくれたらいいんだし

バグじゃないなら良いです。

そういわれると弱いなあ

> "3+" で ６ が帰るぞ

については、 factor の if の end; を
　　 end
else raise Exception.Create('数があるべき');
とやってくれたら直る。

空白が入るとダメなのは　next　の

if s[1]=sep[j] then begin　sym:=s[1]; delete(s,1,1); exit;end;
に
if s[1]=sep[j] then begin sym:=s[1]; delete(s,1,1);s:=trim(s); exit;end
とtrimを挿入してくれ

D5を使ってるのですが、
設計時　TMemoのLines プロパティに　大量のメッセージを書いておいたら
どうもふと気付くと失ってる事が頻繁に起きます。
しょうがないから外部テキストにして読み込んでるけど

これって俺だけ？

>>25
君だけ。再インストールしたら。

そうか。俺だけか・・・じゃ再インストールしてみるよ

Delphi6 でツールバーのカスタマイズがサポートされましたが、
これをプログラムから実行するにはどうすればいいでしょうか？

>>28
意味がよくわからんのだが。

たぶんこれだろ。

property TToolBar.Customizable: Boolean;

説明

Customizable プロパティを True に設定すると，ユーザーはツールバーボタン
を実行時に追加，削除，および移動できます。
ユーザーは次の 2 通りの方法でカスタマイズ可能なツールバーを変更できます。

ユーザーは，〔Shift〕キーを押しながらツールボタンをドラッグする方法で，
ツールバー上の新しい位置にボタンを移動することや，
ツールバー外にドラッグしてボタンの削除を行うことができます。

ツールバー上をダブルクリックすることで，ユーザーはツールバーの
カスタマイズダイアログを表示できます。
このダイアログには，ツールバー上にないボタンを収めているリストボックスと，
ツールバー上に表示中のボタンを収めているリストボックスの 2 つがあり、
その 2 つですべての可能なボタンが表示されます。
ユーザーはこのダイアログを使って，ボタンの追加や削除，
その順序の変更を行うことができます。

>>25-27
Windowsの32KB制限にひっかかってるとか

で、Win2kで開発してる人は気付かない、と。

9です。
>>13
もうすこし、わかりやすく言ってもらえないですか？

どうして、TreeView.Items[0]だけRectがずれているのかが
わからなくて問題なんだ。
･･･Items[1以降]ではちゃんと描画されているんだい！

で、解決方法を教えてくれよ。

OnCustomDraw時に一度だけUpdateやRefreshなどの
メソッドを出すようにしたらよいのかい？

迷医さん迷える患者を助けてくだされ。

>>33
理由も解決方法も書いてあるじゃん

>>34
良くわかってもないのに書くなよ

設計時に設定しろとかいう寒い解決方法なんて望んではいないんだ。

それは１つの解決法としか書いてないだろ、

それから DisplayRect の挙動について説明してるわけだから、
設計時に設定したくないなら、そっちを読んで自分でコードを
書けばいいわけだよ。

わざわざそのときの注意点まで書いてあるんだし

ついでだから再現パターン例だけ書いておいてやる

前提1) 設計時のフォントサイズを 11 とする
前提2) 計算を楽にするため文字 x は幅とサイズが等しいと仮定

1) フォームがされて TreeView を描画する要求がくる

2) OnCustomDraw イベントが発生する

3) OnCustomDraw で DisplayRect() が呼び出される
この時、前提1と前提2から、DisplayRect の戻り値
の右端はアイテムが xxx だったら 11*3 = 33 だろ
左から 33px のところから描画が走る

4) 次に OnCustomDraw が発生して TreeView1 のフォ
ントのサイズが 15px になる。アイテム xxx は
15x3 = 45px の幅を消費する。
左から 33px の位置から描画していた内容の先頭
10px が上書きされて潰れてしまう。

5) １つ目のアイテムを描画しおわったらカスタム描画
ステージが一段落するので、次の DisplayRect()
は Font.Size = 15 で 45 を返すので、２つ目以
降は正しく描画される


DisplayRect で正しい幅を得たいなら描画が始まるよ
り先にフォントのサイズを正しく設定すること、その
１例が設計時だろ。

他には DisplayRect を使わずに Canvas.TextWidth
などを使って自分で各要素の幅・丈を足し算するとか

なげー文載せんなよ。ばーか(ｺﾋﾟﾍﾟ

>>36-37
ありがと・
>DisplayRect で正しい幅を得たいなら描画が始まるよ
>り先にフォントのサイズを正しく設定すること、その
>１例が設計時だろ。
いや、そりゃそうなんだけど
描画直前にOnCustomDraw/OnCustomDrawItem
どちらかで設定して反映できないかな？

>他には DisplayRect を使わずに Canvas.TextWidth
>などを使って自分で各要素の幅・丈を足し算するとか
おっしゃるとおりですな。

なぜfor..でまわしているのに最初のItemだけ変になるんだ？
全部のItemがずれるのなら迷医の主張もわかるんだ。
だけど、DisplayRectでずれるのはItems[0]だけだぜ。
納得いかないよ。

>>38
おまえ邪魔

そうか、確かにループだから変だな。

DisplayRect で TREEVIEW の処理が進むのかと思ってダミーで
呼び出してみたが変化しないな、迷医の解説希望。

AdvancedCustomDraw を使うという解決策もあるぞ。

いま、試せる環境にいないので、わからないけど>>40
情報サンキュ。

TextWidthやAdvancedCustomDrawも試してみる。

基本的にOwnerDraw時も
TreeViewのデフォルトのFontと同じようにして
色だけ変更したりして描画するのが限界なのかモナー

>>30
の続報希望
出来るの？出来ないの？

DEMOにドッキングフローティングのサンプルコードがありますが
あのドッキング状態をプログラム終了時に保存して
プログラム起動時に復帰する簡単な方法ってありますでしょうか

どの設定を保存してどのタイミングで復帰すればいいのでしょう
おしえてください。

>>30

SendMessage(ToolBar1.Handle, WM_LBUTTONDBLCLK, 0, 0)
ってやってみたけど無理だった。
やっぱり、直接ダブルクリックするしか方法がないんだろうか…。

ひっそりとではあるが、
Delphi6 で TreeView の複数同時選択がサポートされてたのが嬉しい。

>>45
ほんとに？
旧版ではCreateParamsで設定するとかで実装できないの？

delphiってversion4,0が最近でたって本当ですか。
買ったほうがいいんでしょうか。

>>44
　SendMessage(Toolbar1.Handle, TB_CUSTOMIZE, 0, 0);

CommCtrl の uses が必要。

.... 47 は無視しようね。

>>47
ﾈﾀｳｻﾞｲ。del6スレ有るだろうがｺﾞﾗｧ！！ﾈﾀにマジレスｶｺﾜﾙｲ。

>>48>>44
画像アプしてくれ。

Delphiの不思議

ほとんどのソースはＴａｂは２スペース分なのに
エディタの初期設定では８スペース分になっている

＃　毎回、バージョンアップのたびにここの設定を変えてます
＃　はっきり言ってうざい

ＮＥＣ、４０００人の人員削減！

中村さん、大丈夫だろうか？

>>61
その設定を変える必要は無いから，誰も変更していないんだけど？

>>51

タブの幅とインデントの幅は別々に指定できるんだよ

>>52
リストラされたら晴れてBorland社員になるか
正式なライターになってくれ。

富士通の方が深刻。有名社員いないけど。

>>55
>リストラされたら晴れてBorland社員になるか
Borland も嫌がるだろうよ。実物は性格悪くて。二度と原稿依頼はしないぞ。と誓った。

>>57
どこの出版社？

Ｄｅｌｐｈｉって他の言語と比較して何がいいところなん？
全然分からん。。。

言語と捕らえ方すると見誤る
RADツールとして優秀だから評価されてる
正直Pascalうざい

みなさんはDelphiで、どんなものを
作っているのでしょうか？

>>61
エロゲー

game

tool

OS

97年の本がなんで今ごろ売られてるのか謎だけど、「やさしいDelphi」って本いいッスねー。

タイトルに毒を感じるのは私だけ？

>>59
Borland独自のOOP拡張はいけてる。
「RADのためのOOP」って奴(by DDJJに書いてた某氏)。
RTTIもTClassもpropertyもpublishedもおおかた素晴らしい。
しかも、単にRADにしか役立たないわけじゃなく、他の場面でも
色々役立たせることが出来る汎用技術。

一方、もともとのPascal(の影響を引きずってる部分)は、おおかた糞。
単にTP系のノウハウを投入しないと超速コンパイラを作れなかったから
選択したんだと思う(というか思いたい)。

言語というか字面の仕様としては、Javaのほうが数段マシ。
Pascal風の順序依存性の強い文法より、Javaのように
(C以上に)順序依存性を減らした言語のほうが、
OOP言語としては使いやすい。

そうそう。OOP機能と呼ぶべきかどうか微妙だが、
名前空間の機能は、ちと弱いねdelphi。もう少し改善して欲しい。
いまどき名前空間をネストというか構造化することができないってのは痛すぎ。
その皺寄せが、"csDesigning"などいう定数名に現れる。頭の2文字ださい。

好みの問題じゃないか？俺もCからDelphiに移ってきた最初は
結構戸惑う部分多かったけど今じゃCやJavaの書き方の方が
なんだか違和感が有ったりする。

>>67

名称空間については同意
あと、個人的には最適化エンジンを強化してほしい。
ProTools とかでソースレベルでのオプティマイズは時代遅れだ。

Java はだんだんよくなってきているな, Delphi の TList や
コンテナ/コレクションに持っている type-safe なプログラムが
書きにくいという同じ欠点はあったが、それも解決の方向性に向っ
ている。

しかし、Delphi の OOP のための拡張のほうがまだまだ Java よ
りは使いやすい感じが否めないところもある。

あと、実行環境がいまだに整備されきってないのが痛いな。
Java2 の実行環境が手軽にアプリケーションに要求できない。
Windows 主体のクライアント環境だとこれがさらに深刻化。

Name := 'ImageList1';
TImageList(FindComponent(Name)).AddMasked(Bitmap, clLime);

のように、String型変数に入った名前でTImageListにアクセスしようと
しているのですが、クラスの例外を生成したと言われてしまいます。
FindComponentではこのようなことはできないのでしょうか？

ImageList1 がまだ作成されていないだけじゃない？

as や is をつかいなされ。

サブクラスでメソッドとかの制限ゆるめられるってのに
違和感がー

>71
あらかじめImageList1は作られているので、直接指定すると
問題なくできました。で、結局

procedure TForm1.AccessImageList( Tmp:TImageList );
begin
　tmp.AddMasked(Bitmap, clLime);
end;

というちょっと情けない感じではありますが目的は達成できました。
as演算子使う場合って

(TObject(Name) as TImageList).AddMasked〜

とかやれば良かったんでしょうか？
どうもうまくいきませんでした。

>FindComponentではこのようなことはできないのでしょうか？

できますよ。

Nameって変数名がちょっと怪しいけど大丈夫ですか？
あとFindComponentからnil以外の値が返るかどうかもチェックして
みてください。

>>69
TListは、そもそもTListという命名が詐欺(わら
TArrayとかのほうが相応しいように思える。

>>73
おーい。Name(文字列)をTObjectにキャストしてどうするよ？(^^;
(FindComponent(Name) as TImageList).AddMasked(Bitmap, clLime);
だがや。

あと>>74が言うようにNameってTComponentのプロパティ名と衝突してるんで
きちんと作ってないとおかしなことになるぞ。

TArray だと途中の要素を削除しにくそうなイメージが

いつパーソナルはダウンロード出来るようになりますか？ウキウキ☆

４０００人のリストラ発表してから急に出てこなくなっちゃったけど
大丈夫なんだろか？中村さん

中村氏がいなくても特に問題は無いことがよく分かる。

きっと夏休みでしょ

中村氏がいなくても得に問題はないことがよく分かる。
pちゃんがいないと問題であることもよく分かる。

>>76
TListだとランダムアクセス出来なさそうなイメージが。

ところでListというとLispのCellみたいなものを思い出すが、
GCのない言語でああいうものをやると悲劇が訪れるだろうな…

名前空間って列挙型にも適応されるものなんでしたっけ？
先頭2文字は結構エレガントに感じるんだけどなあ。

列挙型の名前よりかは(だってあれ重複OKだもの)
ユニット名の重複がありそうで
その点はJava的なフォルダみたいな(フォルダそのものか？)
名前空間がいいんだが...

それより、テンプレートを導入して欲しい。

クラス内に列挙型おけたらいいんだけど。

T2ch = class
public
　　TMode = (SageMode, AgeMode);
　　：
　　：
end;

T2ch.SageModeって感じでアクセス。
C++のenumみたいな。

>>83
ReadOnly のプロパティ/定数値を返す関数を定義したら？

>>80
p 本人？

>>82
>先頭2文字は結構エレガントに感じるんだけどなあ。

嘘だろ…あれのどこがエレガント…
たった2文字で何を表現したかが(人間様に)判るのか？

>その点はJava的なフォルダみたいな(フォルダそのものか？) 名前空間がいいんだが...

階層構造な名前空間ね。まぁフォルダと同型。

理想はやっぱりclassとunitの同一視かな。コンパイル言語じゃ苦しいかもだが。
delphiの場合、 classとunitは何らコンパチ性の無い概念であるくせに
classとunitが名前空間を共有してるってのが、痛い。

>テンプレートを導入して欲しい。

ただし導入するなら、C++風の無用に重い奴じゃなく、
GenericJavaみたいに軽量な奴だけ、許可。
C++みたいにprimitive型まで扱い出したらキリが無い。
せっかく「全てのclassの親であるTObject」が有るんだから。

>>83
>T2ch.SageModeって感じでアクセス。
>>84
>ReadOnly のプロパティ/定数値を返す関数を定義したら？

ちょうどいいや。定数を返すClassメソッドを作ったら如何？
もろにそういう呼び出し手順で呼べるし。

しかも子Classで違う値を返したいなんて思ったときも、
delphiなら「Classメソッドの多態」で難なく乗り切れる。

>>>83
>>T2ch.SageModeって感じでアクセス。
>>>84
>>ReadOnly のプロパティ/定数値を返す関数を定義したら？
>ちょうどいいや。定数を返すClassメソッドを作ったら如何？
>もろにそういう呼び出し手順で呼べるし。
>しかも子Classで違う値を返したいなんて思ったときも、
>delphiなら「Classメソッドの多態」で難なく乗り切れる。
トリッキー（笑）かっこいーなー

> 嘘だろ…あれのどこがエレガント…
> たった2文字で何を表現したかが(人間様に)判るのか？

そうか…もちろん先頭小文字3文字でも4文字でもいいけど
あの頭文字を羅列した命名則が好きなんだ

> 理想はやっぱりclassとunitの同一視かな。コンパイル言語じゃ苦しいかもだが。
> delphiの場合、 classとunitは何らコンパチ性の無い概念であるくせに
> classとunitが名前空間を共有してるってのが、痛い。

若干痛いかな？
ネット時代だと他人の配布しているコンポーネントと
命名がぶつかることは現在もかなりあるだろうね。

関係ないけど1ファイル1クラスの思想はｵﾚは嫌い。

> ただし導入するなら、C++風の無用に重い奴じゃなく、
> GenericJavaみたいに軽量な奴だけ、許可。
C++のテンプレを詳しくはしらないんだけど
重厚な奴はいらない。

>>74-75
ありがとうございます。
他の部分が問題なのかと思い以下のような最小限でやってみたら
やはり例外が発生してしまいました。

procedure TForm1.FormCreate(Sender: TObject);
var
　　NewImgList : String;
　　NewBitmap : TBitmap;
　　hoehoe : TImageList;
begin
　　NewBitmap := TBitmap.Create;
　　NewBitmap.Width := 32;
　　NewBitmap.Height := 32;

　　NewImgList := 'hoehoe';
　　hoehoe := TImageList.CreateSize(32,32);
//　　hoehoe.AddMasked(NewBitmap, clLime);
　　(FindComponent(NewImgList)as TImageList).AddMasked(NewBitmap, clLime);
end;

FindComponent行をコメントアウトし、その上をコメント解除すると
問題ありませんでした。ひょっとしてなにか別のUnitを useしておかなくては
いけないとか？^^;

とりあえず、あらかじめ ImageListを作って
procedure TForm1.FormCreate(Sender: TObject; ImgListTemp: TImageList);
で渡すという方法で処理していますので問題はないのですが、後学のために
問題点を指摘していただけると嬉しいです。^^;

＞先頭小文字3文字でも4文字
あーおれもやっちゃってるけど、あまり好きじゃないんだよなー。
うーん。


テンプレートは確かにほしい。JAVAっぽやつキボンヌ

動的に作成したコンポーネントをフォームに登録していない。
フォームに登録していないから、FindComponent は検索に失敗し、nil を
返す。nil に対するメソッド呼び出しで例外発生。

前に誰かが書いていたけど、(FindComponent(NewImgList)as TImageList) が nil かどうかを
確認してから使いなさい。あまり１行に詰め込むのは汚いしバグの元。
生成コードに対して違いは出ないから、各ステップを変数につんで処理をしなさい。

pちゃん復活あげ

>>92
なんかあったの？

pはくたばったって書いたら出てきたってことはpは２ｃｈねらーだな（藁

p氏ふっかーつ！！
お久しぶり〜

DelphiXの堀さんのページ
http://www.yks.ne.jp/~hori/
が消えてるんですが何があったのでしょうか？

>>96
＞８月４日２時より緊急メンテナンスを行います。一時、アクセスができなくなりますのでご了承下さい

>>87
鳥っ木ーなんじゃなく、それが出来ない他言語たちがダサイだけ。

>>88
>ネット時代だと他人の配布しているコンポーネントと

そやね。ネット時代になったせいで、そういう気配りも
世間に注目(わら)してもらえるようになった。
それ以前の時代なら、「なに贅沢こいてんだ？」で一蹴されちまったとこ。

95年にJavaがあの仕様を引っ提げて出てきたのは、だから衝撃だった。
米国はともかく日本じゃInternet普及はまだまだこれからっていう時期だったからね。

>1ファイル1クラスの思想はｵﾚは嫌い。

たしかにあれも痛い。
Javaだと.classバイナリファイルは人間様にとってはどうでもいい
(しかもアーカイブ作成もサポートされてるし)けど、ソースが…。

>C++のテンプレを詳しくはしらないんだけど

C++のテンプレートは「全ての」型に対応できる。
一方GJのは「Object(DelのTObjectに相当)クラスのサブクラス」だけに対応してる。
だから、テンプレートの仕掛けを実現するために背後で多態を使う、
というような(いわば)ことを、GJはやっているけど、C++はやっていない。
int型とかはObjectじゃないからね。
で、多態を使えないってことは、全てをコンパイラが面倒見るっていうことになる>C++
ちょっと重すぎ。

コンパイラ(を動かすCPU(わら))が速ければいいと思ってる奴もいるようだが、
コードをコンパイルしてバイナリ化するときに、テンプレートを使われた件数(!)に
相当する個数の擬似クラス(?)がバイナリの中に作りこまれることになる。
これはサイズ的にも痛い。だから弱小モバイル計算機にも実は不適。

GJのテンプレートは単に強制キャストに変換されるだけ。簡単。

BorlandのDelphiトレーニングコースって
どうですかね？？
やっぱ本買って独学ですか？

100だ

>>98
> コードをコンパイルしてバイナリ化するときに、テンプレートを使われた件数(!)に
> 相当する個数の擬似クラス(?)がバイナリの中に作りこまれることになる。
template の specialization を使うことで、簡単に実装の共有を実現
できます。しかも型安全性を維持しながら、キャストのオーバーヘッド
もありません。

確か「プログラミング言語Ｃ＋＋」にサンプルが載ってたと思います
が、もしかして >>98 は「プログラミング言語Ｃ＋＋」も規格書も読
まずに文句言ってます？

>>98,101
ここは「Delphi相談室」だ。ボケ。

テンプレートの効率に関しては，内部的にマクロ相当で処理している VC の古いやつは
確かに使いもしない実装をばんばんはき出していた。BC も 4 くらいまではそんな感じじゃ無かったかな？
現在の主流の実装では，仮想的な関数定義を作って最後にリンカがまとめるため，爆発は起きない。

実装が共有されるか否かまでは，規格書は何もいっていないよ。

>>102
レシーバであるObjectのサイズや、その中でのメンバのオフセット
とかを、コンパイル時じゃなくリンク時に確定するってこと？

tech スレいってください
相談室のネタには濃いすぎます

せっかく多スレッドあるんだから棲み分けをっ

>>104
C++ 系の方に移りたいんだけどね...

>>103
sizeof( SomeObject ) には VMT テーブルの大きさは入らない。
だから，未使用であることが確定できるメソッドは，存在しなくても破綻しない。
分かるかな？

無理矢理 Delphi の話に戻すと，
Delphi のリンカは 105 で書いた作業をちゃんとやっている。直接にも間接にも
使っていないメソッドは削除される。

>>105
結論としてはVCを使った方がいいってことだよね。
同意するよ。

Delphiで３Ｄポリゴンの描画は可能ですか？

>>108
無理ですね（まじで）。VCなら可能です。買い換えましょう。

>>108
VCでどうやって描画するのですか？

そうなんですか。
Delは最近やりはじめたんすけど（ＶＣは２年位前からやってます）
けっこうDelでゲームをつくるっていうのをききますが、
どうやってるんだろう・・・

>>111
directX使えよ。

http://www.google.co.jp/search?hl=ja&safe=off&q=Delphi+%83Q%81%5B%83%80&lr=

おお！DelphiでDirectXつかえたのか・・・
しらんかった・・・そしてありがとう。

外部ライブラリが使える言語ならなんでも使えると思うが……

DelphiXはコンポ化されてりょ

それこそjavascriptでもな。

日曜日の夜なんで，基地外がはびこっているな

門外漢には基地外なのかどうかわからない

メニュー(TMainMenu) の横にイメージを表示するように設定すると、
アクセラレータキーを表す下線 ( _ ) が表示されません。

開く(O)... ← こんなやつ

どのようにすればいいでしょうか？

>>120
VCでなんですが、&Oみたいに&をいれればオーケーです。

Captionはちゃんと'開く(&O)...'になってる？

&記号は入れています。
ちなみにWin2000上だけで起こります。
Delphiのメニュー自体もそのような状態になっています。

&記号は入れています。
ちなみにWin2000上だけで起こります。
Delphiのメニュー自体もそのような状態になっています。

120 です。
説明が足りなかったので補足します。
この問題は、Windows2000 上だけで起こります。(Win95/98 では大丈夫)
もちろん、& 記号は入れております。(開く(&O)...etc)
メニューの横にイメージを表している(TMainManu.Images を設定している)場合だけ起こります。
Delphi の開発環境自体のメニューも同様の状態です。
同じような現象を確認された方、おられますでしょうか？

(ミスで連続書き込みしてしまいました。すみません。)

>125
いわれてみればDel5,6両方のIDEで出てないね

Windows2000 からの新機能で、メニューアクセラレイタの機能を
有効にしたまま下線が消せるようになったんだよ。

menus.pas より
　if Win2K and (odNoAccel in State) then
　　DrawStyle := DrawStyle or DT_HIDEPREFIX;

odNoAccel と同時に追加された odNoFocusRect には
対応してないようだ、VCL を grep してもひっかからん。

JpegユニットのようにusesするだけでTImageから読み出せるようになる
susieのユニットってないですか？

>>127
英語版の W2K はデフォルトで下線を消す
日本語の W2K はデフォルトで下線を表示。

ほとんどの人はこのモードを切り替えることはしないんだけど，みんな英語 OS 使っているのかい？

>Windows2000 からの新機能で、メニューアクセラレイタの機能を
>有効にしたまま下線が消せるようになったんだよ。

なんの為の機能なのですか？

>130のデフォルトってなんか逆のような...
英語の'&File'は下線明示しないとどれだかわからないし
日本語の'ファイル(&F)'は明らかにFってわかるので下線不要。

デフォルトってDelphi固有の話？
だとするとバグだか不適切な仕様だよね。

OS のデフォルトで日本語は下線表示がオフだよ

>>131

下線が入っていると見た目が格好悪いから、格好良く見せようとしてるのさ
odNoFocusRect も同じ

>>132
物を知らないことをとやかく言う気はないが，いったん物を知ったら少しは自分で調べたらどうだ？
教えて君は辞めてくれ。

Delphi では、下線表示を強制的にONにはできないよ。

>>134
あーん、お前みたいな奴がいるからDelphiユーザーは不親切で
馬鹿ばっかりって言われるんだよ。ボケで糞で時代遅れで
デブで腐ってて、臭くて、オタクで意地っ張りで、ボケてて、
意固地でノー足りんで禿げてて、息臭くて、礼儀知らずで
すぐにスレを作りたがって、世間知らずだって言われるんだよ。
おめーのせいだよ。どっかいけや。

逆ギレかよ・・・。

>>137
お前みたいなのがいるからこのスレを終了させなきゃいけないんだぞ。
自分勝手なやつめ。どっかいけよ。
お前みたいなのがいるからDelphiはかっこわるくて、誰も使わないんだぞ。
店でも置いてないところがおーいんだぞ。どうしてくれんだよ？

遅くなったが
>>98
テンプレートの事、教えてくれてありがとう。

ｵﾚのやりたいことは
所詮Variantでも出来ることなのかもしれない
と、ふと気がついた2001年夏でした。

しかし
コンパイルエラーの出ない(と思う)Variantって
使いたくないんだな。変なジレンマだ。

>>104
あっちは、p氏監視スレになっている模様（ｗ

Win2KMenu下線表示ユニットがあると思うんだが…

>>138
おいおい。電波かよ。

>>139
このスレの品位を落とすような書き込みは禁止です。
そんなこと書くからみんなdelphi使いは馬鹿だって言うんだよ。
わかるか馬鹿で禿げで臭いって言うんだよ。

すまぬ、おれが上げたからへんなのが来た気がする

natuchu keihou!!

>>141,142
このスレの品位を下げるような書き込みはゆるさんぞ。
どっかいけ！

>>143
p 氏登場。

>>144
帰れ！
Delphiはお前なんて必要としてねーんだよ。
氏ね、ぼけっ。

>>141
あんたのせいじゃない。
季節ものだから無視してりゃいいだけ。

旬ですか、すこし気が楽になりました。

TextWidthで文字幅を求めているんだけど
Italicにすると、TextWidthの値より幅が必要みたいなんだけど
Italicでもフォント描画幅を求める方法ってどうやったらいいの？

TextWidth は GetTextExtentPoint32 を呼ぶだけだからな

When returning the text extent, this function assumes that the text is horizontal,
that is, that the escapement is always 0.

だから、イタリックフォントにすると正しい幅を得ることはできない。
GetCharABCWidths API で C 幅を見ればどれだけずらせばよいかわかる

function GetTextWitdhWithStyle(Canvas: TCanvas; s: String);
var
storeStyle: TFontStyles;
　abcNormal: TABC;
　abcItaric: TABC;
begin
storeStyle := Canvas.Font.Style;

　Canvas.Font.Style := [];
　GetCharABCWidths(Canvas.Handle, Ord(s[Length(s)]), Ord(s[Length(s)]), abcNormal);

　Canvas.Font.Style := storeStyle;
　GetCharABCWidths(Canvas.Handle, Ord(s[Length(s)]), Ord(s[Length(s)]), abcItaric);

　Result := Canvas.TextWidth(s) - (abcItaric.abcC - abcNormal.abcC);
end;

こんな感じかー？

おおむねそんな感じだが、その関数名なら A 幅の調整もやれよ

�@�A�B
それぞれ、微妙に違うんだな。
�@と互換性が欲しいとすると、普通に�Aを重ねて書けばいいのか。

procedure TForm1.Button1Click(Sender: TObject);
begin
　//�@
　Image1.Canvas.TextOut(0, 0, 'AAABBB');

　//�A
　Image1.Canvas.TextOut(0,
　　Abs(Image1.Canvas.Font.Height), 'AAA');
　Image1.Canvas.TextOut(
　　Image1.Canvas.TextWidth('AAA'),
　　Abs(Image1.Canvas.Font.Height), 'BBB');

　//�B
　Image1.Canvas.TextOut(0,
　　2*Abs(Image1.Canvas.Font.Height), 'AAA');
　Image1.Canvas.TextOut(
　　GetTextWitdhWithStyle(Image1.Canvas, 'AAA'),
　　2*Abs(Image1.Canvas.Font.Height), 'BBB');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　FontDialog1.Font.Assign(Image1.Canvas.Font);
　if FontDialog1.Execute then
　begin
　　Image1.Canvas.Font.Assign(FontDialog1.Font);
　end;
end;

>>149-151,
厨房撲滅にご協力ｻﾝｸｽ、

>>151
うそ教えんなよ。おまえなー。だからDelphi使いは陰険だって
いわれるんだよ

�@と�Bが違うのは当然だろ

GetTextWitdhWithStyle は最後の文字に対して必要になる余白を含め
た幅を求める関数だ、次の文字の A 幅に対して発生する共有位置の先
頭を返す関数じゃねーよ

�Bを�@と同様になるように調整するためには 'A' の C 幅と 'B' の
A 幅と Overhang 幅をつかって計算するんだよ

A幅/C幅/Overhang 幅っていうのはFontの専門用語なの?
ややこしい話ですな。

コンポーネントパレットのsamplesのタブの所にある
ShellTreeViewというコントロールってどうやって使うのでしょうか？

ひととおりヘルプやマニュアルは見たのですが載ってないようなんです。
カスタムコントロールのサンプルって事ですか？昨日から始めた
ばっかなんで全然わけわかってないですけど

Sampleタブの中身は伝統的にHELPはつかないです。

>>157
Borland の人？

あんなもん、ヘルプみんでも分かるだろ。

へるぷみん
ぷらすみん
もんだみん

フリーのデルファイコンパイラって・・・。ないよね？

＞＞１６１
殆どDelphi2の頃のソースならある程度コンパイル出来るのはあるよ
http://www.brain.uni-freiburg.de/~klaus/fpc/fpc.html

ただコンパイル速度や、出来上がるサイズはDelphiが圧倒的だけどね

>>161

Delphi6 Personal


まだでてないけどな

日本語版のKylixOpenとDelphiPersonalのﾀﾞｳｿﾄﾞｰﾛまだ？

いつから？

>>161
英語版はもうでてる

>>165
どこでGETできる? URLきぼん

>>166
borlandのサイトにまんまあるんだけど（；´д｀）
http://www.borland.com/delphi/personal/

レスありがとう！
一応落としてみます。＞お二人がた

VBでいうISNUMERICと同じような関数はデルファイに用意されているのでしょうか？

ない。

>>169
ちょっと考え方が違うから完全に同等のものは無いけど
A) Val 手続きを使う
B) StrToxxを使って例外をキャッチする

という方法で対応出来ると思うよ

へーなるほど
やってみます
ありがとう

ども、実はいまだに FindComponentでつまづいてます。
ヘルプの「FindComponent例」を試すと確かにエディットボックスが
作成出来るのですが、それを直接

MyEdit1.Left := 32;
のようにするとエラーが出てしまいます。
TEdit(FindComponent('MyEdit1')).Left := 32;
はできました。

TEdit.Create(self).Name := 'MyEdit1'l;
というふうに作ったものは FindComponent経由でしか
アクセスできないのでしょうか？

以前91さんがおっしゃっていた「フォームに登録していない」
というのは Parentプロパティのことなのでしょうか？

>MyEdit1.Left := 32;
>のようにするとエラーが出てしまいます。
>TEdit(FindComponent('MyEdit1')).Left := 32;
>はできました。

>TEdit.Create(self).Name := 'MyEdit1'l;
>というふうに作ったものは FindComponent経由でしか
>アクセスできないのでしょうか？

そりゃ当然だ。
エラー(ところでこれはコンパイルエラーだよね?質問するなら明記してね)が
出るのは、そういう「変数」名が存在しないからだ。

たまたまdelphiのComponentは、それ自体(およびIDE)の仕掛けとして、
DragDropしたインスタンスは、NameプロパティとPascalソース上の変数名が
「連動する」ように作られている。これが所謂2way開発って奴ね。
これのおかげで、Nameを実行時に動的に検索する(=FindComponent)ことも
ソースに変数名を書くことも、同じようにやれるわけだ。

が、DragDropじゃなくて実行時にプログラムによってCreateが指示
されたインスタンスについては、実行時の仕掛け(FindComponent)はともかく、
ソースが追随してくれるってのは逆立ちしても無理。

蛇足：
Smalltalkみたいなインタプリタ言語なら、変数名自体を実行時にいじることが
出来る(かも知れない)のだが、静的コンパイル言語では無理。
それを補い、便利に使えるようにした、という仕組みが2way開発。

てゆーか、生成したコンポ(の参照)を変数に保持したらいいのでは？
MyEdit1とかの変数を予めFormのメンバとして作っておき、
MyEdit1:=TEdit.Create(self); とかってやれば、
以降は(MyEdit1を殺すまでは)MyEdit1という変数名でアクセスできるよ。

174さんと同じことだけど

TFormのメンバ＾にEdit1: TEditと書かれてあるよね。
あれの真似を自分でしなければならない。

動的生成コンポーネントにNameを指定しようとする方が
どうかしてる。
普通はTListやTObjectList　array of TEditに確保しておく。


>Smalltalkみたいなインタプリタ言語なら、変数名自体を実行時にいじることが
>出来る(かも知れない)のだが
http://www.shiro.dreamhost.com/scheme/trans/beating-the-averages-j.html
ここのLispの話も同じことなの？

>>169
Delphi6なら
function IsNumeric(c: Char): Boolean;
がIdGlobalにあるとHelpにのってる
使ったことはないしＶＢとおなじかもしらん。

>174-175
なるほど、コンパイル時にそのオブジェクトが存在しないから
コンパイルエラーが発生していたのですね。
普段使っているのがPerlなのでその概念が頭の中にありませんでした。

TListを使うことでうまくできました。ありがとうございますっ！！

こんばんは
D6のIsNumericってＩｎｄｙ製です？

StrToIntのソースを見るとこんか

　　function IsNumeric(S: String): Boolean;
　　var
　　　E, V: Integer;
　　begin
　　　Val(S, V, E);
　　　if E <> 0 then
　　　　Result := False
　　　else
　　　　Result := True;
　　end;

ところで質問。
HELPのValのところでこういう記述になっている
procedure Val(S; var V; var Code: Integer);

SやVにはなぜ型指定がないのでしょうか？
Variant？

あと、ソースを眺めているとよく思うのですが
Valのソースを見ようとすると
Systemユニットにジャンプして
どこにValがあるかわからないのは
どうして？

どうやってValは定義されているの？

＞SやVにはなぜ型指定がないのでしょうか？
「型なしパラメータ」で検索してみれ。

>>178
APIつかって
if ((not IsCharAlpha(c)) and IsCharAlphaNumeric(c)) then
は？

>>180
日本語環境じゃ使いにくいな IsCharAlphaNumeci では DBCS の判断を
絡めないといけなくなるので IsCharAlphaW/IsCharAlphaNumericW を
呼ぶことにはなるだろうけど、大元の話題が半角数字だけを調べたいので、
'１' が Numeric だと判断されるので NG の可能性が高い。

>>175
>ここのLispの話も同じことなの？

微妙に違う。Lispのあれは(あえてdelphi風に言い喩えるなら)言わば、
「コンパイル結果」をプログラムで生成できる、っていう感じだ。
「ソース」の生成とは違う。

変数(みたいなもの)をプログラムで作ることが出来るんだけど、
Lispではソースそのものの字面上の「変数」と切り離した形で
中間コード(とでもいうか)の上での「変数」のようなものがあり、
それをプログラムからコントロールできる。

delphiだと多分同じような情報をIDEが持っているんだろうな。
ついでにいえば、FindComponentでNameで問い合わせられるわけだけど、
あれも似たようなものだな。それを推し進めて言語処理系そのものに
合体させちゃったのがLispとかのやり方。

>>177
>コンパイル時にそのオブジェクトが存在しないから

念のため指摘しとくけど、「オブジェクト」じゃなく「変数」だぞ。
変数には、Objectの参照(Createメソッドの返し値とか)を「代入」して
はじめてObjectが関連づけられる。それまではnilまたは出鱈目な値だ。

そう。あくまで関連付けなんだ。変数そのものにオブジェクトが入っているのではない。
ここ覚えておくとイツの日か大失敗を未然に防げる日が来るぞ。

>>182
オブジェクトではなく変数。
なるほど、自分の解釈が微妙に違っていたことに気付きました。
肝に銘じておきます。

>>183
でも、あの説明だけで
TListに代入する事がわかるとは
センスあるよ。

>>182
Thanx

あのーカルネージハートのようなビジュアル言語ってDelphiで作れますか？

つくったことあるぞ

>>186
アリガトです。夢が膨らみます。

>>163
Delphi6 Personalなら

LAOX COMPUTER館 ダイレクト
http://direct.laox.co.jp/

で売ってるよ

ソフトウェア→Windowsビジネス→開発言語
で出てきます
http://direct.laox.co.jp/ec/EcTRMC.dll?FUNC=SEARC_PDTL00&Kind=0&ID=319543

>>188 フリーじゃないやん。そのうちなるけど。

列挙型などで、範囲外の演算をしてもエラーにならないんですが、
どうすれば型範囲外エラーをだしてくれますか。

例えばこんなことしたときにエラってもらいたい。
　TBool = (bTrue,bFalse);
　...
　B := bTrue;
　Inc(B);
　Inc(B);
　Inc(B);

すんません
プロジェクト→オプション→コンパイラに
もろに設定ありましたね。

>>189
たしか9月末までにはダウンロードできるようになるはず

>>19２
雑誌の付録に付くとか？

DelphiやKylixフリー版の公開で得するのは雑誌社と思われ

> Borland Mail News◆米国ボーランド本社へ、日本のユーザーの声を！
>
> □■□■
> ■ 日本のユーザーにとって必要なものは．．．
>
> 米国ボーランドの本社では、「日本のユーザーにとって必要なことは何か」につ
> いて、皆様の考えを知りたがっています。
> そこで、メンバーの皆様にご協力いただいてアンケートを実施し、その結果を改め
> て「日本のユーザーの声」として、米国本社に提供したいと考えています。
>
> 今回は「日本語化」に関するアンケートです。
> 皆様がお使いになっているボーランド製品について「日本語化されていて良かった
> と思うこと」を選択していただくだけの簡単なものです。
> ご協力をお願いいたします！
>
> 【日本語化に関するアンケート】
> 　⇒ http://forums.borland.co.jp/poll/poll.dll/q?q=japanization

整数チェックは確かにVAL手続きでOKでした。ありがとうございました
さらに質問
小数点を含んだチェックはどうすれば？

Val でいいよ > 少数
0x40 や $40 という表記だって大丈夫 > Val

あっそうなの？
ありがとう。

逆に
IsIntやIsFloatを作るにはどうしたらいいのでしょう??

例外をtry exceptでキャッチせずに出来ます？

>>199 出来ます。　方法は沢山あります
単純に
if not s[i] in ['0'..'9'] then Result := false;
を繰り返すのでいいのでは？

function IsInt(const s: String): Boolean;
begin
　Result := MatchesMask(s, '[1-9][0-9]*');
end;

と書けたらいいんだけどな、* はこういう用途に使えない

>>201 　別に先頭ゼロでも良いのじゃないかな？

そういうことじゃなく、VCLと同じ実装でやりたいんだけど…

>>203
無理。

ストリーミングしよう！（なぢょ

>>202
先頭にゼロを含めると何か変化するのか？

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　( ﾟДﾟ)　　＜ 　StrToIntは先頭ゼロでもいいのだよ ヤマトの諸君
　 |∪ |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
　 |　 ｜
　 U U
　　ﾜｲﾝ ﾄｲｴﾊﾞ ﾃﾞｽﾗ-

>>201

が言いたいことは MatchsMask の * は「任意の文字の繰り返し」だから
数字の連続を検出する用途には使えないってことだろ。

>>202 や >>207 はそれがわかってないんじゃないかな？

>>208
ん？ああ、delのはいわゆる正規表現とは別物なんだっけ。
いわゆる正規表現なら「[1-9][0-9]*」は
お望みの意味になるんだがなあ…

　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>208 * は任意ﾀﾝ "何か"？
Π￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
|つニボシ()
| |＿＿＿.|
　 ∪∪
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　Perl5互換の正規表現エンジン使える？
Π￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
|つｾｲ〜ｷ()
| |＿＿＿.|
　 ∪∪
http://www2.big.or.jp/~osamu/Delphi/MyLibrary.htm

BRegExp 使うくらいなら http://www.activestate.com/ の
ActivePerl を使うほうが Perl5 の正規表現の全能力を生か
せて良い、外に DLL が必要になるのはいっしょだしな

外部 DLL がイヤなら正規表現エンジンとしてはすこし弱いが
DelphianWorld の Awk/Grep コンポーネントあたりで

function IsInt(s:string):boolean;
　function get:char;
　　begin
　　if s<>'' then begin result:=s[1]; delete(s,1,1);end
　　else abort;
　end;
begin
　try
　if s<>'' then
　　case get of
　　　'$': while get in ['0'..'9','A'..'F','a'..'f'] do ;
　　　'0'..'9': while get in ['0'..'9'] do ;
　　end;
　Result:=false;
　except Result:=True;end;
end;

スマン　'-'を忘れていた。　足してくれ
function IsFloat(s:string):boolean;
function get:char;
begin
if s<>'' then begin result:=s[1]; delete(s,1,1);end
else abort;
end;
procedure exp1;
begin
if get in ['-','0'..'9'] then
while True do
case get of
'0'..'9': ;
else exit;
end;
end;
procedure sub2;
begin
while True do
case get of
'e','E': begin exp1;exit;end;
'0'..'9': ;
else exit;
end;
end;
procedure sub1;
begin
while True do
case get of
'e','E': begin exp1;exit;end;
'.': begin sub2;exit;end;
'0'..'9': ;
else exit;
end;
end;
begin
try
if s<>'' then
case get of
'-': if get in ['0'..'9'] then sub1;
'0'..'9': sub1;
end;
Result:=false;
except Result:=True;end;
end;

>>212
199の希望は
＞例外をtry exceptでキャッチせずに出来ます？
なのに思いっきり except 使ってるじゃないか

まあvalかexcept使うのに何で不満があるか判らんけどさ

Form1で[実行|実行]をクリックするとForm2.ShowModalします。
Form2がアクティブになると重い処理を行います。
処理が終わるとForm2.は.Closeします。

そこで質問なのですがこの｢重い処理｣はどこに記述すべきでしょうか？

例えばこのようなコードです

count := GetTickCount;
while GetTickCount - count < 10*1000 do
begin
　// 重い処理
　Label1.Caption := IntToStr(GetTickCount);
　Application.ProcessMessages;
end;
Close;

Form2Activateに記述するとなぜかCloseが無視されます。
Timer1Timerに記述するとうまくいきますがあまりスマートではないように思います。
フォームが最低一回描画された直後に呼び出されるようなイベントハンドラがあればよいのですが。

OnActivate で PostMessage してそのメッセージハンドラで
処理してから Close かな

あとでボタンを押して実行するような形式に変更する時も楽だし。

OnActivate 内で処理するなら、Close の変わりに WM_CLOSE を
PostMessage するのが楽だろう。

>>216
FormActivateのCloseを
PostMessage(Self.Handle, WM_CLOSE, 0, 0);
に変えてみたところうまくいくことを確認しました。

が、いままでメッセージ関連を避けてきたため
なぜCloseがだめでWM_CLOSEがよいのかが理解できてません。
というわけでこの際一通りお勉強してみます。
ありがとうございました。

# なぜこのようなありふれた(?)処理をVCLの枠組みの中で
# 実現できないのか少々疑問ではありますが。

ShowModal で表示されたモーダルなフォームは、ModalResult に
0 以外の値が設定されると終了する、これはわかるね？
だから、ボタンなどの ModalResult を mrOk なんかに設定して、
そのボタンを押すとフォームは閉じる

Close メソッドはフォームを閉じるメソッドだけど、モーダルの
時は ModalResult := mrCancel; を実行するようになっている。
だから、結果的にフォームは閉じるわけだ。

ところが、OnActivate の時はそうはいかない、これは処理の順
序が

・ShowModal を呼び出す
・ShowModal が OnActivate を呼び出す
・ModalResult を 0 にする
・ModalResult が 0 以外になったらフォームを閉じる

という順番に行われているからなんだよ

>>214
例外を使わないという希望の理由はそもそも何だろう？
パズル挑戦的な意味以外に感じないけど。
デバッガでひっかけられるのがウザイとかいう話？(ならば例外クラスを新調すればいい)

>>218
その説明m(__)mを読んで思ったのだが、「Close予約コンポーネント」
なんてものが作れそうに思える。
そのコンポにClose予約をしておくと、そのコンポが次にMessage処理されたときに
自分(が載ってるForm)をCloseされる、っていう感じの。
駄目？

TDrawGridを継承してコンポーネント作っているんですが、
このスクロールバーのグリッド部分を相対サイズにする方法はないですか？

こんだけでいいんじゃないの？

function IsInt(s:string):Boolean;
var
　i:extended;
　code:integer;
begin
　result:=false;
　Val(s,e,code);
　if code > 0 then exit;　if trunc(e)<>e then exit;
　result:=true;
end;

>デバッガでひっかけられるのがウザイとかいう話？(
そう。例外クラス新調しても
StrToIntつかうと
EConvertErrorは発生するでしょ。

ブレークﾎﾟｲﾝﾄで例外無視させることは出来るが
いまいち邪道だ。

という事は　>>212-213　が使ってる abort はOKなのね？

そういえば、そうだな。

　　　　　∧ ∧＿＿　　
　　　 ／(*ﾟДﾟ)っ／＼
　　／|￣∪￣￣|＼／
　　　 |＿＿＿＿|／
>>220
TDrawGridのScrollbarの真上に
TScrollbarをはっ付けたらなんとか可能
ヤラシイ実装だがな。

abort で　Except って多用していいもんなの？

というか abort で”正常でした”　って意味が帰るのがなんか嫌なんだけど？

>>215
> Form1で[実行|実行]をクリックするとForm2.ShowModalします。
> Form2がアクティブになると重い処理を行います。
> 処理が終わるとForm2.は.Closeします。
>
> そこで質問なのですがこの｢重い処理｣はどこに記述すべきでしょうか？
そもそもそれはモーダルダイアログが行う処理なのか?
単に処理経過の表示とかだけなら、ダイアログとは独立したところに
記述すべきだと思うが。

>そもそもそれはモーダルダイアログが行う処理なのか?

いいこと言った！

たしかに、この視点を忘れるとドキュスパゲティプログラムになっちゃうな。
RADで陥りやすい罠だ。みんなも気をつけよう！

MVCなんてなものも有ることだし、処理やデータは
本来はフォームから出来るだけ分けるべきものなんだよな。

RADだとついついフォーム(幾つかあるうちのドレか)にいれないとならんような
気分になっちゃうけど、そんなの気のせい。
「どこに？」と問われたら、DataModuleと答えるのが理想、ですかね。

Java等の連中がデザパタとか大騒ぎしてやってるわけじゃん。
綺麗な設計しましょうって。
あの方向性を漏れたちも考慮しとかないと、気付いたらDel界はゴミコードの山、ってことに成り果てかねない。
それは不味い。漏れたちにとって、凄く。

SmalltalkにはMVC Inspectorとかいうものが有るらしい。
漏れも名前を聞いただけで見たことは無いんだが、名前を聞いた瞬間に衝撃受けた。
名前だけで十分衝撃だということだ。
Object1つのInspectをするだけ(=Delの現状)で満足しちゃアカンのだな、と。

>>229
やたら偉そうなんだけど，あんた誰や？

実装をどこに置くかといえば、コンポーネントプログラミングとしては

非ビジュアルコンポーネントを作ってそのイベントハンドラに書く

が正解じゃないのかね。
「だらだら処理をできる非ビジュアルコンポーネント」を用意するわけ。

それをどこに貼り付けるか、という話になればフォームの上やデータモ
ジュールの上ということになるのでは。

いきなりデータモジュールに書いてしまうと再利用がコピペになってし
まうだろ？ 再利用できそうな部分はコンポーネント化して ぽとぺた
にしておくのがコンポーネントプログラミングの生産性アップだから。

そのコンポーネントではイベントを別スレッドで簡単に呼び出せるとい
いな、GUI に透過的に安全なアクセスを提供しにくいから無理かね。

　　　　∧ ∧　　・・・・。
　　　　( ﾟДﾟ)
　　〜（　uu）

>「どこに？」と問われたら、DataModuleと答えるのが理想、ですかね。
そうでもない。
通常の関数処理ならUNITで
データ構造としてのオブジェクトが必要なら
UNITにクラスを作成してそれを使おう。
単なる機能を実装するためだけに
DataModuleのメソッドとしてのは微妙に変(あくまで微妙)

DataModuleは
機能TComponentを沢山保持するときに使う時に用いるのが正解。
だから、DBでよく使われるんだね。

>MVCなんてなものも有ることだし、処理やデータは
>本来はフォームから出来るだけ分けるべきものなんだよな。

実際、どこまでVisualｺﾝﾎﾟｰﾈﾝﾄに機能を持たせるかという事は
難しい問題を含んでいるけど
完全にVisualと非Visualとを切り分けて実装するのもナンセンス
と、ﾈｺは思うよ。

自然な思考で、
・これはVisual部分に含んでしまおう
・これはVisualとは分離だな
という嗜好に基づいて実装するのが綺麗なんだな。
だいたい、VCLやDelphianWorldのｺﾝﾎﾟｰﾈﾝﾄは
そうなっているのでDelphiやってれば自然に身につく。

このGUIアプリ構築で自然に身につくOO指向がﾈｺは好き。

TScrollBarって、相対サイズにできるんですか？

　∧ ∧
　(,, ﾟДﾟ) Min,Max,PageSize
　(|　　|つ
〜|　　|
　 ∪∪ "相対サイズ"の意味、よくわからん

TScrollBar のグリッド部分。
例えば TMemo のスクロールバーだったら、
全体の文字領域に対する　実際の表示領域の割合で
グリッドの長さが変化するでしょ。

unit ModelView;

interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, Contnrs;

type
　TFormView = class(TForm)
　protected
　　procedure UpdateModel(Sender: TObject; Args: array of const); virtual; abstract;
　end;

　TModel = class(TObject)
　private
　　FItems: TObjectList;
　protected
　　property Items: TObjectList read FItems;
　public
　　constructor Create; virtual;
　　destructor Destroy; override;

　　procedure AddView(View: TFormView);
　　procedure DeleteView(View: TFormView);
　　procedure DeleteAllView;

　　procedure NotifyUpdate; overload;
　　procedure NotifyUpdate(Sender: TObject); overload;
　　procedure NotifyUpdate(Sender: TObject; Args: array of const); overload;
　end;

implementation

{ TModel }

constructor TModel.Create;
begin
　FItems := TObjectList.Create(False);
end;

destructor TModel.Destroy;
begin
　FItems.Free;
　inherited;
end;

procedure TModel.AddView(View: TFormView);
var
　i: Integer;
begin
　i := Items.IndexOf(View);
　if i < 0 then
　　Items.Add(View);
end;

procedure TModel.DeleteAllView;
begin
　Items.Clear;
end;

procedure TModel.DeleteView(View: TFormView);
var
　i: Integer;
begin
　i := Items.IndexOf(View);
　if i >= 0 then
　　Items.Delete(i);
end;

procedure TModel.NotifyUpdate;
begin
　NotifyUpdate(Self,[]);
end;

procedure TModel.NotifyUpdate(Sender: TObject);
begin
　NotifyUpdate(Sender,[]);
end;

procedure TModel.NotifyUpdate(Sender: TObject; Args: array of const);
var
　i: Integer;
begin
　for i := 0 to Items.Count-1 do
　　(Items[i] as TFormView).UpdateModel(Self, Args);
end;

end.

　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>233=235 TScrollbarでさっさと試せ
Π￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
|つでしょ ()
| |＿＿＿.|
　 ∪∪

RubyのObserbableのパクリです。長くてゴメン。

個人的にはDelphiではModel-Viewが常に良いわけではないと思ってます。
というのもTTreeView, TListViewなどのコンテナコンポーネントがモデル的な性質を持っているからです。
これを無視してModel-Viewを導入するとModelとViewで同じ情報を二重に管理する必要が出てきます。
これはModelに対するViewが1つしか無い場合はまったく無駄になってしまいます。

del6パーソナルってクラス補完機能ないの？

>>238
それらしきプロパテーもﾒｿﾄﾞも無いけど…

　　　∧ ∧ 　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　　　＜　>>241 >>234をよくミネフジコ
.=| |==U=U==.| |= 　＼＿＿＿＿＿＿＿＿＿＿＿
　| | ｜　 |　　| |
　| | ﾉU U.　　| |
　| |　　　　　 .| |

　with Scrollbar1 do
　begin
　　Min := 0;
　　Min := 100;
　　PageSize := 50;
　end;

Delphi5だけどな。

まさかそんなことｈがああああああああああああああああ
いままｍでのくろうはなんだｋったんだあああああああああああああ

>>243
　　　　いたいの
　　　　　いたいの・・・
　　　　　　　　　　　　　　　∧ ∧
　　　　　　　　　　　　　　　(ﾟДﾟ )
　　　　　　　　　　　/ゝ/ゝ⊂　U|
　　　　　　　ノ ~ ~ ~； ﾟДﾟ； | 　 〜′
　　　　__ ;~ UU~;~;じ;;J~;＿　U U
　　⊂ ＿　＿＿　＿＿　＿⊃

　　　　　　　　↓
　　　　
　　　　　　とんでけ！
　　　　　　　　　　　　　　∧ ∧∩
　　　　　　　　　　　　　　(ﾟДﾟ )ﾉ
　　　　　　　　　　　∧ ∧ | 　つ
　　　　　〜′￣￣(,,ﾟДﾟ) |　⊂)〜
　　　　__　UU￣￣U U　__ ∪
　　⊂ ＿　＿＿　＿＿　＿⊃

>>232
>データ構造としてのオブジェクトが必要なら
>UNITにクラスを作成してそれを使おう。
>単なる機能を実装するためだけに
>DataModuleのメソッドとしてのは微妙に変(あくまで微妙)

ん。そりゃまぁそうだ。
ただ、そのObjectのコンテナはドレよ？という問題がある。
コンテナなしでやるのはウンザリだし、
Formをコンテナにしちゃうんじゃ元の木阿弥だし、
UNITだけ存在するという作り方だとコンテナ(とその中のObjectたち)の寿命管理が面倒。
ObjectをDataModuleにぶら下げるのが幸せでないかぃ？

>DataModuleは
>機能TComponentを沢山保持するときに使う時に用いるのが正解。
>だから、DBでよく使われるんだね。

それ「だけ」に向いている、というわけじゃないと思うが＞DM

#ところで「機能TComponent」ってのは、ここでは状態を持たないComponentという意味、だよね？

>実際、どこまでVisualコンホ゜ーネントに機能を持たせるかという事は
>難しい問題を含んでいるけど

del(VCL)自体がそういう考え方を半ば否定してしまっている「ので」
更に難しくなってる、という面はあるね。支援してくれてない。

>>231
>非ビジュアルコンポーネントを作ってそのイベントハンドラに書く
>が正解じゃないのかね。
>「だらだら処理をできる非ビジュアルコンポーネント」を用意するわけ。

ここでいう「コンポを作る」ってのは、TComponentを継承したClassを作る、
という意味のだよね？
#TFrameを使っての再帰的RADの話なら以下は無かったことにしてくれ。

だったらそれは、「今必要としている」状態を記憶する手段が無いね。
手続きは書ける(それとてコンテナ上でぐちゃぐちゃになっちゃう)けど。

rubyみたいに属性を実行時に後付けできる言語ならともかく、
そうでないなら、状態をどこに記憶するの？という問題が生じるだろう。

>いきなりデータモジュールに書いてしまうと再利用がコピペになってし
>まうだろ？再利用できそうな部分はコンポーネント化してぽとぺた
>にしておくのがコンポーネントプログラミングの生産性アップだから。

でも、あっち世界風に言うところの「Scripting」が困るんだよな、それ。
コンポとコンポの間を繋ぐコーディングが。
あと、間を繋ぐ「状態(を保持する変数)」も。

「あっち世界」の単語を使わずに delphian に分かるように書き直してくれ

　なぜにsage進行
￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　　ﾄﾞｸｼｮ��
　　　(　ﾟДﾟ)
　　　ﾉつl⌒⌒l
　〜(.＿［￣￣￣.］
　　　　　￣￣￣
微妙と書いたのはDMはそれにも使うだろうって事。
ＤＭをそういう意味で便利で使えるカモ。

>>229の内容では
MVCを推薦する＆Formの処理を安易にＤＭに移動するような事を
逝っているわけでそれは意味不明ではある。

クラスを機能別に分けて作っていって
そのコンテナにDMを使うのならわかるが
(コンテナとしてFormでもいいとは思うが)

DMのメソッドを増やしても特な事はなにもなかろう？
処理内容によってはＤＭを沢山用意しなければならなくなるし

理想をいうと
処理部分は自作クラスユニットで定義しまくって
その連携で機能を実装し、そのObject保持にＤＭを使う
という所かな。

なんか、229と245の発言内容レベルが異なるんだが
いろいろ考えたから？

ﾈｺなのでヨクは氏らんが。
VCLのＡｃｔｉｏｎはMVCをむしろ肯定していることないかな？
設計時のＶｉｓｕａｌ操作で必要なＯｂｊｅｃｔを作成できるというのは
驚くべき機能じゃない？

>>247 同意

　　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣
　　(；ﾟДﾟ)　＜　…ネンノタメ>>246
　 ./　　|　 　 ＼＿＿＿＿＿＿＿＿＿＿
　（＿__/
／

普通はしないかもしれんが
TComponentを複数配置したり
そのＰｒｏｐｅｒｔｙで属性を保持したりするし
(TOpenDialogを複数置いた方が便利な場合もある)

Propertyで他のｺﾝﾎﾟｰﾈﾝﾄに
接続(?)出来たりするよ、

DBでTQueryは複数使ったりするし
StringGrid保存TComponent派生クラスというのもあるし。

>>248
なぜにって、ｵﾏｴﾓﾅｰ

　　--------∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　前例踏襲
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

TWebModuleはTDataModule継承！

>普通はしないかもしれんが
>TComponentを複数配置したり
>そのPropertyで属性を保持したりするし

それを「属性」と呼ぶのかなあ？
TForm.FindComponentで名前で検索するとか？

>Propertyで他のコンホ゜ーネントに
>接続(?)出来たりするよ、

コンポーネント参照ね。あれは良いよね。
ビジュアルプログラミングもどきが出来る。

　∧∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　(ﾟДﾟ)　＜　属性の意味がずれているか？
　 | ⊃|⊃　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　⊂ノ〜
　 ∪
>>246
> rubyみたいに属性を実行時に後付けできる言語ならともかく、
> そうでないなら、状態をどこに記憶するの？という問題が生じるだろう。

ん？、なんか話が通じてないぞ。
ﾀﾞｲﾀｲ、Ruby氏らんしRubyでいう所の属性って何なのかも
想像つかない。ちょっと説明してや。

> >普通はしないかもしれんが
> >TComponentを複数配置したり
> >そのPropertyで属性を保持したりするし
>
> それを「属性」と呼ぶのかなあ？
> TForm.FindComponentで名前で検索するとか？

ん？FindComponent、あんなの使うのは
いきあたりﾊﾞﾀｰﾘのコーディングだよ。
普通はつかっちゃダメだね。

ｻｶﾞﾘｽｷﾞage

MLのU氏の謎の添付メールはなんなの？

>>254
添付物なんて届いていないが...
何番？

59523とか。Outlookで受信したらWINMAIL.DATってのが付いてた。

あぁ。なるほど
http://www.trendmicro.co.jp/esolution/solutionDetail.asp?solutionId=2756

あなたの疑問はこれで解決できましたか？

◎はい　○いいえ

「はい」の場合、すぐに検索結果は見つかりましたか？

◎はい　○いいえ

その他ご希望・ご要望をご記入ください。（255文字まで）

彼女が欲しい

え？ じゃあ、あの人はMLにHTMLメールを送ってるのか？
そういうことはしない方が良いと教わったけど、そういう
時代じゃないのか。知らんかった。

HTMLというかRichTextだわな

>>260
すまん。Outlook Expressしか知らんので上の書き込みになった。
Outlook Expressでいうと 「リッチテキスト形式」は「HTML形式」
なので区別してなかった。

■Delphi逝ってよし■
begin end なんて長すぎだゴルァ ｛｝で十分だ
標準の関数名が長すぎる　タイプするのにストレスたまる
大文字と小文字を区別しない時点で邪道。逝ってよし。
条件判定にブール型しか使えない時点で終わってる
いちいち function やら proceger やら書いてられるかボケ
大体、型が多すぎるのがクソ。整数と実数、文字列があれば十分。大は小をかねる。
関数内関数なんてわかりにくいだけ。
だいたいマクロも無いような言語でまともな
プログラムなんかつくれない。

だいたい、ボーランドからしてＤＱＮだろ。
なんで社名を変えて、また元に戻すんだ？

>>262
コピペ？
整数、実数、文字列しか使えない言語こそ逝ってると思うが…

>>262
> begin end なんて長すぎだゴルァ ｛｝で十分だ
には違う意味で賛成。begin endより{}の方が目だってわかりやすそう。
他は、厨房の意見だとしか思えないが･･･。

>>263 まあ身の丈にあわなくてイライラするのも判るが、
　道具にあたるのは無意味だぞ

　拾った道具なら捨てればいいし、与えられた道具なら
コードテンプレートをヘルプで調べてみろ多少は楽になるだろう

マクロが好きなら自分で作ればいいと思うがどうだ？

＿＿＿＿＿＿＿＿＿>>263はボーランドの無償ダウンロード大好きの厨房君。＿＿＿＿＿＿＿＿＿

>整数と実数、文字列があれば十分。大は小をかねる。

それって逆の「小は大をかねる」(一般的諺ではないが)といいたかったのかな？

数系と文字列系しかない「参照すら使えねぇ」糞言語は煎ってよし。
#逆に、ほとんど参照しかなくても一応やっていけることを証明しちまったのが、Lisp。

関数内関数は無くてもいいとは思う(Privateメソッドとかにしとくとか)が、
マクロは単なる「つたない言語仕様からの逃げ」でしかないだろ。
どうしても欲しければプリプロセッサを自作しろ。
万一(藁)便利なら他人にも受け入れてもらえるぞ。

関数内関数はPascalよりも、むしろCみたいな言語に実装されてそうなもんだが。

>>11のような再帰構造のプログラムをコンパクトに書くのには便利だろ

オブジェクトのディープコピーをしたいのですが、
Javaでいうclone()みたいなメソッドはあるのでしょうか。

>>271
Assign()というメソッドが一般的。
でも実装は自分でやってね(藁

>>272
ありがとう。見つけました。

>いちいち function やら proceger やら書いてられるかボケ

スペル違うよね…　ﾎﾞｿｯ

>>262のデルには'ぷろせげー'が存在すると思われ

>>275
あー、オレは結構 ’ぷろせげー’ 使ってるよ。
やっぱ、ありゃ使ってて気持ちいいね。

ぷろせゲーってどんなジャンルのゲームですか？(あ、綴りが違うか…鬱)

プログラムがIDE上で実行されているか単独で実行されているかを
プログラム上でチェックする方法は無いでしょうか？

んーあったかなあ
誤魔化し的方法なら、IDEで実行時の適当なコマンドライン引数を設定して
プログラムで判別する方法もあるけど。スマートじゃないね。

　 ∧∧
　(ﾟДﾟ　)
　 ⊂　 ヽ　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　〉 ﾉﾉ~　＜ 　CmdShowが9になってたりするな
　　 ∪∪　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿

姑息な手だが。

どっかで副作用が出そうな気が...
キーフックしたプログラムをデバッグしてると
デバッグ用のキーがプログラムに反応してちょっと？？？になります
マウスを使えばいいんだがついキーを押してしまう

>>278
ApplicationやFormもComponentの一種(サブクラス)だから、
それらのComponentStateを見れば判る、というわけにはいかぬか？
いま手元にDelが無いんで未確認だが。

IDE の判別じゃないが IsDebuggerPresent API で
true が戻ればデバッガの上だから IDE の上だって
ことがわかる。

Win95 では IsDebuggerPresent API がないが、MS の
KB にソースコードがあるから、それを使うかサポート外
ってことで

> Win95 では IsDebuggerPresent API がないが、MS の
> KB にソースコードがあるから、それを使うかサポート外

　∧ ∧ 　 　　／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　せっかくだから、Delphiコードで示してくれ
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
〜| 　 |
　 ∪∪ 　　ｼｮｳｶｲ ｽﾙﾅﾗ URL ｸﾚ

MSのKBってなんじゃらほい

　∧ ∧ 　 　　／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　Knowledge Baseじゃねーの？
　 | つ[|lllll］). ＼＿＿＿＿＿＿＿＿＿
〜| 　 |
　 ∪∪　　まさか、�`ﾊﾞｲﾄ？ 　

IsDebuggerPresentってもしかして定義されてない？
windows.pasになかったけど

Delphi6でDelphiをはじめてみようと思うのですが、
Delphiの本でおすすめなのを教えてほしいです。

本屋で立ち読みして良いと思ったの買え

>>289
　それは無理！
　都心部はともかく地方に行くとVBの本を２００冊置いている本屋が
Delphiに関しては１０冊も置いてない

置いてある本全部買い占めろ。売れるのがわかれば本屋も置いてくれるようになるよ。

初めてのＤｅｌｐｈｉ
Ｄｅｌｐｈｉ応用プログラミング
Ｄｅｌｐｈｉによるオブジェクト指向

この三部作。技術評論社。

ありがとー
初めに、初めてのDelphi買ってみます

>>289
地方なので売ってません（ＴＴ）

＞Ｄｅｌｐｈｉによるオブジェクト指向

これ良書らしいから見てみたいんだけど、秋葉原のどこにも無かったよ
ネットで注文しようとしても在庫無しだし、今でもまだ刷ってるの？

|　　　|　　|　　　　　|　　|　|
|　　|゜⌒／..|　＼　|　゜｜
゜　⌒／/　..|　゜　＼　　゜　　|
| ／　/　|　|　|ヽ゜　＼⌒゜　|
| .￣￣￣￣||￣￣￣￣
　|　　∧ ∧|| 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　　　(,,ﾟДﾟ)||　＜　もう酢ってないよ
゜　|　..|∪　つ　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　|　|.｜　｜　　　|　　　|
＿＿_.Ｕ..Ｕ＿＿＿＿　　　　　゜

>>295
やっぱり？(TT
無いと解ると余計に読んでみたくなるな

お返事ありがとう

>>294
良書なのに何故か絶版です

技術評論社は商売根性がありません（ｗ

>>297
絶版だったのか。
かなり入手困難になってきたようなので、盆休み前に買ってきた。
かれこれ１年以上も本屋の棚に眠り続けていたやつを・・・
全然売れないので、貴重な本が見つかるのは田舎ならではと思う。

Ｄ６フリー化したからユーザーも増えるだろうし、
良書の類は改訂してまた出版されるんじゃないの？

(・∀・)300!!

>>294
確かにいいわ、これ。
ただ、その昔Ｄｅｌｐｈｉ始めた頃は難しそうで避けてたけど。(藁

もしどうしても見付からない人は同じ著者、同じ技評の
「ゲーム＆＆オブジェクト指向プログラミング」を探して
読んでみることをお勧めする。C++&TurboPascalだが、著者が
語りたいことは同じ。

いつごろから無料になりますか？
ダウンロードまだですか？

もうできるよ。ftp サイト探してみ。

>>304
ftp.borland.co.jp ?

昔の本もフリー化してほしい

>>283
KBを検索してみたが見つけられなかった
KB番号きぼん

win95 がないからテストしてないぞ

var
　PIsDebuggerPresent: function: BOOL; stdcall;

function IsDebuggerPresent: Boolean;
　function IsDebuggerPresent95: Boolean;
　type
　　TdwArray = array [0..9] of DWORD;
　　PdwArray = ^TdwArray;
　var
　　dwThreadId,
　　dwProcessId: DWORD;
　　p: PdwArray;
　begin
　　dwThreadId　:= GetCurrentThreadId;
　　dwProcessId := GetCurrentProcessId;
　　asm
　　　MOV AX,　 FS
　　　MOV ES,　 AX
　　　MOV EAX,　$18
　　　MOV EAX,　ES:[EAX]
　　　SUB EAX,　$10
　　　XOR EAX,　dwThreadId
　　　XOR EAX,　dwProcessId
　　　MOV p,　　EAX
　　end;

　　if IsBadReadPtr(p, 190) then
　　　raise EInvalidOperation.Create('Invalid ProcessDatabase Pointer');
　　
　　Result := (p^[8] and 1)=1;
　end;
begin
　if Assigned(PIsDebuggerPresent) then
　　Result := PIsDebuggerPresent
　else
　　Result := IsDebuggerPresent95;
end;

initialization
　PIsDebuggerPresent := GetProcAddress(
　　　　　　　　　　　　　GetModuleHandle(kernel32), 'IsDebuggerPresent');

自作のソフトにアンドゥ機能を付けたいと思い、アンドゥメニューの
ShortCutプロパティにCtrl+Zを割り当てました。
実行すると、メニューから選択した場合はきちんとアンドゥしてくれますが、
Ctrl+Zを押しても何の反応も無しです。
（ちなみにShortCutプロパティを他のキーに変更したら、そのキーでちゃんと
アンドゥしてくれます）
原因は何でしょうか？

Delphiを使って初めてのプログラムなので、見当違いな情報もあるかも
しれませんがやっていることを書いておきます。
・フォームのKeyPreviewはTrue
・アンドゥの処理はActionListに登録したものをメニューのAction
　プロパティで割り当てている
・フォームに貼りつけたのはImageコンポとStatusBarコンポのみ

メニューとアクションをリンクしたら、メニューのショートカットではなく
アクションのショートカットが優先されるのでは？

あ、すみません。
（309の一行目）メニューの方でなくて、アンドゥアクションの
ShortCutの方を設定しています。
変更したときにメニューのShortCutも自動的にアクションと同じものに
なっているようですが、普通はそれで正しく動作するんですよね？

フォームにTImage、TStatusBar、TMenu、TActionListを置いて、
Action1.ActionUndoExecuteにCTRL+Zを割り振ったけど、
ちゃんと動いたぞ。

>>312
チェックしてくださって有難うございます。
俺もチェックしました･･･動きました。謎です。
とにかくもう少し悩むことにします。

[SoftwareTechnology 22]
Delphiオブジェクト指向プログラミング
技術評論社
堀越一雄　著
\1980
ISBN4-7741-0427-2 C3055

コレ最高。俺はオブジェクト指向については
コレ一冊で十分理解している。

　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
／
|　君の書籍紹介、とてもいい出来だと思うのだけれど・・・
＼
　 ￣|／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　ｶﾀｶﾀ　　／￣￣￣￣￣￣
　 （　・∀・）　 ∧ ∧ ＜　ほ、ほんとですか！
　（　　⊃ ）　 (ﾟДﾟ；)　　＼＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼
　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
／
|　でも、ｽｰﾊﾟｰ部長がなんて言うかな・・・
＼
　 ￣|／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 　 |　ｶﾞｲｼｭﾂﾃﾞ ｾﾞｯﾊﾟﾝﾀﾞｯﾃ ｲｯﾄﾙﾀﾞﾛ!!. ｲｯﾃﾖｼ
　　　 　　 ＼ >>292-302
　　 　 　　　 ∧￣|／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧　(ﾟHﾟ)　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　（　　・∀）^(　)^　 ∧ ∧　　＜　・・・
　（　　　　 ）つ　 　 (ﾟДﾟ；)　 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣ ￣￣￣ （ つ＿つ＿_
￣￣￣￣￣日∇￣＼| BIBLO |＼
　　　　　　 　 　￣　　　=======　　＼

.＿＿＿＿＿＿＿＿＿
|　　　　　　　　　　　　　|
|　とりあえずＣＭです .|
|＿＿＿＿＿＿＿＿＿|
　　 ∧,,∧　|| 　復刊ドットコム
⊂ミ.,,ﾟДﾟ彡つ 　http://www.fukkan.com/bbs.php3?act=topic&t_no=1823

Undoか。
//hiroproject.homeip.net/cats/disptn.asp?gn=ari_andoh

　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣
　　　(,, ﾟДﾟ)　＜　>>316　エロじゃん！
=====U U====＼＿＿＿＿＿＿＿＿
|　　　ギコ　 ｜
|　まっしぐら ｜

あん　どぅ　とろわ

＞Ｄｅｌｐｈｉオブジェクト指向
絶版なら、俺が全文書をテキストファイル化しようか？
要望が多ければマジでやるかも。

絶版→再発行の意思なし→
欲しがっている人が居ても、でない→
著作権を放棄したも同然→
犯罪ではない。

ﾔｯﾀｰ!!

　 Λ＿Λ　　　／￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）　＜　　絶版なら犯罪じゃないよね
　（　　　　）　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　｜ ｜　|
　（_＿）＿）

　 Λ＿Λ　　　／￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀)　＜　　なんでやねん
　（　つ　　つ　 ＼＿＿＿＿＿＿＿＿＿＿＿
　 ヽ　Ｙ　ノ
　 （＿(＿_)

　　　　　　　　　　　ﾑｳ・・・
　　　　　∧ ∧＿___
　　　 ／(；ﾟДﾟ)　.／＼
　　／|￣〇〇￣|＼／
　　　 |＿＿＿___|／


　　　　　∧ ∧＿___ｿﾚ ﾊﾝｻﾞｲ ﾁｬｳ?
　　　 ／(；ﾟДﾟ)　.／＼
　　／|￣∪∪￣|＼／
　　　 |＿＿＿＿|／
　　　 　,,,,∪∪,,, ,,


　そういうのはマジで著者に連絡とらないとダメ。
　つうか、勝手な解釈するなって。

　Delphi/Kylix市場がにぎやかになって
　市場価値が高まれば
　自然と世に出てくると思うが　…

　今は金に比して単に増刷の採算が合わないだけじゃないの？

　それに、>>319　自分でｵﾌﾞｼﾞｪ指向の原稿書いてみたら？

自分が欲しいために１冊の絶版本を
印刷してもらうには、何円かかると思いますか。

>>323
いくらなの？
正確に知りたいです

>324
なんとなく
　「誰が！？
　　いつ！？
　　何時何分何秒！？」
ってのを思い出してしまった、

だれか図書館に寄贈してそれを回し読みしよう。
各都道府県1冊ずつ。

>>325
最後の「何秒？」だけ答えられなくて悔しい思いをしたのを思い出した

国会図書館に逝け

>>319

　更正ビーム！！
￣￣￣∨￣￣￣￣￣
　　 Λ_A_Λ　　ｼﾋﾞﾋﾞﾋﾞ
　　（　・∀・）　/／＿＿＿∧＿＿＿∧＿＿＿∧＿＿∧＿＿
　　（ つ ｏ/つ。　　ﾏ　ﾓ　ﾛ　ｳ　ﾐ　ﾝ　ﾅ　ﾉ　ｷ　ﾏ　ﾘ　ｺﾞ　ﾄ　♪
　　ノ∧)∧）　＼￣￣∨￣￣￣∨￣￣￣∨￣∨￣∨￣
　（_＿）（＿）

TToolBarでWindowサイズが変更されてボタンが表示しきれなくなったときに、
IEみたいに右端に矢印が出てメニュー表示できるようにしたいんですけど、
どなたかご存知でしょうか？

Del6Pro買ってActionManagerと関連コンポを使用する。

とりあえずTPageScrollerでいいと思ったのですが、
プログラムの中でWidthを変更しても、設計時のWidthを覚えているらしくて
設計時Widthより小さくならないと矢印が表示されないんですよ・・・。
これはDelphiのバグ？私のコードが不正？

>>331
ActionToolBarの矢印ははみでた分を表示するためのものじゃない。

申し訳ないんですけれど、プログラミングしていて分かんない事が出てきたので
教えて頂けないでしょうか。開発には、Delphi6 Personalつかっています。

何で困っているかというと、StrPCopyとかの関数を使うと、
SysUtils.pasが見つからないと怒られてしまうのです。
実際ファイル検索かけてみるとSysUtils.pasはDelphiのフォルダにはないようです。

どうすればStrPCopyとかが使えるようになるんでしょうか。

ちゃんとuses SysUtils;してるか？
SysUtils.dcuがフォルダに無いか？
Personalには*.pasは無いよ。

MLでもあったｋが、例外が起きたときにpersonalでは存在しないソースを見にいってしまうとかいうやつでは。

>>335 レスありがとう。

uses節にはSysUtilsがちゃんと加わっているようです。

SysUtils.dcuなら \Program Files\Borland\Delphi6\Lib\SysUtils.dcu
に入ってるみたいですけど。。。

わかんない設定とかはいじらないようにしているんで、
ほぼデフォルトのままなんですけど、
何がおかしいんでしょうね。

>>336
あぅ。つまりコーディングにミスが有ったってことですか。。。

アプリケーションを新規作成して、ボタンとエディットを配置して、

procedure TForm1.Button1Click(Sender: TObject);
var
pTemp: PChar;
strTemp: String;
begin
strTemp := Edit1.Text;
StrPCopy(pTemp, strTemp);
end;

でエラーです。なんか変ですか？

ちなみに、uses節はこう。
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

>>399
変です。pTempにメモリが割り当てられてません。
ポインタを勉強したほうがよいと思います。

とりあえず、オプションでデバッグ版dcuを使用しないように設定すると、
ファイルがないといわれることはないのではないでしょうか。
どちらにせよエラーはでますが。

>>340
教えてくれてありがとう。
ポインタって宣言したら自動で使えるようになるわけじゃないんだね。。
勉強して出直してくる。(T^T)

strTemp := Edit1.Text;
New(pTemp);
StrPCopy(pTemp, strTemp);
Dispose(pTemp);

これでエラーは出なくなった。

>>399
ポインタがわからない打ちは
ヘルプの「文字列処理ルーチン（ヌルで終わる）」
にあるルーチンは使用しない方がいいと思われ
Personalのスレの方があってるような

>>330
俺もこの処理実装したいな。
どうやってやるんだろう？

>>341もやばいコードなんじゃ？

復刻リクエスト。
http://www.fukkan.com/list/index.php3?c_no=0&mode=1

「Delphiオブジェクト指向プログラミング」は未登録だったので、だれか
登録してください。私は個人情報晒すの嫌なんで登録してません。

登録されたらみんなで投票しましょう！

>>245
登録済みとちがうか？　ほれ。

http://www.fukkan.com/list/index.php3?sort=vc&c_no=1600

もとい
>>345だ。

>>341
（’д‘；）

コンパイルが通っただけですな。
New(pTemp); は、char１個分しか確保されません。
コピーする文字列分確保しておかないと。
実行時に、いつエラーがでてもおかしくないです。

つーかポインタ勉強しろよゴラァ！！
それかstringのみにしとけ！！

>>330 >>343
シェブロン（シェーブロン？チェブロン？）って言うみたい。
TReBarBandInfoのfStyleにRBBS_USECHEVRONをつけてやると出るよ。
クリックされたときメッセージが来るので、自分でツールバーのボタンを
数えて非表示の部分だけをポップアップメニューに追加して表示する必要が
ある。はっきり言って面倒だよね。
しかも、IE５以上についてくるコモンコントロールDLLが必要。
だれかTCoolBarに実装してー。
（てっきりツールバーの機能かとおもっていたのに、レバーの機能だった。。。）

「レバー」
焼き肉か？

「リバー」
だ。
猫んところで「レバーのようなコントロールだからレバー」
ってやったのが誤りの根幹か？

ちなみに、シェブロンが押されたときにやって来るメッセージは、
RBN_CHEVRONPUSHEDです。
どうも、Delphi6でも宣言されていないっぽい。

RBN_CHEVRONPUSHED = RBN_FIRST - 10;
でｵｹ。

>>351
ﾎﾝﾄﾆ?
リバーだったのかｰ。
いままで、ずっとレバーレバー言っていたよ。
焼肉のレバーは好きだけど。

こんなのありました。２つめは日本語です。
そういえば前に、ここみてシェブロンって読み方分かったんだ。
http://www.codeproject.com/docking/chevrons.asp
http://www.kumei.ne.jp/c_lang/sdk4/sdk_308.htm

>>353
それは「Re:」を「れ」って言うのと同じだな。

これ。
http://www.kumei.ne.jp/c_lang/sdk2/sdk_182.htm
>レバーコントロールとは、IE4.0のツールバーのように左端に「とって（レバー）」がついたものです。

取っ手のレバーは "lever"
コモンコントロールのは "ReBar"

シェブロンって，アメリカでは至る所にあるガソリンスタンドの名前なんだけど
聞いたこと無い？

平沢進の曲名にもあるが，こちらはちとマイナー

　　∧∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　　＜ 　こんなん？
　ヽ/つ且~~　　＼＿＿＿＿＿＿＿＿＿＿＿
　 （__　_）

procedure TForm1.BitBtn1Click(Sender: TObject);
var
　My_PChar:PChar;
　i:Integer;
begin
　GetMem(My_PChar,1000);
　StrPCopy(My_PChar,'ABCDEFG');
　for i:=0 to 6 do
　begin
　　ListBox1.Items.Add(My_PChar+i);
　end;
　FreeMem(My_PChar);
end;

素直にString使えって。

ちなみにGetMemではこの場合最低いくつ確保すればいいの？
即答できる人いたらおせーて。

Length('ABCDEFG')+1か2G

禿同

>>358

たしかに String 使うのがいい

procedure TForm1.BitBtn1Click(Sender: TObject);
var
　My_String: String;
　i:Integer;
begin
　My_String := 'ABCDEFG';
　for i:=1 to 7 do
　begin
　　ListBox1.Items.Add(Copy(My_String,i,MaxInt));
　end;
end;

　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>359 ｻﾝｸ--ｽ
⊂,,＿_つつ.　　＼＿

プラス1は例の文字列サイズを確保した先頭ﾊﾞｯﾌｧ？

>>361
多分元質問者はC++あがりなんだろうね。

>>362

NUL で終わる文字列ルーチンは、 NUL で終わるから
（文字数＋１）文字分の容量が必要なのさ

>>362
プラス1は C の文字列ターミネーター確保のため。

　　　　　　 ∧∧l||l
　　　　 　 /⌒ヽ)　　ﾄﾎﾎ
　　 　 〜（＿__）
　　　 ''" ""''"" "''

思いっきり、Pascal文字列と
C文字列を間違ったよ。

天然だよ、天然

典型Delphi厨房にﾅﾁﾏｯﾀ…

>>363-364ｱﾘｶﾞﾄ

Professional版をＭＸで落としたんだけど尻がワカラン！！

>>366
マルチポストうざい

>366
0120-444-444

てれほんしょっぴんぐぅ

>>366
実家の電話番号教えてくれたら電話で教えてあげるよ？

AnsiStringってほんとにANSIで定められた規格なの？

>>371
ANSI規格なのではなく、ANSI文字を対象にしてるからだよ。

>>357
> 平沢進の曲名にもあるが，こちらはちとマイナー

まわるよシェブロン、ひゅーーーーーーーーーー

DBGrid　で　行番号を表示させる方法教えてください

元のDBにシリアル型で番号振っとく

データベースの行に行番号なんて何の意味があるんだ？

>>374
直接は無理っす。
RelationalDB自体が行の順番って概念を否定してるデータベース方式なんで。
つけたきゃ自分でそういう項目を用意するのは可能。

finally の使い方だけど
　KEYが見つからなければ挿入という処理の場合

try
　for n=0 to High(datas) do
　　begin
　　　if datas[n].key = nkey then exit;
　　end
　n=Length(datas);
　SetLength(datas , n+1);
　datas[n].key:=key;
finally
　datas[n].data:=data
end;

みたいに使っていいの？
　使わないと、goto 使うか、データの書換えを２重に定義するかになって格好悪いんだけど？

Delphiだとforループを抜けた時のカウンタは不定のはずだから>>378のは
ちょいやばいかも。

＞forループを抜けた時のカウンタは不定のはずだから

　　∧ ∧∩
　　(ﾟДﾟ,,)ﾉ 　うそ〜ん。
　　 | 　つ
　　 | ⊂)〜 　そんな話聞いたことないYO
　　　_∪

コンパイルで警告出るし、ヘルプにも書いてあるよ↓

85. for ループ脱出後のループ制御変数の値は不定です
FOR-Loop variable '<Name>' may be undefined after loop
-------------------------------------------------------
説明

この警告は for ループの制御変数の値をループの後に使った場合に表示されます。for ループの制御変数の最終値を当てにしてもよいのは，goto 文か Exit 文でループを出た場合だけです。これはコンパイラが for
ループに効率的なコードを生成できるようにするための制約事項です。

　　 ∧∧　　　／￣
　∩(,,ﾟДﾟ)　＜　>>359 ｻﾝｸ--ｽ
⊂,,＿_つつ.　　＼＿

var
IndexOf: Integer

IndexOf := -1;
for n:=0 High(Datas) do
begin
if not (datas[n].key = nkey) then
begin
IndexOf := n;
break;
end;
end;

if IndexOf = -1 then
begin
　n=Length(datas);
　SetLength(datas , n+1);
　datas[n].key:=key;
end else
begin
datas[n].data := data;
end;

なぜnを使いまわしているのかはわからんが。

　　 ∧∧　　　／まちがた。
　∩(,,ﾟДﾟ)　＜　>>381 ｻﾝｸ--ｽ
⊂,,＿_つつ.　　＼　ほんとだったのね。
　　　　　　　　　　　　今まで普通につかってた機がする＿＿

インデントも忘れたし･･･
var
　IndexOf: Integer

　IndexOf := -1;
　for n:=0 High(Datas) do
　begin
　　if not (datas[n].key = nkey) then
　　begin
　　　IndexOf := n;
　　　break;
　　end;
　end;

　if IndexOf = -1 then
　begin
　　n=Length(datas);
　　SetLength(datas , n+1);
　　datas[n].key:=key;
　end else
　begin
　　datas[n].data := data;
　end;

言語規定上は「不定」だけど実装上は For 文の 終値+1 の値が
セットされていることが「多い」という話。

最適化により反対方向に進む場合も有るし，誘導変数経由で参照されるために
値が変わらないこともある。可能性という話ではね。

Delphi以外の実装なんてあるの?

borland.co.jp の newsgroup の面子は object 小島が
ただの煽り・あらし・クレーマーだとなぜ気が付かない？
奴の言動に一貫性はないし、矛盾だらけだろ。

まあ、すでに奴を無視して話を進めている奴もいるが。
あ、GON も同類な、fj でも暴れてた

TCustomEditをベースにコンポーネント作ってるのですけど、
上下のマージンを指定できず困っています。
なにか、良い方法はないでしょうか？
それとも、EDITコントロールをベースにする以上無理なのでしょうか？

TPanel 上に BorderStyle を bsNone にした TEdit を貼り付ける。
TPanel は
BebelInner = None
BebelOuter = None
Color = clWindow
BorderStyle = bsSingleCaption = ''

そうすれば外観上はＴＥｄｉｔそのものだＹＯ！

>>381　という事は >>378　のコードは exitで抜けてるから違反していないのでは？

for がループ終了した場合は n:=Length(datas)で再設定してるし

>>378のは大丈夫かな。ただ、ちょっと変えて
try
for i := 0 to 20 do
if random(10) > 5 then exit;
i := 6;
finally;
ShowMessage(IntToStr(i));
end;
みたいなのを実行すると、forループを最適化して、値がおかしくなる。
だから俺はforの近くでは余りトリッキーなやつは避けてる。
あーでも、そんなに気にしなくてもいいのかな？

そもそも、制御変数に変更を加えたいなら
while を使うべきではないだろうか。

for 文は、ループ回数が特定されている場合に利用するものであって、
そのような制約があるからこそ、while よりも高速に作動する。
そもそも、for の制御変数を変更しようなんて考えは
ＣやＢＡＳＩＣプログラマの悪い癖だとおもう。
Ｃの for と while はなにが違うのか、俺には分からん。

そのような利点があるからこそ、
for i:=0 to 100 step 2
なんて書き方が出来なくても良いのだ。

「for は初期値から終了値まで１づつ変化していくもの」
という認識だけですむから。下手に高機能なforを用いると
たかがfor の条件ごときに解読の手間を費やさなければならない
（ＣやＪＡＶＡのようにね）

ようはCなんかのforの感覚で使ってる人が多いということですな。
だがそれは間違いだと。

Cだろうが、業務でそんなｺｰﾄﾞ書いたらｿｰｽﾚﾋﾞｭｰで殺されるがなぁ
悪い癖は直した方が自分の為だと思うがなぁ

>>387
EM_SETRECTでマージンを設定できると思われ。

exit ・・・　finally;
はやっぱり、 exitを見たらそれで終わりという印象を与えるのに
finallyで処理してる点が　有罪でしょうかね

これするなら goto 使った方がマシ？

>>396
exitしてもfinallyされるのは最初は???だけど
合理的な動作であるし言語ガイドにも明記されているので
積極的に使うべきかと。gotoは論外でしょう。

クラスを作る勉強してるんだけど、
どうしてもエラーが出る。
誰か添削してくれ。

TFolder=class
private
　　　　Name:String;
public
　　　　function GetName:String;
end;

implementation

function TFolder.GetName:String;
begin
　　　　Result:=Name;
end;

こいつを、メインで呼び出すとエラーが出る。
どうして？

ちゃんと生成してる？

var
  Folder: TFolder;
  AName: string;
begin
  Folder := TFolder.create;
  AName := Folder.GetName;
end;

あぁ、勝手に納得した。

createが必要だったらしい。
ということは、メンバー変数は、createして初めて使えるようになるということかな。

誰か解説してくれー

>>399さん、サンキューです。

まさに今、その事に気がついたばかりです。
なるほどね〜

　　 ∧ ∧　　　／￣
　∩(,,ﾟДﾟ)　＜　>>397ﾁｮｯﾄﾏﾀｰ
⊂,,＿_つつ.　　＼＿ (ねるとん)

んー、Exitでfinallyを通過させるのは
良くないと思うな。
可読性の面から積極的に使うものではないと。

上記のコードなら、キーのあるなしを判断する部分と
キーの挿入or代入を処理する部分は別々になるのだから
冗長にわかりやすく書くとこうじゃない？

var
　IndexOf: Integer;
DataLen: Integer;

　IndexOf := -1;
　for n:=0 High(Datas) do
　begin
　　if not (datas[n].key = nkey) then
　　begin
　　　IndexOf := n;
　　　break;
　　end;
　end;

　if IndexOf = -1 then
　begin //キーガないなら挿入
　　DataLen:=Length(datas);
　　SetLength(datas , DataLen+1);
　　datas[DataLen].key:=key;
　　datas[DataLen].data := data;
　end else
　begin //キーがあったら代入
　　datas[IndexOf].data := data;
　end;

forに使う変数のfor以外での使いまわしのご利用は計画的に

　　 ∧ ∧　　　／￣
　∩(,,ﾟДﾟ)　＜　　Forにまつわる話はサンクス。
⊂,,＿_つつ.　　＼＿　Stepは使いたくなる場面もあるが、安易に使ってはいかんね。
　　　　　　　　　　　関係ないけどcontinueは便利だよなあ。

Folder.Free;

で廃棄もちゃんとしろよ。
ちなみに
Folder.Destroy;
はよぶなよ。

>>403
なんでですか？（厨房でｽﾏｿ）

　　 ∧ ∧　　　／￣
　∩(,,ﾟДﾟ)　＜　　こんなんどう？
⊂,,＿_つつ.　　＼＿

type
TForm1 = class(TForm)
//Formのマウスアップイベント
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
　　//自分で追加しろ
FBtnCounter: Integer;
procedure BtnClick(Sender: TObject);
public
end;

//イベントハンドラ
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
UserCreateButton: TButton;
begin
UserCreateButton := TButton.Create(Self);
UserCreateButton.Parent := Self;
UserCreateButton.BoundsRect :=
Rect(X, Y, X + UserCreateButton.Width, Y + UserCreateButton.Height);
UserCreateButton.OnClick := Self.BtnClick;
UserCreateButton.Name := 'MyButton'+IntToStr(FBtnCounter);
Inc(FBtnCounter);
end;

//自分で書いた手続き
procedure TForm1.BtnClick(Sender: TObject);
begin
Self.Caption :=
'あんたの押したボタンは' +
(Sender as TButton).Name +
'だよ';
end;

　　 ∧ ∧　　　／
　∩(,,ﾟДﾟ)　＜　　>>404生成したものは破棄しなきゃ
⊂,,＿_つつ.　　＼メモリがどんどん減るのよ。
　　　　　　　　　　(上記の例はButtonのCreate時のOwnerを
　　　　　　　　　　　Formに指定しているので自動破棄されるのでOKだけど。

UserCreateButton := TButton.Create(Self);
を
UserCreateButton := TButton.Create(nil);
こうしてしまうと基本的にはいけない。


FreeとDestroyの話は有名な"Delphiオブジェクト指向"本に
超明快な解説が載ってるんだけどなあ。手に入りにくいんだよな。

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（,,ﾟДﾟ）　＜　ぐはっ。またインデント忘れた。ｺﾞﾒｿ
　 UU'UU　　　　＼＿＿＿＿＿＿＿＿

>>402
>んー、Exitでfinallyを通過させるのは
>良くないと思うな。
>可読性の面から積極的に使うものではないと。

同感
ExitとかGotoとかはよっぽど処理の流れが分かり切っている場合には
シンプルになるしいいと思うが。

try〜は例外処理のための制御機構だから
このような使い方の場合は>>402の方がいいと思う。

どうしてもtry〜を使いたい>>378の場合は
Exitよりも例外を発生させた方が素直だと思う。

>>402
>冗長にわかりやすく書くとこうじゃない？
個人的には行あたりの密度を下げる冗長性は可ですが
同一内容の処理を複数箇所にばら撒く冗長性は不可です。

>>407
>どうしてもtry〜を使いたい>>378の場合は
>Exitよりも例外を発生させた方が素直だと思う。
これはtry-finallyの用途を必要以上に限定してしまっていると思います。
上の例は単純すぎるのであまりありがたみがないけれど、
（例外に関係なく）必ず通過するパスを明示できるメリットは少なくないです。

このあたりの議論はCマガの千言万語「例外」でなされていてその中で
exitは内部では例外であり以下のように処理されているとみなせる。
という記述があったはずです。

procedure Foo;
begin
　ｔｒｙ
　　if xxx then
　　　raise EExit; // exit
　finally
　　... // 当然ここを通過する
　end;
except // 暗黙のexcept部
　on E: EExit do // 何もしない
end

この前提（と多少の慣れ）があればexitとfinallyの組み合わせはとても自然に思えます。

>>400
つまり、クラスの宣言と実装部分↓↓は…
TFolder=class
private
　　　　Name:String;
public
　　　　function GetName:String;
end;

implementation

function TFolder.GetName:String;
begin
　　　　Result:=Name;
end;

↑↑クラスの設計図でしかないわけです。
「このクラスは、こんな構造をしていて、それぞれのメソッドは
こんな働きをするよ」という風に、クラスの構造や働きを”説明”
しているだけなの。

たとえば、車の設計図がいくらあっても、
車がなければ、車を利用する事はできないでしょ？それと同じ事で、クラスを使いたければ、クラス（車の設計図）だけでなく、
クラスのインスタンス（車そのもの）をも作る必要があるって事です。

では、なぜ
var
Folder:TFolder
だけではクラスの実体が作成されず、わざわざクリエイトしてやる
必要があるのかといえば、今の段階ではこの恩恵はわからないかも
しれません。
Delphiでは、クラス変数はかならずポインタとして機能します。
したがって、 var Folder:TFolder としただけでは、Folder は
あくまでも「 TFolder を指し示すモノ（ポインタ）」でしかない。

当然一番最初は Folder は何も指していない（つまり Folder = nil )
だから、TFolder を作り、（ TFolder.Create ） つくった
クラスのある場所を、 Folder が指し示すようにしなければならない。
つまり、

Folder := TFolder.Create;

てこと。

…と、俺だったらこう説明するんだけど、
ツッコミどころある？

１つわからないことがあるんだけど、

TFolder=class
private
　　　　Name:String;
public
　　　　function GetName:String;
end;

implementation

function TFolder.GetName:String;
begin
　　　　Result:='c:\';　　　　　　　　// ←こんな風にメンバー変数を使わない。
end;

こうすると、createしなくても問題なく動くんだけど、
要するにcreateは、メンバー変数の初期化作業って考えて良い？

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（,,ﾟДﾟ）　＜　言語論だﾆｬ
　 UU'UU　　　　＼＿＿＿＿＿＿＿＿

>>408
> 個人的には行あたりの密度を下げる冗長性は可ですが
ん？どういう事を言ってる？

> 同一内容の処理を複数箇所にばら撒く冗長性は不可です。

　if IndexOf = -1 then
　begin //キーガないなら挿入
　　DataLen:=Length(datas);
　　SetLength(datas , DataLen+1);
　　datas[DataLen].key:=key;
　　datas[DataLen].data := data; //★
　end else
　begin //キーがあったら代入
　　datas[IndexOf].data := data; //★
　end;

★の所が重複している事をさしてる？
それとも一度条件判断したあとに再度IF..THENしていることを逝ってる？


キーの挿入か代入かを判断した後に
それに応じた処理をするというのは
可読性の高いコードを書く上で必須なんだけどなあ。

　IndexOf := -1;
　for n:=0 High(Datas) do
　begin
　　if not (datas[n].key = nkey) then
　　begin
　　　IndexOf := n;
　　　break;
　　end;
　end;
この部分が関数一まとめになってしまえるというのはいいかな。
これで"キーが重複しているか否か"という機能を示してるの。

今は"キーが重複しているかどうか"を判断して
重複しちたら>>代入
重複しちなかたら>>挿入
という処理だから
finally .. end
で共通部分を実行させてるけど

仕様が変更されて

"キーが重複しちえるかどうか"を判断して
重複しちたら>>処理をキャンセル
重複しちなかたら>>挿入
という処理に変わったら

try .. finally end のコードとIndexOfを使ったコード
どちらか楽か、どちらが(自分以外の)誰でも変更しやすいかを
判断したら、わかってもらえると思うのだが…

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（,,ﾟДﾟ）　＜　間違った事覚えると危険という実例だ。
　 UU'UU　　　　＼＿＿＿＿＿＿＿＿

>>412
> こうすると、createしなくても問題なく動くんだけど、

動くけどやっちゃだめ。
それをやるように
クラスメソッドというものが用意されている。

> 要するにcreateは、メンバー変数の初期化作業って考えて良い？

そうじゃなくて
オブジェクトの実態(インスタンス作成)って事。
それと同時にメンバー変数が初期化される。
(メンバーの実態も生成されるから。)

>>414
親切にありがとう。

インスタンス作成の重要性を再確認しますです。

>>datas

どうでもよいけど
data は datum の複数形だったような…

　　　　　＿＿＿＿＿
　　　 ／＿　　　　　　|
　 　 /.　＼￣￣￣￣|
　　/　　／　 ―　― |
　　|　 /　　 　-　　- |
　 ||| (6　　　　　　>　|
　| | |　　　　 ┏━┓|　　 ／￣￣￣￣￣￣￣￣
| | | | 　　　　┃─┃|　 ＜　正直、Create しなくても使えると初めて知った
|| | | | 　＼　┃　 ┃/　 　 ＼＿＿＿＿＿＿＿＿
| || |　|　　　￣　￣|

　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>417　こんなこともできたり...
⊂,,＿_つつ.　　＼＿

TEditを継承してTEditExに追加メソドつくて
TEぢｔのインスタンスをTEditExに無理キャストして追加メソドを四部
何つう事が普通にできてマンセー（なのか？）

このバヤイTEヂtExにメンバーつくっちゃだめ。
TEditをTEぢｔExに無理キャストした時点で転ぶんじゃなかたかな。(忘れた)

先のDelphiオブジェクト指向本には
どうやってメンバーとメソッドがコンパイルされて
バイナリになるのかを説明してあって
わかりやすいんだけどなあ。
あの本絶版ってマヂになんとかならん？


メソッドの処理バイナリはインスタンスごとに生成されるんじゃなくて
クラスに一つだけ生成される
メンバーのバイナリはインスタンスごとに生成されるんだって。


微妙に言葉まちがーてたら指摘きぼんぬ。

> このあたりの議論はCマガの千言万語「例外」でなされていてその中で
> exitは内部では例外であり以下のように処理されているとみなせる。
> という記述があったはずです。
>
> この前提（と多少の慣れ）があればexitとfinallyの組み合わせはとても自然に思えます。

　　　∧∧　　　／￣
〜''~（,,ﾟДﾟ）　＜　>>397　これもあまり同意できんな
　 UU'UU　　　　＼＿>>407に同意。

言語仕様を隅々まで知らなければ
中身を読み間違ってしまうコードは
あまり好んで書くべきではなくない？

try..finally..endでExit時にfinallyも通過するってのは
氏ってるべきだと思うが
日常茶飯にざくざく使われているコードの保守は
やりたくねーぞ。

ちょっと微妙なのでいろんなﾋﾄの意見は聞きたいﾈﾀです。

createするときに、クラスを定義してる場所にconstructorを付け加えます。

もしかしたら、すごいアホな質問かもしれないけれど、
クラスをcreateしたら、最後にfreeにするってのはわかるけれど、
destructorって何の為にあるんすか？

>>412
メンバを使っていないから、たまたま動いてるだけですな。
実際にメンバを使わずに、classメソッドにすれば公認。

TFolder=class
private
　　　　Name:String;
public
　　　　class function GetName:String; 　　// クラスメソッドとして宣言
end;

implementation

class function TFolder.GetName:String;
begin
　　　　Result:='c:\';　　　　　　　　// ←メンバー変数にアクセスしていない
end;


// これが可能
a := TFolder.GetName:String;

>>420
destructorはクラスを破棄したときに必ず実行したい処理をかくのがよいかと。

TFoo = class
public
　　FList: TList;　
public
　　constructor Create;
　　destructor Destroy; override;
end;

constructor TFoo.Create;
begin
　　FList := TList.Create;
end;

destructor TFoo.Destroy;
begin
　　FList.Free;
end;

余談だが、個人的にはFList.FreeよりもFreeAndNil(FList)推奨だな

ﾜﾘｲinherited抜けてた。

destructor TFoo.Destroy;
begin
　　FList.Free;
　　inherited;
end;

C++は知ってるつもりでDel勉強中の身何だが。

C++と違って、変数がスコープから外れたら勝手にデストラクタを起動してくれたりしないよね？
自分でFree呼ばないとだめなんだよね？

だとしたらあまりデストラクタの意味ないんじゃ。

確かにデストラクタの意味あんまりないですね。普通のメンバ関数と思っていいんじゃないのかな

>C++と違って、変数がスコープから外れたら勝手にデストラクタを起動してくれたりしないよね？
>自分でFree呼ばないとだめなんだよね？

そりゃ、C++と違って実体は扱えなくて参照だけだからな。

TFoo = class (動的オブジェクト)
の部分を
TFoo = object (静的オブジェクト)
にすれば、いちいち生成・破棄しなくてすむよ。
最近はほとんど使われないけど。

>>424
デストラクタは重要な意味を持っています。つまりデストラクタは
デストラクタ"全体"の実行が終わったときにインスタンスのメモリ領域を
自動的に解放する機能を持ちます。

この"全体"ってのが重要で、これのおかげで例えば親クラスのデストラクタを
初めに呼び出してから次に子クラス内での後始末をするような事も出来ます。

C++ ではデストラクタ自身はインスタンスのメモリ領域の解放機能を持たず
delete 演算子がメモリ領域の解放作業を行っていると思います。
また親クラスのデストラクタは子クラスのデストラクタの
実行が終わった直後に呼びだされると言語仕様で決まっており、
自分の好きなタイミングで親クラスのデストラクタを呼び出せなかったと思います。
(C++ のことあまり知らないので間違っていたらすみません)

仮にデストラクタを通常のメソッドとして以下のように実装しても
前述のことは実現出来ないと思います。

type
　TObject = class
　　procedure Destroy; virtual;
　end;

　TTestObject = class
　private
　　FStrings: TStringList;
　public
　　constructor Create;
　　procedure Destroy; override;
　end;

procedure TObject.Destroy;
begin
　FreeInstance; // インスタンスのメモリ領域を開放します。
end;

constructor TTestObject.Create;
begin
　inherited Create;
　FStrings := TStringList.Create;
end;

procedure TTestObject.Destroy;
begin
　inherited Destroy;

　// ここ↑で親クラスの Destroy メソッドが呼び出されてインスタンスの
　// メモリ領域が解放されたため、この時点以降でメンバ変数にアクセスすると
　// 不正なメモリアドレスを参照となります。

　FStrings.Free; // エラーとなる
end;

>>408

>このあたりの議論はCマガの千言万語「例外」でなされていてその中で
>exitは内部では例外であり以下のように処理されているとみなせる。
>という記述があったはずです。

ということでヘルプを調べてみると
goto文と違いAbort、Break、Continue、Exit、Halt、RunError等の
フロー制御手続きは「手続き」とされていて
すべてtry 節を離れると finally 節に入ると書かれている。
408のいうとおりこれらは例外の機構を使っているのかな。
だとするとexitとfinallyの組み合わせもいいと思うけど。。。。

>この前提（と多少の慣れ）があればexitとfinallyの組み合わせはとても自然に思えます。

多少の慣れというのは。。。ちょっと。この辺熟知している人がどれだけいるか。。。
ここまでくるとまぁ、人それぞれかな。。。
自分としてはやっぱ例外を生成するかな。

ちなみにgotoはtry〜の中で使うとコンパイラに怒られる。
勉強になったよ。。。

>>413
>> 同一内容の処理を複数箇所にばら撒く冗長性は不可です。
もはやexit-finallyと無関係ですが...
413のコードを要約すると
if 見つからない then データ挿入 else データ変更;
となりますがデータ挿入は空データ挿入+データ変更に展開され
if 見つからない then begin 空データ挿入; データ代入; end else データ代入;
となり明らかに２箇所に記述されたデータ代入処理が冗長です。
# データベースのレコード・TListItemなどの場合、代入処理は複数行にわたります。
# 例外はTStrings.Addなどで、挿入・代入を一命令でできる為413のコードが最適となる場合があります。
よって
if 見つからない then 空データ挿入;
データ変更;
と書いたほうが無駄がなく見やすいです。実際のコードは以下のようになります。

　function search: Integer; // 見つからなかったらLength(data)を返す
　begin
　　for Result := 0 to Length(data)-1 do
　　　if data[Result].key = nkey then exit;
　　Result := Length(data);
　end;
var idx: Integer;
begin
　idx := search;
　if idx = Length(data) then
　　SetLength(data, idx+1); // 空項目追加
　data[idx].data := ndata; // データを設定
end; // このコードを見やすくないといわれたら議論が終わってしまいます:-P

問題はforループを途中で抜けたかどうかで分岐する処理を綺麗に記述できないことのようですね。

千言万語は調べたところ2001年3月号の「例外(2)」でした。
C++での説明だと記憶してましたが(よく考えたらfinally無いですね)、Pythonでした。

>言語仕様を隅々まで知らなければ
>多少の慣れというのは。。。ちょっと。この辺熟知している人がどれだけいるか。。。
exit-finallyが重箱の隅的知識のように言われていますが、
リソース保護の観点から必須の知識です。

少なくとも言語ガイドの第２−７章（特に7章!!）は熟読すべきで
しかもC++と違って十分読みこなせる量だと思います。

これ以上は新goto論争的になってきそうなのでやめておきます。

>これ以上は新goto論争的になってきそうなのでやめておきます。

だな。
勉強にナターヨ。

　　　　∧ ∧　　／　>>430
　　　　（,,ﾟДﾟ）＜　　それなら読みやすい
　　　　 |つ つ　 ＼
　　　＠　　 | 　
　　　　∪ ∪

># 例外はTStrings.Addなどで、挿入・代入を一命令でできる為413のコードが最適となる場合があります。
基本的にはどんな配列/リスト構造でも
Addなどは関数として構造化してしまえば分かりやすいから
function MyDataAdd(xxx);というようなのをすぐ作るようにしてるぞ
だからその構造化がすぐに出来るようなコードを書くようにしているわけだ。

>明らかに２箇所に記述されたデータ代入処理が冗長です。
データ挿入を空データ挿入+データ代入に解釈する方が変だと思うのだが
ま、ここまでくると人それぞれではないか？

>これ以上は新goto論争的になってきそうなのでやめておきます。
ぐはっ。折れも書かなきゃヨカタ。

Ｄ６が無償でダウンロードできるようになったのに、
Delphi談話室が閑散としてるのはなぜですか？

>>434
１．Personal専用スレに逝ってる＞Borland Delphi 6 Personal をダウンロードした
　　　　　　　　　　　　　　　　　　　　　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998878393

２．挫折したユーザが多くてほとんど残ってない(w

３．Vectorを知らず、未だにftpa.borland.co.jpに連アタかましてる。


しかし、ツールでっち上げるにはえらく便利だ。
ファイル変数ってのがよく解らんのでヘルプに使うなと書いてあるFileOpen/FileRead関数使ってるが。
だが、フリーカーソルなエディタはやめてくれ！エディタの配色も好きな色使わせてくれ！！

>>435
TFileStreamを使うがよろし。

>エディタの配色も好きな色使わせてくれ
好きに帰られるでしょ？

>>437
配色どころかフォントや斜体・太字等も変えられるよね。

一太郎で育ったので、フリーカーソル大好きです。

エディタの配色変えられるといっても限られてるから、
細かく指定できないって言いたいんでしょ、435は。
白は目がつかれてイヤだから、微妙に薄い灰色にしたいとか。

＞FileOpen/FileRead関数使ってるが。
なぜにわざわざそんな低レベルな方法で・・・。

正真正銘の初心者です。早速ですが質問があります。TWebBrowser
を使っているのですが、２つほど質問があります。
procedure TForm1Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

begin
if Key = VK_Return then
OleVariant(Browser.Document).URL:=Edit.text;
とすると一応、Edit1.Textに書き込まれたＵＲＬをブラウズするのですが、
エラーサウンドがなります。（エラーダイアログは出ません。また、その後
も普通に使えます）どうも気持ちが悪いのですが、どう書き直せばよろしいでしょうか？

もう一つの質問は、
procedure TForm1.BrowserNavigateComplete2(Sender: TObject;
pDisp: IDispatch; var URL: OleVariant);

begin
Edit1.text:=OleVariant(WebBrowser1.Document).URL;
end;
とすると、Edit1.TextにＵＲＬが書き込まれますが、最初にftp://とか空白
には&20とかが付け足されて表示されます。コレをなくすにはどうすれば
いいのでしょうか？

Delphi presonalを最近ダウンロードして使ってます。まだ初めて３日くらい
なので分かりやすくお願いします。

>>442

OnKeyDown で Return キーを処理したことを呼び出し側に通知していないから。
Return キーに限らず、自前で処理しきってしまいたいときは

Key = #0;

を入れる。

だから、静的オブジェクト使えよ！！！！！！！！

俺、いまだにBlockRead/BlockWrite使いまくってる。。
TurboPASCAL以来の癖が抜けない・・・

>>443
Key= #0;　はどこにいれればいいのでしょうか？

>>444
静的オブジェクトが分かりません。勉強します。よろしければサンプルでも・・・。

>>444
誰に対して言っているの？

>>444
オブジェクトの生成、破棄が面倒だと言っている奴へ。

静的オブジェクトの生成の仕方を教えてください。

>>448
だーら，何番に対するコメントだよ？
誰も動的生成で面倒なぞといっていないようだけど？

C++のSTLのvectorとmapみたいなのが使いたいのですが
Delphiでいうとどれになりますか？

>>451
ClassesとContnrsユニットの中から使えそうなのを探すことになると思われ

　＿＿＿ ∧ ∧　　／￣￣￣￣￣￣￣
　＿＿＿（ ﾟДﾟ）＜ 　>>451 TListとかTCollectionあたりか？
　＿＿ ／⊃三つ　＼＿＿＿＿＿＿＿
　＿〜′ ／　＼
　＿ ∪ ∪　　　 ＼ 　　YOｰ ﾜｶﾗﾝ
　　 　◎￣￣￣￣◎

>>435
ニフチーのFDELPHIにはフリーカーソル無効化ツールがあったのですが（Ｄ６対応は不明）．
配色が標準色からしか選べないのは私も不満ですが，
ウィンドウズの前景色と背景色をつかうようにして
ウィンドウズの色設定のほうを色々変えています．
チョコレート色とか桃色とか何でもありです．

リアルうんこチョコレート味

次

>>450
わかったぞ！きっと「delphiの奇跡」を執筆した吉田弘一郎のことを言いたいのだろう。

あの本でいきなり＊説明書も読まずに＊動的生成をしないコードを書いて
動かない動かないって焦る、という描写が有ったもんな。

言語なんてものは原理的に「どんな造りもアリ」なんだから、
説明を読まずに他の言語からの類推で使い始めるってのは
言語に対する姿勢としては、単なるドキュの姿勢。

>>435-436
sl := TStringList.Create;
try
  sl.LoadFromFile(FileName);
  TextFileBody := sl.Text;
finally
  sl.Free;
end;
↓
(ﾟдﾟ)ｳﾏｰ

with TStringList.Create do
try
LoadFromFile(FileName);
TextFileBody := Text;
finally
Free;
end;
↓
(ﾟдﾟ)ｳﾏｰ

>>445
>俺、いまだにBlockRead/BlockWrite使いまくってる。。
>TurboPASCAL以来の癖が抜けない・・・

TP 世代なら，Assign/Reset/ReWrite の組を使えるだろうに・・・

速さだけならstream系よりBlockRead/Writeのが
速そうだけど計った人いる？

>>461
はやいよ。

単体の呼び出しでは

FileRead < TFileStream < BlockRead

BlockRead がもっとも遅く FileRead がもっとも速い。

単純な I/O では上記の通りだが、ストリームインターフェスが
必要なら必然的に TFileStream を利用することになる、バッファ
付き I/O によって高速化したりできるのもストリーム系だけ。

そして、FileRead と TFileStream のコストは最適化で消える
程度なので BlockRead/FileRead ではなくて TFileStream を
使うべし。

< の使い方おかしいように感じるが

<> を、大なり、小なり　としてではなく
矢印として使っていると推測される。
解りづらいから逆にせい>>463

BlockReadってバッファもたないから遅いんではなかったけ？

Delphi の操作レベルではどれもバッファはないぞ

BlockRead が遅いのは BlockIO を呼び出したり、その中で
関数ポインタを利用して低レベルの入出力を実行したりと、
まわり道が多い上に、最適化が効かないようなコードが多い
からだ

>>465

BlockRead > TFileStream > FileRead

ってことか？ 矢印なのかな？　コストが少ないとか
動作が軽いって意味で FileRead が小さいって意味じゃない？

Delphi 6 エンタープライズ 60日体験版　
を下記キージェネを使えば製品版になります
ぜひご利用ください
http://www.crackbest.net/chcrack/crack/delphi6.exe

　　　　　||　　||￣￣||￣￣￣||
　　　　　||　　||　 　 ||　 　 ／||
　　　　　||..∧||　 ／||　 ／／||
　　 ｼﾞｰ ||..(:゜||／／||／／ 　||
　　　　　||　|つ／　 ||／ 　 　||
　　　　　||　|. || 　 　||＿＿＿||
　　　　|￣￣￣￣￣￣￣￣￣|

　　　　/＿＿＿＿＿＿＿＿_ヽ
　　　　　||　 　 三 ||￣￣￣ ||
　 ｶﾞﾗｯ! ||ｼﾈ!...三 ||　 　 ／ ||
　　　　　|| ∧∧Ξ||　 ／／ ||
　　　　　||（ﾟДﾟ ） .||／／ 　 ||
　　　　　||ι 　 ⊃||／ 　 　 ||
　　　　　|| ｜　｜ ||＿＿＿ ||
　　　　|￣￣￣￣￣￣￣￣￣|

　　　　/＿＿＿＿＿＿＿＿_ヽ
　　　　　||￣￣￣ ||￣￣￣ ||
　　　　　||　 　 ／ ||　 　 ／ ||　>>1
　ﾋﾟｼｬ!　||　 ／／ ||　 ／／ ||　ｹｯ!　ｳﾞｧｰｰｰｶ
　　　　　||／／ 　 ||／／ 　 ||
　　　　　||／ 　 　 ||／ 　 　 ||
　　　　　||＿＿＿ ||＿＿＿ ||
　　　　|￣￣￣￣￣￣￣￣￣|

>> 468

その実行ファイル

xx00 C1 EE 00 shr esi,0
xx03 66 8B C9 mov cx,cx
xx06 EB 01 jmp 009h
xx08 EB -- jmp ?
xx09 60 　 pushad
xx0A EB 01 jmp 000Dh
xx0C EB -- jmp ?
xx0D 9C 　 pushfd
xx0E E8 00 00 00 00 call 00418013
xx13 5E 　　 pop esi

なんかあきらかな逆アセ対策・・・怪しすぎ

ageてみる

>>471
すぐ下がる。

ギコ猫みたいなキャラクターが無いとはやらないのかなぁ。

>>472
まぁキャラがいると雰囲気柔らかくて発言しやすいよね。
Delギコさんの反応早いのもあるし。

賛成>>473
絵だけみてる。文章は役に立たんな。

Del6から入ったIndyの TidMessageについて質問です。
「Errors-To」のような TidMessageで対応していないものは
ExtraHeadersプロパティでできるとあるのですが

var Msg : TidMessage;
begin
　Msg.ExtraHeaders.Values['Errors-To'] := '[email protected]';
end;

みたいにやると EAccessViolationが発生します。
CPUウィンドウを見ると TIdHeadersList.GetValueFormLineで
問題が発生しているようなのですが。

>>475
Add();
にするとか
8.1.0-Aならその構文でできるけど
メール関係しか試してないけどIndyまだバグ多し
たぶん英語のみならうまくいくのかな

>>476
う、エラーはCreateしてなかったからだ。
Msg := TIdMessage.Create(idSMTP1);

Msg.AddHeader('[email protected]');
Msg.ExtraHeaders.Values['Errors-To'] := 'hoeohe';
Msg.Headers.Add('[email protected]');
はダメ。

Msg.Headers.Values['Errors-To'] := 'hoeohe';
でいけたようです。お騒がせ〜。（´∈`）

しかしそうするとなんのための ExtraHeadersなんだ？？

468のファイル実行した人いるのかな・・・

考える間もない。>>478
本物だったとしても、ウィルスだったとしても、実行してはならない物。

了解しました。
本物だったとしても実行してはダメですね

てーか自腹で買わんヤツがEnt使う理由が思い当たらん（藁

Borland J Builder5J Enterprise 60日体験版
を下記キージェネを使えば製品版になります
ぜひご利用ください
http://www.cracks.am/d.x/Borland_JBuilder_4.0-5.0.zip
当然オーサライズ可能です
低能言語のDelphiからJAVAに乗り換えてみてはいかがでしょう？

画像ファイルをドラッグ＆ドロップすると、その画像が
表示されるようなプログラム作りたいんですけど
どんなコンポーネントを使うとよいのでしょうか？
わけわかんないこと書いて鱈すみません

＿＿_ 　ヽ
＿ ／⊂　｀∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　｜　|　 ＼(　ﾟДﾟ)＜　TImage貼り付けて
　 | ／　　　∪ ∪　　＼LoadFromFile(ファイル名)したらよろしくない？
￣

エクスプローラなど他のアプリケーションからファイルをドラッグアンドドロップで受け取る方法は？
http://www.sakaki.keiaikai.or.jp/faq/delfaq002.html

>>484 出張ありがとうございます
やってみます！

　／￣￣￣￣￣￣￣
　|　Delモナで対抗
　＼＿＿　＿＿＿＿
　　　　∨　　　　＿＿＿
　　　∧＿∧　　|｜＼　　 ＼ ￣| ￣｜
　　（　 ´∀｀）　 |｜　｜￣￣｜｜： ｜
　┌（　　つ／￣|｜／　￣￣/ ｜＝｜
　｜　ヽ　|二二二」二二二二二二二二」
　　￣］|_＿）　　|　|　　　　　　　 |　|
　　／￣＼　 ／　 |　　　　　　／　 |
　 ◎　　◎ ［＿＿」　　　　　［＿＿」

　　　　　　　　　　　　Delモナ、ｲｲｶﾝｼﾞ
　　　　　　　　　　∧_∧　☆
　　　　　　　　　　(*ﾟДﾟ)
　　　　　　　　　　/　｜
　　　　　　,, ,,,, 　（＿,ﾉ　,,, ,　,,
　　　　　　　　　　ノ ,,

なんかレスついてた(^^;

>>460
Reset/RewriteはCreateFile/OpenFileだと思うけど・・
BlockRead/Writeとの置き換えって??

BlockRead/Writeするときは、自前でバッファリングするか
バッファなしを前提で速くなるようにアルゴリズム組むから
速度が遅いとかはあんまり困ってないね。まぁ、悪しき慣れだな。


いい加減なんとかしようと、なるべくTFileStreamを使うようには
してつけどねー

そういえばスレッドの中からTFileStreamって安全に使える？
BlockRead/WriteはAPI直呼びだから問題ないとは思うんだけど、
やっぱりVCLだからSyncronizeしないと駄目かな？

>>488
TFileSTreamもAPIをオブジェクトにラップしてるだけだから
スレッドセーフな気が。

>>482
ﾀｲｹﾝﾊﾞｿはVCLのｿｰｽｺｰﾄﾞらしいけど、本当なの？
なければそんなの使えない。

まぁ、マニュアルの付いていない言語製品なぞ、
始めから使う気など無いけどな。

＞ﾀｲｹﾝﾊﾞｿはVCLのｿｰｽｺｰﾄﾞらしいけど、本当なの？
ﾀｲｹﾝﾊﾞｿはVCLのｿｰｽｺｰﾄﾞ無いらしいけど、本当なの？

恥ｶｷｽﾏｿ

>>489
まさか API がスレッドセーフだと思ってるのか？
WriteFile はスレッドセーフじゃないから２つのスレッドから同じファイルハンドルに対して書き込むとファイルは壊れるぞ
だから、TFileStream の単一のインスタンスに対して複数のスレッドから書き込みを行えばファイルは壊れる。

偶然だが CPU が１つの環境では CPU の使いまわしの都合で壊れないけどな

>>492

ＶＣＬのスレッドセーフティーと、スレッド間の同期の問題を
ごっちゃにしているね。

　　Ruby　　　　　は　　　　　　クソです！　　　 ゴミ　　　　　　箱　　　　　逝きです！
　 ∧＿∧　　　∧＿∧　　　　∧＿∧　　　∧＿∧　　　　　∧＿∧　　　　∧＿∧
　（　・∀・）　　（　・∀・）　　　（　・∀・）　　（　　・∀）　　　 （∀・　　）　　　（・∀・　）
⊂　⊂　 ）　　（　Ｕ　　つ　　⊂__へ　つ　 （　○　　つ　　 ⊂　○　）　　 ⊂　∩　 つ
　<　<　<　　　　）　）　）　　　　　（＿）|　　　＼＼　＼　　 ／　／／　　　／ ／＼　＼
　（＿（＿）　　（_＿）＿）　　　 彡（_＿）　　　（＿（＿_） 　（＿（＿）　　　（＿_）　　（＿_）

この発言をコピペしていただければ幸いです。

Rubyって何ですか？

Perlで検索>495

あの、本気で悩んでるんです、教えてください。
Delphiでオブジェクト追加していくとソースに反映されるじゃないですか？
たとえば、
メニューアイテム追加＞アクション＞メニューアイテム追加＞...
こうやってくと、宣言がめっちゃ汚くなりますよね。
あと、ソース上では階層構造も無くずらずらとオブジェクトが並ぶのもダサいんですが、
どうにかなりませんか？

age忘れました

>>497
どうなれば良いと思いますか？

これって人によって好きずきだから，あまり勝手に変更してもらいたくないな。

　　　　　 ∧∧　　／￣
　＠' ― (,,ﾟДﾟ) ＜　>>497　あの部分は見ない振りして触らないのがよいのでは？
　 　し― し-Ｊ　 　＼＿今まで気にしたこともなかったニャ

関係ないんだけど
　privateの前の所にイベントハンドら以外にも
　自作のメソッド宣言や変数宣言を
　すべてぶち込んでいるソースみた日には泣きました。

>>499 >>500

今までC++つかってて、Delタダなんで、昨日から使ってみたんですが。

ActionはActionListに追加、MenuItemはMenuに追加みたいな。
せめて、コレだけあればずいぶん綺麗になると思うんですけどね。

セパレータもS1とか言う名前で追加されて見通し悪すぎですし。

まだ、全然使い方分かってないんですけどね。

>>497
確かに．私の場合，変数名を
アクションオブジェクトは"Acttion_〜"，
メニューアイテムの場合は"mi〜"で統一し，
あとはソースを直接いじって並べ替えています．
でもできるだけいじらずにすむように，
メニューデザイナで項目を増やしたら
キャプションを決める前に変数名を書き換えてしまいます．

>>492
>>493でフォローされているからあえて突っ込まない（ｗ

うーん、やっぱりちょっとスレッドで使うには調べた方がよさそう
かな。たぶん、489さんの言ってるのと同じ感じはするので、大丈夫だと
は思うけど・・・

IDE を拡張して、最初の published の部分を折り畳んで見えなくするヤツとかないかな

>>501
あまり建設的な意見ではないようだ。煽りか？
オブジェクトに名前を付ける。ってのはプログラムから操作したい。ってことだけど
メニューセパレータを操作するってよくあることか？
目障りなら、名前を取ってしまえばよい。

Delphi のメニューエディタでの名前置き換えは　VB/VC にはない面白い仕掛けが
してあるが。

TShellTreeViewなどのソースってどこにあるのでしょうか？
Sourceフォルダにはないような・・・。

　（｀´｀）　
　│　│
　∧＿l　　　∫　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　 ∬　　＜ 　$(DELPHI)\Demos\ShellControls
　 |∪ |つ＝●　　　＼＿＿＿＿＿＿＿＿＿＿＿
〜|￣｜　ﾋﾙﾒｼﾀﾞ
　 U U

>>505
なんていうか、あんまりうまく説明できてないね。
とりあえず、全部散らばらせるんではなく、
管理クラスを作るなり名前空間を使うなりで種類ごとに
分けてくれるとずいぶん綺麗になると思うんですが

現状では、あのソースの部分はどうにもなりません。
Delphiが管理する所だからDelphiに任せて
"人間は見ない&編集しない"のがよいと思われ

もしかしたらソース整形AddInがあるかもだけど
聞いたことはないです。

オブジェクトツリーと同じような並びで
表示されると結構マンセーですね。

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾏﾀｰﾘ
　　　(,,ﾟДﾟ)∫
　　　/　 つ旦O
　〜(.＿［￣￣￣.］
　　　　　 ￣￣￣

VS.NETのIDEは自動生成された所は畳めるようになってるな
すっきりするようだが開け閉めに余計なマウス操作が増えてかえってうざかった

>>510
それって使ったことないけど、畳むか畳まないかユーザが選択できれば便利だと
思うけどなぁ。

viのholdみたいにキーボードから折りたためたりできりゃいいんだがな。

そうか？　初心者だからって定義部を隠してもしょうがないような気もするし
定義部はIndex代わりで便利じゃないかと思うんだが？

それとも最近の人はコードエクスプローラがあるから不要なのかな？

>>513
>定義部はIndex代わりで便利じゃないかと思うんだが？
そうそう、それよ。
全然関係ないけど。JAVAはそういう「全体を見渡す」ことが出来ないから、好きになれない。

>>513
俺自身はそれほど必要だとは思わないんだけど、フィールドやプロパティへのアクセス
メソッドなんかはほとんど見ることがないから、そこだけ折り畳んでおくとちょっと
便利かなと思った次第。
private全部を折り畳むとかいう機能ならいらないな。

多分その辺は開発環境や、エディタの機能で補えるからという理由で
なくしてるのではないかと思う。
実際、コードエクスプローラは全体見渡すのに役に立つ

みなさん、初めまして

TQueryコンポーネントを使って、
SQL-Serverに接続しているのですが、
毎回[ID]と[パスワード]を確認されます。

ID,パスワード共に固定なので、デザイン時に設定したいのですが、
できるのでしょうか？

ちなみに、Delphi3なのです・・・
Delphi6 Personalを落として、良さそうなだったので、
押入に眠ってたDelphi3を引っ張って使ってます（まだ３日目）。
バージョンが古いので、話が合わないのかもしれません。

m（＿＿）m　スイマセン、ある程度覚えたら Delphi6 Proを買います。
よろしくおねがいします。

http://www.himawari.sakura.ne.jp/%7Eloveseat/Adu/index4.html

　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
〜′ ￣￣( ﾟДﾟ)＜　 >>517　そういう目的のためにTDatabaseを使う。
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿
TDatabase を使用したパスワード入力ダイアログの抑制方法
http://www.borland.co.jp/qanda/delphi/d0003342.html
Loginダイアログを出さない
http://homepage2.nifty.com/boheme/delphi/tips/tec0610.htm
ログインダイアログを抑制する
http://homepage2.nifty.com/boheme/delphi/dbtips/css0110.htm

一つ質問。
Delphiでワイルドカードマッチを高速に行うルーチンってない？
一々TMask作ると凄く効率悪いんだけど。
自分で作れば良いんだが、ヘタレ故…

>>519
TDatabaseを使って解決できました。
ありがとうございました。　m（＿＿）m　ペコリ

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

>>522

　オンラインソフトの作者の掲示板で、あまりにも具体的すぎるプログラミング手法(ソース)を教えろという方(^^;

　アナタの実現したい事のソースを書いたら、どっちが作者か解るめぇ？ちっとは、自分で勉強しないとな。

　「自作ソフトの？？？に実装したいのですが...」

　なんてくだりは１度や２度ならともかく、何度も何度も書き込んであると見てる方がドツいてやりたくなります、いやマジで。

　ひとしきり質問攻めが済んで、自分で理解できるレベルにまで解説してもらっといて

「これで拙作？？？に？？？の機能が付けられます、ありがとうございました」

　...も同罪。後ろ足で砂かけて去って行くんだね、キミは。

#売名行為にしか見えないもの。
#そういう行為は自分のＨＰでやってくれ!!

>>523 氏ね。

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

>>524
氏ね。

>>524がうんこで作られているということを知りました。
あれと同じようなうんこになりたいのでうんこ

>>525 も氏ね。

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

>>522
１、Delphiを起動
２、プログラム作成
３、コンパイル
４、Readme.txt、Helpファイル作成
５、圧縮
６、無料サイトのアカウント取得
７、FTPであぷ

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

>>527 も氏ね。

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

>>529
あなたは、パーソナル版をお使いのようですね
エンタープライズ版でしか作成できないので、購入してください

Ruby >>>>>>>>>>>>>>>>>>>>>>>>> Delphi = 糞

>>530 氏ね。俺はプロのプログラマーだ。エンタープライズ使っている。

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

＞あれと同じようなものを作りたいのでやり方を教えてください

マジレスします。

　勉強しましょう。

どんな勉強しなければいけないかは、私はアナタの友達じゃないのでアナタの
事はわかりません。お友達かセンセイに聞いてみなさい。

>あれと同じようなものを作りたい
誰も作ったことの無いようなものを作ってやろうという方が
楽しいと思うけどね

俺の質問に答えろ。
お前らカスプログラマが偉そうに諭すな。
どうせ分からないんだろ？

O'sEditor が Delphi で作られているということを知りました。
あれと同じようなものを作りたいのでやり方を教えてください。

早く教えてください。

>>535
おぬま氏に聞いてこい。

＞５３５
ここにはカスぷろぐらましかいないよ。

＞俺の質問に答えろ。
わかりました。
＞お前らカスプログラマが偉そうに諭すな。
偉そうにはしていません。
＞どうせ分からないんだろ
はい。
＞O'sEditor が Delphi で作られているということを知りました。
違います。
＞あれと同じようなものを作りたいのでやり方を教えてください。
私は知りません。

るby ＞＞＞＞ でlpひ

>>539
はいはい、よく出来ました。

Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！
Delphi厨房殺せ！

ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342

ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342
ruby撲滅スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001125342

厨房が一人か二人、紛れ込んでいるようだ。
放置きぼん。

// a*b/2^32
function Int32x32SHR32(X, Y: Integer): Integer; register;
asm
IMUL Y
MOV EAX,EDX
end;

function Int32x32SHR16(X, Y: Integer): Integer; {X*Y/2^16}
asm
MOV EAX,X {register呼び出し規約の場合はXはEAXなのでホントは不要}
IMUL Y
SHRD EAX,EDX,16
end;

procedure Int32x32Sum(X, Y: Integer;var sum:int64);
asm
MOV EAX,X {register呼び出し規約の場合はXはEAXなのでホントは不要}
IMUL Y
add eax,sum[0]
adc edx,sum[4]
add sum[0],eax
adc sum[4],edx
end;

function Int32x32Div(X, Y, Z: Integer): Integer;
asm
// MOV EAX,X {register呼び出し規約の場合はXはEAXなのでホントは不要}
IMUL Y
IDIV Z
end;

>>547
int64 を返す関数にしておけば，sum に代入するオーバーヘッドを削除できるぞ

Win32API
>>547 Int32x32To64
>>548 MulDiv
その他
Int64ShrlMod32とかいくつかこの手のAPIすでにあるね。

>>550
API バージョンはやたら重たいよ。

Turbo Pascalのころはつかえたinline指令が
今は無視されてるのが痛いな。
これぐらいの小さなコードなら埋め込みたいね。

Object Pascal 言語ガイド - アセンブラ手続きと関数

を読めば inline が常に指定されていることがわかるだろ

>>553
Object Pascal 言語ガイド - asm文
>予約語 inline と assembler 指令は，下位互換性のためにのみ残されています。コンパイラはこれらを無視します。

Turbo Pascalのinline指令で書かれたprocedureは、
C++のinlineやMicrosoftのCのintrinsic同様に
使う場所でcallではなく直接コード自体が埋め込まれる物だったんだよ。
Delphiにはそれがない。
アセンブラ手続きと関数 を見てもinline相当には全く見えないが。

>まわし殿
上のレスがレスだけに、最初コピペ嵐に見えた…
鬱打氏脳…

>>556
　厨房除けの意味でコピペしたので　まあ荒らしと同じでしたね

完全にまわしてもよかったんだけど、こっちの荒らし度マシになってしまうし
まあ４つくらい書いとけば誰かコメントくれるだろうと思ったので

>>594
　この関数をアセンブラにしたのは内部でCFがたったらクリッピング
　するような処理を追加したかったからかも・・・・理由忘れた

>>552 inline でアセンブラ関数を定義すると
　　結局レジスタ割り付けを制限するからレジスタの少ないx86では有利にならないかも
　　関数呼び出しのオーバーヘッドは演算命令と並列処理されるから無視出来るだろうし

あっちは元気だなぁ。

ところでここにあるファイル，なんだと思う？
ftp://ftp.borland.co.jp/pub/delphi/

>>558
こういうアドレスが平気で載ってるところが2chの魅力だよなあ。
情報感謝。
でも自分はヘタレなので公式発表まで待ちます(ｗ

del6up1beta.exe(藁

ついで上げ

GExperts 1.1 Pre-Release 3 いつのまにか出てたあげ。
http://www.gexperts.org/
＞The third pre-release of GExperts 1.1 for Delphi 5 and Delphi 6 is available for download.
＞The main addition is support for the Standard, Personal, and Professional versions of those IDEs.
＞As usual, the Readme.txt file contains the list of recent changes and known issues.
＞Please send bug reports and comments to the discussion mailing list.

Personalでもいけるっぽい。

非ビジュアルコンポーネントで設計中に文字を表示したいんだけどどうやったらいい？

やりたいのは、実行中何もしないイベント一つだけ持つコンポーネントを作りたいの

設計中にクリックだけでその場所が編集出来るからしおり便利そうだから作りたいの

で、イベントのメソッド名を設計中に表示したいのよ

もう少し落ち着いて離せ

つまり、こういうコンポーネント書いたんだけど

TEventBookmark = class(TComponent)
private
　 FOnMarkEvent: TNotifyEvent;
published
　 property OnMarkEvent:TNotifyEvent read FOnMarkEvent write FOnMarkEvent;
end;

ホントに実装部何もないコンポなんだけど、ブックマーク代わりに案外便利

これだけだと　複数フォームに貼り付けたらどれがどれやら判らなくなるから
設計時にイベント名を表示させたいって事

データモジュールに貼り付ければNameプロパティが表示されるけど
そういうのとは違うのか・・・

ｽﾏｿ･･･普通のフォームでも表示できるから全然違ったね

・・・
TNotifyEvent型のブックマークなの？

イベントそのものに処理を書いている時点で
内部のコードが、よろしくないと思うんだけど…

どうしてもやりたいなら
設計時だけTLabelを内部で生成して
Self.Top/Self.Leftの近所に
貼り付けたらどうかな。

Label.CaptionにTNotifyEventに関連づいた
ﾒｿｯﾄﾞ名を取得する方法は
サパリわからんけどね。

オブジェクトインスペクタで見るだけで
いいと思うんだけどなあ。

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾏﾀｰﾘ
　　　(,,ﾟДﾟ)∫
　　　/　 つ旦O
　〜(.＿［￣￣￣.］
　　　　　 ￣￣￣

Delギコさんありがと

イベント名の取得はこれで成功しました
procedure TEventBookmark.SetOnMarkEvent(const Value: TNotifyEvent);
begin
　FOnMarkEvent := Value;
　with TMethod(Value) do EventName:=TObject(Data).MethodName(Code);
end;
　まだコンパイルされてない設計時でもこれで取得出来るのが不思議でしたが

しょうがないからNameプロパティに代入しようかな
そうしたらヒントで区別はつくけど

＞　with TMethod(Value) do EventName:=TObject(Data).MethodName(Code);
ナイス

＞まだコンパイルされてない設計時でもこれで
実は設計時にもコンパイルされたものを扱っているそうです。

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　
　　　(,,ﾟДﾟ)∫
　　　/　 つ旦O
　〜(.＿［￣￣￣.］
　　　　　 ￣￣￣

でも 組み込んだコンポーネントはDLLになってるからそうだと判るけど
イベントをクリックした段階ではフォームのメソッドとしてコードが
挿入されるわけで、これってまだコンパイルされてないでしょ？

たぶんポインタには仮の値が入ってるんじゃないかな？

残念
　 Name プロパティを イベントプロパティのSetメソッドで書き換えると
Nameは書き換わるけど、肝心のイベントの登録がされなくなったよ

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Del厨断末鬼の叫び！！！
拙い言いがかりからRubyを必死に煽ろうとしたDel厨が逆襲を受けて死亡！
理論的にDelphiはRubyの足元にも及ばないことが証明された！！！
「Ruby撲滅スレ」
http://piza2.2ch.net/test/read.cgi/tech/1001125342/
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

たまにいる「UNIX以外は氏ね」みたいな方々だね
好きなの使えばいいじゃん

DelphiでＯＳを作りたいんですけど良いコンポありますか？

TKernelとTShellを今すぐDownLoad!!

派生元のTMicroSoftでバグ発見！（´Д `）

Delphiのポインタで
var
　p: PByte;
　i: integer;
としといて
GetMem(p,100);
for i:=0 to 99 do (p+i)^:=Random(256);
FreeMem(p);
みたいなことはできないの？
やっぱ配列使うのが常道なんでしょうか？

array of Byte使えば動的にサイズ変えたり廃棄できるよ。

>>578
どうもです
そうですね。やっぱ配列使うしかないんですね。

>578
PByte(Integer(p) + 1)^

他にも

var
　p0, p1: PByte;
　i: integer;
begin
　GetMem(p0,100);
　p1 := p0;
　for i:=0 to 99 do begin
　　Inc(p1);
　　p1^ := Random(256);
　end;
　FreeMem(p1);
end;

とか

var
　p: PByteArray;
　i: integer;
begin
　GetMem(p,100);
　// for i:=0 to 99 do p[i] := Random(256); C風にこれでも可
　for i:=0 to 99 do p^[i] := Random(256);
　FreeMem(p);
end;

とか

var
　p: PByte;
　i: integer;
begin
　GetMem(p,100);
　// for i:=0 to 99 do PByteArray(p)[i] := Random(256); これも可
　for i:=0 to 99 do PByteArray(p)^[i] := Random(256);
　FreeMem(p);
end;

とか

Win2000上でDelphiで作ったプログラムにディスクの
空き容量を表示する機能を付けたんですが、エクスプローラで
表示される空き容量(***MB,や***GB)と値が違うんですが、
なぜでしょうか？
バイトでは正しい値になってるんで MBやGB換算が違ってる
と思うのですが、どのように計算したらよいのでしょうか？

動的配列なら

var
　p: array of Byte
　i: integer;
begin
　SetLength(p, 100);
　for i:=Low(p) to High(p) do p[i] := Random(256);
end;

とか

>>585
まさ1000で割ってるとか・・・はないわな

Delphi6Personalを使って、CSVベース(ファイルロック付き)でデータベースを作ると、MS-Accessみたいに利用者の端末にアプリをインストしなくても使えるようになってうれしいのですけど、そういうのは流行らないのでしょうか?

>588
　規模によるでしょ。　数千件くらいなら今のパソコンなら余裕でしょ
個人用の住所録とかなら十分

　CVS はサイズに比例して重くなる
　データベースを使うと大きさに殆ど関係なく中程度に重い

CVS と CSV を間違える人は多い。

>>>589
データーベースにCVSって？？？

>>591
コンビニエンスストア = CVS

はい、もちろん一万件以内です。
DelphiでDBというと、なぜか専用DBMSの話が出てしまうし、書籍のほとんど全てがそれだというのが疑問なのです。
ネットワークで使えるPerl掲示板程度の簡易ロック付きCSVのDB用コンポとか無いのでしょうか?

固定長テキストじゃ駄目？

>>594
固定長だと、フィールド長の設計とかが必要になってしまうので、できれば、フィールド属性も文字列決め打ちのイージーなものが欲しいです。

XMLとか

>>596
XMLも良いのですけど、パーサの問題とかがゴタゴタしてるので、とりあえず引用符付きCSVが良いのかなと。

BDE の Paradox や ASCII Driver はダメなの？
あとは海外のフリーコンポーネントとか、ちゃんと探した？

　　　　　　　　　　　　
　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!

RubyUzai!!RubyUai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!

ウザいって書く奴が一番ウザい
これ定説

>>601 メガンテですね

ま、俺の存在価値は第２王子並かもね(w

type TRAND127 = object
　reg:array[0..3]of integer;
　function rand:integer; // p=127 τ=63
　procedure init(r1,r2,r3,r4:integer);
end;

function RAND127.rand:Integer; // p=127 τ=63
var w0,w1,w2,w3:Integer;
begin
w0:=reg[0];
w1:=reg[1];
w2:=reg[2];
w3:=reg[3];
　asm
　 mov EAX,w2;
　 rcl EAX,1
　 rcl w3,1
　 mov EDX,w0;
　 mov EAX,w1;
　 SHLD EAX,EDX,2
　 XOR EAX,w3
　 mov Result,EAX
　end;
reg[3]:=w2;
reg[2]:=w1;
reg[1]:=w0;
reg[0]:=Result;
end;

最初と最後の代入が格好悪いんだけど、綺麗に書くには？
　インラインでメソッド書く時のメンバは　どのポインタから参照すればいいの？

>>598
BDE使うと、各端末にBDEをインストールする必要がありますよね?
それに、Personal版は、BDEは、使えるのでしたっけ?

>605　ご発言の通りですよ

では MyBase をお使いになってはどうですか？

165 名前：下手人 投稿日：01/10/08 21:58
ファイルアクセスはAssignFileとFileStreamどっちがマシですかね？
どっちにしろシーケンシャルなんだけど

速度最優先ならWin32API直叩きがいいんじゃない。
ReadFileかメモリマップファイル。

MLで出てたXMLモジュールってどう？
>>588 のローカルDBみたいに使えないかな？

↑Delphiスレageまくって楽しいですか?
すっごくうざいんですけど

>>609
じゃ、どんなスレがあがると楽しいのかなぁ？

早速煽りに反応してる人がいます！

Ruby厨の総攻撃開始か？

>>661-612
決め付けはいかんよ
609=610=611=612
だとするとオレがアホって事か・・

MyBase が XML 形式で保存するオンメモリのDB(簡単なSQLも使える)じゃないのかな？

>MyBase
そうなんだけど、Personalの人とかD5の人は使えないじゃない。
織れはまだD5ProだけどDでもXMLもっと流行って欲しいから
D5でもPersonalでも使えるってのは(･∀･)ｲｲ!と思うんだがなぁ

普通にファイルロック機能つきCVS処理クラス書けばいいじゃん。
そんなに難しくないよ。

ああ、ファイルロックがあったねえ。
ださー。

>MLで出てたXMLモジュール
ってなに？

Delphiスレは一つに統一して頂けませんでしょうか?
上でもうざいって言ってた人いたけど実際うざいんだよね
みんながみんなDelphi使ってるわけじゃないんだし

あぁ、煽りとか言われるんだろうなあ

>>619
煽りとは言いませんが、現在は住み分けが出来てますし、
アンチ厨が立てたクソスレを除けば3本です。
つーわけで嫌です。

公平にVB・VCが１つになったらDelphiも統一するって事で

>>618
XDOMとかいうやつ

>>619
煽りがいなくなれば中身のある上がり方だからいいんじゃねーの
ちょっと前は6つも7つもあったんだから、しばらくしたら自然に減るよ
Techスレが沈んでるのは寂しいが。

Delギコが来る前まではage控えめだったんだが・・・

>>622
サンクス。いやMLには参加してないもんで。確かDelマガでも特集してたやつだね。

>>624
それだけど、日本語使えるらしい。
ttp://hp.vector.co.jp/authors/VA017148/delphi/xml/

今時ですから　SQL が貧弱でも通らないと　やっぱりダメでしょ

MyBase は Pro以上添付だけど　実行ファイルに含まれる＝DLL類不要だから
作ったアプリ配布するにはそんなに苦労しないんじゃないの？

上記の理由からMyBaseあんまり見てなかったんだが、MyBaseって
「ファイル格納形式としてXMLが使える」ってだけで、XMLパーサーではないようだね。
（内部では勿論使ってるだろうけど）
SQLが使える、ってのは、言い換えればRDB程度の表現能力しかないわけで・・・
XMLのライブラリとしては魅力が少ないと思う。（SQLしか使えなさそうだし＜MyBase）
でも >>588 の用途にはぴったりだな。

フツーに標準XMLパーサー使おうと思ったらEnt版になっちゃうのかな。

http://www.google.com/search?num=30&hl=ja&q=csv+delphi+dataset+component+without+bde&lr=

別にDelphi固有の問題というわけでもないのですが、
今開発しているのがDelなのでここで質問させていただきます。

Win32プラットフォームで、一度フック用のDLLを読み込みフックを仕掛けると、
そのDLLは解放されてもなぜロックされているのですか？
正直、デバッグやその他の作業の邪魔でしょうがないのですが。

このWindowsの仕様の理由を教えていただけませぬか？

>>629
つーことは、解放直前にDLL側が UnhookWindowsHookEx を呼んでいないことになるね。何のDLL？

>>630
いや、コード上は明らかに呼んでいます。自作のでもそうでした(といっても自分はフックに関する
経験は浅いので間違えた実装してる可能性もあります)し、他のアプリが
使用しているTcmhook.dllもそうですし。
OSは関係ないみたいです。Tcmhook.dllについてはWin98のころからそうでしたし、
Win2kでも自作dllをコンパイルしようとすると怒られましたし。

と思ってW2kで検証したらdll削除できた…(汗
自分が書き込んだ経緯は、

1.開発/デバッグ中のアプリを正規の手続きを経て終了
2.コード変更(文字列定数のTypoの修正なので数秒)
3.コンパイル
で 「なんちゃら.dll を作成できません」と怒られました。
(Del6Per+W2kSP2)

で、資料漁って書き込んで資料漁って、OS再起動せずに
コンパイルできないか…と思って試しにファイル移動/デリート
したら出来ました(汗

もしかして、解放までラグが数分ほどあるとか、でしょうか…？

う〜ん、自分が厨房と自覚(鬱

>>631
以前フック用DLL作ったとき、同じ現象に遭ったよ。
実行後、しばらくはコンパイル（というかDLLの出力）不能状態になるやつね。
どうもロック開放まで遅延があるみたい。
OSの仕様？

You can release a global hook procedure by using UnhookWindowsHookEx,
but this function does not free the DLL containing the hook procedure.
This is because global hook procedures are called in the process context
of every Windows-based application in the system, causing an implicit
call to the LoadLibrary function for all of those processes. Because a
call to the FreeLibrary function cannot be made for another process,
there is then no way to free the DLL. Windows eventually frees the DLL
after all processes explicitly linked to the DLL have either terminated
or called FreeLibrary and all processes that called the hook procedure
have resumed processing outside the DLL.

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　僕は英語が出来ますって言ってるわけだ
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 （　　・∀）　 ∧ ∧ ＜　言ってないですよ・・・ｿﾝﾅｺﾄ
　（　　　　 ）　 (；ﾟДﾟ)　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼|Libretto|＼
　　　 　 　￣　　　=======　　＼

UnhookWindowsHookExはフックプロシージャを含む DLL を解放しない。
他の別のプロセスのためにFreeLibrary 関数を呼び出せないので、その時 DLL を解放する方法がない。DLLを結び付けた全部のプロセスが終了するまで DLL は解放されない。

DLLを結び付けた全部のプロセスが終了されるとWindows が DLL を解放する。

>>633-636
なるほど、ようやく飲み込めました。

ありがとうございました。

あれ、開放しないの？勘違いしてた。でもHook->Unhook->Hookってやると
Dll内の変数、その都度初期化されるよね。何でだ？

http://www.borland.co.jp/kylix/report/ohishi_2.html
このページのものを
D6Proで動作させたいのですが、どのようにするとよいのでしょう。

アパッチというものはよくわかりません。
クライアントサイドだけで動くものでよいです。

よろしくお願いします。

>>639
単に電卓を作りたいということならば、レポートにソースがあるわけでもないので
そのページは参考にはならない。
＃ そもそも電卓を作るのが目的じゃない、そのレポートは

webアプリを作ってみたいということならば、
わからないとおっしゃられているapache等のwebサーバーをWindowsに入れて動かして、
CGIを動作させる環境を整えなくてはならない。

組みたいのはWebアプリです。
CGIってWinアプリと違って環境設定が面倒ですよね。

単にwebアプリ作成を楽しみたいという目的なら
httpdとかでもよいのでしょうか。
IISという選択肢もあるのですよね。
Apacheとともに調べてみます。

Delphi6 Pro なら標準で Web Application Debugger が
付属しているので Apache も IIS もなくてもとりあえずは大丈夫。

>>642
Pro についていたっけ？

IIS5 なら、IDE で直接 ISAPI アプリをデバッグできるようになったので
らくちんよ。

perlis.dll を使うサンプルどこかにありませんか？

メインフォームとアプリケーションの最小化最大化
がごっちゃで分かり辛いな

Web Application Debugger の存在はどこで確認できますか？
なにせ、使ったことがないのでさっぱりです。

メニューから [ファイル|新規作成|そのほか|Web アプリケーション]

または

メニューから [ツール|Web アプリケーションデバッガ]

>>647
>メニューから [ツール|Web アプリケーションデバッガ]
ありました！(藁

>メニューから [ファイル|新規作成|そのほか|Web アプリケーション]
Web サーバーアプリケーションのことですね。
こちらもありました。

ありがとう。

Delphiで使える Lex/Yacc を探しています

リンクがあるのでどっかにあると思うのです
http://www.idiom.com/free-compilers/TOOL/BNF-21.html
http://www.freepascal.org/tools/tools.html

がどこもリンク先が死んでるようです

ごめんなさい　検索キーワードを変更したら見つかりました

http://wwwusers.imaginet.fr/~tcoq/US-lexyacc.html
ftp://iecc.com/pub/file/lyprg.zip

Web アプリケーションデバッガの使い方全然わからないです。
こまったな。

>>651
マニュアルよんだら？

>Delphiで使える Lex/Yacc

Lex/Yaccの記述はそのままで、吐き出すコードがDelphiなのかなぁ。

Lexの方はコールバックされる関数なのか？ならLexはDelか？

>>649
　たぶん　上のリンクの使う時は \binにある .COD が .L .y と同じ
　ディレクトリにないと動かない奴かもしれない

Lex/Yaccコード見たけど、あんまり簡単じゃないね。
定義の難しいコードジェネレータだねぇ。

ＰＮＧを表示せる方法を教えて

PNGフォーマットの画像ファイルを読み書きできるコンポーネント(ほぼライブラリ)です。
http://www.phoenix-c.or.jp/~taki/del.cgi?p=main

　 ∧,,∧　つかえるかな？
　ミ,,ﾟДﾟ彡
　ﾐつ[|lllll］).
〜ﾐ　　ﾐ
　 Ｕ''Ｕ

http://home.t-online.de/home/PeterJHaas/PNG_en.htm

http://home1.infonia.ne.jp/~delphian/delphi/direct.html?id=NE0008
にある「RASユニット」を使って、現在RAS接続されているか
ということを調べようと思ったのですが、付属のdemoをコンパイル
してみると lmcons.pas の153行目

MAX_PREFERRED_LENGTH : DWORD = -1;

で「定数式が範囲を越えました」と言われてしまいます。
なにか事前の手順が必要なのでしょうか？

Delphi6を使用しています。むしろDel6にRAS関係のコンポって
ないのでしょうか。

DWORD は昔は integer でした
今は符号無しになっています

ですから -1 を $ffffffff と書くか DWORD(-1) と書替えればOK

　　∧,,∧∩　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟ彡　＜　しつもーそ
　　U　　ミ　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　ﾐ　　ﾐ
　ノ∪∪

TButtonやTMainMenuのコンポーネントアイコンリソースを
見たいのですが、
それらのdcrファイルはどこにありますか？

確か、dcrファイル形式じゃなかったと思われなのですが。

>>662
bplファイルの中と思われ

>>662
メニューの方がわからんのだけど
ボタンは Delphi6\Lib\Buttons.res ではなかろうか

Buttons.res は TBitBtn のリソースです．

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／
　ミ；ﾟДﾟ彡＜　bplファイルの中身確認できません。
　 ﾐつ　つ 　＼
〜ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ

>>664-665、情報サンクス
Buttons.resの中身はBitBtnのはいとかいいえのマークでした

>>661
DWORD(-1)でいけました。ありがとうございます。

>>666 Demos\ResXplor を使う

Delphi6 Update1あげ

Borland - Delphi 6 Update File Download
http://www.borland.co.jp/delphi/del6up.html

直ﾘｿ
ftp://ftp.borland.co.jp/pub/delphi/delphi6update1.exe

>>669
さすがにｵﾓｲ

重いどころではない

ADSLなのに10KB/secを切ってしまった
遅すぎ

終わった！！と思ったら、インストールにCDキーが必要ヽ(`Д´)ノ ！！
帰ってからか・・・

>>673
CD キーは，登録済みなら「使用許諾コードの取得」ツールを起動すると
表示される。ってダイアログに書いてあるのに････

>>674
インストール自体は試してなかったのよ・・・

そんなことより聞いてくれよ、>>1よ。
先月号から気になってたのだがDelphiマガジンの記事

「理系専門家のためのグラフィック入門」

なめんじゃぇ〜ぞ！ゴノレア！

これ見てむかついた人は多いと思われ。

StringGridでフォーカスをほかのイベントからあわせるにはどうしたら良いでしょうか？

たとえばButton1を押したらGridの2列目を選択するようにしたいんです。

Gridは横一列全選択にしてます。

Gri1.Row := n;
こうですか。

デルファイはビットフィールドって使えないんでしょうか？
フラグ1bit＋データ7bitとかしたいんですが・・・・

>>679
だいぶ前のTechスレに集合演算子での実例書いた。
・・・でも自分でも忘れた・・・

サービスパックをダウンロードする前に変更点を知りたいのですが、
D601FIXES.html を見ることはできますか？

case hensuu of
0:i:=kansuu1;
1:i:=kansuu2;
2:i:=kansuu3;
end;//of case
というプログラムで、条件分岐を減らすため、
i:=kansuu[hensuu+1];
という感じに出来ますか？

>>682
関数ポインタ使えます。当然配列にも出来ます。

>>683
えーっとたしかアットマークがつくヤツですよね？
ありがとうございます。調べてみます。

こんなふうな定義
var kansuu:array[0..2] of function:Integer=(kansu1,kansu2,kansu3);

ただし、関数内関数はダメ

それからメソッドはまた別の書き方ね

>>685
すみません。IDEに叱られました。
この方法はvarで宣言するとき引数が必要ですか？
kannsu1(i:integer):integer;
である場合です。

必要ですよん。引数の名前は適当でいいけど。

>それからメソッドはまた別の書き方ね
そそ、「〜 of Object」が必要。

いろいろやってみましたが、
定数式が必要ですとか、
変数が必要ですとか、
いろいろ叱られてうまくいきません。
もう少し勉強してきます。

初歩的な質問ですみません・・・

グローバル変数で確保した
　　St: TStrings;
に、
　　RichEdit1: RichEdit.Lines;
の内容をコピーしたいんですが、
　　St := RichEdit1.Lines;
ってやるとうまくいかないんです。
ヘルプを見ると、文字列リストのコピーは
　　TStrings.Assign(Source);
ってやった方がいいって書いてあったので、
　　St.Assign(RichEdit.Lines);
ってやってみたんですが何故かエラー・・・
どうしたらいいんでしょう？（泣）

誤　RichEdit1: RichEdit.Lines;
正　RichEdit1: TRichEdit;

St := TStringList.Create
とかやってます？

>>692
試しに入れてみたんですが動きませんです・・・
でも何故か、新しいプロジェクトでやってみたら動きました（泣）
う〜〜ん・・

＃回答ありがとうございます。

勉強してきました。
どうやら、関数配列にprivate部で宣言した関数を代入できないようです。
そのために叱られ続けたんだと思います。
勉強させてもらい、ありがとうございました。

>>694
private部ってメソッドじゃんか!
>>688

>>695
type
Tkansuu=function:integer of object;
..
..
private
kansuu:array[0..2] of Tkansuu;
funcution kansu1:integer;
..

って感じでコンパイル通りました！お世話になりました。

追記です。しっかり動作している上に、ファイルサイズが20KB位小さくなっていいことだらけ。

>690
なんのエラーが出たのか書かないと駄目！

ぐぅぉ〜、デルファイってArray of Byteを返す関数って書けないの？
Pointerにすればいいんだけど、キャストしまくらないといけなくなるんで
超面倒臭いｙｐ！こんなもんなのかな？

type TByteArray = array of Byte;
function getArray: TByteArray;
とか。

>699 verで返すのが普通なように思うけどなあ

動的配列返すといい事あるの？

>>700
うぃ〜、できたです。
()付けたり''で囲んだり、全然的外れな解決法を模索してました(鬱

>>701
そうなんですか？今日(って言うか、つい今しがた)ダウンロード
したばかりなんで、よく分かってないです（´д｀；）

動的配列を返してるのは、呼び出し側ではサイズが特定できな
いんで、動的配列にしてみたんですが・・・・
上手い方法が他に思いつかなかったのです。

Pascal では、型の同一性を定義内容ではなく定義名で判断するから
下のようなことが起きる。これを嫌う人は、特に C から来た人には
多い。わかるけどね。

使う前に型定義。

type
　a = array of byte;
　b = array of byte;
procedure TForm1.Button1Click(Sender: TObject);
var
　AA : a;
　BB : b;
begin
　AA := BB; // コンパイルエラー

>>702
　えと、そういう事なら
type TByteArray = array of Byte;
procedure func(var array:TByteArray);
begin
・・・
SetLength(array, XX);
・・・
end;

てな感じにして

配列そのものは呼び出し元で定義するのが普通だと思うよ

>>703
ふぉ！ホントだ、エラーになる・・・とても不思議感覚。
type TByteArray = Array of Byteの時
Array of Byte ← TByteArray //可
TByteArray ← Array of Byte //不可
TByteArray ← TByteArray(Array of Byte) //可
う〜む、デルファイの流儀が、ちょっぴり分かった気分
多分に怪しいけど（´д｀；）

>>704
それイイ！凄く分かりやすい。
ところで、SetLengthで確保したメモリーは、使い終わっ
た後、nilを代入して後始末をするべきです？
参照してる変数がスコープから抜けた時に、自動的に
解放してくれることを期待したら駄目ッスか？

>>705
nilの代入の件はVBじゃないからやらないでいいと思うけど

JavaでいうHashtable, Perlでいう連想配列のようなMapを
Delphiで使うにはどうすればいいの？

>>705
解放はnilの代入じゃないぞ!!
Finalizeだ。

>>705
だいたい nil 代入なんてできたか？動的配列はポインタじゃないんだし。

type
　a = array of byte;
　b = array of byte;

の a と b の代入互換性をなくすということは、逆に (array of byte)
の定義を一箇所にまとめる必然性をプログラマーに要求する。これって
「きれいな」コードまたは複数人共同開発時には当たり前にやらなきゃ
いけない行為であって、それを普段から身につけることができる。

だから嫌いだ。というひとの意見もわかるけどね。

>>708,709
動的配列はAnsiString型と同様に参照カウンタを持ったポインタだよ。

だから

var
　A,B: array of Byte;
begin
　SetLength(B, 1);
　A := B; // A の先を B と同じにする。
　B[0] := 100; // A も同時に書き変わったように見える。
end;

このような事が起きるわけです。nil を代入すると参照カウンタが
デクリメントされ、結果的にFinalizeが呼ばれてメモリ解放されます。

MemCheckでテストしてみたです。
SetLengthで確保したメモリは、明示的に解放する必要はないんですね。
凄い！超便利！SetLengthマンセー

>>707
探せばネットにライブラリとかあるみたいだけど、単純な(string->何か)の連想配列なら、
TStringListのIndexOfやFindメソッドとObjectプロパティを組み合わせて使ってる。

http://vclcomponents.com/search.asp?GRP=&KEYWORD=hashlist&TYPE=0&ID_CATEGORY=0
これなんかどうかな？

ハッシュの易しい解説ってどっかにないかな…
できればDelphiで…

つーか、動的配列の実装はstringと同じだからなあ。

>>714
Del6のTHashedStringListのソースとか。
ソースがないなら、Iriaの作者さんの自作スクリプト(DMonkey)のハッシュクラスとか。

TStringListって線形探索かなとおもって嫌だったんだけどたけど
THashedStringListつかえば速そう。
ありがとうみんな

長い文字列とか動的配列のメモリ管理ってどうなっているのですか？

内部的に参照カウンタで管理されてるので
確保・開放はすべて自動的に行われてる。
なので通常は気にする必要はない。
詳細は言語ガイド参照。

>>714
ハッシュを使いたいというようなレベルであればC程度は読めるようにして
おいた方がいいと思うよ。

>>714
Delphi アルゴリズムという本があるよ。

>714
VCL内をHashで検索。

>>719
激しく同意。世の中にはすでに作られたCのプログラムが山ほどある。
その資産を生かさないのはもったいなさ過ぎるものな。

レス書き終わった瞬間W2kで珍しくﾌﾞﾙｰｽｸﾘｰﾝ出てｳﾄｩ…

>>715さん
すみません、まだDel6Pro買ってないんです。
欲しいし買うつもりではいるのですが、なにぶん手元の資金が…(汗

また、いきなり実装みても混乱するだけと思うので、
せめて概念が分かってからにしようかと思います。

>>719さん、>>722さん
分かりました、まだDel勉強中の身ですがC/C++の勉強も
平行してします。

>>720さん
早速見つかりました。
Ｄｅｌｐｈｉアルゴリズム
Rod Setphens 著　光田　秀 訳
サイズ種別 Ｂ５変 1色
ページ数 416
ISBN 4-7973-0845-1
本体価格 \3,800
出版日 99/03/19
(http://books.softbank.co.jp/bm_detail.asp?sku=4797308451)
だそうですね、今度ｱｷﾊﾞにでも逝って探してきます。

>>721さん
>>715さんへのレスとかぶってしまいますが、まだいきなり実装見ても
混乱するだけと思うので、まずは本を見てからにしたいと思います。

レスくださったみなさんありがとう御座いました。