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

01/10/15 11:36
DELモナーがどんな厨房疑問でもやさしく答えます。
DELモナは時に私であり、時には別の人。
他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　∧　∧
（　´∀｀）（　　　　）


■前スレ

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

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

お疲れー>>1
で、誰なんだ？全くその通りだとは思うが厳しいな＜Ｈｏｔｋｅｙちゃんの掲示板
２ちゃんねらじゃないのか？

毎回思うのだが、>>1よ

　∧　∧
（　´∀｀）（　　　　）

を

　∧　∧
（　´∀｀）
（　　　　）

に治してやれよ。モナー分割されたままだぞ。

　∧　∧
（　´∀｀）（　　　　）

>>3
C++相談室の v(^・^)v みたいなもんだ。気にするな。

　∧　∧
（　´∀｀）（　　　　）

　∧　∧ 　∧　∧
（　´∀｀）（　　　　）

　∧　∧ 　∧　∧
（　´∀｀）（´∀｀　） ＜オマエDelモナー
　　∧
Delモナー

奈々子さぁーん ﾊｧﾊｧﾊｧﾊｧ

しかし、言ってることも分かるしなぁ。
難しいところだ。彼のセンスは２０年くらい前みたいだ。
もしかしてすごい年取ってるｏｒ子供なのか？
って、誰も知らんのか？

一応、
Borland 言語処理系プログラマー Watch スレ Part2
Delphi/CBuilder/JBuilder などの Borland 製品を使っている
プログラマーを観察するスレです。

http://pc.2ch.net/test/read.cgi/prog/1014384974/

があります。

（´∀`）＜新スレ乙です〜　えへへ

くだらない質問でゴメンナサイ
personalでフリーソフトを作って配布してはいけないのでしょうか？
あと、データベース関連やWebアプリ関連以外でpersonalではできないことは
あるのでしょうか？
要するに、personal版で本格的なフリーソフトを作ってはいけない（作れない）のでしょうか？

>>11
そういう質問を匿名掲示板でされてもなぁ。返ってきた答えを信じるの？
D6 Personal を所有しているのなら、License.txt を読めばよい。

ここに最新のライセンスファイルがある。
http://www.borland.co.jp/delphi/del6/license.txt

>12
フリーソフトだったらいい、としか読めないのですが・・・
解釈が間違っていますか？（ネタや煽りではありません）

>>13
いいんでない？

で、本格的なフリーソフトってなによ？

元々VisualC++を使っていて、最近Delphipersonalを使い出したクチですけど
フリーソフトを作るならDelphiの方が作りやすいのは自明なので
Delphiでフリーソフトを作ろうと思っています。

しかし作っている内にpersonalの機能制限やライセンス制限の壁に
ぶち当たってしまうのでは、という不安があるわけです。

そもそもシェアにしようなどという考えはありません。

でも、「Delphiを使い倒したら、嫌でもprofessional版を買いたくなるよ」
という発言が過去にありましたね・・・

んだから、本格的なフリーソフトってなによ？

本格的でないフリーソフトとの違いを説明してくれ。

直接的にも間接的にも対価を受け取らなければよいというライセンスだと思う。
只で配るなら抵触しない。(CD-R代とか)実費程度でも受取ったらダメ。

>>17
配布HPでバナー広告を表示するのはどうだろう？

>直接的にも、間接的にも、アプリケーションプログラムの配布または使用について、
>いかなる報酬も受け取ってはなりません。

です。契約文章の最終判断は契約当事者間（この場合特定プログラマーとボーランド）との
話し合い、および食い違った場合には裁判所のみが介入できますから、第三者の私が答えを出すことは
不可能です。

「アプリケーションをダウンロードさせるページでバナー収入を得る」のは
グレーゾーンでしょう。まぁボーランドがいちいちチェックすることもないでしょうけど。

... バナーって儲かるの？ちょっと心が揺れたぞ。

バナー広告の場合は、プログラムの配布や使用の見返りとして
ユーザから報酬を受け取るわけではないので可なのでは？

あくまでWebページの一部を広告スペースとして提供することに対して
広告代理業者から対価を受け取っているに過ぎない・・・と言ってみるテスツ

>>20
自分もそう思う。ソフトの見返りとしての報酬ってわけじゃないし。

じゃあすんごいソフト作って
「雑誌に載せさせてくれ」って言ってきた出版社から謝礼もらうのは禁止か・・・な。

>>22 といわれてから買ってもまにあうでしょ

ところで、personalでもWindoewsAPIに精通さえしていれば機能的には問題ないけど
コンポーネントを自作しようという場合にはVCLソースが無いと厳しいと思うよ

>>22
そんな礼儀を知る雑誌など日本には無い

つーかそんなすごいソフト作れるようになったらProfessional欲しくなるって絶対。
機能的にはPersonalも十分だけど、バリバリ使うならやっぱりコードエクスプローラ欲しいもんね。

>>22
それはどう見ても「配布の見返りとしての報酬」ではないかな？
相手はそういう名義で領収書送ってくるぞ。

まぁまずはすんごいソフト作らなきゃいけ無いなぁ

>>15
フリーソフトの開発ツールとしてのpersonalとprofessionalの差は
・ライブラリのソースコードがない
・統合環境の一部の支援機能がない
くらいしかないように思います．

どちらもあると便利ですがなくても何とかなるものではないかと思います．
後者はDelphi3や4でついた機能ですし．

私は初代と2.0までは一番安いやつでしたが困らなかったです．
（あのころは一番安いやつにもデータベースがついてましたが全然使ってなかった）
むしろVBと違ってこれだけで何でもできるのが嬉しくて…．

3からプロ版を使っていますが，
バージョンアップ時は一番安いやつからプロ版への移行がかなり安かったからという
消極的な理由でした．（会社のお金でしたし）

Delphiのライブラリソースは理解を深めるのに大切。
D1の時に悲しい思いをしたので、D2でプロ版に変えた。

厨房な質問でスマソ
TreeviewにImagelistでイメージ（アイコン）を割り当てて表示すると
ノードを選択したとき割り当てたイメージでなくImagelistの０番目
のイメージに変わってしまうのですが仕様なんですか？

>30
イメージ用のインデックスって通常と選択時の二つがあって
選択時の値が０なんでは。
ツリービューの項目設定するフォームで指定できる。

他にイメージリストとが設定できる項目はStateImagesだけなので
これもImagesと同じイメージリストにしておいたのですが・・・

>>30-32
すいません。解決しました（自己レス）
ノードの方にindexを指定し忘れていただけでした。
間抜けでゴメン

いいんじゃん、とりあえずパーソナル版で作っても。
後でプロ版が必要になっても、べらぼうに高えわけでもないし。

.NETって、まじ、何者なんですか？
DELPHI.NET とか…？

みなさん、こんばんは

ボタンをクリックすると「へこんだ状態」
再度ボタンをクリックすると「でっぱった状態」といった、
ボタンの形状でOn/Offを切り替えられるような
ボタンを使いたいのですが、Delphiではどうすればよいのでしょうか？

VBから移行してDelphiを使っているのですが、
こういったトグルボタンってVBだけなのでしょうか・・・

>>36
TToolBar を使ってみるとか

>>36
　色んな方法があります。
　一つの方法は、パネルを貼り付けて
ダブルクリックして

procedure TForm1.Panel1Click(Sender: TObject);
begin
with Sender as TPanel do BevelOuter:=TBevelCut(ord(BevelOuter) xor 3);
end;

>>36
SpeedButtonとか

IEなどの検索のようなモーダル表示のフォームはDelでは
どうやるのでしょうか？

>>40
死ぬほど検索して質問してるのだろうな？マジで。

>40
IEの検索はモードレスだわさ。
だからShowModalせずにShowすれ。

なんで「ｄｅｌｐｈｉ　モーダル　表示」って検索しないのかが分からん。
http://www.google.co.jp/search?q=%82%84%82%85%82%8C%82%90%82%88%82%89%81@%83%82%81%5B%83_%83%8B%81@%95%5C%8E%A6&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=
好きなだけ死ぬまで検索してこい。

>>43
飛び先がグロ画像だったら笑える。

即興でデコードするツール作って調べてみやがれ（藁

showにすると親ウインドウにフォーカスが移せないですが…。
例えばＶＢだと 「show 0」とすると呼び出し側を操作できるように
なるのですが。

>>36
>ボタンをクリックすると「へこんだ状態」
>再度ボタンをクリックすると「でっぱった状態」といった、

これは、本来、チェックボックスの機能です。「へこんだ状態」が Checked
:= true; に相当しています。見かけをお望みのようにするには、スタイルに
BS_PUSHLIKE を加えます。たとえば、Form1 に CheckBox1 を置いて

procedure TForm1.FormCreate(Sender: TObject);
var
ST:LongInt;
begin
ST := GetWindowLong(CheckBox1.Handle,GWL_STYLE);
ST := ST or BS_PUSHLIKE;
SetWindowLong(CheckBox1.Handle,GWL_STYLE,ST);
end;

とすると外観がプッシュボタンのチェックボックスになります。
TCheckBox を継承して、property Pushlike:Boolean のような
プロパティーを持つようなコンポーネントを作るのは簡単です。

>>46
ＶＢやってろ。

アプリケーションのタイトルを表示後、
３秒後にCloseしてメニュー画面を表示させたいのですが、
タイトルフォームがメインフォームに設定されているため、
タイトルのCloseの段階でアプリケーションが終了してしまいます。

１．タイトル表示（メインフォームに設定されている）
２．タイマーイベントでClose
３．メニューを表示

２．３を入れ替えてみましたが同様でした。

こういった場合は、どのようにすれよいのでしょうか？

>>48
Delではできないと言うことですか？

Del製のエディタなどの検索フォームは一回一回閉じるのが
多かったのでもしかして特殊なことをしないとできないのかと
なんとなく思いました。
ただ単にDelではこのやり方が流行ってるの？

>>40
>showにすると親ウインドウにフォーカスが移せないですが…。
そんなことはありません。たとえば Form1 から Form2 を Show するとき

uses
Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
SetFocus;
end;

とします。検索のダイアログのようにしたければ、 Form2 の BorderStyle を
bsDialog に設定し、CreateParams() を以下のように override します。

type
TForm2 = class(TForm)
private
{ Private 宣言 }
public
procedure CreateParams(var Params: TCreateParams); override;
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

uses
Unit1;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := Form1.Handle;
end;

>>40
放置決定

>>49
スプラッシュ？

>>49
>１．タイトル表示（メインフォームに設定されている）
>２．タイマーイベントでClose
>３．メニューを表示

意味が分かるのは２だけです。
１はひょっとしてスプラッシュのことかな？
３は意味がわかりません。メニュー単独で表示、ということ？

ｄｅｌｐｈｉとかＩＥみたいに、起動に時間がかかるヤツの前に
表示させて起動したら消すってヤツをしたいんじゃないの？
よーするにスプラッシュでしょ？違うの？
だったら検索すれ。「スプラッシュ」で。

>>49
>タイトルフォームがメインフォームに設定されているため、

Delphi では、プロジェクトファイルで最初につくられるフォームが
Application.MainForm になります。MainForm が閉じるとアプリケーションが
終了してしまいます。スプラッシュウィンドウは、MainForm 以外の Form で
作るべきです。

>>51
おかげさまでできました。ありがとうございます。
ただ後半の部分は何をやっているかサッパリなので
調べてみます。

>>56
>ただ後半の部分は何をやっているかサッパリなので

Delphi では、デフォルトですべての Form は、Application ウィンドウに
所有されています。Form2 をつねに Form1 より手前に表示させるために、
CreateParams() を override して、Form2 のオーナーを Form1 にしている
わけです。

>>常に手前に表示
Form2.FormStyle = fsStayOnTop

>>スプラッシュ
frmTitle, frmMain の２つがあったとしよう。
どっちがどっちかは名前から連想。

プロジェクト→オプション→フォームで、
frmTitle を「自動生成」から「選択可能」へ移動する。

つぎに、表示→ユニットを表示→Project1.dpr （デフォルトでの名前）に
uses
　ShellApi;
var
　Start:Integer;
try
　{ 開始時刻を記録 }
　Start := GetTickCount;
　{ 表示 }
　frmTitle.Create( Application );
　frmTitle.Show;
　{ 時間のかかる処理 }
　Application.CreateForm( TfrmMain, frmMain);

　{ 最低3秒たつまで待つ }
　while GetTickCount-Start < 3000 do;

　{ 後始末 }
　frmTitle.Close;
　frmTitle.Free;

　{ 本体を実行 }
　Application.Run;

try→begin

>>57
わかりやすい説明ありがとうございました。

>>37 >>38
　ありがとうございます、両方試して>>38さんの方法を使うことにしました。
　
>>39
　SpeedButtonをどのようにすれば実現できるかわからなかったので、
　試すことができませんでした、すいません

みなさん、ありがとうございました。
　

>>61 　>>47　も無視してやるなよ

THotKeyで、バックスペースキーをショートカットとして入力したいのですが、
「なし」になってしまいます。
バックスペースはショートカットとして入力できないのでしょうか？

>>61
遅レスだが、CLXアプリだとそのものずばりのTButton.ToggleButtonがある。

TSpeedButtonだとGroupIndexを0以外にしてAllowAllUpをtrueにすれば良し。

'BkSp'

>>65
ユーザがどうやって入力するの？

今日基礎からわかるDelphi6買ったんですが、
途中から分からなくなってしまいました。
どこが分からないかと言いますとObjctPascal入門というとこです。
16進数やら文字型等です。まだ44ページ目なのですが･･･。
どうゆう風に学んでいけばいいのでしょうか？

>>67
気にしないでどんどん前進する。最後まで行ってから、
また戻ってくる。これを繰り返す。あとは、とりあえず、
なにを作りたいか、目的を定めて、それから、具体的な
問題を設定し、解決してゆくにはどうしたらよいかを考
える。

>>68
どうも。しかし何も分からないんですよ。
例えばいくつか命令が分かればそれを組み合わせていろいろ作れると
思うのですが、ほとんど分からない状態でして･･･。
今分かるのはShowmessage('Hello The World');
くらいです(藁

じゃあひたすらいろんなshowmessageしろ

ShowMessage長いよね。俺が一番最初に作った関数はSayだったよ
Say(Integer)とSay(String)のオーバーロードで。

showmessage('Who');
showmessage('are');
showmessage('you?');

ほんと初心者的質問で悪いのですがDUMP（スペル違ってるかも・・）
ってなんですか？
前から気になってました・・・

沖縄アクターズスクール初の男のダンスユニットです。

それはあなたの心の中に潜むもう一人のあなたです。

Webページでも作って頑張るかな。

>>69
じゃ、オレが具体的な課題を出す。

１．Form1 に３コのTEdit、つまり Edit1、Edit2、Edit3、と Button1 を配置
２．Edit1 と Edit２ には整数の文字列を入力するものとする
３．Button1 を押すと Edit1 と Edit2 の数値の和を求めて、Edit3 に表示

ヒント
・TEdit クラスの Text プロパティーについてヘルプを調べる
・IntToStr( ) 関数 と StrToInt( ) 関数について調べる

以上の課題を解いて、Button1Click ハンドラをここに示せ

HotKey！

すいません、1.しかできません。
本当に情けないです。

又明日出直してきます。

10 print "ｵﾏﾝｺ"
20 goto 10

>>67
うん、そうか、ではここを出発点としよう。
１．までできたなら Button1 をダブルクリックする。そうすると
コードエディタに Button1Click ハンドラが自動的に生成する。

そうしたら、

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := IntToStr(StrToInt(Edit1.Text)+100);
end;

と書いたら、F9 を押して実行する。
そして、実行時に Edit1 に、たとえば 333 と入力して、Button1 を
押すと Edit3 に 433 と表示されるのを確認。

とりあえず、ここまで。ＯＫ？

>>67

おいこら！ まだ寝るな！

寝られた６８に乾杯（藁

>>84
乾杯！！
まぁーったく、もう。
ここでチュートリアルしようとしたことに
無理があったかなぁ？

１．本当に眠たかった。
２．「教えてやるから」という上からの態度に６７がカチン！と来た。
３．分からんし、面倒だ。後は見てよう。

どれかであろう。２じゃねーのか（藁

16進数とか文字型とか言ってるから、まだボタン配置とかまで
行ってないんじゃ？

うちのDelphi5の本だと
型の説明→条件文など→コンポーネントの使い方
ってなってますよ。

>>86
>２．「教えてやるから」という上からの態度に６７がカチン！と来た。

ふーん、これだとすると、オレにはもうこれ以上のことはできないね。
なるほど......

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text))
end;

>>67

ぱちぱちぱち....

もう寝ます

また、明日もよろしくお願いします。

おいおい、おまえは67が一人前になるまで面倒見る気かよ
バカじゃねーの

--GridのカラムでComboBoxスタイルで入力したい-----------
今までは、毎回非表示のComboBoxを実行時に乗せてやる
よく使われる方法でやってましたが、最近Grid使う事が多くて
毎回だと無駄な気がしてきまして挑戦中です。

そんなこんなで、
StringGridから派生させた自作のGridコンポを作成して、
カラム毎に属性をTInplaceEditListで保存してやって、
それを使ってコンボのカラムなのかを判断させようと考え
ています、でも、そもそも属性の設定とか出来ても、
ComboBox形式にするってのが雲をつかむような感じで
困ってます。

>>93
なんだそのコピペまるだしなのは？

コピペじゃないんですが・・・。

VCLソースのTDBGridの実装を参考にな。

68は偉いなあ・・・。乾杯したい

（´∀`）＜乾杯

TDBGridのAnchorsﾌﾟﾛﾊﾟﾃｨを
akLeft = True
akRight = True　として、
フォームのリサイズにあわせてGridの幅きさを変わる様にしているのですが、
Gridの各項目の列幅はリサイズされません。

Gridの列幅リサイズできないものなのでしょうか？

DelphiでCGI使いたいんですけど、GETを変数にしたいです。
どうすればいいですか？Delphi6使ってます

本日からDelphiの勉強を始めました。
色々聞きたいこともあるのですが・・・まず。

えっと、「Delphi」
読み方はデルファイですか？デルフィですか？
あんまりな質問ですがなにとぞよろしくお願いします。

正解：デルポイ

>>101です。

>>102さん。どもです。

自己レス。
ちょっとgoogleで調べればわかりますね。すみません。

デルファイ。覚えました。

また何かありましたらよろしくです。

ListView でアイテムのドラッグイメージを変更するには
どうすればいいのでしょうか？

　　,,,,,,,,,,,,,∧,,∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　>>99がんばって、コーヂングするべし。
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　　,,,,,,,,,,,,,∧,,∧　　 ／>>100
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　Request.QueryFieldsかしら。
　 UU""" U U　　　＼>>104
　　　　　ﾖｸｼﾗﾝ　　　　MLか広場で話題に上っていた気がｼﾙ

多次元の(?)構造体にまとめて値を代入するには
どーすればいいのでしょうか?

>>107
なんだそのコピペまるだしなのは？

>107
(?)とあなたにしかわからない書き方をされても、我々には何のことやらわかりません。
具体例きぼん。

>109
あんたコピペに向かって何いっ�dの?

δε｜ｐｈ！

>>107
定数ならこんな書き方が出来る

type TMoge = record
　Hage: Boolean;
　Mage: Integer;
end;

const Moges: array [0..2,0..1]: TMoge = (
　((Hage: True; Mage: 0), (Hage: True; Mage: 0)),
　((Hage: False; Mage: 2), (Hage: True; Mage: 1)),
　((Hage: True; Mage: 3), (Hage: False; Mage: 2))
);

定数じゃないなら、一個一個入れていこう。
もとのデータが多いなら、ファイルから読み込んでループ回すとかいろいろやり方はある

>>47　
亀ﾚｽですいません
教えていただいた方法で、実現できました

チェックボックスの様に使いたかったので、
この方法で試してみます。

ありがとうございます。

亀ﾚｽですいません。
>>47

教えて頂いた方法で確認しました。
チェックボックスの様に使いたかったので丁度良い形で実現できました。
教えていただいた方法で試してみます。

ありがとうございます。　m（＿＿）m ﾚｽ遅くなってごめんんさい

外字エディタを作る羽目になりました！
助けて下さい！

横x13
縦x16
と言う特殊なピクセルなんです。

マス目などはどのような物で作成したら良いでしょうか？

　∧　∧
（　´∀｀）＜　>>107 逝って良し

　∧　∧
（　´∀｀）＜　>>115 逝って良し

>>116
モナーの *やさしい* Delphi質問スレって言うのは嘘ですか？

×優しいDelphi質問スレ
○易しいDelphi質問スレ

>>117　御名答

>>115
TGrid / TStringGrid から派生するのが簡単では？

モナーの *やさぐれ* Delphi質問スレ

すいません、昨日デルファイぱーそなるをぼーらんどのホームページからダウンロードしたんですが
早速ボタン作って押してみると
「こんにちわ、せかい」が！！
ぶったまっげたーーーーーーーーーーー
俺みたいな幼稚園児でもアプリ作れるなんて、かんげきぃ！

幼稚園児っぽくないぞ（w

>>122
お前、ここの1だろ

幼稚園児が必死にデルファイを勉強するすれ
http://pc.2ch.net/test/read.cgi/tech/1014878810/

>120
いや、TDrawGridの方が良いと思う。

DUMPってなんですか？

>>126　無造作にどさっと降ろす事だよ　ダンプカーとかあるだろ？

業界用語では、データをフォーマットせずにドサっと出力する事
というか検索しろよ

>>126
生のデータを印刷する時にダンプリストでチェックしたか！とかっ
て言ってるだろ、印刷だけじゃなくて、バックアップとかでも
テープへデータベースのダンプ取っておいてくれ！とかあるだろ。

ダンプ松本

クレーンユウ

モンスターロシモフ

商品名 , 在庫数
商品名 , 在庫数
...

↑のようなレコードを持つクラスを自作中です。
とある商品の在庫数を x増やすメソッドを

procedure TSyohin.add(商品名, x)

と作ったのですが
減らす場合のメソッドの識別子はなんと名付けたらよいでしょうか？
長すぎず３〜６文字程度にしたいのですが自分では「del」ぐらいしか思いつきません。

なんかプログラミング以前の質問ですが、どうかやさしいレスをお願いします。

>132
inc, dec ……だと標準手続き名とかぶるから、incr, decr ではどう？

>132
addでは、新たな商品をリストに追加すると受け止められる。

ZaikoFuyasu、ZaikoHerasu がいい。

>>132 単純に xに負数を渡せるようにすればいいでしょう
　それと procedure ではなくfunctionにして　帰り値で結果を渡せるようにすれば
　そのメソッド一つで　0を渡せば値も返せるし

>133
inc,dec も一応浮かんだのですが、
「１増加する」「１減らす」と言った印象が強いので避けてました。

>134
ああっすいません。
実は商品リストなんです。TSyohin ではなくて TSyohinList とすべきでした。

商品名がリスト内に存在すれば、その商品の在庫数を x増加する。
リスト内に見つからなければ、リストの最後に商品名を作成し在庫数を xと設定し、商品リスト登録件数を１増やす。

↑　.addはこういうメソッドです。

>135
これは便利そうですね。
そのように改良してみます。

>133-135
叩かれるかとビクビクしてましたが
こんなマヌケな質問にやさしく答えていただいてありがとうございました。

下手に省略したりせずに delete でいいと思う。

VCL風なら、TSyohinList.IndexOf で TSyohin を返す。
TSyohin = class
private
　FName: string;
　FStocks: Integer
...

Index := SyohinList.IndexOf(商品名);
if Index <> -1 then
begin
　Syohin := SyohinList.Items[Index] as TSyohin;
　Syohin.Stocks := Syohin.Stocks + 10;
end
else
...

DBgridがクリックされたときに、
クリックされたセルのデータを取得したいのですが、
どうやったらよ いのでしょうか？

セーブダイアログでセーブるとき
同じフォルダに同名のファイル名のファイルがあっても
そのまま上書きされてしまいます。
「〜はすでに存在します。上書きしますか？」みたいな
ダイアログを表示して確認させるにはどうしたら良いのでしょうか？

>140
セーブするときに同名のファイルがあるかどうか確認し、
同名のファイルが有るときは上書き確認のダイアログを出す
と言うようにすれば良いんじゃないですか？

>>140
TSaveDialog.Options の ofOverwritePrompt

ListView の横スクロールバーを常に非表示にしたいのですが、
どうすればいいのでしょうか。

ShowScrollBar を使っても、うまくいかないのですが・・・

>>141
それはそうなんですけどね、、笑
>>142
ありがとうございます。早速やってみます。

厨房な質問ですみません。

DBgrid上の項目内容順で並べ替えをしようとボタンを配置して
IndexFieldNamesを書いたのですが

〜EDatabaseErrorクラスの例外を生成しました。'Table1:項目'○○○'のインデックスを〜
と蹴られてしまいます。

TtableのIndexDefsは設定しているのですが、まだ他に設定・書き忘れ
をしているのだと思うのですが確認すべき点を御教授ください。

言葉が足らなかったです。
インデックスを持っていません。"と蹴られてしまいます。

>>132
addならsubtractじゃねぇ？subとかでどうよ。

>140
すいません。142のような方法があるって知らなかったから
自分で実装するしかないって思ってました。

>>145
フィールド名日本語にしてない？

>>149
いえ、日本語では無いです。

Delphi無いけど、１から教えてＹＯ！

んじゃ、２から教えてＹＯ！

長文すみません。

先日よりDelphi始めました。これまで、プログラム経験は有りません。
早速、初心者本を購入してWinMe上でプログラムを始めたのですが、
Linux上で動くKylixというモノがあるということを知りました。

そこで、以前よりLinuxにも興味があったので、これを機にLinuxを導入
して、Kylixでプログラムしようかな？と考えています。

そこで質問なのですが、
a,作成するアプリはほとんどがWindows用だと思います。
b,Kylixで作成したアプリは100%、Delphi(Win)互換なのでしょうか？
c.Kylixで作成する際のメリットとは何でしょうか？

もともとLinux上で作成したいと思ったのは、WinMeが結構不安定で
Linuxだったら・・・というのと、LInuxを始めるいい機会かな？
ということなのですが。

どうでしょうか？
迷っています。

WinMeは不安定なものです。
それが問題なら、Windows2000 か XP にしましょう。

>>153
LinuxでWindowsアプリを開発したいという理由でKylixを使うつもりなら止めとけ。
漏れもWindowsを2000かXPにするのを薦める。

BDE AdministratorでSQL-ServerにBDE経由で接続する為に
新規作成を行い"SQL-SERVER"を選んだのですが、
ODBCとは違うパラメータで、どのように設定すれば良いのでしょうか？

ODBCの場合、サーバ名、ﾃﾞｰﾀﾍﾞｰｽ名、ログインID,PWで大丈夫なのですが・・・

>>153です。

>>154 >>155さん。
ありがとうございます。

そうですか。

>LinuxでWindowsアプリを開発したいという理由でKylixを使うつもりなら止めとけ

やはりそうなのですね。
2000かXPにしようと思います。

でもLinux使ってみたい・・・。
Linuxについては、また考えようと思います。

ありがとうございました。

>でもLinux使ってみたい・・・。
何のために？

興味を持つのはよいと思うが、全く別の世界だから、心してかからないと。

コントロールにスクロールバーが追加されたことを知るには、
どのようなメッセージを関知すればいいのでしょうか？

>>158
どうせ無料なんだから気軽に遊ぶのがよいかと。
あんまり気張ってもしょうがないっす。

これいぢめだね。かあいそう

>>157です。
>>158 >>160さん。ありがとうございます。

何となく興味があるだけなんですけど・・・

ちょっと質問変えて。

あえてLinuxでDelphiやるとすれば、どれを選びますか？

あくまで、あえてでいいのですが。
「Winあぷり=XP/2000がベスト」ということは踏まえて。

だから、Kylix/CLX は Delphi/VCL ではない。
Delphi/CLX で Kylix/CLX アプリを作成することはできるが
Kylix/CLX で Delphi/VCL アプリを作ることはできない。

Linux で Delphi はできません。

>>145
あれから見本で実際動く分に、項目を変えIndexDefsに追加しても
やっぱり失敗します。
何を足したり・設定しないといけないのでしょうか。

>>164
うちの環境(Del6,Oracle8i)だと単純にソートしたいフィールド名を
IndexFieldNamesにいれただけでソートできるが。

IndexDefsは関係なかったような気がするが、ヘルプ見ると
ParadoxとdBASEはインデックスじゃないと使えないような記述があるな〜。
こっちは実際(DBのテーブル)のインデックスってことじゃない？

趣味でしかやってないがKylixはけっこう感動的だったぞ。
Linuxでも爆速コンパイルだし。

>>162
スレ違いだがLinuxの基礎的な知識は？

>>159
スクロールバーが付いてるかどうか判定するには、
GetWindowLong(Handle, GWL_STYLE) して WS_HSCROLL,
WS_VSCROLL が含まれているか調べる。
問題はどのメッセージで見るかだけど……一般的には
WM_SIZEかな。後はコントロールの種類によって色々。

>>165
レスありがとうございます。
本を読んでいるのですが、ごく初心者なのできっとつまらない所で
躓いてるのだと思うのですが・・・

DBのインデックスはどこか別に設定する所があるのでしょうか？

>>162です。
>>163 >>166さん。
レスありがとうございます。

>あえてLinuxでDelphiやるとすれば
すみません。間違えてました。
>あえてLinuxでKylixiやるとすれば
でした。

>Delphi/CLX で Kylix/CLX アプリを作成することはできるが
>Kylix/CLX で Delphi/VCL アプリを作ることはできない。
これは知りませんでした。

一方通行なんですね。それはやはりまずい。

>>166さん。

全然無いんです。で、今回がでいい機会かもなぁ・・なんて。
今までも気にはなってたけど、使う必要性に出会わなかったので。

とりあえず。板違いっぽくなってきたので、お暇します。

答えてくださった方々、ありがとうございました。

C言語覚えたのにWindowsでプログラムできません
Win32API使えるようになったほうがよいのでしょうか？
作りたいものがありません
どうしたらよいのでしょうか？

>>169
だからぁ
Kylix/CLX で Delphi/CLX アプリを作るときに、最大の互換性が保たれる。ってこと。
一方通行、って訳ではない。

>>170
ここは「モナーの *やさしい* Delphi質問スレ」ですが？

C言語にしろ ObjectPASCAL にしろ、単なる開発言語なので、それだけで
Windows に特化したアプリケーションを作ることは無理だなぁ。

>>170
作りたいものがないなら、無理して作ることはない。

begin
Kylix.delete;
end;

上書き確認のヤツ、オプション設定してダイアログ出しても、
キャンセルがらみは自分で処理書かないとダメなんじゃなかったっけ？
たしか、自分で作った気がする…。

>>171
それにCLXアプリじゃなくてもTFormとか基本的な構造が似通っているから
WindowsAPIを使わない限り移植が楽だというのはあるな。
↑実はこれが一番難しいんだが。

>>162
DEBIAN GNU/Linuxと言って見るテスト
Vineでもいいか、でも、本当はKylixを使う事が目的なら
どーやら、RedHatの6.2互換程度がいいらしい、新しくても
古くても駄目みたい。
しかし、Linux使ってみたいならKylixなんて使わなくて良い
と思うけど、しかも、今から覚えるなんて・・・。
Pascalに興味があるならFreePascalってのもあるYO!

KylixはインストールとかにはLinuxの知識がないとだめぽいが
いったん動いてしまえばあとはDelとおんなじでIDEの上ですべてが完結してるから
gcc + makeよりかはわかりやすい(かも)

Win/VCLのアプリもAPI使ってなければ小変更でLinux/CLXに移植できたから
(主にusesの変更とか)
試してみる分にはいいと思うけど。

あと、APIが使えないんですべてVCLですませようとするから
VCL/CLXの勉強にはなる（ｗ

しかし、>>169みたいにKylixに興味もってLinuxアプリとかが増えてくればいいんだがな〜。
たぶんLinuxに不足してるのはVectorレベルのアプリ（ｗ だから
とりあえずランチャとかCUIアプリのフロントエンドからはじめればいいと思うんだけど。

良くも悪くもLinuxってフリーソフトのレベルが高いから、それが障壁になってるのかな。
GPLだし。

ttp://www.sakaki.keiaikai.or.jp/Library/webconv/compile.html
を参考にして indy のインストールをしようと思ったんですが、
setenv.batには何を書けばいいんでしょうか。

>>169です。

>>177 >>178 >>179さん。
お答えありがとうございます。

板違いっぽくなってきたのでLinux版の方に行って色々調べてみようと思ってました。
こんなにいろいろと教えていただき感謝です。

何分、Linuxについてまだ何も知らない状態ですので、色々と試したいとは思います。

>>177
DEBIAN GNU/Linux
Vine
RedHatの6.2
FreePasca
上記のモノ検索してみます。l

>>178
>APIが使えないんですべてVCLですませようとするから
>VCL/CLXの勉強にはなる
これは良さげですね（笑
今、失業中で時間があるので、少し勉強欲が出てるんです。

>>179
本来、Win用のアプリを作りたくてプログラムしたかったのですが、Linux使い始めて
もし、はまったりしたらコロッと変わるかもしれません（笑
Linux一筋・・・
ちょっとえらそうかな。

とりあえず作ってみたいのは「LAN用のコミュニケーションツール」です。
まずは自分のうちにあるネットワークだけのコミュニケーションだけで良い
と思っているのですが、ゆくゆくはICQみたいな物も作ってみたいと思って
います。

みなさんありがとうございました。

>>179です。
あっ。
でも、まずはWinMe→Win2000/XPにして、Delphiをしっかり使えるように
するのが先決かな・・・

>>182
Delphi覚える覚えない以前の問題として、Win2kXPの方が安定
して開発できるでしょ。
Linuxは好きだが、世間で騒いだほどは安定してませんからね、
Ｘが悪いわけでもないのだろうがドライバとの相性か、イマイチ
不安定だね。
今のところは、まだLinuxでGUI使ったら負けだから、
Kylixの価値半減って事でDelphiで勉強した方がいい。
今のKylixは、どうしてもWinのプログラムをLinuxへ移行する必要
がある場合に使うものだろと思ふ。

プログラミング初挑戦並の初心者が、
Delphi6を始めるとしたらどんな本がいいでしょうか？

begin
Linux.close;
end;

>184
'初'と'6'って字が書いてあればなんでもいいよ。
あえてどれってのが気になるならDelスレ読み返してみれば。

>>184
「今日の献立ひと工夫」主婦の友刊

>>186
優しいDelphiという本は分かりやすいでしょうか？
http://www.amazon.co.jp/exec/obidos/ASIN/4526040266/250-9808802-0005006

>>188
「男根羅漢拳の歴史」民明書房刊

ListViewのOnOwnerDrawってどう使うんですか？
ためしにOwnerDraw:=Trueで、OnDrawItemを「Sender.Canvas.Font.Color:=clWindowText;」としてみても
真っ白なままで描画してくれないんですが…。

うが。
編集している間に変になった。

「ListViewのOnOwnerDraw」→「ListViewのOnDrawItem」で何とか

>>190
OnDrawItem では自力で TextOut するなりしてアイテムを描画して
やらないとなにも表示されませんよ。

すいません、デルファイってなんですか？
プログラム？アプリケーション？ただのツール？

>>193
　プログラム開発ツールでありプログラムであり
　アプリケーション開発ツールでありアプリケーションであり
　ただ（無料）のバージョンもあるWindows用の開発ツールでもあります

すいません、参考図書スレをみて
「はじめてのdelphi」をかおうとおもったのですが
店屋に売ってません。
インターネットで購入したいのですが
どこにうってるでしょうか？

>>195
送料無料なら　あまぞん

>196
在庫切れだって(T-T)

VC++から移行して1週間目のDel厨ですが、
デバッグ中にマウスポインタを重ねると
変数の値が見られますが、見られるときと
そうでないときがあるようですが、
何故なのでしょうか。あと変数の値を
評価してみても
最適化のため変数 'xxxx' をこの位置から参照することはできません
と表示されるのですが、よく意味がわかりません。
教えてください。

>198
多分両方とも同じ意味だろうね。俺もよく意味わかんないけど、
最適化オプションはプロジェクト→オプションからOffにできるから、
そうすればOKなのかなぁ？

ちょっと行き詰まっています。
どうか、良い知恵を…

■通信ゲームのようなプログラムを作っています。

クライアントからサーバへ、サーバからクライアントへ命令を
送信するといった形で通信を行っています。

命令は、例えば

TCommand = class .. end;
TCommand1 = class( TCommand ) ... end;
TCommand2 = class( TCommand ) ... end;
..

といったふうに、TCommand を上位クラスとして、各コマンド内容を示す
クラスを派生させてあります。

そして、サーバやクライアントクラスには、以下のように
各コマンドに対応した内容を実行するメソッドを実装してあります。

TClient = class
　procedure DoCommand1( Cmd:TCommand1 );
　procedure DoCommand2( Cmd:TCommand2 );
　...
end;

■そこで質問です。

クライアント及びサーバ間の通信はテキストで行っているので、
各コマンドクラスをテキスト形式に変換して送信する必要があります。
それは良いのですが、問題は、受信したテキストを解釈し、
対応するコマンドクラスを生成し、実行する手順です。

今は、以下のように実装しています。

{ 各 Command クラスに対応するユニークな定数 }
const
　CommandID1 = ..
　CommandID2 = ..
　CommandID3 = ..
　...


procedure TClient.OnReceived(Text:string);
begin
...
　{ 受信したテキストに含まれるメッセージIDを元にして、対応するコマンドクラスを生成する }
　case メッセージID of
　　CommandID1: begin
　　　cmd := TCommand1.Create;
　　　cmd.Decode( 受信したテキスト ); { テキストをコマンドクラスに変換 }
　　　Self.DoCommand1( msg );
　　　cmd.Free;
　　end;

　　CommandID2: ...
　　...
　end;

■なにかこう、無駄なような気がしてならず…
なにかスマートな方法はありませんか？

■一応、

TCommand = class
　Client: TClient; { コマンドを利用するクラス }
end;

TCommand1 = class
　procedure DoIt; { 実行メソッド }
end;

procedure TCommand1.DoIt;
begin
　Self.Client.DoCommand1( Self );
end;

というふうに、各コマンドクラスに実行メソッドを持たせ、
クライアントやサーバクラスの対応するメソッドを呼び出すという方法も考えたのですが、
循環参照になりそうで不安です。煩雑になるので、
クライアント／サーバクラスと、コマンドクラスは、
出来れば別々のユニットにしたいのです。

無料版のDelphiで、SysUtils.pasがないっていわれるんですけど、無料版にはついてないんですか？

>200
クラス参照使ってみたら？

procedure CommandListOnRegister(Sender: TObject);
begin
// クラスを前もって登録
CommandList.Register(TCommand1, CommandID1);
CommandList.Register(TCommand2, CommandID2);
...
end;

procedure TClient.OnReceived(Text:string);
begin
// 登録されたクラスからコマンドを生成
cmd := CommandList.Create(メッセージID);
if not Assigned(cmd) then exit; // 対応するコマンドがないなら抜ける
cmd.Decode(Text);
...
cmd.Free;
end;

cmd := CommandList.Create(メッセージID);
↓
cmd := CommandList.CreateCommand(メッセージID);
だった。
毎回生成するのは遅そうなんでCommandListでTCommandのインスタンス保持しとくのがいいとは思うけど。

>>203
何も言わずに、Update1 当てろ。

以前どこかのDelのスレで、Delphi6のHelpのあるファイルのある部分を修正すれば、
Helpの検索対象からCLXが外れるというのがあったと思うのですが、
そのことについてご存知の方いらっしゃいませんか？

>>207　Delphi6 をお持ちなら、ご自分のハードディスクのインストール先からreadme を読みましょう

クラス指定子ってこういうふうに使うんですね…
一つ賢くなりました。

ところで、コマンドを実行するときは
var cmd:TCommand;
...
case AMessage.ID of
CommandID1: DoCommand1( TCommand1(cmd) )
CommandID2: DoCommand2( TCommand2(cmd) )
CommandID3: DoCommand3( TCommand3(cmd) )
...
end;

とやるしかないですか.
良く考えると、DoCommand1 の引数は TCommand1 型、つまり
TCommand の派生クラスなので、
DoCommand1( cmd ) ってやると互換性が無いといわれるんですね.

なんか二度手間な気が…

>209
それならdelegateすればよいかも。その利点は
・TCommand（とその派生型）はTClientを知る必要がない
・TClientは処理したいコマンドのみ処理すればよい
(TCommand23が後から追加されてもコンパイルエラーになることはない、処理しないコマンドは無視される)

procedure TMyClient.CommandListOnRegister(Sender: TObject);
begin
// クラスを前もって登録
cmd := TCommand1.Create;
cmd.ID := CommandID1;
cmd.OnExecute := TMyClient.Command1Execute;
CommandList.Register(cmd);
...
end

procedure TMyClient.Command1Execute(Sender: TObject);
begin
with Sender as TCommand1 do
begin
...
end
end;

// AMessage.ID=CommandID1なら
// TMyClient.Command1Executeが呼ばれる
CommandList.Execute(AMessage.ID);

>>206
もちろん当ててますがなにか？

>211
ツール→環境オプション→ライブラリ→ライブラリパスには何が入ってますか？

>>212

$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl

と書いてあります。

Delphiのフォルダ全部検索しても、SysUtils.pasはありませんでした。
SysUtils.dcuはあるんですけどね。

まぁ、無料版にはついてないんです。
ってことだな。

まぁ、FAQなんです。
ってことだな。

>>215
やっぱそうですか。

>>208
あ･･･…確かに「注意事項: オンラインヘルプ」に書いてますね (´▽｀;）
教えていただきありがとうございました。

で、ふつうは「SysUtils.pasがない」とは出てこないはずですが、
何をやったのだ？ >> 203 (217)

>>219

var
Form1: TForm1;
TimeStamp : TTimeStamp;
DateTime : TDateTime;
Str : String;



begin
TimeStamp := MSecsToTimeStamp(1800000);
DateTime := TimeStampToDateTime(TimeStamp);
Str := TimeToStr(DateTime);
end;


（一部）

あのう…もしかするとですね、

THoge=class
...
end;

THoge2=class(THoge)
　property Hog1...
end;

て宣言して

proc(Hoge2:THoge2);
begin
　property Hog2...
end;


var
　Hoge:THoge;
begin
　Hoge:=THoge2(Hog2); { 生成と同時にHog2プロパティをセット }
　proc(Hoge as THoge2)

ってやると、proc で受け取った Hoge って、Hog2プロパティの内容失われちゃいます？

んなこたないたださらにHoge->Hoge2にキャストしない限りpropにはアクセスできない

del6 + WinXPなんですけど、
作ったアプリを実行するとタイトルバーだけ表示されて、
OS自体が固まっちゃうんですけど、こんな現象なった人いません？

>>223
昔、Delphiの実行メニューから実行すると、
必ずそのプログラムの終了時にOSごと固まるという現象にあったことがある。

そのときは、コンパイルだけして、エクスプローラから exe を実行していたよ。

>223
バックアップとってから怪しげなコードバンバン削って原因究明してバグならMLで報告。

あの ML に送ってもあまり得るところはないとおもわれ。
レポートはここでいいよ。

この中で、「ａｎｙｗａｒｅ」とかゆー「カンパを募るのを代行しますよん」
みたいなﾜｹﾜｶﾒなｓｐａｍ来た人はいる？
どーも意味が分からん。フリーウェアを登録して、カンパを募るらしいが…。
なにが「どんどんカンパしてください」だよ。よく読んでないけど、
どこに何の金がどーゆー流れで行くのやら？

>>223
まあにふぇすと、指定していない？
IDE の外では動く？
互換性を NT/W2K にしてみたら変化は？

>>224
なるほど。毎回かならず固まるというわけではないのですけど、
今のところは、
コンパイル→実行とやると固まらない。
実行ボタンと同時コンパイルさせると固まる。
といった感じです。
エクスプローラから直で実行はしたことはないので、
ちょっとやってみます。
ちなみに何がちがうのでしょうね。

>>225
IDEを初回起動したらFormがすでにありますよね。
そのまま実行しても固まりました。
VCLの中身がどうとか言う話ならばDelを使い始めて2日目なので、
よくわかりません。すいません。

>>226
わかりました。お願いします。

>>227
まあにふぇすと？
互換性に関してはBorlandのHPに書いてあったので、
Win2000モードにしたのですが、変化ありません。

再インストしようかなと思っています。
でも再インストしてこの現象がでなくなったら、
原因がわからなくなってしまうしなぁ。。

>IDEを初回起動したらFormがすでにありますよね。
>そのまま実行しても固まりました。

もし、Trend/VirusBuster 入れていたら、リアルタイムウィルスチェックを
はずす。

>>230
VirusScanは入れてますが、VirusBusterはいれてません。

OSがかたまると言ったのですが、
すべてが固まるというよりか、
CPUが100%になってしまって、
なにもできなくなる（マウスなどは動く）ような感じです。

あとコンパイルしてできたexeを直接実行すると大丈夫なようです。
でも初期状態のFormのexeを実行したときも、
タイトルバー→クライアント領域と描画されるタイミングが
その他のAPPと比べるとやたら遅くみえます。
VCLのFormはこういう物なのでしょうか？

そんなことはないと思うけど。
今年の頭から XP/Pro で D6 使っているけどおかしくなったことはないなぁ。

どうしようもなく解らないので質問。
ポップアップで、フォルダのツリーを出そうとしたらどうやったらよいのでしょう。

スタートメニューのような感じで、カーソルをあわせると１階層ごとにフォルダが　ぱっ　と開いていく奴。

１階層ごとに下のフォルダを調べて作るしかないのかなぁ・・・。

>>233
それ以外に、どんな方法があるというのだ？

>>234　思いつかないから聞いてみたのだが・・・

タスクバーの　ツールバー→デスクトップ　を選ぶと出てくるような奴。
windowsに標準でできる機能だからどうにか簡単にできない物かなぁと。

SelectDirectory？>>233

関係ないけど
昔、実行中OpenDialog.Executeで必ず固まることがあったな
そのときやっぱりexeにして実行したら固まらなかった
しかもいつのまにか固まることなくなったし
なんか相性悪かったんだろうな・・・

ＶＣＬがゴロゴロ転がってるよ

>>236
>>233はダイアログじゃなくて、メニューに再現したいんだろ？

＞１階層ごとに下のフォルダを調べて
のがとても簡単な方法のように思うけどなあ

厨な質問で申し訳ないのですが
たとえばMemo1コンポーネントの１行目だけ削除するには
どうしたらよいのでしょうか？

フォームのユニットファイルに、そのフォームでしか使わない関数を追加し、
interfaceに関数の宣言を行ったのですが、
コンパイルエラーは発生します。

フォームのユニット内に関数を作成する事はできないのでしょうか？

>>240
TMemo.LinesはTStringsだ。TStringのヘルプ見れ。

>>241
できる。書き方が間違ってたんだろ。どう書いたのかと、どんなエラーが出たのか示してくれ。

＞そのフォームでしか使わない関数
ならinterfaceに宣言する必要は無いと思われ。

>>242
＞できる。書き方が間違ってたんだろ。
そうですよね・・・　すいません

こういう風に書いてます。

interface
function Msg(strMsg: String):boolean;

＜省略＞

function Msg(strMsg: String):boolean;
ShowMessage(strMsg);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Msg('AAA');
end;


フォームに関数を作成する練習として、
メッセージボックスを関数を使って表示させようとしています。
（戻り値は返してません）

>>244
もし本当にそのまま切り出したのなら、Msgにbeginがないようだけど。エラーメッセージは?

>>245
すいません、コピペ失敗です。
beginあります。

エラーメッセージは
宣言 が必要な部分に'USES'があります

>>246
usesはinterfaceの直後に書かないといけない。
interfaceとusersの間に宣言書いてしまったんじゃない?

で、その宣言はそもそも>>243 の通り、削除しても平気でしょ。
呼び出す処理よりは前に定義しないといけなくなるけど。

ドッキングで質問です。
Panelを使ってフォームから取り外したりするドッキングみたいなの作ったんですが元に戻すことが出来ません。
一回フォームからはがすとくっつける事が出来ないんです。
さらにはがしたPanelに「x」ボタンが有ってそれを押して閉じてしまうと二度と表示され無いんです。

どうしたらいいんでしょうか？

>>247
＞interfaceとusersの間に宣言書いてしまったんじゃない?
その通りです。

＞で、その宣言はそもそも>>243 の通り、削除しても平気でしょ。
＞呼び出す処理よりは前に定義しないといけなくなるけど。

わかりました。
例えば、呼び出す処理の後に記述する場合は、
宣言が必要になるんですよね？

そういう場合は、どのように宣言すれば良いですか？

>>249
なんつーか、マニュアルに書いてある基本的なことばかりだな。
まずはじっくりマニュアル読んでくれよ。わかんないなら適当に入門書から。

ともあれ、クラスに所属しない手続きや関数をimplementationの中で宣言するには
forward宣言を行えば良い。この言葉を鍵に調べてみれ。

>>210
TCommandList, TCommandって
TActionList, TActionと対になってますね。
実際デザインパターンのCommandの
別名にActionというのもありますし。

VCLを使わないでCreateWindowでやっても×でした。
逝ってきます。

原因がわかったので報告します。
原因はVirusScanのVSieldでした。
こいつをはずすと、実行時の微妙な遅延もなくなり安定しました。

ということでXP（だけ？）でVirusBuster or VirusScanを
入れてる方は要注意ということでよろしいです？
ガイシュツだったらごめんなさい。

>>230さんありがとうございます。

ListViewのOnCustomDrawItemで、選択したアイテムの背景色を変える方法ってないの？

>>254
If Item.Selected then

Canvas.Brush.Color
FillRect

IMEなどでフォントを入力したらStringGridに文字を持ってくる方法って無いですか？

セルに持っていくのでは無く16ｘ16のマス目にフォントを表示させたいのです。

「あ」と入力したら16ｘ16のStringGridいっぱいに「あ」と表示させたい訳なんですが可能なんでしょうか？

DrawCellをオーバーライドして、自分で上書きする。

Drawcellは使用してるんですがどのようにしてフォントを上書きするんですか？
ASCIIコードか何かを取得出来るのでしょうか。

DIBに描画して自力で色を取得するんじゃ？

>>256
難しいことしてますな

>>256
あらかじめ第二水準まで作っておいて入力した文字によってGridに読み込むとか
一文字ずつcsvに保存して

□□□□□□□□
■□□□□□□□
□■□□□□□□
□□■□□□□□
□□□■□□□□
□□□□■□□□
□□□□□■□□
□□□□□□■□

上の様な文字だったら
0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,
0,0,1,0,0,0,0,0,
0,0,0,1,0,0,0,0,
0,0,0,0,1,0,0,0,
0,0,0,0,0,1,0,0,
0,0,0,0,0,0,1,0,
とcsvで保存してそれを読み込むとか

他にこれより良い方有る？
あったら誰かフォローよろ

>258
Canvas.Fontを替えて、その後inheritedすればﾌｫﾝﾄは変わる筈。

それか、Canvasに自分で描画してもよいし。

>258
Drawcellメソッドと、OnDrawcellイベントハンドラは別だから間違えないでね。

コードみてないけど、Drawcellメソッドの中で、
OnDrawcellプロパティ（関数ポインタ）がAssignされてるか判定して、
Assignされてる場合、コールしてる筈。

ListView の Report 形式表示で、アイテムがカラムの横幅に収まらない時に
それを補完するツールチップヒントが表示されますが、あれを非表示にする
にはどうしたらいいのですか？

TreeView の場合には ToolTips プロパティがあるのですが、
ListView には見あたりません・・・

だれかご存じでしたら教えてください。

>>261
それは非常に面倒じゃない？
フォントのbit情報持ってきてGridに配置した方が・・
多分可能でしょ。

Memo1コンポーネントに

フリース　（1000円）
エアテック　（4000円）
財布　（500円）
鞄　（10000円）
ボーダー　（2000円）

このようにデータが表示されていたとき
Button1を押したら
括弧内の値段順にソートしてMemo1に表示したいときは
どのようなコードを書けばよいのでしょうか？

>>265
アイコンのドットエディタとかでありがちだけどどうやるのかわからん
StringGridを使って出来るのか？

>>256
なんで StringGrid なんだ？？
独自コンポ作った方が遙かにスマートに出来そうだけど・・

>>266
TStringListのCustomSort使えば？
数字を抽出して比較する関数作ってさ

>>268
>>269
参考になります。ありがとうございます。

>>266
function GetNum(Line: string):Integer;
var
Index, Count: Integer;
begin
Index :=AnsiPos('（', Line) + 2;
Count := AnsiPos('円',Line) - Index;

Line := Copy(Line, Index, Count);

Result := StrToInt(Line);
end;

function MyCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := GetNum(List[Index1]) - GetNum(List[Index2]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
StringList : TStringList;
begin
StringList := TStringList.Create;
try
StringList.Assign(Memo1.Lines);
StringList.CustomSort(MyCompare);

Memo1.Lines.Assign(StringList);
finally
StringList.Free;
end;
end;

このようなコードで一応動く
やり方は、２６９が言ってるのと同じ

256です。
やっぱりStringGridでは無理がありますか。
アイコンドットエディタとかはどうやって文字をグリッドに持ってきてるのか気になって・・・

>>272
ソースキボンヌ
ソース公開がいやなら一部分だけでもここに貼り付けて

>>256
QuickReportで出来そうな気がするが。
出来ないか？

そんなことよりうちのdelphiでQRepのHelp出てこないんだけど何で？
みんなもそうなの？

>>269
>>271
ありがとうございます。
271さんには例まで示していただいて、とても感謝してます。
まだdelphi、消防レベルにもいってない自分にはすごく勉強になります。

検索用フォームの戻り値用にTFormを継承する時に
新しいプロパティを追加してみたが、このプログラムには
重複させて表示させない為にフォーム表示用の関数を
作成してあるのですが、そこで問題が発生しています。

つまり、この中から新しく追加したプロパティを見る方法
で悩んでます。

----- フォーム作成用共通関数 ----
Application.CreateForm(wClass, wFrmName);

for idx:=0 to Screen.FormCount -1 do
begin
　if (Screen.Forms[idx].ClassName=wClass.ClassName) then
　begin
　　if (Screen.Forms[idx].ShowModal=mrOK) then
　　　Result:=Screen.Forms[idx].FormResults.Text;
　　　//　　　　　　　　　　　　　　　　　↑
　　　// FormResultsが新しく追加したプロパティだが、この書き方
　　　// ではエラーになる。
　　　Screen.Forms[idx].Release;
　end;
end;


コンパイルを通そうとすれば、

if (Screen.Forms[idx].ShowModal=mrOK) then
　　Result:=　FrmKensaku(Screen.Forms[idx]).FormResults.Text;

のようにすれば通るが、これでは、共通の関数としては
問題がある。

何か、いい方法はないでしょうか？

>>272
procedure　ViewCanvas(Canvas:　TCanvas);
var
　　i,　j:　Integer;
　　Color　:　TColor;
　　s:　string;
begin
　　for　j　:=　0　to　10　do
　　begin
　　　　s　:=　'';

　　　　for　i　:=　0　to　10　do
　　　　begin
　　　　　　Color　:=　Canvas.Pixels[i,　j];
　　　　　　if　Color=0　then
　　　　　　　　s　:=　s　+　'■'
　　　　　　else
　　　　　　　　s　:=　s　+　'□';
　　　　end;
　　　　Form1.Memo1.Lines.Add(s);
　　end;
end;

procedure　TForm1.Button1Click(Sender:　TObject);
var
　　Bitmap:　TBitmap;
begin
　　Bitmap　:=　TBitmap.Create;
　　try
　　　　Bitmap.Height:=11;
　　　　Bitmap.Width:=11;
　　　　Bitmap.Canvas.TextOut(0,0,Edit1.Text);
　　　　ViewCanvas(Bitmap.Canvas);
　　finally
　　　　Bitmap.Free;
　　end;
end;

Edit1, Button1, Memo1をForm1に貼り付けてください。
文字をキャンバスに表示して、pixelsプロパティで読んでます。
StringGridは設定が面倒なので、Memoにしました。

遅いからラインで持ってきたほうが良いと中村師に指摘される可能性１２０％

>>276
そんな事はできないと思われる

>>276
フォームにプロパティを追加して値を渡すなんて聞いたこともありません、
そもそもそれが間違いなのでは？
私はいつもグローバル変数で値を受け渡ししています、そうするのが
一番正しいやり方だと思いますがどうでしょうか？

>>278
ラインキャッシュ付き Pixels の実装、ほしい人。手あげて。

>>277
逆にStringGridの方が簡単じゃない？
見栄えも良いし。

もしくはちょっと荒技だけど
0だったら色を塗る、1だったら色を塗らないって決めておいて、
>>277のソースの
s　:=　s　+　'■'
s　:=　s　+　'□'
の部分を
s　:=　s　+　'0'
s　:=　s　+　'1'
に変える。

さらに一文字ずつにカンマで区切ってそれをStringGridに読ませてやればいい。
どーよ？

0,0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,1,1,0,0,0,0,0,
0,0,0,0,1,0,1,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,1,1,1,0,0,0,0,
▲こんな風になる（１の反転文字の例）


他にもいろいろ方法有りそうだな。

>>282
そんなまどろっこしい事やらないでも　s　:=　s　+　'■'　の処理をセルの色変えに変えれば良いんでは？

俺ならDIBSectionでやるが・・・。
結局自力で書いた方が速くて柔軟性あるからな。
早いとはいわん。

　　,,,,,,,,,,,,,∧,,∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　何が悩みどころかわからんままレス
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>>276
もし、Ａｐｐｌｉｃａｔｉｏｎ．Forms[i] is TXXForm なら
TXXForm(Application.Forms[i]).FormResults 取り出し

共通の関数としてどこの何に問題が？？

DIBSectionってなんだったっけ？

Delフサギコならわかるだろうか。

StringGridにだわる理由がわからん。DrawGridで十分だろ。
まあ、普通はグリッドなんか使わずに直接StrechBltすると思うけど。

>>287
DrawGrid使ったことねぇや
あれ何に使うの？

>>285　
本人じゃないんですけど、たぶん、
Screen.Formsを使ってるってことは、関数で動的にフォームを作成している
のだとおもわれる。

> TXXForm(Application.Forms[i]).FormResults 取り出し
これだと、各フォーム毎に書かないといけないので嫌だって話では？
おそらく、フォームが数百、いや数千は存在するのだろう（藁

つーことで、グローバル変数で処理するのが一番楽かと。

>>289　解りました、そうします。
>>285 289さんが書いているのが全てなんですが、

function ShowFrm(wClass:TComponentClass;wReIdx:integer;
var Res:String):Boolean;
　　｜wClass＝フォームクラス
　　｜wReIdx＝戻り値の列番号
　　｜Res＝戻り値
で、wReIdxがゼロの場合には全ての戻り値が帰って来て、
wReIdxに値が指定してあった場合には、その場所の戻り値
が来る、つまり、呼び出す検索フォーム側の追加したプロパ
ティはTStringsで定義しようかと。

で、呼ぶ時は、
rc:=ShowFrm(TkensakuFrm,1,S);　とか
rc:=ShowFrm(TAddKensakuFrm,0,S);　とかって感じで呼んで
フォームを表示させようかと思っていました。
フォームからの戻り値は Sに入って来るって感じです。

説明下手で申し訳ないです。

HotKey で、エンターキーが入力できるようにしたいのですが、用意されていないみたいです。とすると、コンボボックスを使って、オブジェクトインスペクタの
ShortCut プロパティのように、文字列としてキーの組み合わせを登録し、
TextToShortCut でショートカット型にするのがスマートかと思ったのですが、

ユーザーに使いやすくするためには、
コンボボックスに大量のテキストを用意しておかないとなりません。
なんか、ショートカットの組み合わせ文字列が定義された定数配列とか
ないですか？

>291
こんなんんでどうよ？

Form1.KeyPreview := Trueして

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) and (ActiveControl = HotKey1) then
begin
HotKey1.HotKey := TextToShortCut('Enter');
Key := #0;
end;
end;

>>292
おおおお
メカラウロコ

ヒントを得て、これで解決しました。

アクションリストにアクションを４つ追加。
ショートカットはそれぞれ
Enter
Shift+ENter
Ctrl+Enter
Shift+Ctrl+Enter

OnExecute には

if ActiveControl = HotKey1 then
　HotKey1.HotKey := (Sender as TAction).ShortCut;

と。これ、ヒントを得たとはいえ、我ながら傑作な方法。

>294
それをアクションと呼ぶには苦しいぞ。
それにアクション一覧を表示してキーカスタマイズさせるようなUIを作った場合、
Enter系のゴミアクションが表示されてしまい見苦しいかも。

DelphiってVBと同じ仕組みなんですか？
Cのようにネイティブコードにしているとは思えないんですが。
スタートボタンやストップボタンがついていてVBに似ているし。

ﾈﾀ?

>>297
ううん。

ﾈﾀﾀﾞﾖﾈ？　ﾈﾀﾀﾞﾄｲｯﾃ！　ｵﾈｶﾞｲﾀﾞｶﾗ。

VCってVBと同じ仕組みなんですか？
Cのようにネイティブコードにしているとは思えないんですが。
スタートボタンやストップボタンがついていてVBに似ているし。

>>300
ついていないよ。
VC++触ったことない？

>301
ついてるよ。
VC++使いこなしてない？

VBってN88BASICと同じ仕組みなんですか？
Cのようにネイティブコードにしているとは思えないんですが。
スタートボタンやストップボタンがついていてVBに似ているし。

>>302
修正したらそのつどコンパイルし直す必要があるじゃない。

祭り？

>304
必要ないよ。
VC++使いこなしてない？

>>256は解決したのか？

結果が気になるのだが。

VBってファミリーベーシックと同じ仕組みなんですか？
Cのようにネイティブコードにしているとは思えないんですが。
スタートボタンやストップボタンがついていてVBに似ているし。
ベーシックって言うし。

俺のストップウォッチはスタートボタンやストップボタンがついていてVBに似てますか？

特定定キーの状態を拾いたいの（押してるのか離してるのか）ですが
どうすればいいのでしょうか？

できればアクティブでも非アクティブでも拾いたいです
Buttonを貼り付けると矢印キーが拾えないので困ってます

我が君！
ﾌﾞｳﾞｨ房軍の計略にかかり、
我が軍は同士討ちを始めております！！

>>309
ﾜﾗﾀ

>>310
フック…とつぶやいてみる予行演習。

>>269>>271
こういう時にサクっと使える正規表現ライブラリって在りませんかね？

http://www.google.co.jp/search?q=%90%B3%8BK%95%5C%8C%BB%83%89%83C%83u%83%89%83%8A%82%F0%8C%9F%8D%F5%82%B5%82%EB%82%C1%82%C4%81%5B%82%CC%81I&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=

>>313-314
洋物、和物含めてイロイロあるけど、一番評判がいいのって、どれだ？

>>315
洋物…トレイシーローズ
和物…長瀬愛

>310
GetAsyncKeyState

>>314
手が込んでるな…
メール入力欄に書きこむの、最近見かけないが
あれは速報版だけの慣習なのか？

>>290
つまり、関数内でフォームをCreateする時にクラスを変更出来たらいいんだろうか？
取りあえず、そんな事は難しいが、継承を使えば似たような事は可能だ。

１．独自にPropertyを追加したフォームを TParFormとする
２．検索フォームは全てTParFormを継承させて作る。

例)
　TKensakuForm1=class(TParForm);


３．関数内で使うクラスをTOrgFormとする

例)
Type
　TOrgForm = class of TParForm;
　　・
　　・
　　・
function CreForm(・・・・・・):String;
var
　frm:TOrgForm;
begin
　　・
　　・
　ftm:=TOrgForm(GetClass('フォーム名')).Create(Application);
　Result=frm.FormResults;
　frm.Release;
　　・
　　・

４．継承したフォームは、登録しておかなければならないので、initialization等にガンガン書いておく

例）

initialization
　RegisterClass(TKensakuForm1);
　RegisterClass(TKensakuForm2);
　RegisterClass(TKensakuForm3);
　　　・
　　　・
end.

これで、文字列としてフォーム名を渡してCreateできるはず。
眠いんで詳しい説明はしない、詳しくは、HELPの GetClass を参照
でも、これで解らなかった、もうDelphi使うな。

なにやってるかさっぱり解らん。

結局>>319本人は自分で書いてて解らなかったのか？
Delphi使わんのは>>319の勝手だが。
文末がｻｯﾊﾟﾘわからん。

Memoにカンマで区切られたテキストデータが有るのですがこれをStringGridに渡す事は出来ないでしょうか？

A,B,A,A,A,A,A,A,
A,B,A,A,A,A,A,A,
A,B,A,A,A,A,A,A,
A,B,A,A,A,A,A,A,
A,B,A,A,A,A,A,A,
A,B,A,A,A,A,A,A,

こんなデータをカンマ毎に分けてセルに配置したいんです。
テキストから読み込むのは出来るのですがMemoから直接渡す方法が分からないです。

>>314 ﾜﾗﾀ

>>288
α）文字以外の物を表示する場合
β）内部処理とユーザーインターフェイスを分離したい場合

α）の場合
　たとえば画像の一覧を表示する場合．
　Objectsプロパティに入れる手もありますが
　たとえば８桁から５桁に変えたい場合，処理が面倒．
β）は
　・アプリケーション全体で見たい情報をグリッドに入れちゃうと
　　フォームが２つになった瞬間に内部情報が散乱してドツボにはまる（経験者）．
　　こういう場合は内部情報をプログラムのひとつのユニットにまとめて
　　グリッドなどのコンポーネントは表示と操作に専念する
　・グリッドをやめてリストビューにしよう！
　　などと命令されたときにも楽に変更できる．

>>322
for i:=0 to Memo1.lines.Count do Cols[i].CommaText:= Memo1.lines.Strings[i];

みなさま、ちょっと知恵を貸してください。

いま、自前のソフトに、簡単なマクロ機能を実装しようとしています。
仕様は、だいたい以下の通りです。

・実行することの出来る最も小さい仕事を Job と呼ぶ。
・TJob は、「仕事の種類」と「パラメータ」プロパティを持っている。
・１つの Action で、最大 10個までの Job を登録することが出来る。
・一つのショートカットコマンドには、一つの Action が対応する。
・Action の集合体を Macro と呼ぶ。

で、いかに楽に、いかにエレガントに、いかに機能の追加を楽に出来るように
実装するかということで頭を悩ませているわけです。

TJobType = ( 仕事名1, 仕事名2, 仕事名3, ..., 仕事名n );

TJob = record
　仕事の種類: TJobType;
　パラメータ: string;
end;

TMAction = class( TCustomAction )
　Jobs: array [0..9] of TJob;
　JobsCount:Integer;
　...
end;

TMMacro = class( TActionList )
end;

で、それを処理する部分は

procedure フォーム.ExecuteAction( Sender:TObject )
var Action:TMAction; ...
begin
　Action := Sender as TMAction;

　for I:=0 to JobsCount-1 do
　　case Action.Jobs[I].仕事の種類 of
　　　仕事名1: Self.仕事1処理メソッド( Action.Jobs[i].パラメータ );
　　　仕事名2: Self.仕事2処理メソッド( Action.Jobs[i].パラメータ );
　　　..
　　　仕事名n: Self.仕事n処理メソッド( Action.Jobs[i].パラメータ );
　　end;
end;

としておいて、自前のアクションリストに

procedure AddAction( MAction:TMAction );begin;
　MAction.ActionList := Self.MacroActions;
end;

のようにして登録しようと。
でも、せっかくアクションリストで管理しているのに、実行するときに case で分岐させるのはどうも…

>>326
>200から始まる一連のやり取りが参考になるかも
TCommandってやつね

>>325
ありがとう御座います
早速試してみます

>>329
>>325のコードそのままだとおかしくないか？

Colsの所をRowsに変えないと持ってきたデータが９０度反転するような

>>319
有難う御座いました出来ました！
持続的クラスですか・・・勉強になりました。

>これで解らなかった、もうDelphi使うな。

私はまだDelphi使ってよさそうですね（藁

このスレが一番グリッドの質問が多いのでここで質問させてもらいます。
グリッドの特定の位置できっかけをあたえたら（KeydownやMoundown）その列から一列セルの中身を右にずらす方法って無いですか？
Stringgridです。

Memoなどの複数行について質問なんですけど、
Memo1.Lines := として

あ
い
う

という複数行の文字列を代入したいんですけど、どうすればいいんですか？

Memo1.Lines.Strings[0] := 'あ'+#13#10+'い'+#13#10+'う' ;

Memo1.Lines.Text:='あ'#13#10'い'#13#10'う'

>>333
これでどーよ？
memo1.Lines.Add('あ'+#13+#10+'い'+#13+#10+'う');

>>332
グリッドの内容をTstringlistに置いてから列（行）の挿入なりをしたら駄目かな？
よーわからん

誰かよろしく

>335
しまった、やられた。
基本を押さえれてないってことですな。トホホ

ありゃ・・・・ただしこの方法で取得した後は何かやらないと改行結果が・・・

Delphi+Apache関連スレってありますか？

>317
ありがとうございます。
無事解決しました。

>>332
列の”列の挿入”じゃなくて一列まるごとセルに同じ文字列を書き込むなら出来るかも。
空白を書き込むとか。
やっぱTstrings使わないと無理か？

確認だけど上書きじゃなくて挿入なんだよね。

C++Builderで作ったDLLのヘッダファイルを
Delphiで直接利用することってできます？
それとも.pasに書き直さないと駄目ですか？

>>342
作り方による

>>343
どう作ればいいですか？

　　,,,,,,,,,,,,,∧,,∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　近頃忙しいっす。
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
ﾏｯﾀｸ、ｺｷﾂｶｲｵｯﾃ

>>332
このあたりを見ると幸せになれるかも。
Delphi広場<10356>

右にずらして、その後どうするのかわけわかだけど、

CoｌsはTStringsだからAssignで
ピーコしてからその列の内容を削除したらいいんでないの？

StringGrid1.Cols[X+1].Assign(StringGrid1.Cols[X]);
StringGrid1.Cols[X].Text := '';

こんな感じかしら。
動作環境がないのでわからんけど。

>>345
それだと隣の列に上書きにならない？

>>342
pasに直さなきゃいけないのでは？たしかwww.freepascal.orgにh2pasっていう
ユーティリティがあったと思うのでそれを使うと幸せかも。

＞Delphi+Apache関連スレってありますか？

ム板にWebアプリ作成スレがあってもいいとおもう。

　　,,,,,,,,,,,,,∧,,∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　最近、お仕事がそればっかなのよ
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

VB6でIISアプリには飽き飽きなので
Delphiにしたいが、我慢してC#に…

>>332
漏れならInc(ColCount)して
1行ずつCommaTextをTStringListに渡してInsertして
CommaTextで戻す。効率とかには目をつぶって(w

StringGridの中身をカンマ区切りテキストに書き出してそのテキストに縦一列挿入って言うのはダメですかね？

そもそもカンマテキストに列の挿入って出来ましたっけ。

なんか凄く面倒な事になりそう・・・

　 ∧,,∧　　　 ／　
　ミ,,ﾟДﾟ彡　＜　 やりたいことがワケ
Π￣￣￣|　　＼　
|つワカメ()　　　
| |＿＿＿.|
　　∪∪
　なんで、カンマ区切りテキストがでてくる？>>349-350
　ColsとかRowsがTSｔりんｇｓってのは把握しているのかしら？

>>346
どうやったって、どこかの列が上書きされるしかないでしょ

InsertRow/ColやDeleteRow/Colなんて処理は
一度はこだわって作ってみるといいと思われ。

privateで宣言されているDeleteRow/ColとMoveRow/Colを
使うのがいいんじゃないでしょうか。

MemoのLinesを初期化（なし）にするにはどうすればいいですか？

Memo.Lines.Clear

東の邦楽に向かって、手を３度叩き、「メモさん、メモさん、初期化してくださいな」
と言う。
水を口に含み、少しずつ吹きながら言うと効果アップ。

東の住人が迷惑だからやめれ

無駄なおちょくりレスでageると誤字で恥をかく好例。

ListViewでカラム見出の部分をクリックしてソートさせているの
だが、多くのソフトでやってあるみたく、△とか▽とか表示させるにゃ
どーすりゃいいのさ。
今はタイトルの文字に「▽名前」みたく表示させてるが、ダサすぎる（藁

>>357
VCじゃないとできないんじゃないの？
いいじゃん、そのダサイ状態でも機能的に問題ないなら。

どうでもいいけどさ、解決したんなら解決したって書いてよね。

>>359 誰のことか書かないと

おしえてください。

DragModeをdmAutomaticにしたときに、
コントロールがクリックできなくなってしまいます。
例えば 4 ピクセルほどカーソルを移動させるとドラッグモードに切り替わる
ということをしたい場合、どうすればよいのですか？

>>357
TListColumnのプロパティでアイコンって設定できなかったっけ？

>>362 割り込みで申し訳ないんですが、私も先月同じ内容で
悩んでいました、Delphiの最近のバージョンではプロパティが
追加されたのでしょうか？
Columnのどのプロパティか見つけられませんでしたので詳しく
教えて下さい。 m(．．)m

>>361
dmManualでやる

>>363
そんなのありません

>>332
□□□□□
□□■□□
□□■□□
□□■□□
□□■□□
こういうグリッドが有ったとしたら特定の位置を挿入したいんでしょ

でもって挿入結果が
これ？
□□□□□□
□□□■□□
□□□■□□
□□□■□□
□□□■□□
（1,y）に挿入した場合

こんなの可能なのか？・・・

MDIの子フォームを起動時に生成させなくするには
どうしたらいいですか？

>>367
ﾑﾘ。
非表示にしておいて、Form起動後にCloseするしかない

>>367
プロジェクト > オプション > フォーム > 自動作成の対象

>>369
できました！
ありがとうございます。
さっきまで必死にFormのプロパティを探してました

不特定の長さのデータを格納するにはなにを使えばいいのでしょう？

Integerのデータをどんどん追加したいのです。
TListだとポインターじゃないと怒られてしまいました。
配列だと最初に大きさを決めないといけないので応用が利きません。

>>371
動的配列

>>371
IntToStrしてTStringListに格納してみるってのはどーよ。

DelphiってAPIをどういう風に書けばいいの？

>>372
動的多次元配列なんて理想にぴったりでした。　ありがとうございます。
しかし上手くいきません。
何が間違ってるんでしょうか？

Edit3.Text := 28;
Edit4.Text := 31;

xx := StrToIntDef( Edit3.Text, 0 );
yy := StrToIntDef( Edit4.Text, 0 );
SetLength(Data, xx);
for x := 0 to xx do begin
SetLength(Data[x], yy);
for y := 0 to yy do begin
Data[x,y] := 0;
end;
end;

SetLength(Data, xx);
for x := 0 to xx - 1 do begin
SetLength(Data[x], yy);
for y := 0 to yy - 1 do begin
Data[x][y] := 0;
end;end;

>>376
動作しました！　ありがとうございます。

いろいろやってるのですがまだ解決出来ません。
グリッドの中身を一度カンマテキストに落として列の追加をやろうとしたのですが、どうしても追加しようとしてる列から
後ろが消えてしまいます。
一度別で確保して待避させてるのに・・・。

StringGridがセルの移動をサポートしてたら・・。

>>374
関数名いきなり打ってみ

>>374
uses Windowsして後は関数と同じように書いていくだけ。
補完使えば楽だよ。

>>378
カンマなら出来そうな気がするが・・・

>>363
ImageIndexは？ 少くともDelphi5にはあるよ。
>>378
もう面倒くさいから、ループでCellsを一個一個コピーしろ。

>>361
dmManualでやる
ドラッグを開始するにはどうすればよいのですか？

>383
OnMouseDownでBeginDrag。

>>382
＞もう面倒くさいから、ループでCellsを一個一個コピーしろ。

面倒と言うかそれが普通のやり方だと思う。
違うのか？

何でstringlistでやるのかわからん。
オーバヘッド多すぎない？

>>385
いや、すごくまっとーだと思う

>>378
　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／
　ミ；ﾟДﾟ彡＜　まだひっぱってるんすか？
　 ﾐつ　つ 　＼
〜ﾐ ,,　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　 ∪∪　　　
CommaTextがなんででてくる？って
言ってるのにわかってもらえんし
>グリッドの中身を一度カンマテキストに落として列の追加をやろうとしたのですが、どうしても追加しようとしてる列から
>後ろが消えてしまいます。
ソース書きなよ。意味わからんそｺﾞﾙｧ

GridのColCountを＋１しないと
いけないって事が理解できてないだけでは？

ColCountを1追加して
Cols[ColCount-1].Text := '';
で追加列の内容をクリアして
隠しメソッドのMoveColumnで
MoveColumn(ColCount-1, ACol);
ってするだけなんだが…

DeleteRowとかでMLﾛｸﾞ検索してみそ。
勉強になると思うよ。

戸田は帰れ

　　∧,,∧　 　　
　 ミ；ﾟдﾟ彡　ﾎﾟｶｰﾝ

お願いおせーて！
ｒｉｃｈｅｄｉｔで１行ずつフォーカスをあてて行って最後まで行ったら
最初に戻るってどうやったらいいデスカ？
検索機能作ってどうしても、ループが上手くいかんのですよ。

>>391
>最初に戻るってどうやったらいいデスカ？

最後から最初に戻るには

RichEdit1.SelStart := 0;
RichEdit1.Perform(EM_SCROLLCARET,0,0);

じゃないの？
フォーカスってなんのこと？

delphi6 Personalです。
ttp://member.nifty.ne.jp/m-and-i/tips/wildmatch.htm
このページのコンポーネントをインストールしようとしたら、
masks.pasがないと怒られました。
HDDをいくら検索してもないので、delphi自体を再セットアップして、
masks.pasを探してみたのですが、やはり見つかりませんでした。
Personal版にはないものなのでしょうか？

>>392
レスどもです。
最初に戻るのは、そのやり方でやってるんですが、最後の行に行ったらって言う条件が
上手く書けないです。
ちなみに、フォーカスとは、選択した時に青くなるアレです。
普通はそう言わないのかな？
ちなみに、こんな感じでやってみたんだけど
if RichEdit1.Lines.Count-1=SendMessage(RichEdit.Handle,EM_LINEFROMCHAR,-1,0)
then change.selstart :=0;
よくよく考えたら、検索なんで、キャレットが最後の行に行く前に、終ってしまう・・・

>>393
Ｍａｓｋｓ．Ｐａｓとは、そのコンポーネントのソースのことでは？
どういう配布方法か知らないけど、ライブラリパスはちゃんと、きってますか？
全然違うこと言っていたら、ごめんね。

　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　|　過去ﾛｸﾞ見ーってのは、勉強になるよって意味で
　＼＿　＿誰かさんみたいに、回答が面倒だから
　　　　|/ 　　っていう意味じゃないんだが…
　　 ∧,,∧
　　ミ,,ﾟДﾟﾐy━~~
　　 U　　 ﾐ
　〜ﾐ　 　ﾐ
　　　Ｕ''Ｕ 　ﾏ ﾄﾞｰﾃﾞﾓｲｲｶ
implementation
type
　TStrGridInsert = class(TStringGrid)
　public
　　procedure InsertColumn(ACol: Integer);
　　procedure InsertRow(ARow: Integer);
　end;
procedure TStrGridInsert.InsertColumn(ACol: Integer);
var
　GridRect1: TGridRect;
begin
　if (ACol < 0) or (ColCount-1 < ACol) then
　begin
　　raise EAccessViolation.Create('Grid挿入列指定が間違っています');
　end;
　GridRect1 := Selection;
　if ACol <= GridRect1.Left then
　begin
　　GridRect1.Left := GridRect1.Left +1;
　　GridRect1.Right := GridRect1.Right +1;
　end else
　if (GridRect1.Left < ACol) and (ACol <= GridRect1.Right) then
　begin
　　GridRect1.Right := GridRect1.Right +1;
　end else
　if (GridRect1.Right < ACol) then
　begin
　end;
　ColCount := ColCount + 1;
　MoveColumn(ColCount-1, ACol);
　Self.Selection := GridRect1;
end;

>>393
あ〜
ごめんなさい。
まったく、違う事いってました。
こんなクラスあったんだすねぇ・・・ｽﾏｿ
ちなみに、家のにはあったよ。ＤＥＬ５のＰＲＯだよ。
パーソナルにはないみたいね。

　　 ∧,,∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　＜　ここまではいらんだろうけどね。
　　(ﾐ　　ミ)　　　＼＿selectionとか。
　〜ﾐ　　ﾐ
　　 ∪''∪
procedure TStrGridInsert.InsertRow(ARow: Integer);
var
　GridRect1: TGridRect;
begin
　if (ARow < 0) or (ColCount-1 < ARow) then
　begin
　　raise EAccessViolation.Create('Grid挿入行指定が間違っています');
　end;
　GridRect1 := Selection;
　if ARow <= GridRect1.Top then
　begin
　　GridRect1.Top := GridRect1.Top +1;
　　GridRect1.Bottom := GridRect1.Bottom +1;
　end else
　if (GridRect1.Top < ARow) and (ARow <= GridRect1.Bottom) then
　begin
　　GridRect1.Bottom := GridRect1.Bottom +1;
　end else
　if (GridRect1.Bottom < ARow) then
　begin
　end;
　RowCount := RowCount + 1;
　MoveRow(RowCount-1, ARow);
　Self.Selection := GridRect1;
end;

>>393
気持ちは分からんでもないが、作者に聞けっちゅーの。

つーか、usesにあるぞ＜masks
よく見れ。

>>394
全体的に意味不明
・検索なら検索のアルゴリズムを書けよ
・フォーカスじゃなくて、文字を選択して「反転」してるんだろ？

ちょーっと勘違い。でも作者に聞けれ！

>>400
ごめんなさい最初からそうすれば良かったですね。

procedure TForm1.Button1Click(Sender: TObject);
//検索（changeはTRichEditです）
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with change do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(Edit1.Text, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(Edit1.Text);
perform(EM_SCROLLCARET,0,0);
end;
end;
end;
こんなんです。ボタン押していって、最後にきたら最初に戻るってやりたいんです。
どうでしょか？

>402
最初のFindTextの結果が-1だったら、もう一回先頭からStartPosまで検索、
でいいんじゃないの。

>>402

結局、FindText() で最後まで検索したことを知りたいわけですね。
これは、最初に FoundAt が -1 になるときですから、

if FoundAt <> -1 then
begin
...........
end else
begin
ここに戻るコードを書く
end;

じゃないですかね？

>>403
>>404

やった！やったっすよ！
望むものが、できたっすよ！
本当にありがとうございます！

FindTextの見つからなかった時の戻り値って、-1なんですね。
まじ、勉強になりました〜

>>395
>>399
parsonal版にはmasks.pasはなさそうですね。
とりあえず作者に聞いてみて、駄目そうだったらあきらめます。

>>382
おっと！発見しました、xxxicon みたいなのを探してました、
見出？にもイメージが付けれるのですね！

なんとなくいい感じで出来たのですが、アイコン位置と文字の
間が余分に空いているように見えるのが少し難点ですねぇ。

何れにしろ解決しました、ありがとうございました。

Delフサギコさんありがとう！
MoveColumnがあるなんて気づかなかった・・・

publicにあるInsertColumnにアクセス出来ないのですが何故でしょうか？
別ユニットに書いたら「（TStringGrid）は未定義の識別子」って出る。

Form1の　implementation　セクションに書いたら大丈夫なんだけど他の手続きからコール出来ない・・・。

質問ばっかりですいません。

もしかして
var
　Form1: TForm1;
みたいに宣言しないと駄目とか？

Cursorプロパティ以外のカーソルを使用したい場合はどうすれば良いのでしょうか？

自分で作成したカーソルアイコンを読み込ませたいのですが。

>>411
FormのCreateにて

Screen.Cursors[99] := LoadCursorFromFile('カーソルファイル.cur');
Cursor := 99;

って事かな

CheckListBoxでチェックだけ付けたいのに、普通の
ListBoxのようにマウスで選択状態にできてしまいま
すよね、あれを、選択状態にしないでマウスのクリック
のみでチェックを付けたり外したりでないでしょうか？
又は、ListBoxがフォーカスを失ったら選択状態が
解除出来ても良いが・・・。

超初心者質問ですみません。
ボタンの色は変えられないのですか？
（アイコン等を使わずに）
フォントの色しか変えれないようなのですが･･･

>>412
それで読み込んだアイコンはどのコントロールでも使えるのでしょうか？

ボタンやEditなど。
ちょいと試してみます。

>>414
普通、そんな時はパネルでも継承してボタンコンポ作るんだよ

>>414
又は、フリーのコンポがゴロゴロしてるからそれを使う

>>409
状況がいまいちよくわからんが
1. TStrGridInsertの宣言（typeからendまで）をinterface部に移す
2. 別ユニットの方では、TStrGridInsertがあるユニットをusesする
というような話？

　　,,,,,,,,,,,,,∧,,∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　死後吐中はプロキシの都合上書き込めん
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
ので、返事遅くなってスマソ。

TStrGridInsertは
無理無理キャストして

　TStrGridInsert(StringGrid1).InsertColumn(○)

と使うのよ。
MoveColumnはStringGridに実装されているけど
privateだから、継承ｸﾗｽからしか見えない
そんなわけで、TStrGridInsertのコードからは
見えるけど、他からは使えんです。

もち、TStrGridInsertのインスタンスを作っったり
コンポーネントとして登録して利用してもいいけど
TStrGridInsertはメソッドしかないから
無理キャストしても何も問題ないっす。
(TStrGridInsertがﾒﾝﾊﾞ変数を持つと
　ﾁｮﾄやばいだろうね)

この変の仕組みが、DelMLでDeleteRowを検索でしる
と勉強になるよ。

Memoコントロールで箱型選択ってどうやるんですか？

　　　∧,,∧　　　／￣
＠,,,ミ,,ﾟДﾟ彡　＜　>>420無理。TEtitor使え
⊂,,,,,,,,,つつ.　　 ＼＿

array [0..260 +1] と array [0..Pred(260)] は別物なのでしょうか？

>422
(a) -1の間違い
(b) Succの間違い
どっちだ。

>>423
失礼しました、"(a) -1の間違い "です。

TEtitorってナニ？

http://www.inkando.com/cgi-rankingplus/rankin.cgi?id=0511030508

Delフサよ。
お前かわいいな(*´▽`*)

>424
だったら内容としては同じもの。
ただし、コンパイラから見ると両者は「同一の型」ではない（これは
字面が違うせいではなく、両方とも array[0..260-1] のように同じ
字面にしてもやっぱりダメ）。
Object Pascal 言語ガイドの中に「型の互換性と同一性」っていう
トピックがあるから、そこを見てみるといいよ。

http://www.google.co.jp/search?q=TEtitor&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

　　　　∧,,∧　　　／￣
　＠,,,ミ,ﾟДﾟ彡　＜　下らん事で揚げ足とるのが楽しい人間の気が知れん。
　⊂,,,,,,,,,づ,つ.　　 ＼＿ TEditorの間違いでした！ス・ミ・マ・セ・ン！！！

今日Delphi(Personal)使い始めました。
早速質問ですが、Imageで、実行時にサイズを大きくすると、
大きくした部分に線など描画ができないのですが、なぜですか?
(散々悩んだのちPaintBoxなるものをﾊｹｰﾝして代わりに使ってますが。)
ちなみに今はVBユーザーです。Delphiに乗り換えてもいいかも。

>>431
君はＶＢやってなさい。

DateTimePickerでTDateTime型の初期値としてnilを入れた
いのだが入りません。
ゼロを入れると当然のように日付として扱われるしどーすりゃ
いいの？

>>431
PaintBoxで駄目な理由がわかりません。
PaintBoxでいいじゃん、つーか、その為にPaintBoxあるんだけど。

>>433
TEdit使えばいいじゃん、つーか、その為にTEditあるんだけど。

>>435
それは、なんか違うと思いますが・・・。

俺に逆らうな！ハゲ！

　　ｶﾜﾘﾆ ｱﾔﾏｯﾃｸﾚﾙﾝﾀﾞ.......
　　　　　 ∧,,∧＿__　　　／￣￣￣￣￣
　　　 ／ミ*ﾟДﾟミ／＼＜　　ﾄﾘpｯﾌﾟが■ですよ、
　　／|￣∪∪￣|＼／ 　＼＿＿＿＿＿
　　　 |＿＿＿＿|／
　　　 　,,,,∪∪,,, ,,

　単語間違いはフォースで感じ取るのじゃ。

　>>431
こんなん？

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
　Image1.Canvas.Ellipse(Image1.ClientRect);
end;

procedure TForm1.FormResize(Sender: TObject);
var
　Bitmap1: TBitmap;
begin
　Image1.Picture := nil;
end;

ちょっと、リサイズすると画像消えちゃう。
画像はやっぱTBitmapあたりで
別メモリに持っておくべきか。

　　　　　 ∧,,∧＿__　　 ／￣￣￣￣￣
　　　 ／ミ,,ﾟДﾟミ／＼＜　　TDateTimePicker.Formatに
　　／|￣∪∪￣|＼／　＼ｽﾍﾟｰｽでも入れると
　　　 |＿＿＿＿|／ 　　表示は消えてるみたいだけど。

　　どうでしょ

>>438

> ﾄﾘpｯﾌﾟが■ですよ、
つーか、Delフザコギ

>>439 空白に見えますです！ありがとうございました！
でも、気をつけないと実際には変な日付が入ってるって
事ですよね。

>>439　やぱし駄目でした、表示は良いのですが
入力できなくなるんですね。トホホ
フリーのコンポ漁ってきます。

>433
OnUserInputなりOnKeyPressなりでFormatを書き換えてやると
一見うまくいきそうで結局うまくいかないような予感がするナリよ。
っつーか、そもそも何のために空白なんかにしたいのかと小一（略）

>>443
俺も日付の初期化で悩んだ事があったよ、例えば、ＤＢから日付を持って来る
場合に、ＤＢ上には必ずしも日付が入らなくても良い項目が沢山ある場合がある、
死亡年月日とか、退職日付とか。
何処かにフラグ持てば良いのだろうが、ＤＢ上での日付をNullで扱える物も多い
ので困るんだよなぁ。

>>433
日付がNullになるような場合DateTimePickerは使えないと思っていいよ、既にFree
コンポを探し当てたかな？

どうしてモナーが出てこないんですか？

　∧　∧ 　　　　　　　　／￣
（　´∀｀）（　　　　） 　< 体が切れてる体よ！
　　　　　　　　　　　　　 ＼＿

　　　　　 ∧,,∧＿__　　　／￣￣￣￣￣
　　　 ／ミ*ﾟДﾟミ／＼＜　　諸君等の愛してくれたモナ一は死んだ！
　　／|￣∪∪￣|＼／ 　＼　なぜだ！
　　　 |＿＿＿＿|／ 　　　　＼＿＿＿＿
　　　 　,,,,∪∪,,, ,,

次からフサコギの*やさしい*　Delphi質問スレになる

坊やだからさ

var A : TStringList ;
だとして

A := TStringList.Create ;

と書くべき所を、未だに

A.Create ;

と書いて、エラーを出して原因がわからず１時間悩んだ俺は見込みなしですか？

ちなみになんで下の書き方だとエラーになるのかわからん。
var節で型は明らかになってるはずなのに・・・

>>449
AはTStringListだ
何でTStringListを作る？
それはTStringListで作る

>何でTStringListを作る？
この１行がわからんよなぁ

>>449
自分で簡単なクラスを設計してみればわかるかも

解った・・・

確かにこの方が読解しやすいね。

・インスタンス.コンストラクタ
・型.コンストラクタ
の違いですか

procedure TForm1.Button1Click(Sender: TObject);
var
a, b: TStringList;

begin
a := TStringList.Create;
a.Add('XXX');
b := a.Create;
b.Add('YYY');
Button1.Caption := a.CommaText;
end;
を実行した場合のButton1.Captionの値は何でしょう？

>>449
var A : TStrings ; でも

A := TStringList.Create ; と出来るようにする為です

>>449
"A"はTStringList型の『変数』、型から作られた『インスタンス』（実体）を納める物。
"TStringList"は、TStringList『型』。文字通り『型』。違いが解るかな？
厳密に言うと、AはTStringList型のインスタンスへのポインタに過ぎない。

まあ、あんまり深く考えない方がいい。
『型』にしかインスタンスを作る機能がない物と覚えた方が早い。

　　　∧,,∧　 　　 ／フサコギなんだ．．．．
　　 ミ；ﾟДﾟ彡　 ＜　
　　 ﾐU　 U　　　　＼
　〜ﾐ　,,　ﾐ
　　 ∪ ∪　AAはモナー板からコピペしておこう！
　　　　　　　ｷﾞｺﾍﾟにはフサAAは少ないから....

DBのNullな日付型は困りモノですね。
Null許容可能なDate型を用意してくれりゃいいのに。。。

そういえば、D６から日付型が拡張されたんでしたよね…

質問です。
レコード型に型が不定のフィールドを定義したいのですが、その方法が分かりません。
例えば、
type
abc = record
aaa: integer;
bbb: string;
...
nnn: (型が不定); ←ここ
end;
var hoge: array of abc
値を保存するbyte配列を用意してそこに格納し、ポインタで参照することも考えましたが、
それだとbyte配列を固定長にしなければならないし、
データの追加･削除が自由にできません。
何かうまい方法はあるんでしょうか。

bbb: Pointerにして好きなデータぶら下げたら？

あるいはbbbのとり得る型が限られた数ならcase使うとか

>>459　そういう時の為のVariantだと思うのだが？

TEditorなんてコンポーネントないよ。
personalだけ？

>>460-462
ありがとうございます。
今試してみます。

>>460
具体的にはどうすればいいでしょうか。
無知ですみません。

>>462
>　そういう時の為のVariantだと思うのだが？
nnnにはレコード型も格納したいのですが･･･。
(ヘルプによるとできないようです。)
ほかに方法はありますか。

あと>>459の例は、
nnn:だけがbyte型になったり、string型になったり・・・ということです。
aaa、bbbは関係ありません。
誤解を招いてしまっていたらすみません。

>465
460ならNew/Dispose使え。
461の方がいいと思うが。

>>463
http://home1.infonia.ne.jp/~delphian/delphi/

>>467
ありがとう。ｼｪｱなんだね。
結局貧乏人には矩形選択を実装できないって事か。

はふぅ。

>>468
金がないなら技術を磨けYO！

>>468
自力で実装すると言う考えはないのですか？

>>469
>>421でdelフサが「無理」って言ってるから
不可能なんじゃないの？

>delフサが「無理」って言ってるから
>不可能なんじゃないの？
この瞬間delフサは神になりました。

以後誰もdelフサの発言に疑問を持ったり
逆らったりしてはいけません。

子プロセスを起動して標準入出力でやり取りできる
ターミナルっぽいメモ型コンポってない？

>>472
ネットでいくら検索しても出てこないし、
何をどうすれば矩形選択になるのかサッパロ。

色を反転させたイメージを貼り付けたりすればいいの？

（@´ー｀@）　どこにもないものならば〜　作りましょ〜♪

>>467
編集コントロールを自作
TStringsの内容をCanvasに描画するようなやつ

おい!!　delphiっていつから//形式のコメント通るようになったんですか？
ずっと使いづらいと思いつつ{}でくくってたんだけど、
昔から//でも良かった？

>>473
おれも欲すいので作って呉

.　　　　　　　♀　　（　3000円で貧乏人か…パソコンどうやって買ったんだ？
　　　　　　 ／＼　 （　　悩む時間でﾊﾞｲﾄ逝けよ…
.　　　　　　|∧ ∧ .。○ 　　あと、ﾀﾞｳｿすりゃTEditorｿｰｽ見え見えだって
　　＿＿_ ミ,,ﾟДﾟ彡＿＿_(　TMemo全部自作する気なら読むヨロシ
　　|　　　⊂　　　⊃　　　|　￣￣￣￣￣￣￣
　　￣￣￣ﾐ　　ﾐ￣￣￣　＿＿
'|. 　　　　　ﾐ　　ﾐ　　　　　|__†＿ﾚ　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'|. 　　　　　|.ＵＵ|　　　　　(ﾟДﾟ,,)　＜　迷える子羊よ、お訊きなさい・・
'|. 　　　　　|　　 | ∧ ∧⊂￣￣ﾊ　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
'|. 　　　　　|　　 |.(　　 ,)　| ╋　Ｊ
　　　　　|￣￣￣./⌒ヽ￣￣￣|
　　　　　|　　　　（ 　ノ ）　　　　|
　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
＿＿＿＿＿＿＿|＼＿＿＿＿＿＿＿＿

　貧乏人には短形選択を実装できないんかｺﾞﾙｧ

>>479
ありがと。
自宅帰ってからゆっくり調べる。

>>479
AAを書く時間でﾊﾞｲﾄ逝けよ・・・

(*
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ζ　　,
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　_ ノ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　 （　(　　　(.　）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　`
　　　　　　　　　　　　　　　　　　　　　　 　 　　　 . -／■＼ .
　　　　　　　　　　　　　　　　　　　　　　　　　　.´,.::;（´∀｀A）　`.
　　　　　　　　　　　　　　　　　　　　　　　　　　i ヾ<:;_ｰ-ｰｰ,.ン |
　　　　　　　　　　　　　　　　　　　　　　　　　　l　　　　 ￣...:;:彡|
　　　　　　　　 　 　 ／■＼　　　　　　　 　 　 }　　. . ...::::;:;;;;;彡{
　　　　　　　　　　　（ ´ )-｀）　　　　　　　　　　ｉ　　　. . ...:::;;;;;彡|
　　　　　　　　　　　,つ　 ⊆） 　 　 　　 　　　　} 　 . .....:::;::;:;;;;彡{
　　　　　　　　　 , :´　`"~.　 ｀､　　　　　　 　 　!,　　　 . .:.::;:;;;彡j:::::::::::::::.......
.　　　　　　 　 . '　　.　　　　;　.丶　　　　　　　　 ト ,　 . ..,:;:;:=:彳:::::::::::::::::::::::::::..
.　　　　　 　 ,:´　.　　　　'　　　 ' ｀､　　　　　　　 ヽ､..　....::::;;;ジ.::::::::::::::::::::::
　　　　　　 ,' 　 　. 簍�J鶸鑼 　;　`.　　　　　　　　　 ￣￣　　
　　 ,, -'''" . 　 .　　駲刪櫑躪　　. ' ';゛`'丶.､.......　　　　
.　 '´ 　 　 ! 　 　.　膚順棚斷.　'　,　;::::::::::::...`.::::::::....　
　i 　 　 　 ヽ､..._,.__魎鬱蹠撫.,,__,.,..ノ.::::::::: 　　!::::::::::::...
.　ヽ､ 　 　　　　　　　　　　　　　　　　　　　,: '.:::::::::　　
　　　 `=ｰ--､....,,,,,_＿＿＿＿_,,,,,... --‐=''´..::::::
　　　　　 ｀`" '' 'ー───‐―‐' ''' "´

　　　　　　　-モナーの *やさしい* Delphi質問スレ Ver3 -
*)

>>482 なんか見てると自分もﾏﾀｰﾘするな・・・

>>466 ありがとうございます。

　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧.,,∧　　 ／
　　ミ.,,ﾟДﾟ彡＜　TMemoで短形選択は非常に難しいと思われ
　　ﾐ つ目(ﾐ .　＼
〜ミ,,Ｏ,,,,,,つ 　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣

TMemoはOSのメモコントロールを利用しているから
メモコントロールには元々短形選択機能なんてのはついてないの
OSのどこかのDLL(?)で動作してるから
メモコントロールのｿｰｽなんかどこにもないの。
だから大幅な機能拡張なんて出来そうにもないのです。
　（超裏技を使ったら出来なくはないかもしれんが
　　　　　…聞いたこともないです)

そいうのが嫌で、Editor機能を全部
Delphiｿｰｽで書かれたものとして
TEditorとか他にもDelphianWorlsに登録してありますよね。

裏技的なやり方をすれば
背景透明化なんかはTMemoでもできたり
改行コードやEOF描画はTRichEditでも
なんとか出来たりしますが、
短形選択は聞いた事ないですし
ﾔﾊﾟｰﾘTEditorを使うのがよろしいと思います。

結構、多くのフリー/シェアエディタにも使われてるYO
TeraPadなんかもTEditorだよね。

3000円(だっけ？)で超優良なコンポーネントが手に入るので
すごく安い買い物だと思うよ。
書籍買うのとかよりもね。ｿｰｽつきだし勉強になるっしょ。
どんな書籍買ってもTEditor級のコンポーネントは
　簡単には作れないし。

ではでは。

>>455
XXX,YYY
かなぁ・・・・。
a.Create
では新しいインスタンスは作成されなかったと思う。

文字列が半角英数字かを判定するにはどうすればよいのでしょうか

if (aaaa=bbbbb) then
　begin
　　処理
　end;

と

if (aaaa=bbbbb) then
begin
　　処理
end;

とどっちが読みやすい？
あと、

end else begin

と

end
else begin

や

end
else
begin

って書き方もあるけど、どれが読みやすい？

>>486
if c in ['A'..'Z', 'a'..'z', '0'..'9'] then

>>487
http://community.borland.com/soapbox/techvoyage/article/1,1795,10280,00.html

>>486
StrToIntDef

>if c in ['A'..'Z', 'a'..'z', '0'..'9'] then
これは文字cが半角英数かどうかって事ね。
文字列全体ならループまわして判定。

ああ、アルファベットもってことか。

>>488
>>489
>>490
ホント厨な質問してしまってすいません。。
こんな漏れに答えてくださってありがとうございます。

>>490
それでいいのかなぁ〜。

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　なんでも判定するよろし。
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

type
　TStrInTable = (vitAllInclude, vitAllExclude);

function CheckStrInTable(const Str, Table: WideString;
InTable: TStrInTable): Boolean;
var
　ExistCondition: Boolean;
　i: Integer;
begin
　case InTable of
　　vitAllInclude: ExistCondition := True;
　　vitAllExclude: ExistCondition := False;
　else
　　raise Exception.Create('InTableの不正指定');
　end;

　Result := True;
　for i:=1 to Length(Str) do
　begin
　　if (AnsiPos(Str[i], Table)=0)=ExistCondition then
　　begin
　　　Result := False;
　　　Break;
　　end;
　end;
end;

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　こんなんして使います。
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
const zenHiraTbl: String =　
　　'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほ'+
　　'まみむめもやゆよらりるれろわゐゑをんがぎぐげござじずぜぞだぢづでど'+
　　'ばびぶべぼぱぴぷぺぽぁぃぅぇぉゃゅょゎっー';
const zenKataTbl: String =　
　　'アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホ'+
　　'マミムメモヤユヨラリルレロワンヲガギグゲゴザジズゼゾダヂヅデド'+
　　'バビブベボパピプペポァィゥェォャュョヮッー';
const hanKanaTbl: String =　
　　'ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝｧｨｩｪｫｬｭｮｯﾟｰ･､｡｢｣';
const zenNumberTbl: String =　
　　'１２３４５６７８９０';
const hanNumberTbl: String =　
　　'1234567890';
const zenAlphaTbl: String =　
　　'ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ'+
　　'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ';
const hanAlphaTbl: String =　
　　'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
const zenMarkTbl: String =　
　　'−．＆％＄＃＊＠？／，＜＞（）｛｝｜；：〜＋｀！�V＝_＾・';
const hanMarkTbl: String =　
　　'!"#$%&''()*+,-./:;<=>?@[\]^_`{|}~';
const zenSpaceTbl: String = '　';　
const hanSpaceTbl: String = ' ';　

procedure TForm1.Button1Click(Sender: TObject);
begin
　if CheckStrInTable(Edit1.Text, hanNumberTbl, vitAllInclude) then
　　Form1.Caption := 'すべて半角数字で構成されています'
　else
　　Form1.Caption := '半角数字以外の文字が入っています'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　if CheckStrInTable(Edit1.Text, hanNumberTbl + zenNumberTbl, vitAllExclude) then
　　Form1.Caption := '一文字も数字は含まれていません'
　else
　　Form1.Caption := '数字が含まれています'
end;

begin;

この文は妥当か？

コンパイルは出来た。

　　　　　 　 　　　　∫　　　 ＿＿＿＿＿＿＿＿＿
　　　∧,,∧ 　　 　∬　　 ／
　　 ミ,,ﾟДﾟ彡っ━~　　＜　このスレは低レベルですな。
＿と~,,　　~,,,ﾉ_. 　∀　　　＼
　　　 ﾐ,,,,/~), │　┷┳━ 　￣￣￣￣￣￣￣￣￣
￣￣￣ .じ'Ｊ￣￣|　┃
￣￣￣￣

>>493
全角文字を含む文字列の中の文字の場合，
ByteType関数などを使ってチェックしないといけないです．

例：文字列sの中の半角英数すべてを"#"に痴漢．
for i := 1 to Length(s) do
if (s[i] in ['A'..'Z', 'a'..'z', '0'..'9']) and (ByteType(s, i) = mbSingleByte) then
s[i] := '#';

>>499
毎回ByteType呼ぶと重い。
1バイト文字のときに限り、ならこんな感じかね。

isSecondByte := false;
for i := 1 to Length(s) do
begin
　if isSecondByte then
　　isSecondByte := false
　else
　if s[i] in LeadBytes then
　　isSecondByte := true
　else
　if s[i] in ['A'..'Z', 'a'..'z', '0'..'9'] then
　　s[i] := '#';
end;

重さを無視すれば WideStringに代入して回したほうがコードはシンプルになるね。

for->whileにして中でiいじったら？

500->>500だった

変な質問ですいません。
画面があったとします。
その画面の左上から雪みたいなのがフワフワ降ってくるのを作ろうとしてるのですがうまくいきません。
直線にビューーーー！って飛んでいくんです。

どうしたら良いでしょうか？
sinとかつかわないとダメですかね？

もっと問題を具体的に逝ってくれないと。
どうしたら良いでしょうか？って言われても。
どういう実装を考えていて、どの部分のやり方がわからないのか、ということ。
さっぱり見当もつかないならあきらめてください。

ふわふわの動きを一定にして、順番に配列にでも入れてみては？
振り子運動をしながら落ちていくだけでもふわふわしそうですが・・・

TShapeコントロールで、
クリックとドラッグがそれぞれ出来るようにしたいのですが、
OnMouseUp にクリックイベント内容を書き、
OnMouseDown に BeginDrag(False,4) とすると、
マウスボタンを押した瞬間に OnMouseUp が発生してしまいます。

どうすれば上手く行くでしょうか。

ay = 9.8
ax = 0.0

while True do
begin
　ax := ax + Random(10)-5;
　x := x + ax;
　y := y + ay;
end;

Teditorを入れたら「DsgnIntfが存在しません」と怒られました。
ファイルを検索してもそんなファイル無いのですが、Del6では
使えないの？

softiceとか使わなくても、Delp6で他人のソフトを解析・クラックすることが
出来ますか？

>>508

無理。del5をダウンロードせい。
つーかdel6は不安定なんで素人にも玄人にもオススメできない

>508
なぜここで聞くのか？
そもそもDel6用なんてどこにも書いてなかっただろ。

> なぜここで聞くのか？

突っ込まれる前にいっておくと
作者のHomePageがあるだろ。つーこと。

ttp://member.nifty.ne.jp/~katsuhiko/

DELモナーさ〜ん！

>>513
　 ＿＿＿＿_　　　　　　　　＿＿＿＿＿＿
／＼ 　 Λ＿Λ　　　　　／
＼　 ＼（；´Д｀）＼　　＜　　　ハーイ？
　|＼／|￣￣￣￣|＼　　＼＿＿＿＿＿＿
　＼.　 | DELﾓﾅ . |
　　 ＼.|.＿＿＿＿|

a〜Zまでのアルファベットをランダムにだすようにはどうすればよいですか？

1. 0..25の乱数を生成
2. 1.の数値をa..zのアルファベットに変換

0〜51までの乱数を生成するとか？

s := 'ABC';
c := s[Random(Length(s))+1];

>>503
適当な横軸足しながら、sinで揺らせば？
複数のsinを足すとそれっぽい。

Delフサギコさ〜ん！

クリップボードに貼り付けしたりするにはどうるすんですか？

http://www.google.com/search?q=%82%C2%81%5B%82%A9%82%B3%82%9F%8D%C5%92%E1%8C%C0%83%7D%83i%81%5B%82%C6%82%B5%82%C4%8C%9F%8D%F5%82%AE%82%E7%82%A2%82%B5%82%C4%82%AD%82%EA%82%C8%82%A2%82%A9%82%C8%82%9F&btnG=Google+%8C%9F%8D%F5&hl=ja

>>521
ClipBoard.Assign;

PDFヘルプのクイックスタートの4-6に書いてあることをやろうと思うのですが、
コンポーネントパレットの［Additional］ページにあるという
ActionManager が見当たりません…。

何か特別なことをしないといけないんでしょうか？

オネガイ >>506 オシエテ…

>>524
面白くない。

>>524　
>>1にあるこのスレの過去ログを調べなさい


http://paming.s7.xrea.com/ykwk166_kai/yukiwiki.cgi?mycmd=read&mypage=%5B%5BD6%83%60%83%85%81%5B%83g%83%8A%83A%83%8B%82%CC%93%C7%82%DD%91%D6%82%A6%5D%5D

>>526
？
>>527
すみません、よく読んでませんでした。
逝ってきます

アクソンジャーマネが無いのネ♥ってのは正直、見飽きた。

見飽きたというかなぜBorlandがそれに対処しないのか謎だよ。

>>530
確かに。

>>530
めんどくさいだけだろ。

ある文字列から、該当文字列を検索して
Hitしたらその文字が何番目か返す関数ってあります？

例えば'TestWord@@@'って文字列から、'Word'って文字を探して
上の例なら5を返すような関数。

pos

>>534
ありがとう。
今までずっとstrPos使ってﾋｨﾋｨ言ってたの。

>>535
(´ー｀)y-~~~　ちったぁHelp読めや・・・

質問です。
メインフォームで、あるボタンを押すと別フォームが現れるとします。
ボタンを押したときにその別フォームがすでに起動してたら、
新たに起動せずに、すでに起動してるのをアクティブにする、
ってことをしたいんですが、やり方わかりません。ぜひ教えていただきたい。

>>477
TurboPascalあたりからじゃねえ？

>>485
その通り。
だもんでこんな風に初期化を共通化するのに使うのもありだな

constructor THoge.Create;
beign
　:
end;

constructor THoge.CreateFromFile(const s: string);
beign
　:
　Create;
end;

StringGridで縦に文字を抜き取る方法って無いですか？

ああああああああ
いいいいいいいい
ううううううううううう
ええええええええ
おおおおおおおお

ってあったら

あいうえおあいうえおって読んで行きたいんです。

あ、これってfor文でyに変数持たせて回すだけか・・・。

>>537
むしろform2.showで何がうまくいかないのかわからん

>>541
その別フォームってのはTOKBottomDlgでして、
OK押したらそのフォームの設定を保存するようにしてまして、
そんでshowmodalでやってるんです。
でもこのフォーム、ホットキーでも呼べるようになってまして、
そうすると二重起動できちゃうんです。これを阻止したいのです。
showだと、OK押したら保存、キャンセルなら保存しないっていうのは
どうやるんでしょうか？初歩的な質問で申し訳ないっす・・・

あ、showで設定保存するのは簡単でしたな・・・
メモリ開放はcaFree使えばよいのかしら？
それは置いといて、やっぱり二重起動防止がわかりません・・・うぐっ

フォーム表示時にHotKey設定を消せば？
閉じたら再設定すけば？

ヘルプのように、editに文字を入れたらリストの選択行を
設定したいのですが、Pos関数の戻り値が全て0になってしまいます。
何がいけないのでしょうか？

eはTedit、llはTlistboxです。


var ret,i:integer;
begin
for i:=0 to ll.Count -1 do
begin
if pos(UpperCase(ll.Items.Strings[i]), UpperCase( e.Text))<>0 then
begin
ll.ItemIndex :=i;
exit;
end;
end;
end;

>>545
Posの引数が逆なんじゃないの？

　∧　∧
（　´∀｀）＜ >>545 pos の引数は pos(検索文字列, 検索対象文字列) モナ。

>>539 わざわざ for 使わなくても、
s := StringGrid.Cols[0].Text; でいいんだナ。

>>546,547

ありがとうございます！
何とお礼を言っていいのやら

>>544
できました。的確なご指摘ありがとうございますm(_ _)m

Delモナが久々に登場した！

>>477
たしかDelphi 2.0からと記憶しています．
初代はできなかったと記憶しています．
また今，旧開発機でDelphi 2.0を起動して『//』が使えるのを確認しました．

ActionListのカテゴリってどうやって増やすのですか？
'検索'を追加したいのですが、カテゴリの追加の仕方がわからずに
困っています。

MDIでエディタを作っています。
メニューを親フォームに作成し、子フォームの
Memoコントロールをクリアする処理を作成したところ、
linesメソッドが未定義だと言われてしまいました。

MDI環境で子フォームのコントロールを制御したい場合は、
どのように指定したらいいのでしょうか？

procedure TMainForm.FileClearExecute(Sender: TObject);
var
ActiveEditer:Twincontrol;

begin

ActiveEditer:=ActiveMDIChild.ActiveControl;
ActiveEditer.Lines.Clear;　　　　←ココ でエラー
end;

>>552
直接Category書き換えるだけ

>>554
「標準アクションの追加」で何とかうまくいきました。
ありがとうございます

>>553
ActiveEditorつーのは、TWinControlなわけでしょ。
TWincontrolには、Linesプロパティがないからエラーが出るのはあたりまえ。
じゃ、どうするのかといえば、
ActiveEditor := ActiveMDIChild.ActiveControl;
if ActiveEditor is TMemo then
TMemo(ActiveEditor).Lines.Clear;
で出来る。

>>556
できました。
なんとお礼を言ってよいのやら。
とにかくありがとうございました。

それで、他にもTmemoを参照する場面が多々あったので、

>TMemo(ActiveEditor).

これの値をTMemo型に格納して処理させましたが、
このとき参照の解放作業のようなものは必要なのでしょうか？
それともスコープを抜けた時点で自動的に解放されるのでしょうか。

クラスはポインタ。

>>551
レスさんくす。
今でも2.0って、現役なんだなー
ま、フツーのアプリの開発なら、全然困んなそうだけど。

集合型は便利だ。すごく便利だ。しかし、涙を飲んで定数にする場合がある。
なぜなら、集合型はファイルに保存したりするときに、数値や文字列に
変換するのが面倒だからだ。そこで、汎用型変換ルーチンを作った。
役だてていただきたい。

type TYPE = (...)
type TYPES = set of TYPE;　
↑と宣言している集合型と整数の相互変換ルーチン

{ 集合型を整数に変換..64要素まで対応 }
function TYPES2Int(S:TYPES):Int64
var
　I:TYPE;
begin
　if Ord(High(TYPE)) >= 64 then
　　raise Exception.Create('要素数が多すぎる');
　for I := Low(TYPE) to High(TYPE) do
　　if I in S then
　　　Inc( Result, 1 shl Ord(I) );
end;

{ 整数を集合型に変換..64要素まで対応 }
function Int2TYPES(S:Int64):TYPES;
var
　I:Integer;
begin
　if Ord(High(TYPE)) >= 64 then
　　raise Exception.Create('要素数が多すぎる');
　for I := Low(TYPE) to High(TYPE) do
　　if S and (1 shl Ord(I)) <> 0 then
　　　Include( Result, I );
end;

>>560
集合型の実体は 256 bit / 32 byte のデータでしかないから, byte[0..31] に
強制キャストしてしまえば終わり。

>>561
そうか。

>>561
喜び勇んでコピペした俺の立場わ

フリーにするくらいなんだから、もーーーーーーー少し、ヘルプを「いい感じ」にするのと、
詳細なリファレンスを作ってくれたなら、もっと売り上げに貢献…するような
気がするようなしないような。
あくまで希望っちゅーか、展望っちゅーか、未来予想図っちゅーか…。
ま、感謝してますが＞ボーランドさん

個人的には過去のバージョンの最下位エディションも公開して欲しい…。

>>564
>もー(略)ー少し、ヘルプを「いい感じ」にするのと、 詳細なリファレンスを
胴衣。

それにしても、ちゃんとしたアプリケーションが作れるソフトでフリーとは
もう感謝です。だれでもアプリケーションが作れる環境が手に入るって
いうのは画期的ですね。みんなプログラミングしましょう。
(Professionalは高いですが･･･)

そーいや、なんで名前がコロコロ（？）変わったりしたの？

>>538
お礼。
TObject(nil) is TComponent はTrueかFalseか？

>>567
　何の名前のことだか不明なのだが……

　社名であれば、Borland というのは「開発ツール（言語）メーカー」という
イメージが非常に強く、Enterprise 分野に進出するにあたってそのイメー
ジを払拭するために、Inprise という名称に変えた、というところ。
　実際このとき、Borland の名前は開発ツール群の名称として残していた
（Inprise の Borland Delphi とか……）。

　が、結局 Borland のネームバリューのほうが強かったので、元に戻した、
そういうわけだが。

店頭に余った製品を回収しなければならないが、
その費用の損失で株が下がると困るから社名を変えて回収した、
というのが本当の理由と聞いたが。

>>570
RAD ツール関連は Borland ブランドで出し続けた事実一つで、その妄想は否定される。

Delphiでiniファイルを作ったり読み込んだりするのは何を使うのが一番良いですか？
VBでは簡単に出来たと思うのですが。

画面を常に前面に表示させたくてAPIで指定しようとしたのですが、
「定数が範囲を超えました」と言われてしまいました。

SetWindowPos(form1.Handle, -1, 0, 0, 0, 0, 68);

どうも第2引数が原因らしいのですが、-1を指定しないと
前面に固定表示されないので困っています。

Delphiでは何を送ればいいのですか？

>>572
> Delphiでiniファイルを作ったり読み込んだりするのは何を使うのが一番良いですか？
> VBでは簡単に出来たと思うのですが。

ぼくはBuilder使いだけど、TIniFileっての、ない？

>>573
「定数が範囲を超えました」 は　たぶん -1をHWND(-1)と書けばいいと思うけど
そこは　,HWND_TOPMOST　と定義済みの定数があるよ

でも、常に前面に表示したいなら、
http://www.borland.co.jp/qanda/delphi/d0000128.html

>571
違うよ。RADツール以外を回収だよ。

>>574
Tinifileでいけました。

最初動かなかったんですけどusesにinifilesを追加したら無事iniファイルの読み書きが出来ました。

IniFile: TIniFile;

って言う宣言も必要でした。
勝手にセクションやファイルを生成してくれるので便利。

TIniFileよりTMenIniFileの方が良くないですか？

TMenIniFile 無いんですけど・・・どこかのフリーのコンポですか？

Delphi6proで”使用許諾未完了”って出てるんですけどちゃんと登録しないとなんか有るんですか？
買った物なので別に登録しても良いのですが。
そもそもBorlandで買ったので登録された状態で出荷れてたはず・・・。

急に使えなくなったりとか？

>>576
だから、エンタープライズ系に突入したのは Inprise に名前を変えてからだろ？
VisiGenic や OpenEnvironment の製品は、どちらにしろ名前を変えなきゃいけないわけだし。
おもしろい妄想だけど、時系列的にあわない。後知恵的発想。

Editにて編集前の値をプロパティに持たせたいと考えて
OldTextプロパティを追加して、EnterイベントとCreate時に
Old:=Text のようにプログラムした。
一見してこれで正しく使えているのだが、問題があった。

それは、

xxxxx.text:='代入';

のようにプログラムにて値を代入すると EnterとCreateでは
上手く編集前の値が保存できないのです。
Changeイベントを使うと、一見できそうだったのですが、
どーやら、同じ値が入った場合にはイベントが発生しない
みたいで、失敗しました。
なんとか、単純に値が代入された事をしるすべはありませんか？

>>582
そんな時はkeypressを使うのだYO!

>>583
すみません、よく解らないのですが、キーボードからの入力
じゃないのでkeypressは使えないでしょ？
なにか、擬似的にkeypressを発生させるような事が出来る
のでしょうか？詳しくお願い致します。m（。。）m

>>584
俺の勘違いだったYO!

>>580
製品のユーザー登録と、個々のインストールイメージのアクティベーションは別。
Windows XP もそうでしょ？

使用許諾をとらなくても特に問題はないはず。

>>579
578のtypoか。TMemIniFileだな。
TIniFileは制限が多いのでTMemIniFileがよいかと。

>581
違う。Delphi/400とか、AppCenterとかイパーイ出てた。
時系列的にあってた。

>>582
たぶんCustomEditのソース眺めてTextが無いから
そんなこと言ってんだろっ！な！そーだよなっ！
もう少し上のクラスを見てみろ、TControlとかね。

だから、570 の「本当の理由」ってやつの
>店頭に余った製品を回収しなければならないが、
>その費用の損失で株が下がると困るから社名を変えて回収した、
「店頭」で売るようなものじゃなかったんだってばYO.

Delphi/400 は Delphi のまま売り続けたし、もともとフランスの物。
アメリカでは大して売れていなかった。

AppCenter なんか、それこそ店先で買うものでなかろ？

店頭から回収すると被害が起きる、ってのはショップで売ってる RAD ツールに
のみ当てはまることで、そいつらの名前が変わらなかったことをどう説明すんだ。

誰からそんな説明を受けたんだい？

TEditって↓キー押すと右に行くじゃないですか。
それをなくしたいのでKeyDownでkey:=0;ってやったのに
キャンセルされないのですが、どうやると
keyDownを無効にできますか

>590
記憶ではZDNN。

>>591

EditのKeydownでできますが？
　if (Key=VK_DOWN) then Key:=0;

>>589
ありがとうございます。おっしゃる通りでした。

application.messageboxで表示したメッセージを
一定時間したら自動で閉じるようにしたいがどーするよ。

>595
実態はメッセージボックスコールなんだから無理だろ。
そこにWindowsメッセージをPostするなんて、
汚いことはしない方が時間の無駄をしないと思う。

つまり、自前でメッセージフォームを作った方が良いってことだね。

>597
そうです。
Windowsのメッセージをイジリだすと、VCLの処理とブツかって、把握が大変。
へたすると、そんな大した処理じゃないのに、Case文のネスト。

>>598
もう出来ました。
まぁ作ってもすぐ出来るんだからこっちの方が楽でした。

あとは、今までのメッセージを全て変更する必要がある
が、IDEのエディタにプロジェクト内の全ユニットを串刺
しして変更する方法が無いのが寂しいですね。

>>593
あ、すみません。↑↓キーはできたのですが、
スペースキーがアウトみたいです。
何故文字の時はダメなのでしょうか

case key of
vk_up :
begin
ll.ItemIndex :=ll.ItemIndex +1;
key:=0;
end;
vk_down:
begin
ll.ItemIndex :=ll.ItemIndex +1;
key:=0;
end;
vk_space:
begin
e.Text := ll.Items.Strings[ll.ItemIndex];
key:=0;
Sender:=nil;
end;

end;

>>600
俺はオマエのデバッガーじゃねーぞ。

case key of
vk_space:
begin
edit1.Text := 'あああ';
key:=0;
end;
end;

これも問題ないようだが？

>>600
そんなことより、

vk_up:
　begin
　　ll.ItemIndex :=ll.ItemIndex +1;
　　　　　　　　　　　　　　　　　　~~~
アップで+1はおかしくないか？

>599
>あとは、今までのメッセージを全て変更する必要がある

・メッセージ画面出力関数を用意しといて、
　１箇所で処理が変わるようになっといた方が良かったのでは？
・もしこのメッセージがエラーメッセージなら、
　Application.OnExceptionイベントハンドラ1ヶ所にしといて、
　エラーをトラップしなければ良いのではないでしょうか？
　エラーメッセージを出力したいときは、Exception.Createすれば良いし

>>601-602
重ね重ねありがとうございます。

どうもkeydownでkeyを殺しても、
keypressにスペースが飛んでくるようなので、
そっちに#0を入れて対処しました。

スレ違いかも知れませんが教えてほしいことがあります。
「オフコン」とはなんですか？
具体的に分かりやすく教えてください。

605 はマルチポストなので放置よろしく。

　　　　　　∧∧　　ミ 　＿　ドスッ
　　　　 (　 　,,)┌─┴┴─┐
　　　　/　　　　つ　糸冬 了│
　　〜′　　/´　 └─┬┬─┘
　　　∪ ∪　　　　 　││　_ε３
　　　　　　　　　　　 ゛゛'゛'゛

>>606
ここか。
ttp://pc.2ch.net/test/read.cgi/tech/1014478527/l50

>>608
さらになぜか DirectX 相談室にも。
単なるコピペ荒らしという可能性もあるが。
http://pc.2ch.net/test/read.cgi/tech/991795568/866

初心者厨房はココで質問でしたか・・・・すいません
>>609の場所でも一応質問してたんですが・・・・
さっき
スパロボA DLしたんですけども・・・・・
対応アプリが無くて起動できないんですが・・・・・
どういうアプリなんでしょうか・・・・・
すいません。ホント知らないんです。
僕はアプリ無しでDLした真性の馬鹿です。

Spinコントロールで質問です。
スピンコントロールで数値が入力された際に４の倍数以外は無効にしたいのですが、どうしたらいいのでしょうか？

4、8、12、16、20、24　etc・・・・

今はKeyDownが起こったら即座にValueを元の数字に戻すようにしてます。
出来ればカーソルの↑↓や数値入力からも入力したいので。

>>610
googleの検索ぐらい覚えてくれよ
ホレ検索結果だ
http://www.google.co.jp/search?hl=ja&q=%82%A8%91O%82%C1%82%C4%96%7B%93%96%82%C9%94n%8E%AD%82%BE%82%CB&lr=lang_ja

TMemIniFileはDelphi4で追加されたクラスです．

TIniFileはWindows 9x/NTにあるiniファイルを処理する機能を使って制御しています．
TMemIniFileはこれを使わずに普通のファイルのように読み書きしています．

>>612
「お前って本当に馬鹿だねに該当するページが見つかりませんでした。」
あらかじめお知らせします。
関係ない人がクリックするとなんだかいやな気持ちになるな。

>>611
その Spin コントロールで、Edit 領域に 3 とか入れた場合の、期待する動作を
教えてくれ。

>>615
3とか４の倍数以外が入ったら無理矢理4とかに書き直しちゃうのが一番簡単な回避方法だと。

今はどんなキー入力でも強制的に４になるようにしてます。

質問です。
だいぶ前にインプレスのサイトでDelphiとC++の速度比較を行ってた記事があったんですが見つかりません。
誰か知ってる方教えて下さい。

http://homepage2.nifty.com/Fujimaki/download/Comparison/

こんなんあったけど…

KeyDownで3が入ったとき4にしちゃうと
32とか36はどうするの？>611

>>619
ああ・・どうしよう

MAXValueは24だからいいけど

>>610
氏ね

遅レスすいません
一応それ乏しきサイトは見つけたのですが・・・・
gbaemu.www7.wnj11.jp/
どれをDLしたか解らないんです。
どうか教えてください。
>>ALL
すいませんでした。

>>611
かならずしもキーボードから数値を入力する必要がないなら
EditorEnabled = Falseが一番楽かと。

過去に罵倒されてる人がいるところを見ると
他スレとさほど変わらないんじゃ・・・・・

>>620
　それなら KeyDown じゃなくて、OnExit で処理すれば？
　入力が確定するのは OnExit でフォーカスが失われるときなんだから。

　俺なら OnExit で値が 4の倍数かどうか調べて、違ったらエラーメッセー
ジ出してフォーカス戻すけどな。

って、spin コントロールって言っているけど、TUpDown コンポーネントのことだよね？
もしかして俺勘違いしてる？

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




あきらかに嘘だろう。
元に1は不在だ。

って、TSpinEdit か……でも OnExit で処理するって方法は使えるな。

鬱だ帰ろう……

あのね、フォントのサイズとか指定するでしょ、
それで文字数からピクセル数で幅とか自動設定したいのですが
どーやって計算すればいいの？
MS P ゴシックとかだと計算で求められない？それとも、最大の
幅とかで求められるかなあ・・・。

＞最大の幅とかで求められるかなあ・・・。
ドンピシャです。

>>629
質問には関係ないけど、「〜でしょ」はぜひやめて欲しい。
「指定するでしょ」「指定しません」って思ってしまう。
まあ捉え方は人それぞれだけど。

TCanvas.TextExtentで求められます。

GetTextExtentExPoint
でドンですよ、奥さん。

Autosize=trueのラベルに字を入れてその幅で…これは邪道か。

>>629
　∧　∧　　　|TCanvas.TextExtent
（　´∀｀）＜ TCanvas.TextWidth
（　　　　） ｜TCanvas.TextHeight モナ

　 ＿＿＿＿＿＿＿＿＿＿
　｜目指せ USO800 認証｜
　 ￣￣￣￣￣￣￣￣￣￣
　　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　（　・∀・）＜ おー、ワシの Word が �d�j ぞ！
　　（　部長） 　＼ ワー、ドーしよう ... なんちゃったりして♪
　　｜ ｜　| 　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　（_＿）＿）


―――――――――――――――――――
　（無視）
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　 ∨
　　　 ∧ ∧　 　∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　( 　　；)　 （# 　 　.）＜ 　（無視）
　　　/PG| 　　 （ 平SE ）　＼
　＼(＿_.ﾉ　 　 ｜ ｜　| 　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　（_＿）＿）

まずはここを読もう！

http://www.2ch.net/guide/faq.html#B0

>>627
じゃあ次スレはこんな感じで

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

ちょっときいてよ！！！！
驚いた。

FormatDateTime で、形式文字列を 'yy/mm/dd hh:mm.ss'に指定したとしよう。いままで、月は m で、分も m だと、無意識のうちに思っていた。
ナンの疑いも無く、 yy/mm/dd hh:mm.ss としていたわけだ。
ヘルプによると、分は n なので、本当は
yy/mm/dd hh:nn.ss としなければならない。

ところがなんと！
ちゃんと月と分で分けて表示されている…
なんて親切なんだろう！

みんなも試してみよう。

>>638
ヘルプに書いてあるじゃん｡
＞h 指定子または hh 指定子の直後に mm 指定子を指定すると，月ではなく分が表示される

まずはここを読もう！

http://www.2ch.net/guide/faq.html#B0
と
Delphiのヘルプ

>>635
なつかしいねそれ。

　　　　
　　∧　　　　　|/| 　　　∧
　　　　　　/　丶　　　　|/|　　 /:::::丶
　　　　　 /　　　、＿＿|/|＿ ,　:::::::::ヽ　　　　
　　　　／　　　　　　 　|/|　::::::::::::::::::::::＼
　　　 |　　　　　　　　　|/|　:::::::::::::::::::::::　|　　ヽ丶
　　　|　　　　　　　　＿|/|＿＿::::::::::::::::::　|　　|　|
　　　 |　　　　　　／＿＿＿＿ ＼:::::::::　|　　/　/
　　　　ヽ　　　／／　　　　::::::::＼.＼:　/
　　　　　丶／／　　 　　　:::::::::::::::＼＼
　　　　/　 ￣|　　　　　 　:::::::::::::::::::|:￣::ヽ　　　　ぷらーん
　　　　　　　 |　　　　　　　::::::::::::::::::|::::::::::::
//　 ｜　　　|　　　　　　　::::::::::::::::::|:::::::::::|　　　　　　　　ぷらーん
| |　 ｜　　　|　　　　　　　::::::::::::::::::|::::::::::::|
ヽヽ ｜　　　|　　　　　　　::::::::::::::::::|::::::::::::|
　 　 ｜　　　|　　　　　　　::::::::::::::::::|:::::::::::|
　　　|　　　　|　　　　　　　::::::::::::::::::|:::::::::::|
　　　ヽ　　　/　　　　　 |:::::::::::::::::::::ヽ:::::::/
　　　　 ￣　 |　　　　　 |::::::::::::::::::::::::|￣　　　ヽヽ
　　　　　　　｜　　　　　|:::::::::::::::::::::::::|　　　　　| |
　　　　　　　 |　　　　　 |:::::::::::::::::::::::::|　　　　 / /
　　　　　　　 |　　　　　 |:::::::::::::::::::::::::|
　　　　　　　 |　　　　　 |::::::::::::::::::::::::|
　　　　　　　 |　　　　　 |::::::::::::::::::::::::|
　　　　　　　 |　　　　　 |:::::::::::::::::::::::|
　　　　　　　 ヽ＿_＿_丿ヽ::::::::::::::::::/
　　　　　　　　　　;;;;;;;;;;;;;;;;;;;￣￣￣
　　　　　　;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
　　　;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

>>630-634
ありがと、能力がひくいので色々調べてたりしたら
すごーく時間がかかりましたけど、なんとなくできたわ。

Delphiのソースエディタを外部エディタに変更してしまうような
ツールとかありませんか？

今日のエラー

モジュール'ntdll.dll'のアドレス77fca1f9でアドレス006e0059に対する書き込み違反が起きました
モジュ−ル'rtl60.bpl'のアドレス40005883でアドレス00000022に対する書き込み違反が起きました
モジュール'ntdll.dll'のアドレス77fca30cでアドレス03534385に対する書き込み違反が起きました
０番目のタブの参照に失敗しました
メモリストリームの拡大中にメモリが足りなくなりました

>645
要するに
「どういうエラーかさっぱりわからんぞｺﾞﾙｧ！」
ってことでよろしいですか？

>>644　うーん　それをして何になるの？
必要なら他のエディタで同じファイルを開けばいいんじゃないの？
エディタ間でフォーカスが移動したら、　「再読込しますか？」　って設定にすればいいだけじゃん

教えて下さい。
Delphiで出来てC++ビルダーで出来ないことって有りますか？
あったらどんどん列挙していって下さい。

今自分が作ってるソフト（仕事）がDelphi製なんですが、親分がビルダーに移植しろと言うのです。
移植が無理な理由を見つけ出して反論出来たらと思ってます。

>>.648
残念ながら BCB++で出来ない事は 殆どありません。
なぜならBCB++にはパスカルコンパイラが付属するからです。

唯一の例外はObject型のアンサポートです。
また、コンパイル実行時間が遅いくらいでしょうか

>>648
Delphiのフリーコンポーネントを使いまくってるから移植するのは困難です！
って言えば？

>>650
できるんでは？って断るためのネタか。

正直ObjectPascalメインでC++もコンパイルできるDelphi出してほすぃ。

C++ -> Delphi　のトランスレータ単独で売ってくれたら 1万円で買うな

正直メンドクサイんだよなあ

>>648
その親分は、賢くないね。
どーせ賢くないなら、性能的にはDelphiの方が高性能ですが？
とかって言ってみたら？コロっと騙されるかもよ。（ｗ
つーか、処理によってはDelphiの方が速かったりすると思う
が気のせいか？（俺がCに慣れてないだけか）

>>645
D6が来た頃はよく出てたけど、UPDATE#1あててから
rtl60関連のエラー出なくなったが、おれだけ？

>>654
＞つーか、処理によってはDelphiの方が速かったりすると思う
どっかのアマチュアベンチ測定ではDelphiの方が上だったような。

少なくともBorlandはDelphiに本腰入れてるのは間違いない。

移植は
でも簡単だよ　.DPR だけ C++に移植して 他のフォームはそのままDelphiのを使えばいいんだから

>>657
C++ビルダーでpasファイルそのまま読めるんですか？

>>658　そう　編集機能は殆ど無いけどね。
　pasはもちろんフォームファイルも　読めるし見えるしコンパイルしてリンク出来るよ。
　だからDelphiのフォームをそのまま使うならとても簡単。
　一部修正するなら、フォームを継承して変更すればいい

>>659
　修正作業がたくさん入るとワケワカになる罠

Listにclassを追加していって
classからListの情報を得ることはできるのですか？

今は下記のようにListが指定してるclassをclassに書き込んでるのですが、
子が親を参照できれば、いちいち親の情報を子に渡す必要が無いので、
いろいろ出来て助かるのですが・・・

func( class )
begin
edit.text := class.count;
end;

class := Tclass.create;
class.func := func;
class.count := List.count;
List.add(class);
class.func( class );

逆に今の現状ではDelphiをC++に移植しても何のメリットも無いことを上司に伝えてみては？

移植作業で無駄な人件費がかかるだけ。

１日１万円として５日で５万円。
Delphi6pro買えちゃうぞ。

>>661
クラスに　リストの プロパティを追加して、クラス作成時にリストを参照させればいいだけでは？
コンポーネントなら必ずParentプロパティをリストにする約束にしてもいいし

DelphiでVBのMeに相当するものってありますか？
C++で言うthisみたいなのです。

>>664
Self

>>663
ありがとうございます。　そのとおりですね。
何でこんな単純なことに気が付かないんだろう・・・　

ObjectPascalでできてC++でできないこと…。

・クラス参照型とそれにまつわるクラスメソッドの多態
・使い方によっては便利なimplements
・コンパイル時にチェックしてくれる部分範囲型
・finally (VC++/C++Builderなら拡張構文であるけど)
・文字列定数に#0を含めること、また、長さの取得がフィールドで持ってるので高速
・initialization/finalizationの順番がusesの依存関係に従って行われ安全
・ルーチンがネストできる
・Variantが言語サポート(あまり嬉しくない)
・safecall

・直接関係ないがDelphiのPascal埋めこみインラインアセンブラは
　Pascalで宣言した変数や型を持ち込めて便利
・コンパイル速度が爆速

逆にC++でできてObjectPascalでできないこと…

・使い方しだいでは譲れないメリットとなるtemplate(とSTL
・変数が途中でも宣言できる。for(int I = ...なんてのは便利
・デストラクタが自動で呼ばれる
・多重継承
・インライン関数

・直接関係ないが万一Borlandが潰れても救いがある(クラスライブラリは交換になるけど
・C++Builderにはメモリー系のバグを調べるツールが付いているらしい

…ぐらいですかね。他にもあれば/間違いがあれば、突っ込んでください

補足…

ObjectPascal側

・メソッドとオブジェクトをひとまとめにしたポインタ (C++Builderには拡張構文として存在
・threadvar (意外に便利なんだ…
・オープン配列パラメータ/Slice
・プロパティ (C++Builderには拡張構文として存在
・スーパークラスとサブクラスの間でoverloadできる

・Delphiの方がSysUtilsを使わない時は*.exeサイズが小さい

C++側

・メンバ関数へのポインタ
・#define (なんだかんだであれば便利に使うし…
・Obj.SuperClass::Methodのようにいつでも任意の上位クラスのメソッドが呼べる

・コンパイラの最適化が賢い (Delphiは爆速と引き換えに最適化が甘い気がする
・(悔しいことに)世の中に多々ある各種SDKをそのまま使える唯一の言語

…まあ、大まかに見て殆ど同じだからこそ同じVCLを両方で扱えるわけで。

私は648ではないけど、
>>667-668はすごく参考になった。
for中で変数を宣言できるとは目からうろこ。初めて知った。

FastnetのSMTPコントロール使ってんだけどさ、
メールの件名とかに2バイト文字使うときは
==?=iso-2002-jp=kjheiu......
みたいなエンコードつかうじゃん。
これに変換してくれるライブラリあったら教えて！
IKEDA氏のjconvert.pasだと、なんかメーラに
依ってはうまくいかないんです。
ネスケはOKだけどOutlookや、Yahooメールで表示させた時に
ＮＧ。

>>670
こんなんでよければどうぞ。1年以上ほったらかしですが。
http://www.mars.dti.ne.jp/~b-guild/mailnews.html

String(AnsiString)を多用する場合、Builderだと不利な気がする。

C++だと、静的にAnsiStringを確保出来ないので
VCLのCaptionやTextにconstな文字列を設定するだけでも
コンストラクタやデストラクタが呼ばれる。
また、デストラクタがあるオブジェクトをスタックに確保すると
例外処理ルーチンが作られるけど、暗黙のAnsiStringも当然同じ。
引数にconst AnsiStringを取る変換関数などにconstなAnsiStringを渡す時も。
Form1.Caption := 'あ'; と Form1->Caption = "あ"; の差は大きい。

このへんが肥大化と速度低下の原因になっていると思う。
それに、AnsiStringのoperator[]が効率悪かったような(BCB4の場合)。
この点はstd::string使えば良いんだけど、VCLに直接渡せないし。

VCLとの親和性ではDelphiのほうが上田と思う。

昔べたなVCLでDB(Paradox)操作するアプリを完全におなじ実装で
(数千行のテーブルをLocateで検索するやつ)
BCBとDelで作ったが、Delのほうがかなり速かった。

まあ一例ということで。

コードの書き方とか、処理によって差が出ることはあるだろうけど、
トータル的にはどうなんだろうね？
漏れはDelphiもBCBもVCも大差ないと思ってる。
JavaとVBはやっぱり遅いと思うけどね。

出来上がるものは(ほぼ)一緒なんだろうけど
マーケ的にもDel > BCBなんだろーな。

漏れはBCBからDelに移行した派なんだが
BCBと比べると、やなところは「Object Pascalが気に食わない」っていうくらい。
逆にBCBは「C++だから」っていう部分にしかアドバンテージがないような・・・

便乗質問しますが、C++Builderには
initialization/finalization/implements/threadvarに対応する拡張構文ありますか？
(実はC++Builderはver.1の頃の試用版をいじったことぐらいしかありません)

ObjectPascalはよく知らないのだけど、
initialization/finalizationは、staticなオブジェクトの
コンストラクタ/デストラクタで代用かな。
threadvarってのは__threadのことだと思う。
implementsってOLEのproperty関係？
だとしたら、直接Base::get_xxx,Base::set_xxxかも。

って、よく知らないなら口を挟まなければいいのに＞俺

燃える男の〜あ〜か〜い〜コンストラクタ〜♪

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　で、このスレは何をしたい訳？
＼＿　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　｜ ／
　 　 ∨
日　▽　�U　［］　�V
≡≡≡≡≡≡≡　 ∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　�V　∩　［］ ∨目 （ﾟωﾟ；）　 ＜ 　イヤ、酒飲んで愚痴ってくれればと・・・
＿_ ∧∧＿_＿_＿＿|つ∽_＿.　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　（　　,,）日
― / 　 つ―――――――
＼(＿_.ﾉ
　━┳━ 　 ━┳━

飲み屋にいるような感じで、マタ〜リしましょう

ちまたのＴＩＰＳにある「wininetのオンラインかどうか調べる」ってヤツ、
ワシの素晴らしい環境（win95）だと全然調べられないんだけど、
win95だとダメで、それ以上だったら使えるってことなのかな？
nternetGetConnectedStateってヤツ。どなたか教えてくだされ。

あるPanelの上に乗っけてあるコンポーネントを全てをEnabled:=False;したくて

procedure CompoFalse(PanelName:String);

　 for idx:=0 to Screen.ActiveControl.ComponentCount -1 do
　 begin
　 　 if (Screen.ActiveControl.Components[idx].Owner.Name = PanelName) then
　 　 TWinControl(Screen.ActiveControl.Components[idx]).Enabled:=False;
　 end;
end;

こんな感じでやると、Owner.Nameの部分でフォーム名しか取り出せない、
このパネルの上に乗ってる！ってのは何処で知れば良いのでしょうか？
Parent.Name使えば出来るかな？と思ったけど、Components[nn]じゃ
駄目みたいなんでよくわかりませんでした。

>>681
IE3 を入れれば動くんでない？
もしかしたら、IE4 かもしれないけど。
Win95 デフォルトにはその関数が含まれる DLL は存在しないよ。

>>682
Form1 上にあるコンポーネントの Owner はすべて Form1 だよ

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Comp:TComponent;
begin
for i := 0 to ComponentCount-1 do begin
Comp := Components[i];
if (Comp is TControl) then
if (Comp as TControl).Parent = Panel1 then
(Comp as TControl).Enabled := false;
end;
end;

>>682
俺ならば、
パネルの上に貼ってあるなら、そのパネルのEnabledをFalseにするけど。
そんなんじゃ駄目？

>>678回答サンクスです。
長文ごめんなさい。
implementsは、委譲を一括して行えます。(委任というらしい)

type
　IObserver = interface //interfaceは全メソッドが virtual = 0なクラス
　　procedure Notify;
　end;
　
　IObservable = interface
　　procedure AddObserver(const A: IObserver);
　　procedure RemoveObserver(const A: IObserver);
　end;

で、IObservableのメソッドを実装したクラスTObservableImplがあるとします。
TWinControlから派生してなおかつIObservableを実装したい時、

type
　TMyControl = class(TWinControl, IObservable)
　　FObservable: IObservable;
　　property AsObservable: IObservable read FObservable implements IObservable;
　end;

ってな具合に実装を全て他のオブジェクトに押しつけることができます。
要はvirtual継承無しで、全てがTObjectからの派生というルールを守ったまま、多重継承する仕掛けですが、
実行時にFObservableの示す先を取り替えるなんて真似もできます。

最大のメリットとしては、委譲用メソッドをいちいち書く手間を省けることです。
( 恐らく直接関数ポインタで呼ばれるのでしょうから委譲用メソッドかますより効率いいかも？←これは未調査 )

書き漏らし。FObservableにはTObservableImplをCreateして代入します。

で、この機能はC#にも無いみたいなので、
きっとC++Builderなら対応する拡張構文があるのでは？と思った次第。

>>684
有難うございました、出来ました。
今更なのですが、Enabledを変更した場合はcolorを自前で変更
しないと変わらないのですね、今まで知りませんでした。（汗）

>>685
それでも良いのですが、実際にはPanelの上に乗っている物で
も例外的にEnabledを変更したくない物もあったりするので、
あのような事を試みておりました。
（例えば、Panelの上に乗っているPanelの中身はEnabledを変更
しないとか）

>>686
割り込み失礼。
implementsの利用法が未だによくわからない者です。
これが無い場合のつまりいちいち「委譲用メソッドをいちいち書く」場合の例を
教えてくらはい。

>>671
サンクスです。
作成者の方ですか？
私は、VCから呼び出せるSMTP用のDLLを、課題代わりに
作成しています。
要望が多ければ、私も公開しようと考えてます。

質問です。

C++などで作ったDLLをDelphiで使う事って出来るでしょうか？
友人とプログラムを作ることになったのですが、自分がDelphiで友人がC++（VC）何です。

>>691 C++の方で型保証名を避けて 貰えば Delphiから使う事が出来ますよ

具体的には C++側で extern "C"{ の中でexportしてもらうといいでしょう

Delphiで作った物をビルダーに組み込んだ方が早くない？
ってVCなのか。

Cのソースを BCC55でコンパイルして　obj を 直接Delphiにリンクって出来なかったっけ？

>>686 先の例で言えば、implementsを使わなければこーなります。

type
　TMyControl = class(TWinControl, IObservable)
　　FObservable: IObservable;
　　procedure AddObserver(const A: IObserver);
　　procedure RemoveObserver(const A: IObserver);
　end;

procedure TMyControl.AddObserver(const A: IObserver);
begin
　FObservable.AddObserver(A)
end;
procedure TMyControl.RemoveObserver(const A: IObserver);
begin
　FObservable.RemoveObserver(A)
end;

インターフェースを使わなければ、TMyControl.AsObservableのようなプロパティを公開して、
「使う側の箇所で XXX . AsObservable と書いて使ってもらう」ことになると思いますが、
インターフェースを使いだすと、何でもかんでも機能はasで問い合わせればいいようになるので、
覚えることが減りますし、多態もやりやすくなります。
で、その時implementsが無ければ、このような横流しだけのメソッドを大量に書く羽目になり、数が増えてくると面倒である、というわけ。
はじめから多重継承できればこんなまどろっこしい事しなくていいんですが、
先に述べた様に全てをTObjectから継承するモデルと多重継承は噛み合いませんし、委任先を後で交換できるメリットも。

…以上わたくしの理解なんですが、絶対の自信があるわけでもなく、いい機会なので突っ込みを入れてもらう事にしましょう(^_^

不躾な質問すいません。
VBとDelphiってどっちが早いんでしょうか？

686じゃない、689さんへだ、間違えてごめんなさい

>>696
VB.NET >= Delphi >>> VB6以前 かな？(VB.NETはランタイムがロード時にMSの最適化技術でもって最適化するので

KeyPress時にTabを取りたいのですが、（メモコントロール）
文字コード取得関数てかは無いのでしょうか？

>>698　へえ VB.NET ってそんなにコンパイル早いの？

>>698
処理の速さ、コンパイルの早さを含めてもDelphiより早いとは思えないけど

Delphiより早いVB.NETはC++より早いって事になっちゃうんだけど・・・。

>>696
コンパイル速度なら Delphiの方が体感出来る程早い　VBのインタプリタ実行で走り始めるより速い
熟練者がアプリを作る速度は　同じ程度　　ただし熟練者の技量に依存
初心者が慣れるまでの早さは VBが最初の１歩は有利　２歩目からは同等　３歩目は逆転かな

作られたアプリの速度なら、どのコンパイラ型ツールを使っても体感出来る程の差は無い。
ただし、ヘタな作り方をすればどっちも遅くなる。

いくら.NETと言えどもDelphiより速いって事は無いぞ

>>703 インターネット周りは VB.NETが早く作れるかも

procedure TMDIChild.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
showmessage(ascii(key));
end;

end.

>>694
面白そうだと思い、実験したところCではできました。C側でDelphiの関数をプロトタイプ宣言して呼ぶこともできました。
ただし、何故かC++ではできません。extern "C"しても、__stdcallや__pascalや__fastcall付けても駄目です。
何故だろう。

>>701 >>703 Delphiの最適化は甘いので、最適化の度合で負けます。
VC++の吐いた機械語見てると、Delphiのそれと雲泥の差ですもん。
勿論.NETといえどもC++よりは速くなりませんし、
Delphiでも意識したコードを書いたりインラインアセンブラを駆使したりすると追いつき追い越せるので
その意味で「>=」を使いました。

>>707
最適化＝速さじゃ無いって事は分かってるよね？

相談室の方でも丁度今　速いコード論やってるけど
配列のコードをポインタに書き換えても速くならなかった例があるように

アセンブラコードを見て　短かったり、速そうに思えても、実際、そんな速度差
は出ない。　なにせ、メモリ１回読み書きしてる間に数百命令実行出来るんだから

>>706 TDUMP 使って .obj を見てみよう　どんな名前になってる？

>>698
VB.NETがDelphiより速いわけねーだろ。
ここでも読んでなさいってこった。
http://homepage2.nifty.com/Fujimaki/download/Comparison/

以前実験した時はVB.NETの方がほんの僅かに速かったことがあったのですが
気になったので改めて試したところ、整数ではDelphiが、実数ではVB.NETが速い結果が出ました。

VB.NETで配列を逆順にソートするテスト。Delphiでも同じアルゴリズムで試してみてください。
その後型をDouble→Integerにしてもう一度。
Option Explicit On: Option Strict On: Imports System
Class VBNET
　Const Count As Integer = 1024 * 16
　Public Shared Sub Main(Args() As String)
　　Dim Start As DateTime = DateTime.Now
　　Dim A(Count - 1) As Double: Dim T As Double: Dim I, J As Integer
　　For I = 0 To Count - 1: A(I) = I: Next
　　For I = 0 To Count - 2: For J = I + 1 To Count - 1
　　　If A(I) < A(J) Then T = A(I): A(I) = A(J): A(J) = T: End If
　　Next: Next
　　Dim Period As DateTime = DateTime.Now
　　Dim Time As TimeSpan = DateTime.op_Subtraction(Period, Start)
　　Console.WriteLine("{0}", Time.TotalSeconds)
　End Sub
End Class

>>712 ソートなんて処理は　メモリへの入出力が壁になるから
　　　　２割３割の差は全く意味がない

　　単にキャッシュや、データ境界の偶然の差と思った方がいいぞ

>>667さっきから必死じゃない？

>>712
Delphiは実数型を何にするかによって実行速度がかなり変わるよ

Del5の場合は Double>Extended>>Real だったけど
Del6になると Real>Double>Extended になった（と思う）

>>712
所詮インタープリタの派生言語なんだって・・・

>>710
TDUMPした結果、関数が、CではPUBDEF、C++ではCOMDEFになってます。名前は一緒です。
何故CとC++でこんな違いが？
ということはDelphiの$L指令はPUBDEFしかリンクできないのでしょうか？

DelphiはデフォルトではDoubleもExtendedの精度で計算するらしいから、そのせいもあるかも。
とにかく今までのVBの遅さはDispatch呼び出しによるところが大きかった筈だから、VB.NETでは速くなってんじゃない？

文字コード定数一覧下さい

>DelphiはデフォルトではDoubleもExtendedの精度で計算するらしいから
勘違い。スマソ。

文字コード定数一覧下さい。
戦闘ニ文字でいいから

>>717
　よく判らないけど出来ないのかも・・できたとしても、 .OBJ は独立していなければならないから
C++だとスタートアップ無しには難しいんじゃないの？　素直に DLLにした方がいいかも

>>721　何のこと？

>>723
Keypressイベントの時にchar型の引数でKeyが飛んでくるじゃないですか、
あれでTab文字とかを検出したいのだけれども、定数が見当たらないんです。

>>724

http://www.st.rim.or.jp/~phinloda/proto1.html
こういう表か？

しかし、単にそこでブレークポイントで止めて　コード見ればいいんじゃないか？

>>719
>>720
Pro版以上なら「ルークよソースを使え！」だけど・・・
Delphヘルプのキーワード「仮想キーコード」じゃ不足かな〜

>>725
あ、多分アスキーコードとかそんなんだと思います。

F5で止めて見ても' 　 '←こんなのが入ってきてるので、
できれば文字コードで比較したいんです。

おっと、漏れはこのスレの21じゃなかった

×＞>720
○>>721　失礼

>>726
VK_TABとかですよね？
あれだとKeyDownイベント時のKeyコードが帰ってきちゃうような
気がしました。
さっきキャストして比較しようと思ったけどうまくいかないし、、

>>730
KeyPressはそのキーの表す文字しか返さないから
KeyDownを使うしかないのでは？

なるほど、TABはうまくいかないわけね

それなら、対象となるコントロールの
procedure WndProc(var Message: TMessage);
をオーバーライドしてメッセージを処理するんじゃないかなぁ

tips1 文字コードは #付けた数字で表現出来る HTabなら #$09　と書ける
tips2 ord(変数名) とすれば文字コードが判る

>>733
それです！
ありがとうございました。

>>731-732
色々とありがとうございました。
winprocのオーバライドはやった事がないので、
いい機会なので勉強してみようと思います。
ありがとうございました。

Delphiのデバイスコンテキスト（HDC）ってどのプロパティ？

そんなの無え

>>736
冷たいねぇ。さっきさ、VBでこんなコード拾ってきたのよ。↓

Case 1 '波形表示−縦
'10 * Sin((Temp * 5 + Jotai) * 3.1415926535 / 180)の部分について、
'10は振幅、10は波長に関係します（10は大きくするほど激しくなる)
'また、下のJotai=Jotai+5もいじってみましょう
For TempS = 0 To 49 Step 0.3
Call BitBlt(DestDC, width2, Height + TempS + 10 * Sin((TempS * 10 + Jotai) * 3.1415926535 / 180), width, 1, SrcDC, 0, TempS, SrcCopy)
Next
Jotai = Jotai + 5
Case 2 '滝型表示
'伸びない部分の描画
Call BitBlt(DestDC, width2, Height + (49 - Jotai), width, Jotai + 1, SrcDC, 0, 49 - Jotai, SrcCopy)
'伸びる部分の描画
Call StretchBlt(DestDC, width2, 0, width, 100 - Jotai, SrcDC, 0, Height - Jotai, width, 1, SrcCopy)
Jotai = Jotai + 1
If Jotai >= Height Then NowBlting = -1

んで、BitBltとStretchBltを使いたいのだけれども、HDCがﾜｶﾗﾝと
焼き直しのやりようが無い訳でして、ハイ。
コレってHandleでもいいのかなぁ

>735
それだけじゃ「整数ってどのプロパティ？」と聞かれてるのと同じで答えようがない。
まあ、当てずっぽうだが TControl.Canvas あたりから調べてみ。

描画したいのならTCanvasのHandleがHDCだよ

>>738-739
サンクス。
焼き直し終わったらココにあげてもいい？
迷惑なら辞めるけど。

>>683
当方、ＩＥ５．５入れてるんですが…。ダメなんですかね？
うーむ…。レスありがとうございました。
他に「オンラインかどうか」を調べる方法無いもんかなー…。
検索したけど、うまくヒットしない…。

>>695
なるヘソリンコ。サンクソ。

気になったので起き出してきちまった…
丁度暇だったし、自分で試しもせず名前で判断する奴が多そうだったからコードまで提示したのに。
処理によってはVB.NETというか.NETが速い場合もある。これは事実。
挙げられた名前がVB.NETじゃなくC#ならどうだったのだろう(同じ速度)。

わたくしも普段VB馬鹿にしててショックを受けてる人間なんですから…。

>>722 面白そうと思って実験してただけなんで、できないならできないで問題ないです。

>>743
俺も試してみようと思うけど、VB.NETってのは何処からダウンロード
すりゃいいんだい？
MSのサイト探してんだけど何処にもアップされてないなぁ。

すいません。
Del3には「オブジェクトブラウザ」なる便利なツールがあったと思うのですが
Del6personalには付属してないのですか？

>>745
オブジェクトツリーならあるけどな

日記ソフトを作ってみています。年月日はそれぞれComboBox
に表示し、文はMemoに入れます。保存する形式を以下のよう
にしようと思っています。(区切りは " から変更の可能性あ
り)

"年/月/日"
"文章
.
.
"

と、このように文が複数行になる場合に、読込の範囲を指定
するにはどのような方法を使うのがいいんでしょうか？


今のところ、"年/月/日"　"文***文***文"　というふうに、
改行文字を***に置換して一日分を一行になるようにした後
ソート・保存し、その日のデータを読み込む時には***を改
行文字に置き換えて読込という方法でごまかしています。

>>747
文中に***という文字を入力したい場合はどうしますか？

TStringList.CommaText をつかえば、
複数行の文字列←→１行の文字列
の相互変換が出来るナ。

>>747
　そういう場合は　エンコード・デコードするといいよ
　たとえば \n を改行に \\ を \　ひとつ　という約束にするとか

自分で作るのが嫌ならメーラとかの文字コード変換を探して %エンコードを使えばいい

>>747
テキストファイルルーチンでガーと読みながら目的の日付を探していくってのは駄目なの？

どうせプログラムを組むならdelphiよりも、汎用性の
あるcで組むべきだと考えるがなぜ皆さんはdelphi
で組むのですか？delphiで組んだプログラムを他の
osに移植するのは難しいと聞きましたが。

>>752
最初からDelphiの使えない環境にも移植したいと思ってれば別の両方で使える言語使うでしょ。
つまり、移植なんて考えてないってこと。
それにたとえCでも移植考えずに作ればやっぱり移植は大変だよ。

そして、普通のアプリ開発者は、必要に迫られたことがある人以外(つまりかなり多くの割合)
移植なんて考えない。

>>752
どうせCだってOSごとに必要なライブラリはぜんぜん違うだろ。
# 標準ライブラリ関数は別として。
UNIXやMACにだってPascalコンパイラはあるから
UIが絡まなければ汎用性に大差はないはずだ。

>>752
最近友人にメールで似たような事を言われたけど、それはDelphi(Pascal)が好きか
C/C++が好きかってだけの問題な気がするけど？
俺だけの事かもしれんが、俺にとってプログラムを組みやすいと感じるのがPascal
だったってだけで、プログラムを組む前から移植云々だけを気にしていては、
プログラムなんて組めないだろ。Winで言えば取り合えずAPIは避けた作りにして
とかって考えないよな普通。
それに、多くの人がC/C++じゃないと駄目な時はC/C++使って組んでると思うけど？
それじゃ駄目なの？

>>752
やっぱり Windows アプリを開発する時にかかるコストが、
C と Delphi とでは比較にならないからねぇ

>>752
汎用性のある C では ある程度の規模のWindowsアプリを作るのは実際無理です
C++ではライブラリ移植性に悩まされるでしょう

それに pascal<->C の相互変換は難しくはありませんよ

>>752
どうせ言葉を喋るなら日本語よりも、汎用性の
ある英語で組むべきだと考えるがなぜ皆さんは日本語
で喋りますか？　日本語で喋った言葉を他の
言語に移植するのは難しいと聞きましたが。

いいかげん毎回いちいち>>752みたいなのに反応しまくるのはヤメレ。

まぁ C が汎用性のある言語、ってところからして間違いだし。
道具は問題を解決するためにあるのであって、それ自体を使うための物ではないし。

>>758
それおもしろい！

752みたのがCを汎用性のある言語にしてきたわけです。
実際にCが汎用性あるかどうかなど問題ではありません。

不思議なんだがDQNに限って変な心配するんだよな、どうせdelphiでもcでも
プログラムなんて組めないんじゃないの？

>>763
vb

>>764
汎用性云々を言うならVBなんて使えないだろ。

>>765
なにやら活気付いておりますなあ、
私が思うに、将来携帯電話にもWindows（･NET）が搭載されて、V-アプリとか出てくる
と思います、そしたらVBは十分汎用性のある言語ですな！
delphiも・NETに対応するらしいから、それはそれで汎用的かと。

言語の将来性なんか心配無用だね

いろんな言語を使っていれば、新しい言語にもすぐ対応できるようになるよ

>>752
Delphiが汎用性無いなんて初めて聞いた。

DELPHIに比較して
だいたいＶＢはもともとは遊びで作られたｂａｓｉｃが基となっているため
システマティクにできていないし、信頼性も低い、上位互換もあまり考慮
されていない。
こんな言語で企業のシステムを作成しているところ多いみたいだが
これはシステムのことがぜんぜん知らない素人がソフト会社に開発言語に
注文をつけていることが原因。
ＶＢでシステム作ったら、原因不明でトラブルやバージョンアップの
とき難儀するなど業務システムを開発する言語としては欠点だらけ

>>769
まあそれと生産性だね。
会社って言うのは人件費を月計算でするから開発が少しでも遅れたらダメ。
だから同じ物が出来るならVBで十分と。

それにデータ管理とかはVBでも十分だし。

ただDelphiが上層部に浸透してしまうとVBの立場危ういね。
家の会社は今そうでVBを廃止してDelphiに切り替えた。
理由はそれだけじゃ無いんだけどね。　kylixが一番の理由かな。

質問です

ラインを雨のように降らせたいのですがどうしたら良いんでしょうか？

真っ直ぐ下に降らせる、斜めに降らせるなどがやりたいのですが。

>>769に追加して言うと
ＶＢの命令とかＶＣのクラスを見るとマイクロソフトて
システムを開発するときに全体を俯瞰して統合してもの作りすることが
できない会社と思える。
delphiなんかにくらべてクラスの作り方が必要に応じて思いつきで作られている
ように見える。
ｏｓでも９８と２０００、ｘｐでは同じ設定が異なっている。
例えばレジストリの中身をみるとｉｐアドレスなんか９８では普通の数字だが、２０００などでは
アスキーコードになっている。
なんか９８と２０００はばらばらで開発していたみたい。
こんな会社の作る開発言語なんか使うのものすごく苦労すると思う。

>>772
ＶＢの開発者にはハッカーが居たらしいが・・・。
今は居ないけど。

かなり前にＺＤNetに載ってたよ。

>>769
上がMS謹製の開発ツールでないと使わせてくれないという理由も付け足しといて。
素人が注文うんぬんって意味では顧客だろうが上司だろうが一緒だけどね。

今帰ってきました。

>>748　はい、その可能性を考えて、複数行のデータはその
まま保存したいのです。

>>750　すみません、初心者なのでよくわかってません。制
御文字・通常の文字間の置き換えは使わないということで
しょうか。

>>751　それはできそうなのですが、次の日付(毎日書くとは
限らない)の前の行までを切り取ってくる方法と、新たにデ
ータが加わった際の挿入(数日前の分を書いた場合とか)で悩
んでます。

日付、文を括る記号を変えておいて、目的の日付を見つけた
直後から、文の終わりにある括り記号を再度検索し、その行
までをReadlnで読み込む、でしょうか？

ちょっと確認したいことがあるのですが。

メインフォームの OnShow で、アプリケーションで利用する
１００個近くのプロパティを読みこむのは、なにかアレな気がするのです
タイミングが問題なのではなく、フォームのイベントに何百行もかくのが
アレだと思うのです。

Form にいろんな処理内容を大量に書くのは効率が悪く、美しくないと思うのですが、ふつーはどうするのでしょう。
アプリケーションを管理する MyApp（例）などというクラスを作っておき、
フォームの各イベント内容は MyApp のメソッドを呼び出すだけにしておく
といった形でしょうか。

それはそれで疑問が。

アプリケーションで利用するフォームは MyApp が持っていること
になると思うのだけど、各フォームのuses にも MyApp を持ってこないと逝けないから、相互参照になっちゃいません？

MyApp のプロパティとして各フォームにアクセスし、
フォームのプロパティとしてMyAppにアクセスすると。

>>747
ちょっと、よく分からないのですが、なぜ、改行文字だけ特別扱いにする必要が
あるのでしょうか？ ファイルに保存する時に、改行コードを特別扱いする理由
が分かりません。改行は、たんに表示する時に解釈されるための制御コードで
あって、一行か複数行かは、 string 型の変数に保持する時には、なんの意
味もありません。改行コードを複数含んでいても、ひとつの string 型の変数に
保持できます。

>>776
>フォームのイベントに何百行もかくのがアレだと思うのです。

別になんの問題もありません。
わけのわからない MyApp などというクラス（なんでクラスなのか？）
をつくるより、よっぽどましです。

>>778

そのほうが、UIを変える羽目になっても
変更が楽になるかと思って。

>>776=778

そういうことなら、「何百行」のコードを、機能を切り分けて、複数の
メソッドにしてしまえばよいと思うのですが。

Delphi本体はこんな感じで処理してますね。↓

unit MyFormUnit;
interface
type TMyForm = class end;
var MyForm: TMyForm
implementation
uses MyAppUnit;

unit MyAppUnit;
interface
type TMyApp = class end;
var MyApp: TMyApp;
implementation
uses MyFormUnit;

まあ778にも同意だけどね。