モナーの *やさしい* Delphi質問スレ Ver.9
レス数が1000を超えています。これ以上書き込みはできません。
0001Delモナー
NGNG（ ´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
（ ） .| Delモナーは時に私であり、時には別の人。
｜ ｜ ｜ | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
（＿_）＿） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
前スレ モナーの *やさしい* Delphi質問スレ Ver.8
http://pc3.2ch.net/test/read.cgi/tech/1027873869/
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNG２ゲットォォォ！
by Delphi 超初心者(^^;ゞ
0004デフォルトの名無しさん
NGNG( ´,_ゝ`)ﾌﾟｯ
00053
NGNG0006デフォルトの名無しさん
NGNG0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNGhttp://www. ; ( ,,)┌─┴┴─┐
http://www. ; / つ 終 了 │
http://www. ; ～′ /´ └─┬┬─┘
http://www. ; ∪ ∪ ││ _ε３
http://www. ; ゛゛'゛'゛
0009デフォルトの名無しさん
NGNG俺は
モナー 初心者向け、罵倒なし
相談室 中級以上向け、罵倒あり
フサギコ Delphiとその周囲の「談話」 罵倒・荒らし多数
という使い分けをしてる
0010デフォルトの名無しさん
NGNGこれは信じられない
0011デフォルトの名無しさん
NGNG0013デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNGモナーに聞けってことだな
0015デフォルトの名無しさん
NGNGテクニカルな話題なんて誰もできない罠。
ここもMLもネット上で自分で何か作ろうって気のある奴は誰もいない罠。
0016デフォルトの名無しさん
NGNGそんな感じになりかけてるし。
0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG談話室に移動するのがよいのでは？
0019デフォルトの名無しさん
NGNGForm をダブルクリックしたとき OnClick イベントハンドラが呼ばれないよう
にしたいのですが、どうしたらいいんでしょうか？
0020デフォルトの名無しさん
NGNG１、イベントハンドラの先頭でスグに抜けるようにする
２、OnClick=nilにする
0021ななしへたぐらま ◆XcB18Bks.Y
NGNG多次元配列の場合は最後の次元の上限しか変えられないのでしょうか？
0022デフォルトの名無しさん
NGNGありがとう。
でも、それだとシングルクリックのときに、こんどは OnClick イベントで
処理ができない
0023デフォルトの名無しさん
NGNGOnTimerイベントハンドラで取得した時刻が変わってなければ
シングルクリック、変わってればダブルクリック。
だけでは不正確なんだけどね。
0024デフォルトの名無しさん
NGNGよく理解できません。すみません。
Timer1.Interval := 100;
だとして、OnTimer イベントハンドラでは必ず
時刻 > 取得時刻＋100ms
になるんでは？
0025デフォルトの名無しさん
NGNG0026デルファイの名無しさん
NGNGダブルクリックした時は、OnClickの処理をすっ飛ばしたいという事ですか？
OnClickでGetDoubleClickTime API 時間だけタイマーでも仕掛けて、ダブルクリック時間経過後に
ダブルクリックされていなければクリックの処理をする…というのがひとつの方法。
何れにしろ、シングルクリックの時点では、ユーザーが続けてクリックするかどうかわからないので、
判断を遅らせる必要があると思います。
0027デフォルトの名無しさん
NGNGそうですね。ダブルクリックの途中で呼ばれたのか、それとも本当の
シングルクリックで呼ばれたのか、OnClick イベントハンドラのなかで
判断できない
ということですか。
そうなると、23 さんの提案のように、タイマをつかって、ちょっと
処理のタイミングがずれるけど、OnDblClick で旗立てて、OnTimer
でそれをみて、旗がたってたら OnDblClick でしたい処理、
旗がたってなかったら OnClick の処理、という判断する、
のが現実的かなぁ
0028デフォルトの名無しさん
NGNG>>26 さん、かぶった、ゴメン
0029デフォルトの名無しさん
NGNG> …というのがひとつの方法。
あとは、どのような方法が？
0030デフォルトの名無しさん
NGNGその間にダブルクリックされたらOnClickを抜ける。
0031デフォルトの名無しさん
NGNG0032デフォルトの名無しさん
NGNGキー操作をフックすればいいじゃん。
0033デフォルトの名無しさん
NGNG「Alt + D」が押されたらノードを削除したりするにはどうすればよいですか？
0034デフォルトの名無しさん
NGNG糞ユーザインタフェース作るな。
0035困ってます
NGNGスクロールさせずに一行追加させるのに何か良い方法はありませんか？
0036Delフサギコ ◆A6VzDeLphI
NGNGヽﾐ・ω・ノ ﾌｫｯﾌｫｯﾌｫｯ
. .ﾐ,,,,,,, ﾐ
ノ ゝ
画面の描画を止めて、スクロール位置を覚えさせて
Ｌｉｎｅｓ.ADDして
スクロール位置を戻して、画面の描画を再開
ってのが、いいのでは？
0037困ってます
NGNGなんとなくできました。
ありがとうござ！
0038デフォルトの名無しさん
NGNGボタンのClickイベントの中で
1 TClientSocketをOpenする
2 10秒間以内にサーバから返事が返ってきたらコマンドを送信する
3 返事が帰ってこなかったらあきらめる
と書いてみたのですが、Clickイベントの中ではTClientSocket.Activeがずっとfalseのままです。
パケットキャプチャで見るとサーバからの返事はすぐ帰ってきているのですが、
Clickイベントを抜けたあとにTClientSocketのConnectイベントが起こります。
なぜでしょうか？どのようにして解決できるでしょうか？
0039デフォルトの名無しさん
NGNGProcessmessageとかは？
0040デフォルトの名無しさん
NGNG0041デフォルトの名無しさん
NGNG0042デフォルトの名無しさん
NGNG話題のWindowsXPですよ！
0043デフォルトの名無しさん
NGNGhttp://objectclub.esm.co.jp/eXtremeProgramming/
ここを辿っていきやがれ。
http://www.xprogramming.com/software.htm
0044デフォルトの名無しさん
NGNGprocedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := false;
Timer1.Interval := GetDoubleClickTime;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Timer1.Enabled := true;
ClickFlag := 1;
end;
procedure TForm1.FormDblClick(Sender: TObject);
begin
ClickFlag := 2;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
case ClickFlag of
1:ShowMessage('Single Click');
2:ShowMessage('Double Click');
end;
ClickFlag := 0;
end;
0045デフォルトの名無しさん
NGNGpublic
{ Public 宣言 }
IsDblClick:Boolean;
DTime:DWORD;
end;
---
procedure TForm1.FormCreate(Sender: TObject);
begin
DTime := GetDoubleClickTime;
end;
procedure TForm1.FormClick(Sender: TObject);
var
initTime:DWORD;
begin
initTime := GetTickCount;
while GetTickCount < (initTime+DTime) do
Application.ProcessMessages;
if IsDblClick then begin
ShowMessage('Double Click');
IsDblClick := false;
end else
ShowMessage('Single Click');
end;
procedure TForm1.FormDblClick(Sender: TObject);
begin
IsDblClick := true;
end;
0046825
NGNGWebでも書籍でもかまわないので、知りたいのですが。
0047デフォルトの名無しさん
NGNG0048ねこま
NGNGスレッドで処理するか，ClientType を ctNonBlocking にするか
TClientSocket は簡単に結果が見えるので好きだったんですけど，
D7 では obsolete になったそうで．
0049デフォルトの名無しさん
NGNG１行しか表示されないトラブルで困っています。
データの行数、DropDownRowsともに問題ないはずなんですが・・・
同じようなトラブルに遭遇した方、対処法があれば教えてください。
もしFAQだったらすみません。
0050デフォルトの名無しさん
NGNGデータ新規登録時、
他の登録データと区別をつけるために
色を変更したいのですがうまくいきません。
Delphi広場で編集時の色の変え方は
達人の方々に教えて頂いたのですが
新規登録時の場合は二週間ほど待ちましたが
お答えいただけませんでしたので
こちらに投稿した次第です
貴重なお時間を割くことになりますが
どうぞよろしくお願いいたします。
0051デフォルトの名無しさん
NGNGExcelのVBAHelpもしくはExcelxx.pasのソースを読む
基本的にExcelのVBAがわからなければ何もできません
VBAから出直しましょう
0052デフォルトの名無しさん
NGNG別にVBAなんてわからなくってもいいんでわ？
0053Delフサギコ ◆A6VzDeLphI
NGNG∧.,,∧ ／認めたくない事実の一つだとは
ミ.,,ﾟДﾟ彡＜ 思うですが、多分VBAかVBで
ﾐ つ目(ﾐ . ＼作った方がかなり楽。
～ミ,,Ｏ,,,,,,つ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣
ﾔｯﾀｺﾄｱﾙｶﾗ
0055デフォルトの名無しさん
NGNG一次元配列が拡張できるのなら、多次元配列を一次元配列に置き直して
格納すればよいのでは。拡張時に要素を移動する必要が生じますが、自
由度とのトレードオフでどうするか考えれば何とかなると思います。
もっと自由度が必要なら、TListや自前のポインタを使うかして処理すれば
良いし。
0056デフォルトの名無しさん
NGNG例えば二次元配列 の行列の最大をXMAX,YMAXとして
x,yを (XMAX+1)*y+x で求めるようにした時に、YMAXを増やす時には簡単でも
XMAXを増やす時はサイズを変更してからコピーが必要になる
005738
NGNGWindowsのメッセージについてよくわかってないので、
適切なコードを書けずうまくいきませんでした。
しくしく。ごめんなさい。
>>48
スレッドを使い、うまくいきました。ありがとうございます。
0058ななしへたぐらま ◆XcB18Bks.Y
NGNGTQueryでの『問い合わせ』の結果を戻り値として格納するためのものを作っていたので
バリアントにこだわっていました．
（最初に書けば良かったです…過去と同じ失敗（鬱）すいません）
今思えば
Variant
の代わりに
array of array of Variant;
でも良かったと思います．
SetLengthで自由に長さを変えられますし
type
T2DVarDynaArray = array of array of Variant;
と定義すれば戻り値にもできます．
0059デフォルトの名無しさん
NGNGこういう時はどこに何を書いたらいいんでしょうか？
0060デフォルトの名無しさん
NGNG0061デフォルトの名無しさん
NGNGノードごとに違うヒントを表示させるにはどうしたらよいのでしょうか？
0062教えて！モナー！
NGNGいくつかタブを作ったのはいいけど、それらのタブを入れ替える方法が
わかりません。
例えば、
TabSheet1 TabSheet2 ・・・
というのを、
TabSheet2 TabSheet1 ・・・
のように入れ替えたいんです。
ご存知の方、教えてください
0063デフォルトの名無しさん
NGNG0064Delフサギコ ◆A6VzDeLphI
NGNG0065教えて！モナー！
NGNG0066デフォルトの名無しさん
NGNG0067デフォルトの名無しさん
NGNGIndy - Indy
http://www.nevrona.com/Indy/
006863
NGNGこのページの下の方にデモがありました。
見逃していました。すんません。
0069デフォルトの名無しさん
NGNGImageで見る分には問題ないのに保存してみると色化けしてしまっていて困ってます。
うまく色化けせずにアイコンを保存する方法ありませんか？
0070デフォルトの名無しさん
NGNG0072デフォルトの名無しさん
NGNGウィンドウの大きさが実行時変更できません これってどのプロパティなんでしょうか？
0073デフォルトの名無しさん
NGNG東京近郊で身分証を要求されない店ってどこかないでしょうか？
0074デフォルトの名無しさん
NGNG0075Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ ／
ミ ﾟДﾟミ ＜ >>72FormのWidth/Heightじゃないの？
(ﾐ ﾐつ) ＼
～ﾐ ﾐ ￣￣￣￣￣￣￣￣￣
∪ ∪
0076デフォルトの名無しさん
NGNGForm の BorderStyle は bsSizeable になってる？
0077デフォルトの名無しさん
NGNGコンボボックスの選択されている項目が
どうしてもプリントされません。
どうすればいいのでしょうか？
Form1.print のコードだけでは無理なのでしょうか？
0078デフォルトの名無しさん
NGNGこれと同じ症状ですか？
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/browse.cgi?index=19070
007977
NGNG0080デフォルトの名無しさん
NGNGこのコード、これ以上工夫しようがないので無理。
自前でキャプチャして印刷する。
0081デフォルトの名無しさん
NGNGrandom(3)として
返り血の0～2は、整数ですか？
あと何回もrandom()を使うと
エラー起きるんですが、そんなもんですか？
0082デフォルトの名無しさん
NGNGんなこたない
0084Delフサギコ ◆A6VzDeLphI
NGNG／⌒＼
γ彡・ω)ﾐ ／￣￣￣￣￣￣￣￣￣￣￣￣￣
|ミ,, ﾟДﾟ彡 ＜ 広場にマルチポストですか......
| つ＿||￣￣￣ | ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,, ,,|＼||Letsﾉ-ﾄ|
'＼||.======.| Printの前後でComboBoxのＳｔyleを変えたら
￣￣￣ いいのかも。
[Delphi-ml:36053] コンボボックスのテキスト部分が印刷できない
http://www2.big.or.jp/~osamu/Delphi/browse.cgi?index=36053
[Delphi-ML:20371] Re: フォームの印刷について
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/browse.cgi?index=20371
0085Delフサギコ ◆A6VzDeLphI
NGNGγ彡・ω)ﾐ ／￣￣￣￣￣￣￣￣￣￣￣￣￣
|ミ,, ﾟДﾟ彡 ＜ D6のHELPです
| つ＿||￣￣￣ | ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,, ,,|＼||Letsﾉ-ﾄ|
'＼||.======.| ちゃんとＨＥＬＰにあるよ
￣￣￣
> ユニットSystem
> function Random [ ( Range: Integer) ];
> 説明
> Random 関数は，0 <= X < Range の範囲にある乱数を返します。
> Range を指定しないと，結果は 0 <= X < 1 の範囲にある実数型の乱数になります。
こんなのもあるよ。
> ユニットMath
> function RandomRange(const AFrom, ATo: Integer): Integer;
> 説明RandomRange 関数は，AFrom から ATo までの範囲で無作為に整数を返します。
> RandomRange は，負の範囲（AFrom が ATo より大きい）を処理できます。
0086デフォルトの名無しさん
NGNG＞エラー起きるんですが、そんなもんですか？
プログラマのせいか、肌鮮度のせい
0088デフォルトの名無しさん
NGNGDelのバージョンとグレードは？
0089デフォルトの名無しさん
NGNG0090Delフサギコ ◆A6VzDeLphI
NGNGγ彡・ω)ﾐ ／初心者が
|ミ,, ﾟДﾟ彡 ＜ これをヘルプからみつけられるだろか。
| つ＿||￣￣￣ | ＼
～ﾐ,,, ,,|＼||Letsﾉ-ﾄ| 過去ﾛｸﾞ厨はLengthで"文字数"が元丸と
'＼||.======.| 思い勝ちなんで、困ったもんでっし
￣￣￣
どうせhiroってコはVBから移行組みでしょ
広場のスレ
<16644> [D6] 文字数を出力する関数は
http://www.sakaki.keiaikai.or.jp/cgi-bin/convroom/webconv.dll/alltree?No=16644
文字数を調べる
http://www.wwlnk.com/boheme/delphi/tips/tec0720.htm
0091Delフサギコ ◆A6VzDeLphI
NGNGγ彡・ω)ﾐ どうせDQNなｵﾚの戯言
|ミ,,ﾟДﾟﾐ なんだけど、
|（ﾉ |つ hiroはともかく将来、文字数を求めたくなって
ｲｲﾜｹｲｲﾜｹ 検索してあのｽﾚがヒットしても2度手間だろうなと....
0092デフォルトの名無しさん
NGNGそんなのたどれるだろうと思ってみたら
VCLリファレンス＞ルーチン一覧(カテゴリ別)＞MBCSユーティリティ＞ByteToCharLen
まず「MBCS」がわからないかも、というのが俺の結論。
0093Delフサギコ ◆A6VzDeLphI
NGNG文字数を求めたくなった人がいたとして
の間違いでつたｺﾞﾙｧ...
0094デフォルトの名無しさん
NGNG0095デフォルトの名無しさん
NGNGなんとかペア
0096Delフサギコ ◆A6VzDeLphI
NGNGγ彡・ω)ﾐ ／具具ったら、こんなトコありました。
|ミ,, ﾟДﾟ彡 ＜ ShiftJISでもﾏﾙﾁﾊﾞｲﾄﾌﾟﾆｺでも
| つ＿||￣￣￣ | ＼ ｲﾝﾃﾞｸｻで文字単位でアクセスできる
～ﾐ,,, ,,|＼||Letsﾉ-ﾄ| 方法がﾎｽｨです
'＼||.======.| C#やDelphi.NETのﾚｺｰﾄﾞならそんな型ﾓ定義できるのかな？
￣￣￣ ｲｸﾗﾅﾝﾃﾞﾓStringClassとかで実現するのはﾊﾞｶﾊﾞｶすぃし。
http://homepage1.nifty.com/nomenclator/unicode/ucs_utf.htm
0097デフォルトの名無しさん
NGNG.NETでもchar = 16bit＋サロゲートペアなので、結局要素数≠文字数なんだなあ。
(StringInfoみたいなのは用意されているけど)
>>96
現Delphiでも、object型とproperty...[...]...; default;で(+演算子を除き)、又はカスタムバリアント型で
できるよーな気もするが、それ自身のオーバーヘッドを無視するとしても、
計算オーダーをひとつ増やすだけにしかならないと思う。
0098デフォルトの名無しさん
NGNG0099Delフサギコ ◆A6VzDeLphI
NGNGミ ﾟДﾟ彡 Delphi.NETではObject型は
～ﾐ,,,,uuミ なくなるんだっけ？
なぜ、復刻しなかったのかなあ・・・
この際、UTF64とかUTF128作って世界のアリアラな文字を
少し筒追加していって
いれることってできないのかしら....
0100デフォルトの名無しさん
NGNG>>85と>>92を参考にヘルプを調べてみたら見つかりまつたよ
VCLリファレンス＞ルーチン一覧（ユニット別）＞System＞Random関数
0101デフォルトの名無しさん
NGNGちょっとまて
関数名がわかってるならキーワードに入れれば一発なんだけど。
>>92は「こんなことがしたいけど、いい関数ないかな」と思いながら
探す方法だよ。
0102デフォルトの名無しさん
NGNG0103ななしへたぐらま ◆XcB18Bks.Y
NGNGMBCSを概念で説明してもちんぷんかんぷんでしょうしね．
日本語文字列が使えるのが当たり前な世代には
ASCIIコードの誕生から順に説明したほうがいいように思います．
>>102
Win9x系だと残念ながらテキスト検索出てこないです．
（昔，FDELPHIにWin9x系でテキスト検索する裏技がありましたけど）
0104デフォルトの名無しさん
NGNGDelフサとかDelフサとかDelフサとか・・・。
0105デフォルトの名無しさん
NGNGそれまでのDelphi5などでも実行できますか？
0106デフォルトの名無しさん
NGNGソースは Variantの問題を切り分ける必要がある事、
DFMの修正が必要だと思います
0107105
NGNGありがとうございます。
0108デフォルトの名無しさん
NGNGForm1へ戻るのですが、ショートカットキーを指定して、ショートカットで戻ると
フォーカスがタスクバーのところへ逝ってしまいます。
Form1.edBkkubun.SetFocus;
として戻しています。わかる方教えて！！
0109デフォルトの名無しさん
NGNGMLの過去ログにありました
Win98 でテキスト検索について
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/browse.cgi?index=049666&back=http%3A%2F%2Fleed%2Eissp%2Eu%2Dtokyo%2Eac%2Ejp%2F%7Etakeuchi%2Fdelphi%2Farticle%2F049%2F049666%2Ehtml
ftsrch.dllが必要なんですね
0111デフォルトの名無しさん
NGNG0112>108
NGNG質問するなら、もうちょっと詳しく書いたほうが。
Form2からForm1に戻るとき、Form2は消すのか？
Form1とForm2の親子関係は？モードレス？モーダル？
ショートカットのやり方と、割り当てた関数の内容は？
0113デフォルトの名無しさん
NGNG操作できるソフトを作りたいのですがどのようにすれば
よいのでしょうか？
例えばwinに付いているスクリーン キーボードなどは
スクリーン キーボードを操作してもキャレットが残ったままになっていて
あのような感じです。
また、例えばButton1を押すとキャレットに「あ」と出力させるにはどうすれば出来ますか？
0114デフォルトの名無しさん
NGNG, ´ ......... . . , ~ ￣" ー _
_／...........::::::::::::::::: : : :/ ,r:::::::::::.:::::::::.:: :::.........｀ 、
, ´ : ::::::::::::::::::::::::::::::::::::/ /:::::::::::::: : ,ﾍ ::::::::::::::::::::::: : ヽ
,／:::;;;;;;;| : ::::::::::::::::::::::::::::::/ /::::::::::::::::::: ● ::::::::::::::::: : : :,／
と,-‐ ´￣: ::::::::::::::::::::::::::::::/ /:::::::::::r(:::::::::`'::::::::::::::::::::::く
(´＿＿ : : :;;:::::::::::::::::::::::::::/ /:::::::::::`(::::::::: ,ﾍ:::::::::::::::::::::: ヽ
￣￣｀ヾ＿::::::::::::::::::::::し ::::::::::::::::::::::: : ●::::::::::::::::::::::: : : :_>
,＿ ＼:::::::::::::::::::::::::::::::::::::::::::::: `' _＿:::::::::-‐ ´
(＿_ ￣~" ＿＿ , --‐一~￣￣￣
もう、だめぽ。。。
0115デフォルトの名無しさん
NGNG||
∧||∧
（ ⌒ ヽ>>114
∪ ﾉ
∩∪∩
（・∀・| | ｸﾖｸﾖｽﾝﾅ
| |
⊂⊂____ノ
彡
＿＿＿＿＿＿＿＿
0116デフォルトの名無しさん
NGNGアプリひとつまるごと作り方教えろや、って言ってるような
0117デフォルトの名無しさん
NGNGメッセージを使う。
自分の作ったウィンドウやコントロールののWM_SETFOCUSを拾ってSetFocus(wParam)を実行。
文字を送るには、WM_CHARやWM_IME_CHARを送る。
0119117
NGNGIMEの状態とか、キーのシフト状態の影響を受けてしまうし。
Edit1へ文字を送る例。
SendMessage(Edit1.Handle,WM_CHAR,Integer(#$41),Integer(0));
SendMessage(Edit1.Handle,WM_IME_CHAR,Integer(#$82a0),Integer(0));
0120デフォルトの名無しさん
NGNG早速Personalを落としてきてインストール、書籍買う金もないので
付属のチュートリアル＆ヘルプでマターリ行こうと思い
「テキストエディタ作ってみるべさ」と学習を開始したのでありますが
先生！
チュートリアルで使えと書いてあるコーポネント、「ActionManager」が
見つかりませぬ！
”コンポーネントパレットの［Additional］ページにある”とか書いてありますが、
全然ありません！
漏れのDelphi修行、まだ始まったばかりですが、もう玉砕でありますか！？
0121デフォルトの名無しさん
NGNG0122デフォルトの名無しさん
NGNGありがとうございました。
チュートリアルをなぞるくらいはパーソナルでも出来るだろうと
思っていたので・・・、おちついて過去ログを読んでいきたいと思いマッスル。
0123デフォルトの名無しさん
NGNGDelphi入門者のためのすぐれたサイトもあるよ。例えば
http://kakinotane.s7.xrea.com/index.html
0125デフォルトの名無しさん
NGNG0126デフォルトの名無しさん
NGNG0127デフォルトの名無しさん
NGNGhttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1017673221
0128デフォルトの名無しさん
NGNG英語がわかること。
0129デフォルトの名無しさん
NGNGＣ＋＋はマイクロソフト Visual Studio .NET Enterprise Archtect MSDN Deluxe Edition みたいのが
あるし・・・「Delphi」はそういう物は無いのですか？
0130デフォルトの名無しさん
NGNGhttp://www.sofmap.com/shop/product/tanpin.asp?PRDT_ID=1384667
http://esearch.rakuten.co.jp/search/e.search?sv=2&sitem=Delphi
0131デフォルトの名無しさん
NGNGお前が見つけた通販HPでVisual Studio .NET Enterprise Archtect MSDN Deluxe Edition があって
Delphiがないところ教えれ。
0132デフォルトの名無しさん
NGNGhttp://www.yodobashi.com/
0133デフォルトの名無しさん
NGNG直接商品までリンクを貼ってくれてありがとう、ありましたね・・・
0134デフォルトの名無しさん
NGNG0135デフォルトの名無しさん
NGNG0137デフォルトの名無しさん
NGNG【ActionManagerは】モナーの*やさしい* Delphi質問スレ Ver.10【perにない】
0138デフォルトの名無しさん
NGNGどうすればよいのでしょうか？
0139デフォルトの名無しさん
NGNG・with文の中
0140デフォルトの名無しさん
NGNG0141138
NGNG＞・最適化で変数が消されている
これでした
さらに使い方を根本的に勘違いしてるとこもありまして混乱していたようです
>>140
まさにそのとおり
0142デフォルトの名無しさん
NGNGどうしたらいいんですか？
0143デフォルトの名無しさん
NGNG0144無責任だが
NGNG簡単に
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13)
and( GetKeyState(VK_SHIFT)<0) then
with Sender as TMemo do SelText:='<BR>';
end;
こういうふうにやればどうでしょ？
もしかしたら、選択時の動作はこっちが好みかもしれないけど
with Sender as TMemo do begin
SelLength:=0;
SelText:='<BR>';
end;
0145デフォルトの名無しさん
NGNG0146デフォルトの名無しさん
NGNGキーカスタマイズも考慮するならAction使うとか。
0147デフォルトの名無しさん
NGNG0148デフォルトの名無しさん
NGNG0149デフォルトの名無しさん
NGNG0150デフォルトの名無しさん
NGNG0151デフォルトの名無しさん
NGNG0152デフォルトの名無しさん
NGNGアクションマネージャがある事を前提にしている書籍等を見た初心者がとまどうだけです。
0153デフォルトの名無しさん
NGNGstr(AAA:n,String_Data);
ではできないような、複数の数字の場合で、例えば
__1__2_23 (1, 2 23 を３桁右寄せで出力した場合)
としたいのです
0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNGFormat()でできました。どうもありがとうございました。
ttp://www.nifty.ne.jp/forum/fdelphi/faq/00149.htm
0156デフォルトの名無しさん
NGNGやっぱりコンパイル速度はC#やVB.NETに比べて速いのか？
0157デフォルトの名無しさん
NGNG0158デフォルトの名無しさん
NGNGDelphiについて教えて下さい。
DelphiとVC++の実行速度はやはり、Ｃの方が早いのですか？
Delphiで造るのに苦手なものってなんですか？
逆にDelphiで得意なものとは？
教えて下さると幸いです
よろしくお願いします
0159デフォルトの名無しさん
NGNG出たのがプレビュー版かどうかは知らんが出たんだろ。
コンパイル速度はC#やVB.NETに比べてどうなのよ？
0160デフォルトの名無しさん
NGNG実行速度はC++と同等。
苦手なものはC/C++言語のソースと合わせるには、BCB買わなきゃならんことかな。
得意なものは、コンポーネント作成、ActiveXの利用、高速RDBアクセスかな。
0161デフォルトの名無しさん
NGNGActiveXも作れるが、クラスライブラリを派生したコンポーネント作成の方が簡単で高機能ってことね。
クラスライブラリ内にOS依存部分を持ってて、
Delphi7にバンドルされてるKylixでLinuxアプリをコンパイル出来る。
後、ランタイム不要。
0162デフォルトの名無しさん
NGNG何度も出てるが爆速コンパイルも得意。
>>158
逆に聞きたいけど、その情報を得てどうしたいの？
0164デフォルトの名無しさん
NGNG0165デフォルトの名無しさん
NGNGやってやれないことはないと思う
0166デフォルトの名無しさん
NGNG0167bloom
NGNGhttp://homepage.mac.com/bloombloom/
0168デフォルトの名無しさん
NGNGでメモに文字を書き込むとき、色を変えることとかできますか？
Memo.Lines.Add(String1 + String2); で String1 だけ赤にしたいとか青にしたいとかです
0169デフォルトの名無しさん
NGNG0170デフォルトの名無しさん
NGNG0171デフォルトの名無しさん
NGNGC#はインタプリタじゃねーだろ
0172デフォルトの名無しさん
NGNGそういう機能はRichEditの領分でしょ
0173デフォルトの名無しさん
NGNG0174デフォルトの名無しさん
NGNGDelphi->VB.NETソースコンバータ
0175デフォルトの名無しさん
NGNG0176デフォルトの名無しさん
NGNG？？？？
0177デフォルトの名無しさん
NGNGそれはM$排除が目的だから.NET敬遠されるだろうし、
KylixがバンドルされるDelphiは明るいんでわ。
0178デフォルトの名無しさん
NGNGレスありがとうございます。確かに RichEdit でフォントとか変えられますね。
( RichEdit.Font.* 以下に色のプロパティなどありました。)
でも、全体での変更で同じフォント、色に統一されてしまうようで
別の方法を考えたいと思います。
Delのエディタみたいに特定の文字だけボールドさせるとか、色を変えるとかしたいんですが・・・
0179デフォルトの名無しさん
NGNGRichEdit でできるでしょ。別な方法って、どっかからコンポーネントを
もってくるの？ まぁ、それでもいいけどさ。
0180デフォルトの名無しさん
NGNGDel ヘルプにこうあるのですが、
Delphiプログラマーズガイド ＞ テキストコントロール ＞ コンポーネントライブラリの使い方
> 編集ボックスに入れたテキストの外観を変えるには，Font プロパティに値を
> 割り当てます。フォントは，書体，サイズ，色，属性を指定できます。指定し
> たフォント属性は，編集ボックス内のテキスト全体に影響します。個別の文字
> ごとにフォント属性を変えることはできません。
よかったらRichEditでのその方法を教えていただけませんか？
よろしくお願いします。
0181デフォルトの名無しさん
NGNGprocedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.DefAttributes.Color := clBlue;
RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;
0182デフォルトの名無しさん
NGNGすまん、こっちのほうだった。
procedure TForm1.Button1Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
RichEdit1.Lines.Add('This line of text will be red.');
end;
0183デフォルトの名無しさん
NGNGこれです！ これがしたかったんです。
本当に助かりました。
わざわざ教えてくれて、どうもありがとうございました。
0184デフォルトの名無しさん
NGNG0185デフォルトの名無しさん
NGNG0186デフォルトの名無しさん
NGNGインストールした.bpl開いてリストから消したい.pasと.dcr(あれば)削除してコンパイルだと思ったがよく分からない。
0187デフォルトの名無しさん
NGNGbplじゃなくてdpk
0188デフォルトの名無しさん
NGNGそうだったか。
0189：デフォルトの名無しさん
NGNGパソコンの動作がおかしくなったのでＯＳを上書きインストールしたら
DELPHI4.0で作ったプログラムを開くと
「クラス TTABLE が有りません ーーー」というメッセージで出て
プログラムを正常に開けません。
DELPHIのシステムを1度削除してインストールしなおしても同じです。
でもこのエラーが出たDELPHIのプログラムを人から借りてきたパソコンに
DELPHI4.0をインストールすると同じプログラムなのにこの場合はちゃんと
エラーメッセージがでないで開け、正常に動作します。
インターネットでいろいろ検索したのですがこんなエラーの例はないのですが
どなたかお助け下さい。
なお自分のパソコンも人から借りてきたパソコンも機器の構成
ＯＳもほぼ同じです。
（時分が同じ時期に自作した）
ＯＳは WINDOWS98SEです。
0190デフォルトの名無しさん
NGNGハードディスク丸ごとフォーマット。
システム全部再インストール。
あぁだこうだ考えるより早いよ
。
0191デフォルトの名無しさん
NGNG0192デフォルトの名無しさん
NGNGD4を起動して コンポーネント -> パッケージのインストール で
設計時パッケージをみて下さい。
□Borland Database Components にチェックは入っていますか？
同じ事をプロジェクトオプションで確認してみましょう
0193デフォルトの名無しさん
NGNG189の文面どおりだと、それでは根本的な解決にならないような気がします。
190が正解ではないでしょうか、
0194デフォルトの名無しさん
NGNG0195デフォルトの名無しさん
NGNG表示するにはどうしたらいいですか？
0196デフォルトの名無しさん
NGNGDelphiはハウツー本文化じゃなくて、VCLやインターネットに散在してるソースを読む文化。
0197デフォルトの名無しさん
NGNG・素直にバイナリエディタで開く
・ダンプツールで一旦バイナリエディタのような形式のテキストに落とす
・Boralndに要望を出す
・OpenToolsAPIでできるかはしらない
0198デフォルトの名無しさん
NGNGて、マルチポストかよ
0199189
NGNG>>192
さんの書かれたことを実行してみました。
□Borland Database Components にチェックが入っていました。
このチェックをはずすとエラーは出なくなりました。
しかしなんかTTABLEのコンポーネントのアイコンが出なくなってしまいました。
まあ、これでもプログラムは修正できるんですが。
本当はここにチェックが入るのが正しいのでしょうか、でもチェック付けると
>>189のようなエラーが表示されてしまいます。
0200デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1029120920/77
これを参考にアプリディレクトリの不要ファイルを一度消してみては？
0201ねこま
NGNGDelphiを終了して，dcp, bpl を入れ換えて再起動とか……
パッチがあたってないけどね．
あとチェックディスクをかけてみる事をお薦めします．
0202ねこま
NGNG0203デフォルトの名無しさん
NGNG元本は保証してもらえますか？
0204デフォルトの名無しさん
NGNG一旦D4をもう一度アンインストール
その後、フォルダも全て手動で完全に消す
DelphiのCDROMから \system と \system32のフォルダの内容を見て、
そこにあるファイルを全部消すか、それを上書きで書き換えておいておく
それからレジストリの
HKEY_CURRENT_USER\Software\Borland\Delphi\
以下を全て消す。（次にインストールした後で設定を保存しておくといい）
他に、アプリのフォルダから DFM PAS DPR 以外、ほかの不要ファイルを全部消す
それからD4のインストールすれば普通は大丈夫でしょう。
0205189
NGNG正規のユーザです。
早速やってみます。
しかしdelphiはちゃんと買ったけど、発売元のサポートて何もないも
同然ですね。
確か以前、delphiに同梱されていたinstallsheildに不具合が
あったのでボーランドに問い合わせたら、
インストールするまでしか教えられませんなんていわれた。
delphi使おうとするひとでインストールに手間取る人なんて
いないでしょう。
でも結局やっぱりボーランドのミスだった。
こんなサポートでは何万も出して正規に買う人いなくなる。
0206ねこま
NGNGバックアップとっておけばよろしいかと思うんですけど……
よくやったのは，今の Delphi のフォルダ名を変更して
新しくインストールして，ライブラリやらを少しずつ復元
0207189
NGNG解決しました。
>>200さんの指示どおり、作成したプログラムの不要ファイルを
消したら、エラーが出なくなり、TTABLEも使えるようになりました。
プロジェクトを再構築すると中間ファイルも再構築されると思って
プロジェクトを再構築してもだめでしたがdcuなどのファイルを
すべて消したらｏｋとなりました。
でもなんでこんなことになるのでしょう。
やはり２ちゃんの方のアドバイスは絶大です。
本当にみなさん有難うございました。
0208デフォルトの名無しさん
NGNGttp://www.users.gr.jp/ml/archive/delphi/48638.asp
このようなものを見つました。
テキストの場合、上手く受信したファイルを保存出来るのですが、
他の形式の場合の受信方法がわかりません。
どのようにすれば良いでしょうか
0209ねこま
NGNGご飯食べた後，ぼーっと歯磨いてるときに気づいた
マジレスしちゃった……恥ずかし
0210デフォルトの名無しさん
NGNGどういう不具合かわからないけど、InstallShieldの不具合ならボーランドに
問い合わせるのは筋違いではないかな？
D5のISXのReadMe情報を見てもボーランドに問い合わせろとは一言も
書いてないし。
あとサポートはタダという思い込みはしてないかな？
0211デフォルトの名無しさん
NGNGいえいえ、InstallShieldはDelphi用ということでボーランドも関係しています。
というのは、データベースを使う場合IDEコンポーネントの配布が必須と
なるため、DELPHIには必ず、配布のためのInstallShieldが付属しており
DELPHI用にカスタマイズされています。
このためボーランドも関係しています。
このときの不具合はデータベースのエリアスの設定ができなかったと
覚えています。
自分は仕事に使おうとしていたため、この致命的な不具合でプログラムの
配布が非常に困難になりました。
その後だいぶたって、ボーランドもこの不具合に気づきホームページで修正パッチを
載せていました。
しかし、自分がボーランドに問い合わせたときにきちんと障害の内容を
聞いてもらえればすぐに対応できたはず。
もちろん開発言語なので細かなサポートまでただでなんておもっていませんが
使うときすぐに問題になる不具合まで受け付けないという態度が
納得できませんでした。
0212デフォルトの名無しさん
NGNG0213デフォルトの名無しさん
NGNG不具合があっても一切、サポート契約しないと対応しないとのことでした。
しかしこれはおかしい。
普通ソフトを買うと少なくとも数ヶ月くらいはサポートをどの会社でも
している。
それがインストールまででそのごは一切知らないとのことであった。
これでは不具合が満載のソフトを販売しても有料でないと
話しさえ聞かないということでした。
こんなバカな話しはないと思った。
これではバグがあってもそのままになったり、気づくのがものすごく
遅れてしまいます。
0214デフォルトの名無しさん
NGNG0215デフォルトの名無しさん
NGNG0216デフォルトの名無しさん
NGNG普通に、再現出来る状況を見極めて、再現方法を含めた報告として連絡すれば次のバージョンで採用はしてくれるよ。
それに、プログラミングツールなんだから、余程致命的でない限り、回避策くらいあるだろう。
0217デフォルトの名無しさん
NGNGサポートはどこもそんなもんでしょ
仕事らお金と時間のトレードオフを考えて決めればいいだけ
障害の報告はどこでも受付だけはしてる
Windowsのソフトなんだから不具合なんか有ると思ってそれを回避しながら使わなきゃ
0218デフォルトの名無しさん
NGNG0219デフォルトの名無しさん
NGNG0220デフォルトの名無しさん
NGNGupx圧縮汁
0221デフォルトの名無しさん
NGNGTFileStream
0222デフォルトの名無しさん
NGNG0223デフォルトの名無しさん
NGNGfor i := X to Y do
begin ･･･ end;
↓
i := X; while i <= Y do
begin ･･･ Inc(i); end;
∧,,∧ 制御変数 i を触りたくなったら
ミ,,ﾟДﾟ彡 この変換を覚えておくとよいよ。
(ﾐ ﾐつ
ﾐ ﾐ
∪ ∪
for i := X downto Y do
begin ･･･ end;
↓
i := X; while Y <= i do
begin ･･･ Inc(i); end;
0225デフォルトの名無しさん
NGNGbegin ･･･ end;
↓
i := X; while Y <= i do
begin ･･･ Inc(i); end;
これは変
0226Delフサギコ ◆A6VzDeLphI
NGNG（ ） （ ）
∧＝∧ せんせい
ミ,,ﾟДﾟ彡∩ ＜ こぴぺみすた。
|￣Ｕ￣￣￣.|
i := X; while Y <= i do
begin ･･･ Dec(i); end;
0227デフォルトの名無しさん
NGNGそれで、for ループでは「触れない i になぜ触れる」ことになるの？
0228Delフサギコ ◆A6VzDeLphI
NGNGミ,,ﾟДﾟ彡 ＜ 説明めんどいから明日一日考えといて
,;ﾞ ﾐ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
＠ ミ ﾅﾝｶ ｱｵﾘｯﾎﾟｲｼ
゛゛゛゛
0229デフォルトの名無しさん
NGNG別にテクニックではない。
0231デフォルトの名無しさん
NGNG＞普通ソフトを買うと少なくとも数ヶ月くらいはサポートをどの会社でも
＞している。
それはあなたの常識では？
＞これでは不具合が満載のソフトを販売しても有料でないと
＞話しさえ聞かないということでした。
良い悪いは別にして、そういう契約はよくあります。
製品のバグかユーザの勘違いかは調べてないとわからない。
もし、それがユーザの勘違いだった場合、その費用は誰が負担
するのでしょう？ だからサポート契約で前払いしろとなるわけです。
つーか、仕事でやってるならそれくらいわかるだろ？
0232デフォルトの名無しさん
NGNGテキストの場合はどうやって保存してるの？
TFileStreamのどこがわからないのか具体的に書いて。
0233デフォルトの名無しさん
NGNG0234158
NGNG>>161
>>162
C++にするか、Delphiにするか 迷っている学生です。
過去の経験は、BASICのみです。
プログラミングがしたいと思っていたら、叔父が じゃあ、どちらか
選んだら教えてくれ。買ってあげるからと。ただし、VBだけはやめとけと。
そういうことなんです。ちなみに叔父はDelphi4をさわっているようですが
俺に合わせても何も教えないと言われまして。ただ、C++もDelphiもどっちも
どっちだ。どちらかに決めたらふらふらするな。どっちか使えるようになったら
もうひとつを後から勉強してもそれなりに使えるようになると。
今は、どちらも只のがある。本当はそれを試させればいいが、ふらふらしそう
だからまず、どちらかに決めろ。人に聞くのもいいだろうと言われました。
実行速度はC++と同じなんですね。どうもありがとうございます。
C/C++言語のソースと合わせるというのは、Ｃで書かれたライブラリとかＤＬＬ？を
使うときにBCB（Ｃ言語ですね？）を使う事でDelphiでも使えるという事ですね
コンポーネント作成、ActiveXの利用、高速RDBアクセスについては、検索して
読みましたが？？です。そういう機能があるということだけは分かりました。
LinuxアプリもDelphi７で出来るんですね。ランタイム不要ということはＣ＋＋では
必要なのでしょうか。クラスライブラリという物が早くて使いやすいのですね
爆速コンパイルも検索してみましたが数人の方が、便利だと書いてます。
それくらい早いのですね
0235158
NGNGとりあえず、意味が分からない事ばかりで、コメントもオウム返しするしか
出来ません。
ただ単にプログラミングがしたいという漠然とした動機ですが、もっと調べて
どちらにするか決めたいのですが、何を基準としたらいいのか……
どうもありがとうございます。どちらも何がしかを作るのには
差はないということが分かったのはうれしかったです
0236デフォルトの名無しさん
NGNGインターネットの掲示板で聞くより、脇にいる人とあーでもない、こーでもない。と
試行錯誤するほうが、確実に理解は早いぞ。
それと、無意味にあげるな。
0237158
NGNG0238デフォルトの名無しさん
NGNG0239208
NGNG書き込み方がよくわからないのれす。
書き込むときは、WriteBuffer()を使うの？
var
b: Byte;
i: Integer;
fs:TStream;
begin
fs:=TFileStream.Create('file',fmCreate);
for i := 0 to Socket.ReceiveLength - 1 do begin
Socket.ReceiveBuf(b, 1);
fs.WriteBuffer(b,sizeof(b));
end;
end;
こんな感じで書いてみたんですが、ファイルのサイズは0KBでした。
0240デフォルトの名無しさん
NGNGとっつきやすさは VC++＜＜BCB＜Delphi
情報量は VC++＞＞Delphi＞BCB
DelphiとBCBに使われているVCLというライブラリはDelphiで
書かれているからDelphiの方が親和性が高いし、
詰まった時にVCLのソースを読もうとするとDelphiの知識が必須。
ネット等の情報はVC++やVBがメインだから、それを理解できる方が有利。
俺はDelphiがメインだが、Delphiをやれとは言わない。
自分で選択してくれ。
0241デフォルトの名無しさん
NGNG1文字づつループを回すのはパイプか何かの処理の為？
そうでないなら
var buf:string;
var siz:Integer;
//略
size:=Socket.ReceiveLength;
setLength(buf,siz );
Socket.ReceiveBuf(PChar(buf)^ , siz);
fs.WriteBuffer(PChar(buf)^ , siz);
として、ブレークポイントかけて buf と siz を確認してみたら？
0242Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGミ,, ﾟДﾟ彡 ＜ いいおじさん持ったね。
〃つ＿つ/ ￣￣￣/＼＿＿＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,, ,,|＼ ./ ﾚ ｯ ｼ /
'＼/.======./
￣￣￣
こういうBBSやMLで情報検索しる技術(というより人付き合い)も
おじさんは学んでもらいたいと表るんじゃないのかな。
C/C++は....職業で使う必要性が無い限り、覚えなくてもいいかも。
俺は多分もう一生覚えないなー。ゲーム作るには必須かも。
旬なのはC#かと思うけど,,,,,
Delphiが.NETで旬を迎えるのは来年くらいだと思うのでそれを見据えてからでも。
で、安定して得るものがあるのは、Javaなんかどうでしょかとか。
"○○みたいのを作りたい"っていう具体的な目標があると、
プログラムの学習も苦痛じゃなくて楽しくなるのではないかしら。
"言語を覚えたい"って考えだと、中小度が高くて、すこし挫折しやすいよ。
で、作りたいものがはっきりしてくれば、言語の得意分野があって
どれから学習すべきかの道筋が見えてきやすいかな。
>>208>>239 とりあえず、FileStreamの使い方、見といてくださいな。
もっといいｻﾝﾌﾟﾙはMLログとかにあるかもしれませんが。
Delphi：WideStringとUnicodeでファイルアクセス
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1034090664
Inseder.NET DelphiﾌﾟﾛｸﾞﾗﾐﾝｸﾞTips？？ ファイル入出力の基礎
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1001489683&res=7&fi=no
0243デフォルトの名無しさん
NGNGますます迷うと思うけどなあ。旬かどうかも勉強にはあまり関係ないだろうし。
何が作れるかは、C/C++もDelphiも充分なパワーを持っているので、
特に気にする必要は無いし、ランタイムも共に不要ですよ。
BASIC経験があるなら、構文的に近いのはPascalかなー。
かくいう自分も、DOSでBASIC→Cに挫折→Delphi2.0～なクチ。
で、Pascalでポインタなどの低レベル操作を覚えてからC/C++に戻ってみると、すごくよく理解できた。
ただし、今のDelphiは、ポインタなどを使わなくてもいい方向に進化してきているので、
そういうのに慣れてしまうと後々キツいかも。
Delphiやるなら、最初はTListなどの便利品を使わずに、自力でリンクリスト作るぐらいの気概で
やった方が身になるかな？(BASIC経験があるならそれほど苦でも無いと思う)
叔父さんがVBを選択肢から外したのも、そういうアルゴリズムをちゃんと覚えて欲しいと
思っているのだと考えられるし。
逆に、C/C++を選ぶと、その辺の低レベル操作が必須知識になるので、勉強にはいいかも。
でも、徐々に…ではなく、いきなり、になるので、多少とっつきにくいかな？
(BASICでVARPTRやPEEK、POKEを使いこなしていれば楽勝でしょうけど)
…お節介で余計な長文だったかも知れませんね。ゴメン。
0244デフォルトの名無しさん
NGNG直接I/Oや、機械語サブルーチン、BIOSコールなんかを使いまくる強者で、
最近の言語が様変わりしていてイマイチ把握できないってだけの話なら、
それは俺達が偉そうに何か言っていい相手では無い…
0245デフォルトの名無しさん
NGNGどのように設定してますか？
0247デフォルトの名無しさん
NGNGC++スレとDelphiスレに転がってるコード眺めてみて、自分が分かりやすそうなほうを選ぶといい。
勉強用の情報はC++のほうが多いだろう。Delphiの情報を探すのは書籍でもネットでもやや困難。
でも、どっちを選んでも、本を一冊買って一年ほどまじめに自習すれば身に付くから。
あとはやる気が持続するかどうかだね。
個人的にはBASICの次にC言語をやるのがいいと思うけど、
まあここはDelphiスレなのでDelphiをお勧めしておく。
俺は両方使えるけど、Delphi覚えてからはあんまりCやC++を使いたくなくなった。
あと、BASICからの移行だと、C言語のコンパイルの遅さがいやになるかも。
0248Delphi歴15分
NGNGプログラムしか作れません。
0249デフォルトの名無しさん
NGNG0250デフォルトの名無しさん
NGNG0251208
NGNGstringって、255バイト以上扱えましたっけ？
9バイトのテキストは上手く出来ましたが、
100KB位のexeファイルだと、3KBまでしか保存されませんでした。
0252Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG,,,,,,,,,,,,,,,∧,,∧ ／
～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜ あつかえまつ。
UU"""" U ⊃ ＼
￣￣￣￣￣￣￣￣￣￣
0253デフォルトの名無しさん
NGNG>情報量は VC++＞＞Delphi＞BCB
BCB(VC++ + Delphi) > VC++ >> Delphi
0254デフォルトの名無しさん
NGNGVC++の情報のうちMFCやATLの情報は少なくないからBCBでは使えない情報も多いぞ。
いいとこVC++＞BCB＞Delphi
あと、1ヶ月もすればC++(というかC)のWinAPIについての情報も使えるから
結局情報量はVC++＞Delphi＞BCBに落ち着くと思われ。
0255デフォルトの名無しさん
NGNG0256デフォルトの名無しさん
NGNG0257デフォルトの名無しさん
NGNGttp://www.w-frontier.com/delphi/
0258デフォルトの名無しさん
NGNGindex := LastPos('hoge', 'hogehoge');
みたいな感じで最後に出てくる検索語のインデックスを
求めたいのですが関数が見つかりません。
どうすればいいですか？
0259デフォルトの名無しさん
NGNG作って下さい。 ２つの戦略があります
１、最初から検索して、最後に見つかった位置を返す
２、最後から検索する
0260デフォルトの名無しさん
NGNG一般的に言うなら、AnsiStrPosを繰り返し実行すればOKですけど、
状況によっては(それが文字列を解析する処理の一部で、それまでの情報を利用できるなら)
もっと楽できる場合もあります。
何がしたい？
(前に同じような事で…だったので即答は控えてみる)
0261VB信者
NGNGなんとなくJAVAに似ているような気が・・・
開発環境自体はVBみたいですね。
0262258
NGNG絶対見落としてるだけで用意されてると思ったのにー。
だるだる
0263デフォルトの名無しさん
NGNGまあ、だるだるではありますが、やろうとしている内容によっては
文字列の解析アルゴリズムを勉強するチャンスですよ。
Pascalはそういう基本的なアルゴリズムで手を抜けないようになってる(w
260でも書いたけど、具体的に何がやりたいかで
楽な方法がある場合もあるし。
例えば、一文字だけならLastDelimiterなんてのも。
0264デフォルトの名無しさん
NGNGPascal とは関係なく、たんに Delphi の関数の数が貧弱なだけだと思う
0265258
NGNGあ、どうもです。
やりたいのは、<HOGE>hage</HOGE>のhageを取り出したかったのです。
だるいけど適当に関数書こうと思います。ありがとうございました。
0266259
NGNGそももそも、最後の位置を調べるような関数を使うというのは最初から筋が悪いんだし
たとえば、こんなコードだと sとsubstrが長いと重い処理になる
１、最初から検索して、最後に見つかった位置を返す
index:=0;
len:=length(substr);
for i:=1 to Length(s)-len do if copy(s,i,len)=substr then index:=i;
if index <=0 then 文字は見つからない
0267259
NGNGああ、それなら
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/file/1001489683_19/uSpliter.pas
これを使うとスマートに書ける
考え方を言うと
str:=GetNextStr( ['<','>']); sep:=GetChar;
で 切り分けて sepが '<'か'>'か #0 かで場合わけするだけ
0268258
NGNG<HOGE><HOGE>hage</HOGE></HOGE>
の時に<HOGE>hage</HOGE>が取れるように。
書き方悪くてすんません。
0269263
NGNGI := 1;
while I <= Length(S) do
begin
if S[I] in LeadBytes then Inc(I)
else if S[I] = '<' then begin Tag := True; if InText then TextEnd := I; InText := False end
else if Tag and S[I] = '>' then Tag := False
else if not Tag and S[I] <> #32 then begin TextStart := I; InText := True end;
Inc(I)
end;
Result := Copy(S, TextStart, TextEnd - TextStart)
今適当に書いたコードなので穴だらけです。大体のイメージだけ。
0270259
NGNGじゃあ
"<HOGE><HOGE>hage</HOGE></HOGE> <HOGE>hoge</HOGE>"
だと
１、 <HOGE>hage</HOGE></HOGE> <HOGE>hog が欲しいの？
２、<HOGE>hage</HOGE> と >hoge が欲しいの？
２なら、>>267 の方式で再帰処理にした方がスマートだよ
0271263
NGNG外側タグだけ外したかったのですね。
269は忘れて下さい。
イレギュラーな文字列が渡されない事が明らかであれば、
単純に先頭の < ～ > と末尾の < ～ > を省くだけでもいいと思いますけど、
あらゆるケースを考えるならば、トップダウン構文解析した方がいいかも。
0272デフォルトの名無しさん
NGNG0273デフォルトの名無しさん
NGNGどうせ使わないから
この点はボーランドは正しい
0274Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG∧,,∧ ／
ミ,,ﾟДﾟ彡 ＜ 単に某の人手が足らんだけだと
,;ﾞ ﾐ ＼ 思うが..
＠ﾐ,,,UUﾐ ￣￣￣￣￣￣￣￣￣￣￣￣￣
とか言うと、またたたかれるんだけどね。（ｗ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1023631451
より高速化は誰か他の人に。
0275258
NGNGありがとうです。
0276デフォルトの名無しさん
NGNGえ？ 解決したの？ 入れ子になってない場合もそれでいいの？
"<HOGE><HOGE>hage</HOGE></HOGE> <HOGE>hoge</HOGE>"
が
"<HOGE>hage</HOGE></HOGE> <HOGE>hoge"
になるのはあきらかに変だと思うんだが？
0277デフォルトの名無しさん
NGNG正直そのコードはもう持ち出して来ないで…。
誰かがうっかり使うかもしれないし、その都度計算オーダーの説明するのも面倒…。
0278Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG∧,,∧ ／正直、質問者の質問意図を蟲して
ミ,,ﾟДﾟ彡 ＜ 別海を無理やい教えるのも
,;ﾞ ﾐ ＼ やめてホスィから お相子ってことで。
＠ﾐ,,,UUﾐ ￣￣￣￣￣￣￣￣￣￣￣￣￣
0279デフォルトの名無しさん
NGNGホント・・・・なんともはや・・・・
でも、考えてみると、ちゃんとしたスタイルの処理の入門書って最近みあたらないし しょうがないか
0280デフォルトの名無しさん
NGNG自分の技量の無さを某に八つ当たりならVB厨並だぞ。
0281デフォルトの名無しさん
NGNGいまどき正規表現クラスのないような処理系は糞。
0282Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG,,,,,,,,,,,,,,,∧,,∧ ／
～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜ 文字列逆方向検索を
UU"""" U ⊃ ＼ 書いて示しただけだよ。
￣￣￣￣￣￣￣￣￣￣
それを、「そのコード持ち出してくるな」
って言う方がどうかしてるよ。
高速化したけりゃご勝手にﾄﾞｳｿﾞだってば。
0283デフォルトの名無しさん
NGNG君は文字列の話に出張ってこなくて結構。
0284デフォルトの名無しさん
NGNG>>267等はそういうコードでしょ？
質問者だって、おぼろげに、最後の位置を検索するのが必要だろーなーと思ってただけだろうし、
検索して位置を特定する手法だとスキャン回数が検索回数分増えてしまうわけだし、
もっとスマートな解があれば教えてあげてもいいんじゃない？
…で、>>274のコードは、普通に検索を繰り返すよりも、さらにオーダーを悪くする、と…。
こんな説明じゃ納得できない？
0285デフォルトの名無しさん
NGNG正規表現クラスはこれ使ってます。なかなか便利です。
http://anso.virtualave.net/delphi_stuff.htm#TRegExpr
0286デフォルトの名無しさん
NGNGいいねこれ。DLL要らずか。
0287Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG＿＿＿＿＿＿＿＿＿
∧,,∧ ／
ミ*ﾟДﾟ彡＜ 速いコードを見せてホスィ
ﾐつ つ ＼
～ﾐ ,, ﾐ. ￣￣￣￣￣￣￣￣￣
∪ ∪ 爆速ならかなりうれしい
0288デフォルトの名無しさん
NGNG今回のケースなら、検索などせずに、頭から>>267のように切っていくだけ。
文字列の部分を切り出すのが目的なら、あんな感じで解析すれば1回のスキャンで済む。
(…ってのは何度も言われて聞き飽きてると思いますが、ホントの話ですので)
単純に検索目的なら、真面目にやるなら
途中まで一致した場合の情報を使ってスキップしていくアルゴリズム(名前忘れた)使えばいいし、
手抜きでCharNext/CharPrevで移動しながらCompareStringを連発しても、
Shift-JISのTrailを飛ばせる分>>274よりはほんの少し速いと思う。
0289Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGミ*ﾟДﾟ彡＜ MLに投げられていた気が。あれとは違うか...
ﾐつ つ ＼ DelphiIDEの逆検索(ShiftF3でキカヌのが玉に傷
な実装ってどなってるんでしょうね。
不思議なトコです。
0290デフォルトの名無しさん
NGNG１、後ろから一致する検索
２、<HOGE>hage</HOGE> スタイルを正しくSplitするコード
のどっち？ １だと意味がない ２だと仕様をもう少しはっきりしないと書きようがない
例えば <BR>のような閉じてないタグがあるのか つまり一般のHTMLなのか
それともXMLのように必ずタグは閉じてるのかとか
それと、木構造で再帰的に処理する必要があるから、さすがに少し考えないと出来ないよ
0291デフォルトの名無しさん
NGNGこのコードも8までの命か…
って上のリンク先でコメントしてるけど
どういういみ？
0292Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGミ,,ﾟДﾟ彡 ＜ になったら、また違ってくるかと。
ﾐつ つ ＼.NETのCLR(か?)のstringを使うのかな？
>>290 １、後ろから
です。
関係ないけど、
２、って、＜HOGE ＞とか＜ ／ HOGE＞
とか、スペースが入るのを考慮すると、
いろいろ大変っすよね。どこまでOKにするのか...IEとか
挙動しらべませんといけなくて鬱にnull
0293デフォルトの名無しさん
NGNG0294デフォルトの名無しさん
NGNG一般的に使っている連想配列のクラスライブラリってどんなのがありますか？
ttp://homepage1.nifty.com/bmonkey/delphi/delphi.html
0295デフォルトの名無しさん
NGNG0296デフォルトの名無しさん
NGNG0297デフォルトの名無しさん
NGNG0298デフォルトの名無しさん
NGNG0299デフォルトの名無しさん
NGNG0300デフォルトの名無しさん
NGNGTStringList
0301デフォルトの名無しさん
NGNGできます。
cvsを使います。Pro版で使ってます
0302295
NGNG遊びで使おうと思っているんで、personal版でcvsを使うことにしました。
0303デフォルトの名無しさん
NGNGmemo1のloadfromfileでホームページのソースを
表示させたいのですが、
Memo1.Lines.LoadFromFile('http://xxxxxx.html');
では表示できないのですが、どのようにすれば良いのですか？
0304デフォルトの名無しさん
NGNGホームページのソースをダウンロードしてから
Memoに読み込みましょう
0305デフォルトの名無しさん
NGNGIndyのIdHTTP使うと楽。
procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.Get('http://www.borland.co.jp', mem);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
mem := TMemoryStream.Create;
end;
procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
Memo1.Lines.Text := PChar(mem.Memory);
end;
0306デフォルトの名無しさん
NGNG0307303
NGNGすごく勉強になります。
>306
personalでもですか？
0308デフォルトの名無しさん
NGNG0309Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG∧,,∧ このようにすると、ﾀﾞｳｿができるようえす
ミ,,ﾟДﾟ彡 でもIndyもいと。ｵﾓﾌ
ﾐ つ旦)~~
～と,,,~),,~) >>306-307
内部でいったいどういった処理をしてるのだろう？
GetProcAddress ＡＰＩを使っているようにも思えるですが...
object DownLoadURL1: TDownLoadURL
Category = 'インターネット'
Caption = 'URL からダウンロード(&D)'
Hint = 'URL からダウンロード'
URL = 'http://www.borland.co.jp/index.html'
Filename = 'ダウソ.html'
end
procedure TForm1.Button4Click(Sender: TObject);
begin
DownLoadURL1.ExecuteTarget(nil);
Memo1.Lines.LoadFromFile( ExtractFilePath(Application.ExeName) + 'ダウソ.html' );
end;
0310ななしへたぐらま ◆XcB18Bks.Y
NGNGDelphi 2.0から文字列変数の仕様が変更されて
単にstringとだけ宣言すると約2Gバイトまで扱えるようになっています．
>>261
登場順序がVB→Delphi→Javaで，
Delphiの開発環境はVBを参考に作られたのでおっしゃるとおりです．
JavaはDelphiがもとになっているようですね．
>>263
でもBASICのINSTRみたいに
文字列の途中から検索する関数がないのはどうかと思います．
これひとつあるだけで特に入門者はかなり助かるかと．
（D6以降はあるのかな？）
0311デフォルトの名無しさん
NGNG＞JavaはDelphiがもとになっているようですね．
で、そのおもしろ情報はどこで仕入れた？
0312デフォルトの名無しさん
NGNGほっといてやれよ（w
0313デフォルトの名無しさん
NGNGC でいうところの strstr だよな、InStr って。
Pos 関数、AnsiPos 関数が昔からあるぞ。
せめてヘルプくらいは読め。
0314デフォルトの名無しさん
NGNGいや、途中からの検索。
途中からの検索が必要とされる場面というのは、大抵の場合、
きちんと解析したほうが効率よくて堅実なコードになる事が多いのだけれど、
やっぱ無いと入門者には不便、という話でしょ。
…でも、有れば有ったで、きちんと処理する事をしなくなるので、難しいところ。
0315デフォルトの名無しさん
NGNG同意。CopyとPosがあればstrok相当の関数は作れる。
正直、ライブラリに頼らないと何もできない奴って恥ずかしいと思う。
0316デフォルトの名無しさん
NGNGﾜﾗｯﾀ
>>315
ﾁﾐはまだまだだな。
0317Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG／
| 藁ってやるな。
＼＿ ＿＿＿＿＿＿＿＿＿＿＿＿
|/
∧,,∧
ミ,,ﾟДﾟﾐy━~~
U ﾐ
～ﾐ ﾐ 人にHELP嫁とかﾗｲﾌﾞﾗﾘ頼ら
∪''∪ など言う前に･･･
>>315
Copyで文字列を逐次生成する分の無駄を考えたほうがいい。
ﾗｲﾌﾞﾗﾘを作るつもりでCopyを使うと、それこそ怒られる。
>>314 そだね。
軽めｴﾁﾞﾀつくっても、上下方向検索ｺｰﾄﾞかくの面倒かな。
どこかの翻訳記事でJava開発者の
だれそれさんのインタビューで
VCLなどを参考にしたって話があったのだけど
見つからないですなー。
誰か知りませんか？
この近所だった気が激しくするんですが、、、
C# - 自然な前進
ゴミ箱行きの Visual J++ の代わりに、Microsoft が投入する C# とは?
http://www-6.ibm.com/jp/developerworks/java/001215/j_jw-csharp.html
0318ななしへたぐらま ◆XcB18Bks.Y
NGNGすいません，あまりにもよく似ているので何となくそう思っただけです．
何となくそう思ったなら明確にそう書くべきでした．
>>315
BASIC/VBから移行したときは速攻でInStr関数を作ったですよCopyとPosで．
でも8ビット時代の経験者（一応）としては
検索のためにCopyなんてオーバーヘッドを考えたら気持ち悪いので
StrPosだったかを使った版も作ってみたのですがうまくいかなくて，
（これは単にバグを見つけられなかっただけで恥ずかしい限り）
結局，そのプロジェクトでは扱う文字列が最大で数百バイトだったので
そのままにしましたけど．
0319デフォルトの名無しさん
NGNGこんなの作ってみたけれど、叩いてみてくれないか
function FindStr(s,str:string;InitPos:integer):integer;
var
p,pinit,pStr:PChar;
Len:integer;
begin
Len := Length(str);
pinit := PChar(s);
p := pinit;
inc(p,InitPos);
pStr := PChar(Str);
result := -1;
while p^<>#0 do
if AnsiStrLComp(p,pStr,Len) = 0 then begin
result := p-pinit;
break;
end else inc(p);
end;
0320デフォルトの名無しさん
NGNGfunction RevFindStr(s,str:string;InitPos:integer):integer;
var
p,pinit,pStr:PChar;
Len:integer;
begin
Len := Length(str);
pinit := PChar(s);
p := pinit;
inc(p,InitPos);
pStr := PChar(Str);
result := -1;
while p<>pinit do
if AnsiStrLComp(p,pStr,Len) = 0 then begin
result := p-pinit;
break;
end else dec(p);
end;
0321デフォルトの名無しさん
NGNG0322デフォルトの名無しさん
NGNGんじゃ遠慮無く。
・AnsiStrLCompを使っているということはDBCSを考慮していると思われるが、
それなら単にpをInc/DecするだけではなくLeadBytesの判定もした方がいい。
(CharNext/CharPrev APIが手っ取り早い)
・PChar系の関数は性質上#0以降を無視するので、
こんな場合は直接CompareString APIを呼んだ方がいいと思う。
0323デフォルトの名無しさん
NGNG・string引数にはconstを付けないと参照カウント増減処理が入る。
・resultへの代入は関数を抜ける直前にすると、eaxだけの処理で済む。
・他の文字列関数に合わせるなら、インデックスは1から。
…ってことで、勝手に直してみた。
function FindStr(const s, str: string; InitPos: integer): integer;
var
p, pinit, pStr: PChar; Count, SubLen: integer;
begin
SubLen := Length(str);
Count := Length(s) - (SubLen + InitPos) + 2;
pinit := PChar(s);
p := pinit + InitPos - 1;
pStr := PChar(Str);
while Count > 0 do
begin
if CompareString(LOCALE_USER_DEFAULT, 0, p, SubLen, pStr, SubLen) = 2 then
begin result := p - pinit + 1; Exit; end;
p := CharNext(p);
Dec(Count);
end;
result := -1;
end;
0324デフォルトの名無しさん
NGNG×Dec(Count);
○CharNext前のpを覚えておいて、変化量を引く。
if p in LeadBytes then
begin
Inc(p);
Dec(Count);
end;
Inc(p);
Dec(Count);
の方が手っ取り早いかも。
0325デフォルトの名無しさん
NGNGfunction FindStr(const s, str: string; InitPos: integer): integer;
var
p, pinit, pEnd, pStr: PChar; Len: integer;
begin
pinit := PChar(s);
p := pinit + InitPos - 1;
pEnd := pinit + Length(s);
pStr := PChar(Str);
Len := Length(str);
while p < pEnd do
begin
if CompareString(LOCALE_USER_DEFAULT, 0, p, Len, pStr, Len) = 2 then
begin result := p - pinit + 1; Exit; end;
p := CharNext(p);
end;
result := -1;
end;
0326デフォルトの名無しさん
NGNG○pEnd := pinit + Length(s) - Length(str) + 1
0327313
NGNGだからさ、InStr 相当関数じゃないだろ、それ（ｗ
バリアント型 (内部処理形式 Long の Variant) の値を返します。
ある文字列 (string1) の中から指定した文字列 (string2) を検索し、
最初に見つかった文字位置 (先頭からその位置までの文字数)
を返す文字列処理関数です。
ってのが VB の InStr 関数だぞ？ 既に使わなくなってひさしいが、
昔の MS-BASIC の InStr 関数も同じだ。
これに対応するのは Delphi では Pos であろが。
んで、最初に戻ると >258 か。VB でいうところの InStrRev ね。
これに対するアプローチとしては、ポインタをうまく使えば文字列コピ
ーする必要ないでしょ。
SBCS 限定なら、ReverseString 関数を組み合わせると一度で済む
ような気もする（ｗ
>315
D6 以降なら ExtractStrings 関数を引くと幸せになれる。
それ以前でも TStrings.DelimitedText と TStrings.Delimiter 使えば（ｗ
0328313
NGNGfunction PosRev(const keyword, source:string): Integer;
var
s_rev: string;
k_rev: string;
p: Integer;
begin
s_rev := ReverseString(source);
k_rev := ReverseString(keyword);
p := Pos(k_rev, s_rev);
if p<>0 then
result := Length(source)-(p+Length(keyword)-1)+1
else
result := 0;
end;
ま、できることはできるが、こんなトリッキーなこと、仕事じゃやらん罠（ｗ
0329313
NGNGしまった。
uses StrUtils;
じゃねーかｗ 謹んで訂正。
0330デフォルトの名無しさん
NGNG>>322-326
ありがとう、いろいろ勉強になった。
0331デフォルトの名無しさん
NGNG0332デフォルトの名無しさん
NGNGuses節にどのヘッダーを加えれば使えますか？
0333デフォルトの名無しさん
NGNGWindows
0334デフォルトの名無しさん
NGNG0335デフォルトの名無しさん
NGNGありがとうございます。
Delphiのヘルプでは、GetTickCountとか調べても出てこないですけど、
そういうのはどこで調べれば良いですか？
0336デフォルトの名無しさん
NGNGふむふむ…勉強になります。
ありがとうございます。
他にもＡＰＩ関数がどこに属しているのか知りたい物が少々あるので、
>>335もよろしくです。m(_ _)m
0338デフォルトの名無しさん
NGNGその中のどの辺りですか？
そもそもMSのサイトにDelphiの情報があるんですか？？？
0339デフォルトの名無しさん
NGNGそこまで手取り足取り教えてもらわなきゃわからないのなら、
Delphi使うのはやめた方がいいと思うけど。
とりあえず、ツールバーのカスタマイズでWin32 APIを追加してみてはどうか。
0340デフォルトの名無しさん
NGNG君はWindowsのアプリを作っているってことを忘れている。
GetTickCount自体OSの機能を指しているわけで、Delphiは
それを（VBのようにブサイクではなく）自然に使えるように
しているから、Delphiの機能のように思っているだけです。
だから「MSのサイトにDelphiの情報が」ではなくって
「MSのサイトに（Delphiでも使う）OSの情報がある」わけです。
0341デフォルトの名無しさん
NGNG0342デフォルトの名無しさん
NGNG0343デフォルトの名無しさん
NGNGしかしOSベンダーがあるチームにだけｺｿｰﾘ秘密情報を教えて
いたら、ｲﾔﾝなOSだなとは思う。
0344332
NGNGそうですね。
今、CとかJavaを教えてくれる専門に行こうかどうか検討中です。^^;
でも、Delphiが一番好きだから、専門行っても独学で少しずつ勉強しようと思っていますが。
で、アドバイス戴いたツールバーのカスタマイズの件ですが、
メインメニューの「表示→ツールバー→カスタマイズ」の所ですよね？
全部覗いたのですが、Win32 APIは見当たりませんでした。^^;
自分、personalなんですけど、それにもついてるんですか？
>>340
すいません、僕の書き方が悪くて誤解を招いてしまったかもしれません。
GetTickCountがVCLの関数ではなく、API関数という事は知っています。
>Delphiのヘルプでは、GetTickCountとか調べても出てこないですけど、
>そういうのはどこで調べれば良いですか？
これは、APIの説明ではなく、あるAPI関数を使うにはどのパッケージをuses節に
加えれば良いのかが知りたかったんです。
0345339
NGNGWin32 APIじゃなくてWindows APIだった。
カスタマイズダイアログ＞コマンドタブ＞分類「ヘルプ」で出てこないか？
俺もDel6Perなんだが。これで見つからんかったら知らん。
0346332
NGNGさっきそれを追加してみて、クリックしてみたんですけど、
ファイルがなかったっぽいっす…。^^;;;
0347デフォルトの名無しさん
NGNGなんでDel厨っていちいちVBをライバル視してるんだろうね(藁
0348339
NGNGどっかにBorlad Sharedってフォルダがあればその中のMSHelpって
フォルダのなかにWIN32.HLPが入ってるはず。
なければインストールされてないので、その時は落としたアーカイブの中の
install\Common\Borland Shared\MSHelpをどっかにコピー。
0349332
NGNG明らかにDelphiの方が優れてるのに、
仕事も人口も少ないからじゃない？
自分もDelphiはもっと世に出るべきツールだと思うし。
0350デフォルトの名無しさん
NGNG0351デフォルトの名無しさん
NGNG> これは、APIの説明ではなく、あるAPI関数を使うにはどのパッケージをuses節に
> 加えれば良いのかが知りたかったんです。
の答えなんかわからないけどね(w
0352デフォルトの名無しさん
NGNGなるほどVBにコンプレックスがあるのか。
0353デフォルトの名無しさん
NGNGじゃあ.NETが失敗するように祈らなきゃいけないな。
でないともうDelphiの活躍する場はなくなるよ。
0354332
NGNGありましたー！
さっきはBorlandフォルダだけで探したので見つからなかったっぽいです。^^;
ホントありがとうございました。m(_ _)m
でも、英語なんですね。^^;
ソフトに頼らないとです。ｗ
0355デフォルトの名無しさん
NGNGDelphiの影におびえて生活するVB使いを見るのも楽しいしなァ。
ていうか、どうして比較対象になるのかわからねーが。
0356デフォルトの名無しさん
NGNGなんでわざわざ「VBのように～」とか言って比べるんだろうねぇ。
Del厨は。
0358デフォルトの名無しさん
NGNG0359332
NGNGでも、これも役に立ちますよ。^^;
>>352
自分はコンプレックスっつーか、残念なだけだよ。
Delphiが一番好きだけど、他の言語も好きだし。
ちゅーかさ、君、俗に言うVB厨って奴？
何でわざわざDelスレ来てるの？
>>353
んー、でも.NETの変更点見たら、結構Delに近くなってんじゃん？ｗ
まぁ、レベルアップしたんだし、.NETの登場は喜ばしいことだと思ってるけどね。
プログラミング界全体のこととして。
0361デフォルトの名無しさん
NGNGなんか勘違いしてるね。コンプレックスがあるのは事あるごとにVBと比較したがる>>340のような奴だ。
0362デフォルトの名無しさん
NGNG御指名があればVBなければDelphiでやってます。VBは
ライバル視しているというより、なんでVBでやらなきゃ
いけないんだという恨みが
こもってます。
変数宣言のときのDimだけで脱力せずに仕事するやつって
あるいみアフォですよ。
0363デフォルトの名無しさん
NGNG0364デフォルトの名無しさん
NGNG0365デフォルトの名無しさん
NGNGでこんなに盛り上がるのはなぜなんですかぁ・・・。
Delphi使った上でVBにわざわざ喧嘩吹っかける奴なんていないって。
優れてる、劣っている以前にやることが違うんだから。
とりあえず両方起動してみて御本に書いてあるサンプルプログラム打ち込んで
VBのほうが簡単だぞゴルァ！
・・・という展開ならわからんでもないが。
0366332
NGNGまぁ、VBと比較するのは当然のことなんじゃないかな？
BorlandってDelphiをVBのポジションに近づけたいんじゃないの？
だからサイトでもVBからの移行云々書いてるし。
VBユーザの為のDel本も出てるしさ。
ちうか、VB vs Delphiスレに移動した方がいいよね？
ここは質問スレだし。
0367332
NGNGまとめて書けるようになったんじゃなかったっけ？
0368デフォルトの名無しさん
NGNG下のように一行ずつだと面倒なので、まとめてやりたいのですが…。
実際は２０行くらいのテキストが２０個くらいです。
begin
Form1.Memo1.Lines.Add('させしすせそさそ') ;
Form1.Memo1.Lines.Add('') ; //空白行
Form1.Memo1.Lines.Add('???') ;
0369デフォルトの名無しさん
NGNGMemo.Lines が TStringList だから、LoadFromFile / LoadFromStream とか
もっと気楽にやるなら、visible = False の Memo2 コントロールを隠し配置して
Memo1.Lines := Memo2.Lines;
0370332
NGNG中身を変える？
Addは一番最後の行に追加する時に使う物だよ。
とりあえず、そういった処理はwithを使って、
with Form1.Memo1.Lines do
begin
Add('');
Add('');
Add('');
…
end;
とやれば、比較的簡単にできる。
>>369
別にMemo2を配置しなくても、TStringList型の変数用意して、
Assign使った方がいいんじゃない？
0371デフォルトの名無しさん
NGNG元質問者の意図にもよるが、TStringList を直に使ったら、それの初期化で
また悩むと思うが。
0373デフォルトの名無しさん
NGNG0374デフォルトの名無しさん
NGNG今日からdelphi勉強しまふ。
0375Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGリンク切れてないかな、、、
Delphi メニュー
http://kakinotane.s7.xrea.com/dirDelphi/mainmenu.html
DelphiTutorHome
http://www.netjoy.ne.jp/~tuya/DlphTutor/index.html
Delphi はじめの一歩
http://delphi.sakura.vg/index2.html
Do It YourSelf---Life with Delphi
http://home.onestop.net/mineko/index2.html
Pascal・Delphi入門：オンライン学習 ページ
http://or-lab.asahi-u.ac.jp/intro_to_delphi/default.htm
ゼロからDELPHI講座 Delphiと遊ぶ
http://www.text2music.com/mine/delphi/index.html
プログラミング講座
http://isweb21.infoseek.co.jp/computer/wblue/prog/chair_top.htm
0376ななしへたぐらま ◆XcB18Bks.Y
NGNGたいていのWindows API はWindowsユニットで宣言されていて，
このユニットはフォームを新規に作るとすでにuses節に含まれるとので何もしなくてOKです．
これに含まれていなくてどのユニットで宣言されているかわからないときは
統合環境からDelphiのあるフォルダに対してファイル検索するのが早いと思います．
>>364
Dimension の略でもともと配列変数を宣言する命令だったのです．
BASICには以前は配列でない変数を宣言する命令はなかった．
ここでは同じ型の変数を複数宣言するときに
Dim Mona As Integer, Giko As Integer, C As Integer
と長ったらしくなってしまうのでこれだけでもうイヤという話か
あるいはメソッドなどを書くときに書く最初の１行がDimなので
最初の単語であるDimを打つだけで鬱，ということを言いたかったのかも．
0377332
NGNGファイル検索ですネ。
早速試してみて、これなら簡単に探せそうです。
ありがとうございました。
0378デフォルトの名無しさん
NGNG方法をご教授下さい。
現在、サーブレットを起動する
TNMHTTPを使用したバッチ形式
のAPを作成しています。
以下の様に書いています。
program ***;
･･･
uses;
･･･
var
･･･
http :TNMHTTP;
･･･
//接続成功のイベント
procedure httpConnect(Sender: TObject);
begin
ログファイル書込関数;
end;
begin
･･･
http := TNMHTTP.Create(Application);
･･･
http.Post(サーブレットURL);
･･･
end.
0379378
NGNGそれで、現在はイベントを
拾うことができません。
0380デフォルトの名無しさん
NGNGtype THoge = Class(TObject);
procedure Connect(Sender: TObject);
end;
THoge.Connect(Sender: TObject); begin httpConnect(Sender);end;
obj := THoge.Create;
http := TNMHTTP.Create(Application);
http . OnConnect := obj.Connect
0381デフォルトの名無しさん
NGNGゼロからDELPHI講座
http://www.text2music.com/text/delphi/zero/index.htm
0383
NGNGfor文の中でエディットボックスの書き換えを行っても
繰り返しが終わるまでフォームの変更は行われないようです。
エディットボックスを書きかえるためには、どのようにすれば
いいですか？
0384デフォルトの名無しさん
NGNG0385
NGNGできました。
どうもありがとうございました
0387368
NGNGとりあえず>>369さんのVisibleを使ったやり方でやってみます。
一週間前くらいに始めたばかりなので、難しいのはよく解らないんです…。
どうもでした。
0388デフォルトの名無しさん
NGNGありがとうはいらないから、自分が何をしたいのか。この場合は
何を「面倒」と感じたのかをしっかり表現/文章化してくれ。
0389368
NGNG勉強用に作ろうと思ったソフトですが、
Formにボタンが２０個ほど置いてあって、
それをクリックしたら新しいウインドウが開いて、
ボタンごとにウインドウの内容(Memo)が変わるようにしたかったんです。
面倒と感じたのは、一行ごとにLines.Addで書かないといけない事です。
なんというか、Lines.Addじゃなくて、他の方法で複数行をまとめて書けないかな、と思ったんです。
0391368
NGNG結局、テキストを編集するソフトを使って
行頭に Form1.Memo1.Lines.Add('
行末に ') ;
を追加して、
Form1.Memo1.Lines.Clear;
Form1.Memo1.Lines.Add('****') ;
if Form1.Visible = False then
Form1.Visible := True;
にしました。
0392デフォルトの名無しさん
NGNG0393デフォルトの名無しさん
NGNGForm1.Memo1.Lines.Add('(-＿-)'+sLineBreak+'(∩∩)');
0394デフォルトの名無しさん
NGNG無理に ＶＢを使う必要なしっ！
0395デフォルトの名無しさん
NGNG0396デフォルトの名無しさん
NGNG資格とっても同じですよ。 単なるプログラマのまま40歳どころか30歳も難しいでしょ
中の上以下だと、不況だから今就職出来るのは派遣屋しかないでしょうしね
0397デフォルトの名無しさん
NGNGアナタ、就職ミスってます。
0398デフォルトの名無しさん
NGNGTabをシミュレートしたいんだけど
いまくいきません・・・
form上でkeyprevew = tureで
case Key of
VK_Return:
begin
Perform(WM_NEXTDLGCTL, 0, 0);
Key := 0;
end;
end;
じゃ、だめっぽい。
だれかご教授してくだされー
0399デフォルトの名無しさん
NGNGよく読まないでレスだけど、
キーボードは押したら離すものでは？
0400デフォルトの名無しさん
NGNG0401デフォルトの名無しさん
NGNGtrueですね(^^ゞ
実はこの記述、某所で見たソースなんです
それを、そのまま使っていたのですが
DBCtrlGridで問題が発生した次第です
ほかに同じ動作をする方法があれば、どうかお願いいたします
0402デフォルトの名無しさん
NGNG何かいい方法はないでしょうか？
0404デフォルトの名無しさん
NGNGAPI直叩き
0405デフォルトの名無しさん
NGNG履歴で消してしまった。インターネットのサイトはどうやってみることが出来ますか？
0406デフォルトの名無しさん
NGNG0407デフォルトの名無しさん
NGNGもう一度行きたいんですけど消しちまいました・・・・。
一度消したらみれませんかね？
インターネットのお気に入りのよこの履歴からしか消してないんだけど・・・。
0408デフォルトの名無しさん
NGNGどうやるんだろ。
0409デフォルトの名無しさん
NGNG0410デフォルトの名無しさん
NGNGどんなサイトだったか書け
俺が全力を持って探し出してやろう。
0411デフォルトの名無しさん
NGNGMACのCMに出てるキクチモモコのアイコラサイトです
0412デフォルトの名無しさん
NGNGhttp://images.google.co.jp/images?q=tbn:x4eKZKDR3m4C:www.bluecellar.com/image/present/osananawa/osa-r-kin-momoko.jpg
0413デフォルトの名無しさん
NGNGありがと。やさしいね。 でも・・・でも・・・・ボクのキクチモモコじゃなかっんです。
0414デフォルトの名無しさん
NGNG無理だろ（ｗ
0415デフォルトの名無しさん
NGNG履歴のフォルダをファイル復活ツールにかけてみればぁ？
0416デフォルトの名無しさん
NGNGエディタがとっても使いにくいです。
秀丸で言う「フリーカーソルモード」っていうのになっていますが、
変えられないのでしょうか？
0417デフォルトの名無しさん
NGNGあなたは３つの道があります
１、好きなエディタを使って同じファイルを編集しなさい。IDEにフォーカスを戻す前に常に保存するクセをつければ大丈夫です。
２、フリーカーソル無効化 をキーワードにgoogle検索しなさい
３、我慢して使いなさい。毎日使えば3日で慣れます
0418デフォルトの名無しさん
NGNGプログラマがあんなもん使っちゃいけません。
って言うか秀丸にそんなもん付いてたのね・・・。
0419デフォルトの名無しさん
NGNGに無効化アドインがある。ある程度はこれで。
個人的にはxkeymacs使ってEmacsバインドにしてしまうのがお勧め。
フリーカーソルも大して気にならなくなる。
0420デフォルトの名無しさん
NGNGキーワードが全く表示されません。ヘルプでキーワード検索するには
どうすればいいのでしょうか？
0421デフォルトの名無しさん
NGNG0422デフォルトの名無しさん
NGNGマ○オ風のゲームがつくりたいんですが・・・
当たり判定について教えていただけませんか？？
0423デフォルトの名無しさん
NGNG画像Aと画像Bが重なった場合当たった．
実装方法はそりゃあもう星の数ほどあると思われ.
0424デフォルトの名無しさん
NGNGでも、音語るならサンプリング定理くらい知ってるべきだと思われ。
0425デフォルトの名無しさん
NGNG0426デフォルトの名無しさん
NGNGhttp://www.google.com/
0427デフォルトの名無しさん
NGNG遊びのレシピという本にBCBとDelphiのサンプル付きで載ってた。
まぁ、あれ以外にもやり方はやたらとあると思われ。
0428デフォルトの名無しさん
NGNGジャンプしたときに、キャラより下のマスが地面ではないか・・・
もし↑の場合キャラの行く次の1マスを判断する方法。
できるだけ、キャラはマップの1マスが32*32だった場合、それに対して
32ドットずつ進むのではなく、4ドット（32ドット以下ならいくつでも）ずつ
移動できればと考えています。
0429デフォルトの名無しさん
NGNG人の話聞いてんのかボケ。
0430デフォルトの名無しさん
NGNG「遊びのレシピ」という本をかって読んでみます。
申し訳ありませんでした。。。
0431デフォルトの名無しさん
NGNG立ち読みして役に立つと思ったら買いなされ。
取りあえず、セオリーを聞き出す前に自分なりに考えてみるのも勉強になると思われ。
少なくとも、どんなAPIセットを使って、キャラクターの形と位置がどんな構造で管理されて～
ってところまで行かないと当たり判定の話なんて具体的には出来ないと思われ。
そういえば昔のゲーム機であったハードウェア当たり判定ってDirectXとかでもあるのかしらん？
0432デフォルトの名無しさん
NGNGDel6でコンパイルしたプログラムは正常だったので、原因を調査してみると、
ComboBoxが原因のようなのですが、デフォルトが項目値が空白の項目なので落ちているようです。
回避策とかパッチはあるのでしょうか？
これはボゥランドの不具合だと思うのですが、皆さん知ってました？
0433デフォルトの名無しさん
NGNG＞これはボゥランドの不具合だと思うのですが、皆さん知ってました？
御願いだから先にバグフィックスしてください。お前のミスです。
0434デフォルトの名無しさん
NGNGD相談室その7で同様の書き込みを見て
私も試してみましたが、マジでD7のバグみたいですよ。
0435デフォルトの名無しさん
NGNG0436デフォルトの名無しさん
NGNG自分なりに書いてみたソースなんですが・・・
label1=キャラクター
onkey[5]=スペースキー（Boolean型）
junp=ジャンプしたときの判定用（Boolean型）
yy,xx=ラベルを動かす移動数（Integer型）
map=マップ[array(0..9,0..9)of integer=(0,0,0,0,0,0,0,0,0,0),×10]
（マップサイズは、320*320 １マス32*32）
if onkey[5] and jump then begin
dec(yy,2);
if yy>-16 then begin yy:=-16; jump:=false end;
end;
if (jump=false) and (map[label1.top div 32+1,label1.left div 32]=1) then begin
yy:=0;
label1.top:=(label1.top div 32)*32;
onkey[5]:=false;
jump:=true
end else
if (jump=false)then
inc(yy,2);
label1.top:=label1.top+yy;
0438436
NGNG0439デフォルトの名無しさん
NGNG社員必死だな (藁
0440デフォルトの名無しさん
NGNG>>436よ、それはあまりにもみっともないと思うぞ。
0441439
NGNG0443皿仕上げ
NGNG0444デフォルトの名無しさん
NGNG0446デフォルトの名無しさん
NGNG0447デフォルトの名無しさん
NGNG釣りだったとしてもいいや 面白いから
関連ｽﾚ
海運は？
http://choco.2ch.net/test/read.cgi/traf/1032728842/l50
0448デフォルトの名無しさん
NGNG確かに笑えるが、
コメントの間隔からして、442=443が自作自演だろ、
439を使ったダブルアクションな高度なテクニックだと判断する。
本日の自作自演大賞決定！
0449デフォルトの名無しさん
NGNG0450デフォルトの名無しさん
NGNG0451デフォルトの名無しさん
NGNG0452デフォルトの名無しさん
NGNG0453デフォルトの名無しさん
NGNG思ったのですが、今のところ必要なしいD8まで待ちます。
0454デフォルトの名無しさん
NGNGShift+Tabを押したことにするには
どうするの?
0455デルファイの名無しさん
NGNG勿論、自分自身にWM_KEYDOWNでTABを送る方法もありますが、
メッセージはフックされる可能性もありますし、
コントロールがメッセージで内部フラグを切り替えていたりするとややこしい事になってしまうので、
FindNextControlの方が確実でしょう。
0456デフォルトの名無しさん
NGNG0457デフォルトの名無しさん
NGNGフォームのKeyPreviewイベントをTrueにして
フォームのKeyDownに以下のコードを記述する
//【↑】でフォーカス戻る
if (Key = VK_UP) then
begin
SelectNext(ActiveControl as TWinControl, False, True); // 戻る
Key := 0;
end;
//【↓】でフォーカス移動
if (Key = VK_DOWN) then
begin
SelectNext(ActiveControl as TWinControl, True, True); // 進む
Key := 0;
end;
0458デフォルトの名無しさん
NGNGﾊｧ?
0459デフォルトの名無しさん
NGNG0460デフォルトの名無しさん
NGNG0461Void ◆XHOW.zla5c
NGNG0462454
NGNG457さんの方法でうまくいきました!
ありがとうございます!!
しかし、DBCtrlGrid上ではうまく動作しないのはどうしてでしょう?
DataSetを直接いじるのかな?
うーん。。。
0463デフォルトの名無しさん
NGNG0464デフォルトの名無しさん
NGNG落ち着け、Update#1って MS-SQL Updateのこと？
0465デフォルトの名無しさん
NGNGGrid内を移動させたいのか、Gridを抜ける為に使いたいのかによって
動きを変えるコードが必要になるでしょ。
ListBoxやComboBoxでも配慮が必要かもしれない。
又、Panel等の通常[Tab]ではフォーカスがセットされないコントロール
へも移動できてしまうので、その辺りも要注意（回避策はある）
0466デフォルトの名無しさん
NGNG何かないの？
0467デフォルトの名無しさん
NGNGタブをカンマに置換して。カンマは適当にエスケープ
0468デフォルトの名無しさん
NGNGQuoteCharへ引用符を指定し
Delimiterへ区切り記号を設定して
DelimitedTextを使う
0469ななしへたぐらま ◆XcB18Bks.Y
NGNGD6にはそんなのがあるのですね．
でもタブ区切りテキストを作るのは
連結は単純に各文字列をタブをはさんでつなぐだけですし
分離にしても１バイトずつ調べてタブを境にコピーするだけなので（※）
プログラミング初心者でもがんばれば十分解ける問題だと思います．
（って，今時のビギナーさんには
このレベルでもサンプル書いちゃった方がいいのかな？）
（※タブコードは少なくとも日本語文字列では
２バイト文字の２バイト目になることはありません）
0470454
NGNGいろいろやってみると、思った通りの動作が出来ました
ありがとうございます。
ところでDBアプリを作るとき、
入力画面などはDataControlなどを使われてますか?
それとも普通のEditなどで、コードをごりごり書いてます?
0471デフォルトの名無しさん
NGNG特殊な入力が必要なら、自分でコンポ作ってゆくと後が楽だよ
0472Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGSplit関数を作っておいてますが。>>466-469
∧,,∧ FDelphiにはStrTokenとかいうのも
ミ,,ﾟДﾟ彡 あったと思う。
ミつ つ
0473デフォルトの名無しさん
NGNG下記のようにすると、それ以外の時にもイベントが起こってしまいます。
それでも目的の動作は果たせるのですが、
出来ればVisibleがFalseになった時のみイベントを起こしたいです。
どなたか教えてくだちい。
unit PanelEx;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, ExtCtrls;
type
TPanelEx = class(TPanel)
protected
FOnHide: TNotifyEvent;
procedure WndProc(var Message: TMessage); override;
published
property OnHide: TNotifyEvent read FOnHide write FOnHide;
end;
implementation
procedure TPanelEx.WndProc(var Message: TMessage);
begin
inherited WndProc(Message);
if (not Visible) and (Assigned(FOnHide)) then
FOnHide(Self);
end;
end.
0474デルファイの名無しさん
NGNGprocedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
…
procedure TPanelEx.CMVisibleChanged(var Message: TMessage);
begin
inherited;
if not Visible then 目的の動作
end;
で、いいかと。
この手のメッセージは他にもあって、Controls.pasにいっぱい書いてあります。
0475デフォルトの名無しさん
NGNGVisibleの変更前なら
procedure VisibleChanging; override;
あとなら
procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
後はご自分で
0477デフォルトの名無しさん
NGNGサンクス
使わせていただきます
0478デフォルトの名無しさん
NGNG0479デフォルトの名無しさん
NGNGスレ違いどころか板違いだし、コピペだし・・・マ板へ逝ってね
0480デフォルトの名無しさん
NGNG「行が長すぎます」というエラーが表示されます。
Delphi5では普通に見れます。Delphi6では見れないのでしょうか?
0481デフォルトの名無しさん
NGNG保存した。って何を？
0482480
NGNG名前.exeってやつです。この答えでいいんでしょうか・・・。
0483デフォルトの名無しさん
NGNG相互変換ができれば表記は問いません。
よろしくお願いします。
0484デフォルトの名無しさん
NGNGそんで、IDE のエディタで .exe を開いて何をしたい？
0485480
NGNGどんなプログラムだったか6のほうでみたいだけなんですが
見ることができない状態なので。
sageにします。
0486デフォルトの名無しさん
NGNGフォーカスのあるコントロールに色を付けてるのですが
なーぜか、2行以上DBCtrlGridのパネルがあると
最小化とかアプリの切り替えとかで再描画させると
全てのパネルで色が変わったままになるのだが
何か方法はない?
0487デフォルトの名無しさん
NGNGexeファイルをエディタで開いたところで、どんなプログラムかわかるわけないだろ
どんなプログラムか見たいならソースファイルを見ろ
0488デフォルトの名無しさん
NGNG俺は凄いのでわかります。
0489480
NGNGサンクスです。
0490487
NGNGそれは失礼、ゴメンナサイ。
0491デフォルトの名無しさん
NGNG0492デフォルトの名無しさん
NGNG時間を・・・
0493デフォルトの名無しさん
NGNGそんなことはありませんが？
0495デフォルトの名無しさん
NGNG自力で変換するしかないですか？
0496デフォルトの名無しさん
NGNGええ。もちろん。
0497デフォルトの名無しさん
NGNG帰ってきたもんで調べてたんですよ。
>>496
まじかよ･ﾟ･(ﾉД`)･ﾟ･｡
0498デフォルトの名無しさん
NGNGVisualStudioもってるならエラー検索がツールフォルダに入ってるよ。
0499デフォルトの名無しさん
NGNGあれま。
D7/Indy 9 なら TIdStackWindows に WSTranslateSocketErrorMsg 関数が
定義されているけど？
ほとんどのエラーは（英語だけど）可読文字列として表示されるはずなんだけど。
0500デフォルトの名無しさん
NGNGWSAHOST_NOT_FOUND……
ちょっとまて、ソース見たけど、HOST NOT FOUNDみたいな起こりうるエラーが
WSTranslateSocketErrorMsgで変換されてない…。
0501デフォルトの名無しさん
NGNGWSAHOST_NOT_FOUND = WSABASEERR+1001;
HOST_NOT_FOUND = WSAHOST_NOT_FOUND;
みたいに宣言されていて
RSStackHOST_NOT_FOUND = 'Host not found.';
エラー文字列も定義されているのに一度も使ってないみたい。
今回初めてIndy使ってみたけれど、もしかしてかなり不完全なライブラリだったりします？
0502デフォルトの名無しさん
NGNG念のため確認したら新しいバージョンが出てたので見てみたら、定義されてるわ。
0503デフォルトの名無しさん
NGNGIndyマニュアルインストールだと、Fulld6.batを実行しても
Exception EAccessViolation in module Computil.exe at 0000C9FB.
Access violation at address 0001C9FB in module 'Computil.exe'. Read of address 0
0000000.
Error!
と出て終了するのは何故ですか？
0504デフォルトの名無しさん
NGNGまずは自分の環境の説明からお願いね。
0505デフォルトの名無しさん
NGNG>何故ですか？
ってあなた, 誰に聞いているの？
Indy 開発元に尋ねてみたら？
ただ、D6/Indy9 の組み合わせで使っている人はあなただけではないと思うので
問題はあなたのほうにあると思う。
暇があったら、D6/Indy9 の組み合わせを試してみるよ。
...ところで何故「マニュアルインストール」？
0506デフォルトの名無しさん
NGNGComputil.dpr デバッグしてわかったんだが、レジストリを旧環境から移したときに、
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi\6.0
の値が前の環境のものだったよ（ドライブ名が違ってた）
で、Computil内の
> SetLength(ShortPath, GetShortPathName(PChar(LongPath), PChar(ShortPath), MaxPathLen) );
> If (ShortPath[1] = #0) or (Length(ShortPath) = Length(LongPath)) then begin
って部分で、パスが実在しないから、Length(ShortPath) = 0になって、ShortPath[1]でエラー発生。
そこまで厳密なエラーチェックしてないのね。
底なしの馬鹿だね俺は。もう救いようがない。
俺見たいのがDelphiユーザーにいること自体が恥ずかしいよ。
氏ね、俺。
Zap Zap Zap...
0507デフォルトの名無しさん
NGNGHKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi\6.0\RootDir
の間違いだった。
0508デフォルトの名無しさん
NGNGレジストリをリストアした？なんて無謀な・・・。
0509デフォルトの名無しさん
NGNG0510デフォルトの名無しさん
NGNG騒がせてスマン。
0511デフォルトの名無しさん
NGNGIndyのIdComponent.pasで意図的に開放していない箇所を見つけたんだけど、
これってどうにかならないもんかね。
>initialization
> GStackCriticalSection := TCriticalSection.Create;
>finalization
> // Dont Free. If shutdown is from another Init section, it can cause GPF when stack
> // tries to access it. App will kill it off anyways, so just let it leak
> // FreeAndNil(GStackCriticalSection);
finalization の呼ばれる順番って不定だっけ？制御できないかな。
0512デフォルトの名無しさん
NGNGアプリケーション終了時にのみ開放されないだけで別に害は無いし
それを安全に開放するようにするためには、結構コストがかかる。
コストだけかかって自己満足で終わる部所。ってことだ。
0513デフォルトの名無しさん
NGNGdouble型で a/b ってやるのと
integerで a div b ってやるのって速度的にはどっちが早いの？
それとも関係ない？
0514デフォルトの名無しさん
NGNG使用されてるCPUによるけど 32bitなら整数の方が少しだけ速い事が多いかも。
使う目的は何？
0515デフォルトの名無しさん
NGNGおおむね Pentium 以降は、割掛け算は FPU の方が早い。
ただし、データ長が長くなるためロード/ストアコストがかかる場合が
ある。
けど、FPU つかった方がはやいよ。
0516513
NGNG使う目的は秘密ですが、500KbくらいのCSVファイルを
読み込ませて割り算したら、異様に遅かったので・・・・。MMXPen166
超ド初心者なんでdoubleをintegerに変えるくらいしか思いつかなかったのです。
FPUとは何でしょうか？
0517デフォルトの名無しさん
NGNGそれは単純にCSVを処理する方法が悪かったのじゃないかと思う。
0518513
NGNGz:=AnsiPos(#$9,str);
Data[i].a:=strtofloat(Copy(str,1,z-1));
Delete(str,1,z);
z:=AnsiPos(#$9,str);
Data[i].b:=strtofloat(Copy(str,1,z-1));
Delete(str,1,z);
z:=AnsiPos(#$9,str);
Data[i].c:=strtofloat(Copy(str,1,z-1));
Delete(str,1,z);
z:=AnsiPos(#$9,str);
Data[i].d:=strtofloat(Copy(str,1,z-1));
Delete(str,1,z);
z:=AnsiPos(#$9,str);
・・・・・・続く
こんな感じで読んでいって
それを計算させているのですが
おかしなところがあればご指摘を・・・・。
ちょっと上のほうでcommatext関連のことが
出てますが、オレのスキルでは理解し難いので、
この方法だとなんとか理解できるのでこうやってます。
やっぱりスマートなやり方じゃないんですかねー？
0519デフォルトの名無しさん
NGNG0520デフォルトの名無しさん
NGNG0521デフォルトの名無しさん
NGNGDeleteしない方法を考えてみなよ。
データの前後のタブ位置を覚えといて(以下略
0522デフォルトの名無しさん
NGNGhttp://www.geocities.co.jp/SiliconValley-Oakland/8522/data/uSpliter.txt
これ使って、数字が少数点付きの数なら
with TStringSpliter.Create(str) do try
while not isEOF do begin
data[i]:=CalculateFloat;
SkipBlank;
if nowChar<>',' then break; //カンマ以外のセパレータなら無視する
GetChar;
inc(i);
end;
finally free;end;
こんな感じで
CalculateFloatだと四則演算もされてしまうので、それが都合悪ければ getDotFloat で
0523513
NGNGなんだか凄いのをありがとうございます。
が、クラスを勉強し始めたばかりのオレには当然それを使えるはずもなく・・・・、
とりあえず
http://www.din.or.jp/~egawa-n/delphi/tips/search.html
これを使ってなんとかならないかと頑張っておりましたが、
無い頭を使い過ぎて疲れましたのでもう寝ます。
レスをくれた方々に感謝！！
けど、>522のを使いこなせれば、かなり思いどうりのことが
楽にできそうなので、もうちっと勉強してきます。
0524
NGNG今どうしても欲しくて探しています。似たようなソフトはいくつかあるんですが、
私が欲しいのは、Del だけじゃなく、VCやVBのソースもHTML化できたような気がします。
予約語は強調（ボールド）、イタリック、色をつけるなど、便利な機能がありました。
どうか知っている方は教えてください。
0525デフォルトの名無しさん
NGNGこれです。どうもありがとうございました
0527526
NGNGタスクバーに表示されているウィンドウのハンドルを
取得するにはどうすればいいでしょうか？
EnumWindowsで列挙してIsVisibleで調べても、見えないのに出てきてしまう
ハンドルがあるんです・・・。
0528527
NGNG0529デフォルトの名無しさん
NGNG>タスクバーに表示されているウィンドウのハンドル
なに言いたいの？
タスクバーに聞くと答えてくれるよ
0530デフォルトの名無しさん
NGNGフォーム内のコンポーネントを使いたいので、ファイルメニューの'ユニットを使う'を使用したいのですが灰色で押せ
ないため、uses に元からあるユニット名を直接書いてますが、何故でしょうか?
0531デフォルトの名無しさん
NGNG0532デフォルトの名無しさん
NGNGimplementationに記述させてれば別に構わないみたいですね。今まで通り手打ちでやってきます
0533デフォルトの名無しさん
NGNG0534デフォルトの名無しさん
NGNG0535527
NGNGわかりにくい日本語ですいません。
つまり、ユーザーがモニタを見て、（タスクバーの項目を含め）目に映る
ウィンドウのハンドルのみを取得したいのです。
EnumWindowsだと不可視ウィンドウも列挙され、IsVisibleで調べても、
一部見えてないウィンドウまで引っかかってしまうので…。
0537デフォルトの名無しさん
NGNGhttp://www.yahoo.co.jp/
↑のアドレスで返って来るファイルの名前（http://www.yahoo.co.jp/index.htm）など
を調べるにはどうしたらいいでしょうか？ よろしくお願いします。
0538デフォルトの名無しさん
NGNGNM****って将来なくなる気がする。
0539デフォルトの名無しさん
NGNGSt := TFileStream.Create (OpenDialog.FileName, fmOpenRead);
って書いたら、
[エラー]SDIMAIN.PAS(82): 未定義の識別子 : 'fmOpenRead'
とコンパイラに怒られるのですが、何故でしょうか？
環境はDelphi6personalです。
0540539
NGNGで解決しました。豆腐に頭ぶつけて逝ってきます。
0541デフォルトの名無しさん
NGNG出るはずのない未定義の識別子が出たら、Delphi6のソースディレクトリを
grepかけると手っ取り早い。
0542デフォルトの名無しさん
NGNG0543デフォルトの名無しさん
NGNGその作戦はpersonalでは不可能では？
0544デフォルトの名無しさん
NGNGどっちも同じ気がして・・・・・。
0545デフォルトの名無しさん
NGNG自動的に再描画してくれるか否かの違い。
後。ダブルバッファリングしてくれるか否か。
0546デフォルトの名無しさん
NGNGんじゃ、ヘルプを単語検索かけるってのは？
windows9xだから検索できないってのはなしね(DLLいれろ
0547デフォルトの名無しさん
NGNGBorland\Delphi6\Doc\に各ユニットの
インターフェース部分が抜き出してあるよ。
Personalに限らずインターフェースに対してGrepかけるなら
Source\*.pasよりDoc\*.intの方が楽なことが多かったりする。
0548デフォルトの名無しさん
NGNG厨房ですが
Delphi5とそれより新しいバージョンの互換性ってどうよなんだしょ
そんなに違わないと勝手に思っているのですが
ちなみに自分はDelphi5しか知りません
0549デフォルトの名無しさん
NGNGDelphiは4以降大きな変化は無し。
マイナーチェンジ程度の違いしかない。
4以降のソースはほとんどそのまま通る。
最近変わった部分はVCXとかWindowsアプリ作る上ではどうでもいいことばかりだから
普通のアプリ作るぶんには5のつもりで使っても大丈夫。
0550549続き
NGNG7を買おうとか思ってるんなら8まで1年待ったほうがいいと思う。
0551デフォルトの名無しさん
NGNGVCX ::= VCL & CLX?
0552デフォルトの名無しさん
NGNGDelphiで作られたソフトをWindowsXPのスタイルで表示させたいんですけどできますか？
0553デフォルトの名無しさん
NGNGここにNew!って記載してあるから、それ以前のバージョンだとできないと思う。
http://www.borland.co.jp/delphi/del7/feamatrix/index02.html
0554デフォルトの名無しさん
NGNGTStringsクラス等のAddメソッドですが、
これは戻り値があるのに(functionなのに)、何故手続きみたいに使えるのですか？
自分の知識では、functionは値として扱われるから、
ListBox1.Items.Add('hoge');
という様に使うのは無理だと思うんですけど…。
それとファイルの新規作成ってどうやるんですか？
ヘルプ見て、「FileOpen('', fmCreate);」ってやってみたけど、無理でした。
0555デフォルトの名無しさん
NGNG関数の戻り値は無視しても構わないような文法なってるだけ。
>それとファイルの新規作成ってどうやるんですか？
直接の答えじゃないけどTStringList.SaveToFileかTFileStream調べてみたら。
0556554
NGNGホントだ…違うfunctionでもできるんですネ。
新規作成はTFileStreamでやりました。
ありがとうございます。
0558デフォルトの名無しさん
NGNG0559デフォルトの名無しさん
NGNGDelphi7に付いてくるｘｐ対応ってフリーのやつだから
ダウンロードすれば出来るはず。
ただしマニフェストを付けるのは手動かな。（たぶん）
0561ななしへたぐらま ◆XcB18Bks.Y
NGNGもしリストビューコンポをオーナーデータ（仮想リストビュー）として使っているのでしたら…
→ごめんなさい，使ったことがないのでわかりません．
さもなくば…
→使うことのないイベントです．
データを検索して見つかったときに発生するイベントではありません．念のため．
>>545
ペイントボックスを使っていて思うように再描画してくれなくて困っていたのですが
イメージコンポを使う手があるのですね．
>>558
ボーランドの公式サイトにあるぜよ．
ttp://www.borland.co.jp/download/delphi.html
0562デフォルトの名無しさん
NGNGインクリなんちゃら検索で使うやつ。
普通に使えば使えるよ。
0563デフォルトの名無しさん
NGNG一部できない部分はあるが
ttp://www.jrsoftware.org/files/misc/xptheme.zip
つかえばできる。
Delphi6 にUpdate2当ててない場合はVCLソースの
修正が必要だがUpdate2当ててる場合はそのまま使える
0564デフォルトの名無しさん
NGNGhttp://www.akzhan.midi.ru/devcorner/articles/Windows%20Visual%20Styles%20(Themes)%20API%20Support%20in%20Your%20controls%20Eng.htm
0565デフォルトの名無しさん
NGNGApplication.Terminate;
でアプリケーションを閉じると、WIN98等でWINDOWSのタスクバーに夢印のタスクボタンが
残ってしまうのですが（押すと消える）
これを回避する方法ないでしょうか？
ご教授お願いします
0566回避策
NGNG以上
0567デフォルトの名無しさん
NGNGなるほどthx......
この方法を試さずに他の方法を試す
YES
NO
0568デフォルトの名無しさん
NGNGみたいなやつ。あれがキーボードに無いのですが、どうすればいいんでしょう？
0569デフォルトの名無しさん
NGNG0570デフォルトの名無しさん
NGNGそりは、Delphi に限らず、ウィンドウのフラグを作成時と異なる物にして終了すると
発生します。タスクバーのバグ。VC でも再現可能。
メインフォームの Form の Style を変更してない？
その場合は起動時/タスクバーに表示されたときの状態に戻してから
アプリケーションを終了するとよし。
0571デフォルトの名無しさん
NGNGﾜﾗﾀ
考えてみれば^なんて人によってはまったく使わないキーだなあ。
0572デフォルトの名無しさん
NGNGおお！ 有難う早速試してみます
0573デフォルトの名無しさん
NGNG0574デフォルトの名無しさん
NGNG追加情報
WindowStyleではなく
FormのHIDE状態からVIEW状態へ変更したウインドがありました。
解決の糸口になりましたありが㌧
0575デフォルトの名無しさん
NGNG問題が解決したなら結構。
Borland 製品を今後もよろしく！
0576デフォルトの名無しさん
NGNGWin98のバグ
ソースのアドレスは…忘れたスマン。MSのサイトにあったはず
0577デフォルトの名無しさん
NGNG何度も出ている話題かとおもいますが。。。。。
0578デフォルトの名無しさん
NGNGRichEdit20 がインストールされている環境（IE が入っていればまず問題ない）
でだけ動けばよいのなら、RichEdit98 ってコンポーネントをどこかから見つけてくれば
いいよ。
0579デフォルトの名無しさん
NGNGそれを実装しているコンポを使うのが楽。
http://www.users.gr.jp/ml/archive/delphi/33505.asp
0580デフォルトの名無しさん
NGNG標準コンポでやろうと思ってたんですけど、
やっぱRichEdit98を使うしかないですか。。。。
>>579
あのー、試してみようと思ったんですけど、
これってNiftyの会員じゃないと見れないようですね。。。無念
0581デフォルトの名無しさん
NGNGアニメーションをさせたいのですが・・・
0582デフォルトの名無しさん
NGNGリソース
0583571
NGNGｸｼｺヽ(´ー｀)ﾉ㌧㌧
できますた！
0584デフォルトの名無しさん
NGNG普通に実行する分には大丈夫なのですが
実行ファイル名.manifest でXPスタイルを適用すると
長い文字を選択した場合完全に文字列の選択が行われないんです。
--------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
// Memo1の選択内容をMemo2にコピー
Memo2.Text := Memo1.SelText;
end;
0585583
NGNGVBでも同じ現象になりました。
もしかして漏れだけ？
0586584
NGNG0587デフォルトの名無しさん
NGNGGetCursorPos以外の方法を昔見た気がするので教えてください。
#記憶ではasとか使っいたような気がします。
0588デフォルトの名無しさん
NGNG0589デフォルトの名無しさん
NGNGhttp://hp.vector.co.jp/authors/VA031513/
0590デフォルトの名無しさん
NGNGなかなか良いソフトだね。
ところでここは質問スレなんだけど日本語読めないのかな。
0591デフォルトの名無しさん
NGNG0592デフォルトの名無しさん
NGNGXP の仕様です。まじで。
0593デフォルトの名無しさん
NGNGfunction test:PChar;
var s:string;
begin
s:='test';
test:=@s[1];
end;
------------------
(vba)
Declare Function test Lib "aaa.dll" () As String
s=test
これを実行すると
「オートメーションエラーです。リモートプロセス用の・・」というエラーが出ます。
何が悪いのでしょうか？
0594デフォルトの名無しさん
NGNG0596デフォルトの名無しさん
NGNG0597593
NGNGでうまくいきました。
ありがとうございました。
でも前のコードでも、delphiで作ったプログラムからは呼び出せたのが疑問です。
0598デフォルトの名無しさん
NGNG0599デフォルトの名無しさん
NGNGWindowsXPでXPスタイル表示している場合のみ再現します。
フォームに TXPManifest と TCoolBar を置きます。
CoolBar にはツールバーを２つ格納し、CoolBand を２つにします。
ドラッグして Band を１行に並べます。
コンパイルして実行します。
フォームを横方向にリサイズします。
そうすると左側のCoolBandが少しずつ小さくなっていきます。
解決方法が分かる方がいましたらどうかよろしくお願いします。
0600デフォルトの名無しさん
NGNG0601デフォルトの名無しさん
NGNGTXPManifestは貼ってありまつ。回避策、ないでつか？
# Update で直るのかなぁ。。。
0602名無しさん
NGNG0603デフォルトの名無しさん
NGNG両方。フォームの幅を短くしたり長くしたり。
フォームを動かすたびに、CoolBarのBandサイズが変わってしまう。
0604デフォルトの名無しさん
NGNGサーバ用プログラム（ファイルが保存されているマシン用）と
クライアント用プログラム（ファイルを取得するマシン用）を用意する必要があると思う。
FTPとか調べて見てはどうでしょうか？
0605デフォルトの名無しさん
NGNGstatement1
else
statement2;
case variable of
const: statement1;
else statement2;
end;
どちらのほうが速いでしょうか？
0606デフォルトの名無しさん
NGNG0607デフォルトの名無しさん
NGNG0608デフォルトの名無しさん
NGNG休日を赤で表示したいと思っています。
予定を入れた日はGetMonthInfoイベントでBoldDaysメソッドを呼んで
太字にできたのですが、休日を赤いフォントに変更ってできるのでしょうか？
0609デフォルトの名無しさん
NGNG右クリックする毎に 1.bmp->3.bmp->2.bmp->1.bmp の順番で
イメージが切り替わるようにするにはどしたらいいですか？
イメージはTImageListに格納されています。
0610デフォルトの名無しさん
NGNGonclick発生しなかったっけ？
後は自分で頭使うところだ。
0611デフォルトの名無しさん
NGNGとか、言ってみる。
0612デフォルトの名無しさん
NGNGちょっと試してみます
0613デフォルトの名無しさん
NGNGprocedure TForm1.Image1Click(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbleft:
begin
ImageList1.GetBitmap(1,Image1.Picture.Bitmap);
Image1.Repaint;
end;
mbright:
begin
ImageList1.GetBitmap(2,Image1.Picture.Bitmap);
Image1.Repaint;
end;
end;
end;
で、一応クリックに応じてイメージの切り替えが出来たんですけど
切り替えたイメージのImageListでのIndex値はどうすれば取得できますか？
0614デフォルトの名無しさん
NGNGprocedure TForm1.Image1Click(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbleft:
begin
ImageList1.GetBitmap(1,Image1.Picture.Bitmap);
Image1.Repaint;
end;
mbright:
begin
ImageList1.GetBitmap(2,Image1.Picture.Bitmap);
Image1.Repaint;
end;
end;
end;
0615デフォルトの名無しさん
NGNGIndex: Integer;をどっかに宣言して
Index:=1;
ImageList1.GetBitmap(Index, Image1.Picture.Bitmap);
0616デフォルトの名無しさん
NGNG0617デフォルトの名無しさん
NGNGタスクスケジューラを制御しようと考えています。
それで、ITaskSchedulerなどの定義が必要なのですが、
Delphi6Proには定義ファイルがありませんでした。
また、タイプライブラリで取り込むことも出来ませんでした。
そこで、Delphi7ではITaskSchedulerなどが定義されているのか、
お持ちの方はソースを検索していただけませんか？
0618デフォルトの名無しさん
NGNG0619デフォルトの名無しさん
NGNGD7でも定義されてないよ。
検索してみたら
http://delphi.icm.edu.pl/ftp/d50free/TaskSched.zip
0620デフォルトの名無しさん
NGNGWinSockなどのコンポーネントを使った通信関係の解説をしているＷＥＢサイト教えて。
ＨＥＬＰには何もかかれてないよ。せめて簡単なサンプルがあれば自己解析するのだけど。
0621デフォルトの名無しさん
NGNGおお、ありがとうございます。
Cヘッダからコンバートする手間が省けました。
>>618
日本のサイトになかったと思ったら本家にあったのですね。
参考になります。
0622デフォルトの名無しさん
NGNGリアルタイムで、VBのようにまとめて知る方法はありませんか？
0623デフォルトの名無しさん
NGNGVBはどんな風にして知ることが出来るんだ？
0624デフォルトの名無しさん
NGNGVBのローカルウインドウのようなもので一括して知りたいのですが...
0625デフォルトの名無しさん
NGNGhttp://www.marcocantu.com/Tools/objdeb.htm
とか
http://www.greatis.com/objinsp.htm
とか
http://yamaguchi.cool.ne.jp/sort/delphi/
まだあるかも。
0626デフォルトの名無しさん
NGNGおお、スクリーンショット見た感じではこんな感じが欲しかったです
英語さっぱりなので使い方がさっぱりなので早速調べてきます
すばやいレス有難うございます
0627デフォルトの名無しさん
NGNG0628デフォルトの名無しさん
NGNGCヘッダからコンバートしたものには全部
「{$EXTERNALSYM XXXXX}」のようなコンパイラ指令（？）が定数などに
くっついているのですが、これはどう言う意味なのでしょうか？
Cヘッダからコンバートする場合は必ず付けなくてはならないのですか？
0629デフォルトの名無しさん
NGNG処理１
end else
処理２
上記のような文で、処理１を通らない条件の時、
処理１を変更して実行すると例外が出てプログラムが止まります。
なぜ通っていない処理１を変更しただけなのに止まりますか？
下記にまとめてみますた。
処理１を変更前、処理１を通る条件
正常に動く
処理１を変更後、処理１を通る条件
正常に動く
処理１を変更前、処理２を通る条件
正常に動く
処理１を変更後、処理２を通る条件
例外が出て止まる
コンパイル時に警告等は出ていません。
Delphi6を使っています。
0630デフォルトの名無しさん
NGNG>EXTERNALSYM 指令は，指定した Delphi シンボルが C++ 用に生成されたヘッダーファイルに現れないようにします。
>オーバーロードされたルーチンが指定された場合，ルーチンのすべてのバージョンがヘッダーファイルから取り除かれます。
つまり、BCBでDelphi用のコンポーネントを使うような時に、BCB側で定義済
の定義が一緒に出ないようにする為ののもので、Delphiだけを使ってるぶん
には関係ないという事です
0631デフォルトの名無しさん
NGNGコンパイラのバグじゃないの？
必ずそうなる最小限のコードを作ってみて。
ここに書けば日本の某２ｃｈ担当の人が米に連絡してくれるでしょう
0632デフォルトの名無しさん
NGNGついでに最適化の有無も
0633デフォルトの名無しさん
NGNG0634629
NGNG最小限のコードにサンプルプログラムが噛んでるから
たぶん、そっちに問題があるんだと思います。
>>632
最適化ってなんですか？
普通にF9で実行してるだけなんで最適化してないと思います。
>>633
処理１の内容を変更した後と変更する前で、実行後にエラーが
出るかどうかが変わるって事なんですが、意味不明ですか？
もう、諦めました。
変更前の状態でも使えるので、そっちでいきます。
お騒がせしました。
0635デフォルトの名無しさん
NGNG0636デフォルトの名無しさん
NGNG[プロジェクト]-[オプション]-[コンパイラ]-[コード生成]-[最適化]
＞もう、諦めました。
早すぎ。
0637デフォルトの名無しさん
NGNGなるほど。ヘルプに載っていたとはうかつでした…
解説ありがとうございます。
0638デフォルトの名無しさん
NGNGボタンのParentをステータスバーにする
位置はプログラムで調整
0639デフォルトの名無しさん
NGNG知らないでしょうか？XPになってからイメージングが無くなって困ったことになりました
0640デフォルトの名無しさん
NGNGおお、ありがとう。
直接フォームをテキストで開いて、
ステータスバーに対してボタンが入れ子状態にすると簡単にできたよ
0641デフォルトの名無しさん
NGNGPro版を購入するという手もある
0642デフォルトの名無しさん
NGNG0643デフォルトの名無しさん
NGNG>いいのですが、そのようなことは出来るのでしょうか？
ColnEdit.pas の ShowCollectionEditorClass の最後の引数を [ccMove] だけにして
カラムエディタを開けばいいんとちゃうか？
0644Del厨改めDel
NGNG５０枚程度のJPGを順番に表示させるスクリン・セーバーを
作りたいのですが取っ掛かりを教えて下さい。
下記スレで教えていただいたのですがテキストを点滅表示させると
いうものでした。
重ねて質問したところ帰るように言われてしまいました。
>1を読み、先にここに来るのだったと反省しています。
よろしくお願いします。
ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室⑧
http://pc3.2ch.net/test/read.cgi/tech/1035549044/
0645デフォルトの名無しさん
NGNGJPEG を画面に表示させる方法は判りましたか？
アプリとして、フォームに表示させてみて、次はディスクトップに表示してみて
それが出来ればリンク先の内容を読んで解決する筈です
0646Del厨改めDel
NGNGありがとう。
これから、考えてみます。
Delphi7を買ったばかりで済みません。
0647デフォルトの名無しさん
NGNGどしたらよろしいいでしょうか？
procedure TForm1.ListBox1MouseDown(Sender: TObject;
Button; TMouseButton; Shift; TShiftState; X, Y: integer;);
begin
if Button = mbRight then
// ここになんてかけばいいの?
end;
0648デフォルトの名無しさん
NGNG表示しないようにするには、どうしたらいいでしょうか。
とりあえずは、空のTPouupMenuをTEdit.PouupMenuに割り当ててるんですが、
もっとスマートなやり方があれば教えてください。
0649648
NGNGPouup→Popup
0650デフォルトの名無しさん
NGNGじゅうぶんスマートだと思う
0651デフォルトの名無しさん
NGNG左クリックを完全にシミュレートするなら、MouseMove と MouseDown も
必要です。
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Itm:integer;
begin
if Button = mbRight then begin
Itm := ListBox1.ItemAtPos(Point(X,Y),true);
if Itm = -1 then exit;
ListBox1.ItemIndex := Itm;
end;
end;
procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then begin
ListBox1MouseDown(Sender,Button,Shift,X,Y);
if Assigned(ListBox1.OnClick) then ListBox1.OnClick(Sender);
end;
end;
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssRight in Shift then
ListBox1MouseDown(Sender,mbRight,Shift,X,Y);
end;
0652デフォルトの名無しさん
NGNG0653デフォルトの名無しさん
NGNG再現しません
0654デフォルトの名無しさん
NGNGありがとう。望んでいた通りの動きになりました！
かなり感動してます。
0655デフォルトの名無しさん
NGNGありがとう。望んでいた通りの動きになりました！
かなり感動してます。
0656デフォルトの名無しさん
NGNG0657デフォルトの名無しさん
NGNG目が悪いのでは？
0658デフォルトの名無しさん
NGNGちゃんと手間暇かけて検証したのにそんな言い方はないだろ。
いくら 2ch だからって。まったく。
あなたは、性格が悪いのでは？ 早いパソコン買ったら？
0659デフォルトの名無しさん
NGNG0661ななしへたぐらま ◆XcB18Bks.Y
NGNG>657 は多分 >652 と別人でネタだと思いますが
調べてくれた方にとってはキツいですねぇ．
ツールバーはボタンに文字（Caption）を表示させて使うことが多いのですが
配置やサイズがおかしくなって戻らないことがしばしばあるので
（ちなみにD5）
未だにパネルにスピードボタンを貼り付けています．
0662デフォルトの名無しさん
NGNGForm1とForm2があり、以下のようなコードでForm1からForm2を立ち上げるています。
begin
with TForm1.Create(self) do
begin
Caption := '新規';
Show;
end;
end;
しかしながら、Form2でOpenDialogを実行するとForm1までShowModal状態になってしまいます。
要は、よくあるSDI型エディタで新規作成をすると新しいフォームが独立して立ち上がって、かつ
Form1を閉じると、立ち上がっているForm2がすべて閉じられるようなことがしたいのです。
根本的にコードが間違っていましたらすみません。
0663Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGhttp://www.asahi-net.or.jp/~HA3T-NKMR/tips025.htm
∧,,∧ ちょっとやり方が複雑になるかも
ミ,,ﾟДﾟ彡 しれませんが、ここを参考にしてみてください。
U つ
＠ﾐ ﾐ 面白いのが作れると
∪''∪ いいですね。
0664デフォルトの名無しさん
NGNG(条件：not 大/小文字の区別 and not ワード検索)
0665デフォルトの名無しさん
NGNGそれの良い副作用として、タスクバーの右クリック時に出るメニューが
Applicateionウィンドウのそれじゃなくて、フォームのメニューになるため、
Delphiアプリっぽくなくなる。
最近のギコナビでは実装済み。
0666デフォルトの名無しさん
NGNGファイル（F）の（F）が有りません
パッケージ裏のスクリーンショットを見ると
ちゃんと有るんですが
インストール失敗でしょうか？
0667デフォルトの名無しさん
NGNGうちのも無いからしんぱいするな。
ALTキーを押してカーソルを動かしたらでるとか
何かの拍子に表示されたような気がするから試してみて
それよりCDケースは割れてなかった？
0668デフォルトの名無しさん
NGNGAlt + F １回押せば出てくるけど
起動時は必ず非表示で気持ち悪いです。
CDケースは大丈夫でしたよ。
0669デフォルトの名無しさん
NGNG正規検索を ON にして
func[^t][^i][^o][^n]
てのは？
0670デフォルトの名無しさん
NGNGALTだけで出る
0671ねこま
NGNG0672デフォルトの名無しさん
NGNG???
MDIよりマシだと思うが。
0674664
NGNG0675デフォルトの名無しさん
NGNGこういうの良く出るんだけど、このあとにもう'A'を使わない場合
ほっといてもいいの？
0676デフォルトの名無しさん
NGNGそれはループ終わった後に再びAを参照してる時にでるんじゃないっけ？
よく出る・・・ものでは無いと思うぞ（w
出るｿｰｽｷﾎﾞﾝﾇ
0677デフォルトの名無しさん
NGNGfunction に一致せず func に一致するのだから、要求された仕様通りだと思うが。
functions には一致させたいの？
もう一度要求仕様を定義し直してくれ。
0678デフォルトの名無しさん
NGNG>このあとにもう'A'を使わない場合
そりゃAを使ってるから警告が出るんだよ。
for A := 0 to 10 do
;
writeln('A=',A); <-ここで警告
この警告が出た場合バグる可能性大
0679デフォルトの名無しさん
NGNGfuncを検索すると、予約語のfunctionがたくさんマッチします。
この予約語のfunctionを検索結果から除外したいということです。
AnsiContainsText(identifier, 'func') and not (identifier = 'function')
0680デフォルトの名無しさん
NGNG> writeln('A=',A); <-ここで警告
顔文字に見えた・・・
0681デフォルトの名無しさん
NGNGどうでもいいがfuncなんて識別子を多用する奴は筋が悪い。
0683デフォルトの名無しさん
NGNG「function」を「imoyoukangatabetakattana-」に全置換してから「func」で検索するのぢゃ。
0685675
NGNG勉強中の身なんで、おかしなソースかもしれないけどこんな感じです。
for c:=0 to datacount div 60 -1 do
begin
for i:=f+2 to f+59 do
begin
with data[i] do
begin
if l>Lo then l:=Lo;
if h<Hi then h:=Hi;
end;
end;
if high(data[datacount-1].od)=-1 then setlength(data[i-1].od,2)
else setlength(data[i-1].od,high(data[i-1].od)+3);
data[i-1].od[high(data[i-1].od)-1]:=h;
data[i-1].od[high(data[i-1].od)]:=l;
h:=0;
l:=9999999;
inc(f,60);
end;
これで、
[警告] unit1.pas(227): for ループ 脱出後の ループ制御変数 'i' の値は不定です
と出ます。
とりあえず問題なく動いているのですが
なんとなく気になります。が、なにがおかしいのかわからず・・・。
アドバイスあったらよろしくです。
0686デフォルトの名無しさん
NGNGここで思いっきりiを参照してるじゃん。
iが不定ってことはiにはランダムな値（実際には違うけど）が
はいっていると理解しとけばいいよ。
0687675
NGNGレスありがとうございます。
いまいち納得できないのですけど、例えば
for i:=0 to 10 do
showmessage(inttostr(i));
showmessage(inttostr(i));
こんな感じの場合、２個目のshowmessageで
「[警告] unit1.pas(227): for ループ 脱出後の ループ制御変数 'i' の値は不定です」が
出るわけですけど、実際これで動かしてみると2個目のshowmessageの'i'には
常に（何百回も試したわけではないので常にとは言い切れないが）11が入ってるんですけど、
そうでない値が入る可能性もあるということですか？
0688デフォルトの名無しさん
NGNGそういうこと。なんでそうなるかというと、たとえば
for i:=0 to 1 do showmessage('hoge');
のようなプログラムを書いたときに、コンパイル時に最適化されて実行ファイルでは
showmessage('hoge');
showmessage('hoge');
となる可能性がある。結果は変わらないが、for文の後で i の値が1になるとは限らない。
不定ってのはこういうこと。
0689FAQなわけだが
NGNGが最適化で
for i := 10 downto 0 do
に置き換えられるケースがあったような。
0690デフォルトの名無しさん
NGNG0691675
NGNG勉強になりました。ありがとうございました。
0692デフォルトの名無しさん
NGNG0693デフォルトの名無しさん
NGNG0694デフォルトの名無しさん
NGNGどういった方法をとればいいのでしょうか？
サンプルコードでも頂ければ光栄です。
0695デフォルトの名無しさん
NGNG0696デフォルトの名無しさん
NGNG0697デフォルトの名無しさん
NGNGメモリ内部のＨＴＭＬイメージから出力する前に
WebBrowser1.Navigate('about:blank');
WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms);
こういう方法が２thで紹介されていたので、早速実験しました。
ドキュメントの表示もうまくいったのですが、グラフィックのリンクがおかしくなって
表示できません。例えば
<imgsrc='A.jpg'> は about:.A.jpg になってしまいます。
これを回避するにはどうすればよいのでしょうか？
0698デフォルトの名無しさん
NGNGpasdoc の GUI を作ってるの？ メモリイメージでいきなり表示出来れば最高だね
0699デフォルトの名無しさん
NGNG0700デフォルトの名無しさん
NGNG0702デフォルトの名無しさん
NGNGお前っちなんかいいやつだな
0703697
NGNGメモリイメージで表示はできたんですけどね。
リンク先が調整できない。
HTML内の SRC= と書いた時のディフォルトのURLがHTML内のどこかに存在してるのかな。
だとすれば、出力する前にメモリ上のHTMLに書き足せばいいだけなんだけど^^；
about:file///e:\data\ 表示できないグラフィックをプロパティで見たらこんなURLに
なってるし...
0704デフォルトの名無しさん
NGNGHTMLを勉強しる！
ttp://tohoho.wakusei.ne.jp/html/base.htm
0705697
NGNGなるほど、
これ頭にくっつけて出力すればたぶんOKですね。 THX
0706デフォルトの名無しさん
NGNGexcite翻訳を使いながらなんとか途中まではできたのですが
わからないので教えてください。
「ファイル」→「File」
みたいな感じで、「日付を指定」はなんと訳せばいいのでしょうか？
0707デフォルトの名無しさん
NGNGDate じゃだめﾅﾉ?
マニュアルにのっけるのか、ソフトに埋め込んでるのかわからないけど。
0708706
NGNG「date」だとちょっとまずいっす。
はぁ～・・・。頭悪いとつらい・・・・ Ｔ ｏＴ）
0709デフォルトの名無しさん
NGNG話が続かないというオチになりますが。
0710デフォルトの名無しさん
NGNGTListに項目を追加する前にGetMemしたポインタを解放する際、
今まではFreeMemしていたのですが、ヘルプを見るとCapacityプロパティを
減らしてもメモリを解放できることが書いてありました（TList.Deleteの注意書き）。
ソースを見るとCapacityはReallocMemしてましたが、FreeMemするときと
どう違うのでしょうか？
結果として同じように使っていたメモリが解放されるのでしょうか？
0711デフォルトの名無しさん
NGNGCapacityが増やされたときFreeMemではまずいだろ。
だからReallocMem。
そいうことを聞きたいんじゃない？
0712デフォルトの名無しさん
NGNGそれに代替する手段でもいいんですけど……
0713デフォルトの名無しさん
NGNGPersonalは使ってないからわからないけど、IniFilesユニットのTIniFileってないかな？
0714デフォルトの名無しさん
NGNGあー、そういう考えもありますね。
でもメモリ解放の相違が何か知りたくて。どっちでやっても同じく解放されるのか否か。
0716デフォルトの名無しさん
NGNGあるよ。
ソースの適当なところにTIniFileって打ち込んで、そこにカーソル合わせてF1押してみ。
0717712
NGNGあと、できれば例文１つくらい紹介お願いします。
0719デフォルトの名無しさん
NGNG例えばWriteIntegerメソッドの例を見るとか。
0720デフォルトの名無しさん
NGNGprocedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
with Ini do
begin
try
{ここにIniの読み書きを記述}
//WriteInteger('Window', 'Width', Width);
finally
Free;
end;
end;
end;
0721712
NGNG0722デフォルトの名無しさん
NGNGprocedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
with Ini do
begin
try
{ここにIniの読み書きを記述}
//Width := ReadInteger('Window', 'Width', Width);
//WriteInteger('Window', 'Width', Width);
finally
Free;
end;
end;
end;
0723デフォルトの名無しさん
NGNG難儀しています。
手始めに秀丸マクロから使われることの多いDDEサーバー「田楽サーバー」
ttp://www.ceres.dti.ne.jp/~sugiura/hidemaru/macros/dgserver/
を制御しようと思ったのですがアドバイズループというものはどのように
実装すればいいのかまるで分からず・・・。TDDEClientItemとTDDEClientConvを
うまく組み合わせるのだろうな、とは思うのですがそれ以上先に進めません。
教えていただけないでしょうか？
0724デフォルトの名無しさん
NGNG等の設定はどこをどのように弄ればいいんでしょうか。
レジストリを直接弄ってみたのですが、アプリケーションを再起動しないと有効に
ならないのでどうしたものかと・・・
0725ねこま
NGNG消滅？
0726デフォルトの名無しさん
NGNG>javaやスクリプトの有効無効
TEmbeddedWBやTUIWebBrowserを使う。またはソースを参考にする。
>プロクシのONOFF
URLMkSetSessionOption
0727デフォルトの名無しさん
NGNGなんか設定間違えているみたい。
ファイルはあるよ。
http://www.euromind.com/iedelphi/index.htm
0729デフォルトの名無しさん
NGNGいったん削除して追加する以外の方法はありますか？
0730デフォルトの名無しさん
NGNGListView1.Items[i]:.SubItems[j] := 'hoge';
とかじゃなくて？
0731デフォルトの名無しさん
NGNGありがとうございます、しかしそれだとエラーになります…。
あきらめて TStringGrid に変更しました。
0732デフォルトの名無しさん
NGNGもう諦めるのかよ・・・エラーの内容を教えてくれないかな。
0733デフォルトの名無しさん
NGNG具体的なエラーの内容が確認できなくなってしまいました。
ヘルプを見ると、TListView.Itemsは "仮想モードで動作している場合は読み出し専用" とのことなので、
用語がいまいち分からないのですが、「仮想モード ＝ デバッグ時のモード」と仮定すると、
単純にデバッグ時に書き込めないだけなのかもしれません。
0734デフォルトの名無しさん
NGNG仮想モードというのは仮想リストビュー(バーチャルリストビュー)のこと。
TListView.OwnerData が True だと仮想リストビュー。
この場合、リストビュー以外でデータを(あなたが)管理しているはずなので、
そのデータを書き換えれば変更できたはず。
0736デフォルトの名無しさん
NGNGなるほど、勘違いでしたか。訂正ありがとうございます。
うーん、じゃあきっと書き換えの部分以外のどこかでアホなコード書いてたんですね…。
0737デフォルトの名無しさん
NGNG何秒くらいかかる？
0738デフォルトの名無しさん
NGNG送り先のアプリがエンターキーとテンキー側のエンターキーで動作が違う
作りになってるんです。
で、この区別って仮想キーコードではできないんですか？
0739ｎ
NGNGconst n = 100;
h = 1/n;
var sum : real;
count : integer;
begin
count := 0;
sum := 0.0;
while count < n do
begin
sum := sum + h;
count := count + 1;
end;
writeln('sum = ', sum)
end.
上のプログラムを利用して、
ｎを１から10000の値で変化させた時の
計算で求まる和をそれぞれＳnとしたとき
Ｓnと１との差｜１－Ｓn｜
を表示するプログラムを作りたいのですがどのようにしたらよろしいでしょうか。
浮動小数点の問題です。
0740デフォルトの名無しさん
NGNGTGraphicのインスタンスの中のデータに対して、TCanvasで定義されてる各種
画像操作をしたいんですけど、どうすればいいのですか？
よろしくお願いします
0741デフォルトの名無しさん
NGNGもしかしてその動作させてるマシンのキーボード、Enter と「実行」キーじゃないか？
であれば仮想キーコード違うけど。
ちょっと試したけど、同じコードが帰るのが普通だし、ShiftState も違わんし。
0742デフォルトの名無しさん
NGNG対象マシンは富士通のFMVです。
普通のパソコンです。
元々のプログラムはオフコンで動いてたのをそのまま移植した物なのでキー操作がオフコン仕様なんです(^^;
ソフトは取引先からの貸与なんですが、同じ伝票を２度打ちしないといけない仕様なんで、
楽をするために打ち込みプログラムだけ作ってます。
で、フルキー側のEnterで伝票登録、テンキー側のエンターで次行に移動とゆう頭の痛い作りなんで
普通にVK_RETURNを送ってしまうと伝票登録になってしまうんです。
毎日数百枚打ち込むんでこれが出来れば作業が半分になるんですが。
0743デフォルトの名無しさん
NGNGまさかキーボードドライバがオフコン仕様とか（爆）
ためしに、その対象マシンで、どんなキーコード出しているか調べてみればいいんでは。
それだけなら五分もあれば作れるだろうし（ｗ
＃Form.OnKeyDown で Key を Label かどっかに出力させるプログラムを書いて、動かしてみれ
0744デフォルトの名無しさん
NGNG調べてみるとか。
＃実はキーボードドライバがオフコン仕様です、とかいう罠だったりして……
0745デフォルトの名無しさん
NGNGGridBagLayoutの使い方がよくわからないのですが、何かいいサンプルはないでしょうか？
よろしくお願いします。
0746デフォルトの名無しさん
NGNGここは Delphi質問スレ。
適当な Java スレに逝ってくれ。
0747デフォルトの名無しさん
NGNG検索したら、VK_SEPARATORてーのがあったが、これじゃない？
恐らくSetKeyboardState あたりで指定できると思われ
0748738
NGNG>>744
両方とも#13でした。
>>747
VK_SEPARATORを送っても何も起こりませんでした。
SetKeybordStateは明日試してみます。
0749デフォルトの名無しさん
NGNGあったと思うんだけど、どこだか忘れてしまったので貼ってくだされ。
0750デフォルトの名無しさん
NGNGGetMem(p,size);
で確保したpのメモリ領域に対して、
BlockRead(var F: File; var Buf; Count: Integer);
を使ってファイルからデータを読み込みたいのですが、どうしたらいいんでしょう？
BlockRead()の２つ目の引数に、変数ではなくアドレスを渡す方法が知りたいのです。
0751デフォルトの名無しさん
NGNGつかTFileStream使え
0752辻希美
NGNG0753デフォルトの名無しさん
NGNGラリホー
0754デフォルトの名無しさん
NGNGWin95迄なら楽だったんだけどね。
今だと、DirectInput を使うしかないんじゃないかな。
http://www.google.co.jp/search?q=DInput.pas
0755(・∀・)ﾋﾟｮﾙｧ
NGNGwindowsに付属しているメモ帳みたいなものを
作っているんですけど以下のプログラムを教えてください。
いろんなサイトをまわったりヘルプを読んでみたりしましたが
警告文もなしですぐに上書きされてしまうなど
不完全なプログラムばっかりだったので。。
・ファイルを開く
・新規作成
・名前を付けて保存
・上書き保存
・印刷
・ワードについているような文字数のカウント
よろしくお願いします。
0756デフォルトの名無しさん
NGNG・Memo.Clear()
・Memo.Lines.SaveToFile(FileName)
・Memo.Lines.SaveToFile(FileName)
・Printer
・Length(WideString(Memo.Lines.Text))
警告はMemo.Modifiedを参照してダイアログ出せばいい。
0757デフォルトの名無しさん
NGNG＞・ファイルを開く
Memo1.Lines.LoadFromFile('Damepo.txt');
みたいな感じでガンバレ。
＞・新規作成
ファイルを開かずにいきなり書き始めれば新規作成と同じだろー
＞・名前を付けて保存
TSaveDialog辺りでヘルプを見れ。
あとは
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
見たいな感じで。
・上書き保存
FileExists ってゆー便利な関数があるから、それで古いファイルの有無を
確認しる。
＞・印刷
俺も詳しく知らないからパス
＞・ワードについているような文字数のカウント
Length(Memo1.Lines.Text);
ただし改行が二文字にカウントされる諸刃の剣
0758デフォルトの名無しさん
NGNGpはPointer型だから、p^はエラー出ないか？
PChar(p)^ とか、 PByte(p)^ にしる！
0760デフォルトの名無しさん
NGNG調べながらやってみ。
本当にわからんとこをピンポイントで質問しないと効率悪いよ。
0761(・∀・)ﾋﾟｮﾙｧ
NGNGわかりました。ありがとうございます。
0762デフォルトの名無しさん
NGNGp^は何にも代入互換がないだけで有りだよ。
0763デフォルトの名無しさん
NGNG>ただし改行が二文字にカウントされる諸刃の剣
Memo1.Lines.Countでなんとでも調整できるべ
0764(・∀・)ﾋﾟｮﾙｧ
NGNG文字数カウントという項目を作りそこをダブルクリックして
以下のプログラムをbeginとend;の間に書いてF9してみたのですが
・未定義の識別子 :'sTrDate'
・未定義の識別子 :'Label1'
・互換性の無い型です
・未定義の識別子 : 'Label2'
・互換性の無い型です
と言うふうにDelphiに怒られてしまいます。
良かったら教えてください。よろしくお願いします。
strData := 'Delphiデルファイ';
{ バイト数 }
Label1.Caption := IntToStr( Length(strData) );
{ 文字数 }
Label2.Caption := IntToStr( ByteToCharLen(strData, Length(strData)) );
わかりにくかったら(・Α・)ｺﾞﾒﾝﾅｻｲ
0765デフォルトの名無しさん
NGNG・変数は宣言しよう
（strDateとstrDataは別の変数）
・ラベルをフォームに貼り付けよう
いじょ
0766(・∀・)ﾋﾟｮﾙｧ
NGNGVar
strData;
Label1;
Label2;
procedure TForm1.N8Click(Sender: TObject);
begin
strData := 'Delphiデルファイ';
{ バイト数 }
Label1.Caption := IntToStr( Length(strData) );
{ 文字数 }
Label2.Caption := IntToStr( ByteToCharLen(strData, Length(strData)) );
end;
end.
と書いたのですが、できません、何が原因なのでしょうか？
(´・ω・｀)ｼｮﾎﾞｰﾝ
0767(・∀・)ﾋﾟｮﾙｧ
NGNGVarの
Label1
Label2
というのは無視してください。
0768デフォルトの名無しさん
NGNG>Var
>strData;
>Label1;
>Label2;
ここんとこが間違い
ラベルをフォームへ２つ貼り付ける
（Label1、Label2という名前が勝手につく）
変数宣言には型の指定が必要
var
strData: String;
0769デフォルトの名無しさん
NGNG0770デフォルトの名無しさん
NGNGLabel1とかは、varで宣言するんじゃなくて、フォーム（実行したときのメインの
ウィンドウの事ね）に貼り付けるんだよ。そうすると勝手に宣言される。
上の方に出てる、コンポーネントパレットの[Ａ]と出てる奴を押して、フォームの
適当な所をクリックすると、Label1ってのが作られる。二個目はLabel2になる。
strDataはちゃんと文字列型として宣言するべし。
var
strData: String;
とね。
あとｸﾞﾛﾊﾞﾙ変数使うな。
0771(・∀・)ﾋﾟｮﾙｧ
NGNG>>789
>>790
ありがとうございます。
言われた通りにやってみたら
エラーなくできました。
でも文字数のカウント押しても
何も出なくて虚しいです。どうしてでしょうか・・。(´・ω・｀)ｼｮﾎﾞｰﾝ
0772(・∀・)ﾋﾟｮﾙｧ
NGNG>>768
>>769
>>770
でした。
0773デフォルトの名無しさん
NGNG>>789
>>790
未来参照??
0774(・∀・)ﾋﾟｮﾙｧ
NGNGそうなっちゃいますね。
すいません（藁
0775デフォルトの名無しさん
NGNG0776デフォルトの名無しさん
NGNG正直、↓から始めた方が良いと思われ・・・
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
Writeln('Hello, World!');
end.
0777デフォルトの名無しさん
NGNG0778(・∀・)ﾋﾟｮﾙｧ
NGNGはい。貼りつけたんですよ。
だから
Label1・Label2
の未定義エラーは出なくなりました。
>>776
一応、今日の朝やりました。
へぼですいません…(´・ω・｀)ｼｮﾎﾞｰﾝ
0779デフォルトの名無しさん
NGNG0780デフォルトの名無しさん
NGNG作ろうと思いつつ、既に2年の月日が・・・
0781デフォルトの名無しさん
NGNG＞一応、今日の朝やりました。
＞へぼですいません…(´・ω・｀)ｼｮﾎﾞｰﾝ
まじ？
普通の人は ShowMessage('Hello') から始めるんだが、 Writeln('Hello') から始めるとは・・・
君、見込みあるよ、頑張って立派なDEL厨になってくれ。
0782デフォルトの名無しさん
NGNG神は現れるか？？
期待age
0783Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGミ,,ﾟДﾟﾐつ ｵﾒﾃﾞﾃｰﾅ
Delphi プログラミング事始め メニュー
http://www2s.biglobe.ne.jp/~hatena/delphi/index.html
DelphiTutorHome
http://www.netjoy.ne.jp/~tuya/DlphTutor/index.html
Delphi はじめの一歩
http://delphi.sakura.vg/index2.html
Do It YourSelf---Life with Delphi
http://home.onestop.net/mineko/index2.html
flow of waterプログラミング講座
http://wblue.hp.infoseek.co.jp/prog/chair_top.htm
Pascal・Delphi入門：オンライン学習 ページ
http://or-lab.asahi-u.ac.jp/intro_to_delphi/default.htm
Seventh Delphi
http://kakinotane.s7.xrea.com/dirDelphi/mainmenu.html
ゼロから始めるDelphi講座
http://www.text2music.com/text/delphi/zero/index.htm
メルマガ 「Delphi 買ったけど。。」
http://hp.vector.co.jp/authors/VA009187/delkedo/
Ｄｅｌｐｈｉ（デルファイ）のページ
http://www.threeweb.ad.jp/~satou/
0784(・∀・)ﾋﾟｮﾙｧ
NGNGあっそうなんですか。ありがとうございます。
どこかのサイトを参考にしてやったんです。
確かにShowMessageが一番簡単ですよね。
0785デフォルトの名無しさん
NGNGﾌｻｷﾞｺって、こういうテンプレをあらかじめ用意して待機してるのか・・・流石だ。
0786デフォルトの名無しさん
NGNGﾌｻｷﾞｺが作るってさ
0787デフォルトの名無しさん
NGNGサイト見てもよく分からないんだよな。
0788デフォルトの名無しさん
NGNG～独習Delphi～
第一章Delphiの基礎
・Delphiの歴史
・オブジェクト指向とは
・最初の簡単なプログラム
・プログラムの要素
第二章データ型
第三章
というか独習C#のパクリで。
0789デフォルトの名無しさん
NGNG788の目次
・最初の簡単なプログラムのなかで
テキストエディタ
ペイント(windowsに入ってるような簡単なのでもOK
ぐらいは(ﾟДﾟ)ﾎｽｨ
0790デフォルトの名無しさん
NGNG期待age
0791デフォルトの名無しさん
NGNG0792(・∀・)ﾋﾟ;ﾖﾙｧ
NGNGこれで合ってますでしょうか？
文字数カウントのプログラム
procedure TForm1.N8Click(Sender: TObject);
Var
strData: String;
begin
strData := 'Delphiデルファイ';
{ バイト数 }
Label1.Caption := IntToStr( Length(strData) );
{ 文字数 }
Label2.Caption := IntToStr( ByteToCharLen(strData, Length(strData)) );
end;
0793デフォルトの名無しさん
NGNGヘルプ見れば分かるだろ
0794デフォルトの名無しさん
NGNG>>783 のサイトの作成者も、入門者に分かりやすく説明するために
努力してるんだよ。ちゃんと読めば、それなりに分かるはず。
それでもダメなら、才能がないことを悟って、別の道へ行くべし
0795Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGLife with Delph・
http://home.onestop.net/mineko/index2.html
Delphiの歴史
http://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/history.htm
メモ帳
http://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/beginner/cook_notepad.htm
落書き帳
http://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/beginner/cook_scribble.htm
・文字数を調べる
http://www.wwlnk.com/boheme/delphi/tips/tec0720.htm
＿＿＿＿＿＿＿＿
. ♀ （ 自分で作って
／＼ （ 自分が神におなりなさい
. |∧ ∧ .。○ ――――――
＿＿_ ミ,,ﾟДﾟ彡＿＿_
| ⊂[ﾀﾞﾒｰ]⊃ |
￣￣￣ﾐ ﾐ￣￣￣ ＿＿
'|. ﾐ ﾐ |__†＿ﾚ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'|. |.ＵＵ| (ﾟДﾟ,,) ＜ 迷える子羊よ、お訊きなさい・・
'|. | | ∧ ∧⊂￣￣ﾊ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
'|. | |.( ,) | ╋ Ｊ
|￣￣￣./⌒ヽ￣￣￣|
| （ ノ ） |
￣￣￣￣￣￣￣￣￣￣￣￣￣￣
＿＿＿＿＿＿＿|＼＿＿＿＿＿＿＿＿
神よ
メモ帳とペイントの作り方を説明した
サイトきぼんぬ、(ﾟДﾟ)ﾎｽｨ
0796デフォルトの名無しさん
NGNGうむ、ごくろう。
0797Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG| || ／
∧ ∧ 。 O ○ がんばってね
＿_ミﾟДﾟ,,彡＿ ＼
|__⊂ ﾉﾉつ__|| ￣￣￣￣￣￣￣
.ﾐ ﾉﾉミ
.∪∪|
| ||
|＿_||
／ ヽ＼
|￣￣￣| ￣|
／..†ΨΨ† ヽ ＼
紹介したサイトをしっぽりみて勉強して
そいで、わからなかったら
質問してみると、きっといろんな人が
助けてくれるよ。
0798デフォルトの名無しさん
NGNG更新をシステム化しないと面倒でやめちゃうんだよね。
0799デフォルトの名無しさん
NGNG0800デフォルトの名無しさん
NGNG0801デフォルトの名無しさん
NGNGﾜﾗﾀ
0802デフォルトの名無しさん
NGNG0803デフォルトの名無しさん
NGNGまぢでつか？
もうだめぽ。
0804デフォルトの名無しさん
NGNGWiki のように他の人の力を借りてページを更新できる
仕組みを作ったほうがいいのかもしれない。
0805デフォルトの名無しさん
NGNG前にもあったけどYukiWiki使いづらいし
他の言語も混ざってていまいち機能してなかったよ。
0806デフォルトの名無しさん
NGNGそのために、クリップボード監視して、新しいイメージが挿入されたら指定ディレクトリに
連番でPNGで保存していくソフト作ったところでページ作成断念＞俺
0807デフォルトの名無しさん
NGNG0808デフォルトの名無しさん
NGNGそれ出したの多分俺だ。
ただ、ドキュメント見ただけで使ってないし、更新止まってるみたいだからなんともいえない。
ぜひ評価して感想よろしく。
DECAL
http://www4.kcn.ne.jp/~corocoro/action/action.html
で、検索で今度はこんなの見つけた
DCLX is a free library that provides ArrayList, LinkedList, Vector, HashMap, HashSet, ArraySet, Queue and Stack structures to Delphi/Kylix. It also provides algorithms like in STL (Apply, Found, CountObject, Copy, Generate, Fill, Reverse, Sort...).
http://sourceforge.net/projects/dclx
0809808
NGNG> http://www4.kcn.ne.jp/~corocoro/action/action.html
？？なんで、こんなURLがクリップボード入ってたんだ？
正しくはこっちね。
DECAL
https://sourceforge.net/projects/decal/
0810デフォルトの名無しさん
NGNGIdHTTP1.Get(Edit1.Text);
したいときEdit1.TextのURLが存在しないとき、エラーダイアログが出ます。
これを非表示もしくはEdit1.TextのURLが存在するかチェックしてエラーを誰
もいない環境でスルーしたいのですが、誰か知ってる方お願いします
0811デフォルトの名無しさん
NGNGtry
IdHTTP.Get(edit1.text);
exception
//IdHTTP. ResponseCode;
end;
0812デフォルトの名無しさん
NGNGところでPukiWikiでよければ立てますが？＞ALL
これ http://pukiwiki.org/
Tiki, YukiWikiより使いやすいと個人的に思う。
使ってみる？
0813デフォルトの名無しさん
NGNGぜひ立ててください。ちょっとはお手伝いできるかもです>Delphiサイト
PukiWikiというのは知りませんでしたが画像を展開して表示できて
Delphiのコードが簡単に書ける（変に解釈されない）ものがいいですね。
TOEICから帰ってきたら体裁を整えて目次を作ってみるので、
適当に遊んで慣れてみてください。
ソースは先頭に半角空白を入れておけばpreで表示されます。
そのほかはヘルプを見てちょ。
http://onigiri.s3.xrea.com:8080/delphi/
0815デフォルトの名無しさん
NGNG早速かっこいいバグ報告ページができてますね。すげぇ。
画像Upload掲示板が要りそうなので別に設置します。
一応PukiWikiだけでもアップロードはできるんですけど、あまり使い勝手が良くないので。
今考えているのは
・初心者向けの一通りの解説
・VCL使用サンプル(magic of delphiみたいなの。）
・IndyやTRegExprのヘルプの日本語訳（これ、やろうと思ってたんでぼちぼち自分でも追加します。）
・お勉強ページ、批評ページ、Delphiで作られたアプリへのリンク
などなど。欲張りすぎるとアレですが。このうちいくつかはどうせ自分でも作ろうと思ってたんで
（思ってただけで全然進んでいないんですがw）
皆がちょこちょこ書いてくださればなかなかのものができるんではないかと。
0817デフォルトの名無しさん
NGNGコモンダイアログの仕様じゃないの？
ってコメントはどうつけたらいいのかな？
0818デフォルトの名無しさん
NGNG0819デフォルトの名無しさん
NGNG今のままだと、バグレポートだけでひとつのページでしょ？
使い勝手悪くない？
0820デフォルトの名無しさん
NGNG使い勝手が悪くなったら一バグ一ページとかに独立させるとか
http://onigiri.s3.xrea.com:8080/index.php?%5B%5B%A5%E9%C5%B5%5D%5D
0822デフォルトの名無しさん
NGNGgoogleリンクの所為だろうけどかっこわるいね。
0823デフォルトの名無しさん
NGNG文字列にリンク先埋め込めないの？
0825デフォルトの名無しさん
NGNG0826デフォルトの名無しさん
NGNG0827デフォルトの名無しさん
NGNG0828デフォルトの名無しさん
NGNG微妙な会社組織からの書き込みになるので、サーバー管理者以外には
書き込み者の IP アドレスが表示されなければいいな。っと。
ざっと見た限りでは大丈夫そうですが。
0830デフォルトの名無しさん
NGNGお疲れ。私は寝ます。また明日。
0831デフォルトの名無しさん
NGNG試しにコンパイル…
ｳﾏｸｲｯﾀｰ!!!
恥ずかしくもありがとうございました。
ホントスミマセンでした。
0832デフォルトの名無しさん
NGNG0833デフォルトの名無しさん
NGNGダイアルアップだから編集できないんじゃ？
0834デフォルトの名無しさん
NGNG0835デフォルトの名無しさん
NGNGD6? D7?
0836デフォルトの名無しさん
NGNGD6だが、７って無料あるの？
0837デフォルトの名無しさん
NGNG0838デフォルトの名無しさん
NGNG３球
0839デフォルトの名無しさん
NGNG0841デフォルトの名無しさん
NGNG0842デフォルトの名無しさん
NGNG0843デフォルトの名無しさん
NGNG勝手に編集していいの？
でもそれだと荒らされないの？
荒らす意思がなくても、主義主張の対立で結果的に荒れちゃうってことは？
余計な心配なんでしょうか？？？
0844デフォルトの名無しさん
NGNGWikiは荒らしたりはしないという性善説に依って成り立っています。
荒らしを恐れるよりも多人数でページを作り上げていく
メリットの方が重要であるのだと思います。
万一に備えて定期的にバックアップは取っている、筈。
だからどうぞ勝手に編集してしまってください。
# さしあたって、あなたの質問と私の解答を書いてみるとか。
私見ですが、Wikiは主義主張をぶつけあう議論の場には
向いていないように思います。そういうのはここでやりません？
0846Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG∧,,∧
ミ,,ﾟДﾟﾐζ
ﾐ つ旦
～と,,,~),,~)
0847844
NGNG作ってくれた人ありがと。すてきです
0848デフォルトの名無しさん
NGNG2ch って、性善説の人のかたまりだと思うよ。
性善説の人が正しいことを行うとは限らない。というだけ。
0849デフォルトの名無しさん
NGNG私を含めて少なくとも３人が修正/変更しているのね。
0850デフォルトの名無しさん
NGNGが WikiName としては ShiftState となってしまって、先頭の T が落ちてしまいます。
連続する大文字は WikiName とは見なさないのですね？
どうにかならないかな？
0851デフォルトの名無しさん
NGNGで、性悪説で世の中を見ているのが吐駄や中村。
WikiNameを抑制する方法は、残念ながらWikiのアイデンティティーに関わるので
過去に要望されていますがなかなか取り入れてもらえないようです。
正規表現道場@2ch
http://pc.2ch.net/test/read.cgi/php/996105815/950- 参照。
0853デフォルトの名無しさん
NGNGフサギコスレかWikiスレに移動しない?
そろそろスレ違いの気配が。
0855デフォルトの名無しさん
NGNGミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室 ⑧
http://pc3.2ch.net/test/read.cgi/tech/1035676809/
ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室⑧
http://pc3.2ch.net/test/read.cgi/tech/1035549044/
ふたつできちゃったんだよなぁ..
0856では
NGNG>ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室 ⑧
>http://pc3.2ch.net/test/read.cgi/tech/1035676809/
0857デフォルトの名無しさん
NGNG0858デフォルトの名無しさん
NGNGこんなことできるのでしょうか？
このブラウザ内に読み込まれたＨＴＭＬに書かれているjavascriptですが、
１ プログラム側から呼び出すことはできるのか？
２ ＨＴＭＬ内で宣言されたファンクションにコールバック設定をして、ＨＴＭＬのトリガを受け取ることができるのか？
３ 変数の読み出しはできるのか？
１．２は無理でもせめて３ができると嬉しいのですが....
0859デフォルトの名無しさん
NGNGtiffからpng
上記の変換をするソフトを作成したいのですが、
フリーのDLL等ありますでしょうか？
また、無いとしたらソフト内で処理するとして、
参考になるようなサイト等教えていただきたいのですが。
よろしくお願いします。
0860デフォルトの名無しさん
NGNG0861りゅう
NGNGどういう風に書くか教えてください(ﾟДﾟ)
よろしくお願いします。
できれば
Varに～書いて…
begin～end;にこう書いてと詳しくお願いします。
超・初心者なので(;´∀｀)
0862りゅう
NGNG(´・ω・｀)ｼｮﾎﾞｰﾝ
0863デフォルトの名無しさん
NGNG0864デフォルトの名無しさん
NGNGそれを押すとエディタの部分（白いとこ）に
時刻が出るよな？あれをDelphiでやるには
どうしたらいいんでつか。
0865デフォルトの名無しさん
NGNG0866デフォルトの名無しさん
NGNG0867デフォルトの名無しさん
NGNG１と２は分かりません。単なるDocumentのクリックイベントとかでもプログラムで
取得するのは非常に面倒です。。
３は、なんかのタグに変数を入れれば読み出せないかな？
やってないからわからんけど。
0868デフォルトの名無しさん
NGNG0869デフォルトの名無しさん
NGNG簡単なサンプルを作ってもらえないでしょうか？
0870デフォルトの名無しさん
NGNGあわれだから乗ってあげるよ！
ってことで
オマエモナー(;´∀｀)
0871デフォルトの名無しさん
NGNGクラス自体の作り方はわかってる？
0872デフォルトの名無しさん
NGNGvar
Index: Integer;
begin
//メモのテキストのKotobaの位置をIndexに入れる
Index:=AnsiPos(Kotoba, Memo1.Lines.GetText);
//メモの｜の位置をIndexにあわせる
Memo1.SelStart:=Index;
//Kotobaの長さの分だけ選択する
Memo1.SelLength:=Length(Kotoba);
end;
0873デフォルトの名無しさん
NGNGIEコンポーネントを使い倒すスレ
http://pc3.2ch.net/test/read.cgi/tech/982930049/
ここにいけば教えてもらえるかもしれない。
0874デフォルトの名無しさん
NGNG丁度似たような話題が展開されているな
0875デフォルトの名無しさん
NGNGForm1.Top := 0;
Form1.Left := Screen.Height;
としたのですが、これではタスクバーまで隠れてしまいます。
Screen.Heightからタスクバーの高さを引くにはどうやったらいいのでしょうか？
0876デフォルトの名無しさん
NGNGタスクバーは下だけじゃなく 上や左右にも配置出来るよ
0878875
NGNGあっそうか、、全く考えてませんでした。。いろいろコード書く前に
教えてもらえて助かりました。
>>877
GetSystemMetricsを使えばいいのかな？調べてみます。
ありがとうございます。
0879デフォルトの名無しさん
NGNGごめん GetSystemMetrics だと自動的に隠す設定にしてると出ないかもしれない。
こっち
http://www.google.co.jp/search?q=SHAppBarMessage&lr=lang_ja
0881デフォルトの名無しさん
NGNG0882りゅう
NGNGありがとうございます。
早速やってみたのですが
未定義の識別子 result
Delphiに怒られてしまいました。
どうしたものか。
誰か教えてください。
0883デフォルトの名無しさん
NGNGどんなソースか見せてー
0884りゅう
NGNG遅くなりました。
下記が例のソースです。
ちなみに文字の検索。
var
Index: Integer;
begin
//メモのテキストのKotobaの位置をIndexに入れる
Index:=AnsiPos(Kotoba, Memo1.Lines.GetText);
//メモの｜の位置をIndexにあわせる
Memo1.SelStart:=Index;
//Kotobaの長さの分だけ選択する
Memo1.SelLength:=Length(Kotoba);
end;
0885りゅう
NGNG未定義の識別子と言われたのは
kotobaでした。
Memo1.SelLength:=Length(Kotoba);
は互換性の無い型だそうです。(´・ω・｀)
(・∀・)ﾄﾞｳｼﾖｳ。
0886デフォルトの名無しさん
NGNGKotobaってのばvar節で文字列型の変数で宣言しておかないと。
あるいは手続きの引数にするか。
procedure weojt(Kotoba: String);
var
Index: Integer;
begin
//メモのテキストのKotoba以下略
0887デフォルトの名無しさん
NGNG意味わかんねえのか？・・・まさかな。
0889デフォルトの名無しさん
NGNG意味わかってたら、自分であれこれ対処方法考えるのが普通じゃないかと思ったのよ（あおってないよ（ｗ）
0890デフォルトの名無しさん
NGNG>kotobaでした。
まず、ネットを切って。コンパイラが "kotoba" という変数かなにかなんて知らないよ。
って言っているんだから、そこから直さなきゃ。
ほんとに kotoba は存在するの？綴り間違っていない？
0891Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNG∧,,∧ ／
ミ,,ﾟДﾟ彡 ＜ タスクバー関連のｿｰｽウプっときます。
U つ∀ ＼
～ﾐ ﾐ ┴ ￣￣￣￣￣￣￣￣￣￣￣￣
∪''∪
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1038400748
>>875-880
上下左右判定にOS依存とかあったらスマソ。
そのときは報告して保水lっす
俺はデフォでタスクバ上配置なので
その辺りのバグ(これがおおい)には敏感。
0892デフォルトの名無しさん
NGNGどうすればいいのでしょうか？
procedure TForm1.mnuWordWrapClick(Sender: TObject);
begin
if mnuWordWrap.Checked then
begin
mnuWordWrap.Checked:=False;
Memo1.WordWrap:=False;
end
else
begin
mnuWordWrap.Checked:=True;
Memo1.WordWrap:=True;
end;
end;
0893デフォルトの名無しさん
NGNGthx
0894デフォルトの名無しさん
NGNG0895デフォルトの名無しさん
NGNGそれでも動くと思うんだが。
procedure TForm1.mnuWordWrapClick(Sender: TObject);
begin
mnuWordWrap.Checked:=not(mnuWordWrap.Checked);
Memo1.WordWrap:=mnuWordWrap.Checked;
if Memo1.WordWrap then
Memo1.ScrollBars:=ssVertical
else
Memo1.ScrollBars:=ssBoth;
ShowMessage('Memo1.WordWrapは'+BoolToStr(Memo1.WordWrap, true));
end;
うちでは動いた。
0896デフォルトの名無しさん
NGNG0897デフォルトの名無しさん
NGNGWindowsのAPIを呼び出すときに必要になることが多いけど
それ以外はDelphiの言語仕様がポインタを隠蔽しているから
始めたばかりの人は気にしなくてもいいよん
0898デフォルトの名無しさん
NGNGServis Packの種類を取得するにはどうやったらいいのでしょうか？
dwBuildNumberが何か関係してるのでしょうか？
var
OSver : TOSVERSIONINFO;
begin
OSver.dwOSVersionInfoSize := SizeOf(OSver);
GetVersionEx(OSver);
case OSver.dwPlatformId of
VER_PLATFORM_WIN32s: Result := 'Windows 3.1'; //VER_PLATFORM_WIN32s Win32s on Windows 3.1.
VER_PLATFORM_WIN32_WINDOWS: //VER_PLATFORM_WIN32_WINDOWS Windows 95, Windows 98, or Windows Me.
begin
case OSver.dwMinorVersion of
0{95}: Result := 'Windows 95';
10{98}: Result := 'Windows 98';
90{Me}: Result := 'Windows Me';
end;
end;
0899デフォルトの名無しさん
NGNGVER_PLATFORM_WIN32_NT://VER_PLATFORM_WIN32_NT Windows NT 3.51, Windows NT 4.0, Windows 2000, Windows XP, or Windows .NET Server.
begin
case OSver.dwMajorVersion of
3{3.51}: Result := 'Windows NT 3.51';
4{4.0}: Result := 'Windows NT 4.0';
5{2000, XP, .NET Server}:
begin
case OSver.dwMinorVersion of
0{2000}: Result := 'Windows 2000';
1{XP or .NET Server}: Result := 'Windows XP';
end;
end;
end;
end;
else Result := 'Windows??';
end;
0900デフォルトの名無しさん
NGNGmnuWordWrap.Checked := not mnuWordWrap.Checkd;
Memo1.WordWrap := mnuWordWrap.Checked;
Memo1.Invalidate;
0901デフォルトの名無しさん
NGNG0902デフォルトの名無しさん
NGNGSysUtils の
Win32MajorVersion
Win32MinorVersion
Win32BuildNumber
Win32CSDVersion
使うのはだめか？
0905デフォルトの名無しさん
NGNG0906デフォルトの名無しさん
NGNG0907デフォルトの名無しさん
NGNGexe にはどの程度個人情報が含まれているのでしょうか？
0908デフォルトの名無しさん
NGNG何一つ残らず漏れる。住所も電話番号も。
0909907
NGNG一度小さなプログラムを他の人にあげたことがあるんですが、
その後、生理の日を当てられてびっくりしたことがあって
どうしてなのか不思議に思っていたんですが、バレていたんですね。
これからはコンパイル前には脇の処理を忘れないようにしたいと思います。
0910デフォルトの名無しさん
NGNG0911デフォルトの名無しさん
NGNG0912デフォルトの名無しさん
NGNGマジレスすると。
通常は個人を特定するようなものは残らない。
あえてあると言うとすると、RTTIによる列挙型名とかクラス名とかか。
命名規則の癖がわかってイヤン、とか。
あとは、インターフェスに埋め込んだGUIDとか？気にしすぎかこれは。
0913907
NGNGあらかじめバイナリエディタで一通り見ていたので、
名前がそのまま含まれることについては分かっていました。
安心するために確認で質問してみたのですが、
もし907の質問の答えとして、有名な方法が存在するなら
かならず鼻息荒く嬉しそうに教えてくださる方がおられると予想できるので
908の回答で私にとっては必要十分なんですよ～。
とぼけた回答が返ってきた時点で正解は推測できます。
0914デフォルトの名無しさん
NGNG0915デフォルトの名無しさん
NGNGアプリの起動時にロードして、終了時にアンロードしたいと思ってます。
fromのOnCreateイベントでロードして、
OnCloseイベントで開放したかったんですが、
アプリ終了時にOnCloseイベントが起きなかったんです。
アプリが起動する時と終了する時のイベントを教えてください。
0916デフォルトの名無しさん
NGNGOnDestroy。
ちなみにApplication.TerminateではなくApplication.MainForm.Closeでメインフォームを閉じて終了させればOnCloseは起きる。
0917デフォルトの名無しさん
NGNGありがとうございます！
0918デフォルトの名無しさん
NGNG1つのTBitBtnに、ボタンを押したタイミングで2つの画像を交互に表示させたいのですが、
ImageList.GetBitmap(0, BitBtn.Glyph);
って書くと、一回目はちゃんと画像が表示されるのに、2回目以降は画像が変わりません。
BitBtn.Repaint;
ってやってもダメでした。どうやったら画像を入れ替えられるのでしょうか。
おしえて先生。
0919デフォルトの名無しさん
NGNG0920デフォルトの名無しさん
NGNGBM:TBitmap;
begin
BM := TBitmap.Create;
try
ImageList1.GetBitmap(0, BM);
BitBtn1.Glyph.Assign(BM);
finally
BM.Free;
end;
end;
0922デフォルトの名無しさん
NGNGstrWriteBuf: String;
intWriteLen: Integer;
intWrite: Integer;
と宣言して、
hFile、strWriteBuf、intWriteLenに値をセットして、
WriteFile(hFile, PChar(strWriteBuf)^, intWriteLen, intWrite, nil);
と呼び出したんですが、
「変数実パラメータと変数仮パラメータとは同一の型でなければなりません」
とエラーが出てしまいます。
WriteFileの３番目のパラメータをポインタで渡さないといけないのでしょうか？
書き方を教えてください。
0923デフォルトの名無しさん
NGNG第二引数varじゃないのか？
0924名無しさん
NGNGサーバーを使わずに他パソコン：Aに繋いで、Aから
何かファイルを取得することはできるのでしょうか？
教えてください。
0925デフォルトの名無しさん
NGNGAかもう一方がサーバになれれば可能。
っていうか根本的に何かを理解してないみたいだから基礎からやり直せ。
0926名無しさん
NGNGどのようなプログラムを組んだらよいのですか？
具体的でなくてもありがたいです。
0927デフォルトの名無しさん
NGNGC/S
[クライアント]-----伝送路------[サーバ]
P2P
[サーバント]-----伝送路------[サーバント]
0928名無しさん
NGNGダウンロードするというﾌﾟﾛｸﾞﾗﾑです。
ソースが知りたいのですが･･･。お願いします。
0929デフォルトの名無しさん
NGNG0930デフォルトの名無しさん
NGNG0931デフォルトの名無しさん
NGNG0932デフォルトの名無しさん
NGNG無理
0933デフォルトの名無しさん
NGNGうーん。残念。
VB6はできるのに とか煽ってみるテスト。
0934デフォルトの名無しさん
NGNG使う局面あるか？と。
なんなら複数のハンドラを保持しておけるクラス作ってそれらを順次実行するメソッドを
イベントハンドラとして登録するとか。
0935デフォルトの名無しさん
NGNGな～んも考えてないでぽちぽち落としたコンポーネントを継承することなく
既存のコードの修正を最小限にして外部のコードで動作をカスタマイズしたいとき。
> なんなら複数のハンドラを保持しておけるクラス作ってそれらを順次実行するメソッドを
> イベントハンドラとして登録するとか。
まっそういう仕組みを作ればいいんだけど、な～んも考えてないでぽちぽち
落としたコンポーネントにはこの方法は使えんのよね。
0936デフォルトの名無しさん
NGNGObserver自作汁
0937名無しさん
NGNG0938デフォルトの名無しさん
NGNG0939りゅう
NGNGもぐらたたきゲームを作った人はいまつか？
もしいたらもぐら叩きを作ってみよう その３内の
図形の重なりのプログラム。
var
x1, y1, x2, y2: Integer;
begin
if (x1 < x2+10) and (x1+10 > x2) and
(y1 < y2+10) and (y1+10 > y2) then
begin
// 図形が重なっていれば、ここに記述したプログラムが実行されます。
end
else
// 図形が重なっていなければ、ここのプログラムが実行されます。
end;
をどこに書くか教えて( ﾟДﾟ)ﾎｽｨ
よろしく。
0940デフォルトの名無しさん
NGNGなんか分かりにくい記述だな・・・
if Abs(x1-x2)<10
じゃイカンの？
0941デフォルトの名無しさん
NGNGよくわからんが、他のパソコン：Ａってのは自分で持ってる
パソコンなんじゃないの？
もしそうならネットワークドライブの割り当てでＡのＰＣのＣ：を
取得先：ＢのＦ：とかに割り当てる。
後はCopyFile関数を使えばいいよ
0942ななしへたぐらま ◆XcB18Bks.Y
NGNGアルゴリズム algorithm
一般に，問題を解くための処方．特に，コンピュータ向きの解法．算法と訳す．
（後略）
――奥村晴彦著『Ｃ言語による最新アルゴリズム事典』より
私はこの本を読むまでちゃんと説明できなかった…．
0943デフォルトの名無しさん
NGNGこれはアルゴリズムについて何かを説明している、というより、たんに言い換えて
いるだけでは？ 処方とか解法とかって、なによ？
0944デフォルトの名無しさん
NGNGアルゴリズムをプログラミング言語で具体的に記述したものが
プログラムだよ。
0945デフォルトの名無しさん
NGNGアルゴリズム = 問題を解くためのコンピュータ向きの処理手順
うーむ、なにか分かった？
0946デフォルトの名無しさん
NGNGWebBrowserコンポーネントでPOSTしようと思うんですが、
var
Flag ,TFN ,PD :OleVariant;
begin
PD := 'a=うふふ&b=あはは';
WebBrowser.navigate('http://hoge/',Flag,TFN,PD);
end;
これだと上手くいきません。
PDが具体的にどういった形式にすればいいかヘルプにも書かれてないんで悩んでます。
パシっとデータがPOSTされるようにどなたか教えてください。おながいします。
0947デフォルトの名無しさん
NGNGMLの[Delphi:55344]を参照しる！
0948デフォルトの名無しさん
NGNG0949デフォルトの名無しさん
NGNGエクスクラメーション付けるようなことか？
他人が質問して他人が答えてるんだろ？
お前はその人がやった功績をなぜ胸を張ってえらそうに語るんだ？
0950デフォルトの名無しさん
NGNG？
0951デフォルトの名無しさん
NGNG0952Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGhttp://www2.big.or.jp/~osamu/Delphi/browse.cgi?index=55344
ちなみにIMEに
【えむえる】って単語で
【http://www2.big.or.jp/~osamu/Delphi/browse.cgi?index=】
がDelようにしとくと、MLログ紹介がしやすい
登録はIME2000以降で顔文字として登録汁！
じゃないと、全角半角マゼマゼになるから
0953Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGデルパイﾏｶﾞｼﾞｿに紹介されてますたね。
http://www.dreamcompany.com/memo.html
ScreenShotではTEditor系にも思えるですが
Demoみると、RichText系でもあり、かなり強力かと
思割れ
0954デフォルトの名無しさん
NGNG動的にnodeのルート（一番上）にnodeを追加したいのです。
Addだと一番下に追加されちゃいます。
教えて先生
0955946
NGNGありがとうございます。
早速[Delphi:55077] Re: バイト配列について
あたりを参考にやってみたんですが、
type
ByteArray = array of Byte;
var
Flag ,TFN ,PD :OleVariant;
OleBArray : OleVariant;
pb : ^ByteArray;
Count : Integer;
btWork : Byte;
begin
PD := 'a=うふふ&b=あはは';
OleBArray :=VarArrayCreate([0,Length(PD) - 1],varByte);
pb:=VarArrayLock(OleBArray);
Count := 0;
//
//↓ここでつまづいた
while ByteFile.Read(btWork, 1) = 1 do begin
pb^[Count] := btWork;
Inc(Count);
end;
VarArrayUnlock(OleBArray);
WebBrowser.navigate('http://hoge/',Flag,TFN,pb);
end;
う～ん、具体的に文字列から一バイト取り出せばいいんですよね？
情報が点在しまくってて五里霧中です･･･
0956Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGTTreeViewのItemsのItemの中から
levelが0のTTreeNodeを見つけて
それに対して
TTreeViewのItems.Add(TreeNode, '文字')
でやるんじゃないでしょうか。
0958デフォルトの名無しさん
NGNGtype
TForm1 = class(TForm)
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
↑ここ(最後のend;の前)にスペースが入ってるの？ typeの終わり、分かりづらくねぇ？
全体的にどこからどこまでが何する範囲ってのも分かりづらいけど。
0959デフォルトの名無しさん
NGNGあの end; は type 節の終わりではなく、TForm1 宣言の終わりを示してるんで、
インデントはあれでよいと思います。
0960デフォルトの名無しさん
NGNG別のtype/const/var/function/procedure とかです
0961デフォルトの名無しさん
NGNGますよね？ イベントハンドラはどこから呼ばれてどこに戻るんですか。
たとえば、フォームのうえでマウスを動かすとOnMouseMoveとかが呼ばれますけど。
0962デフォルトの名無しさん
NGNG↓
VCLがイベントごとに振り分ける
↓
登録されたハンドラ(OnMouseMoveとか)を呼ぶ
↓
VCLの残りの処理
↓
メッセージループに戻る
Pro版以上ならデバッグ版dcuを有効にしてトレースすれば一目瞭然
0963892
NGNGありがとうございました、解決しました。
0964デフォルトの名無しさん
NGNGありがとうございます！
>メッセージループに戻る
とは、このメッセージループから、VCLのコードを通して呼ばれていると。
最初の
>VCLがイベントごとに振り分ける
windowsメッセージからどうしてVCLのForm1あてのメッセージだと分かるんでしょうか
0965デフォルトの名無しさん
NGNGこれ買え。
http://www.ascii.co.jp/pb/msp/36001/36001.htm
Windows3.1用とかの古本でもいいけど。
0966デフォルトの名無しさん
NGNGその本にはVCLのことも載ってるんですか？
0967デフォルトの名無しさん
NGNGスマートなやり方は知らないど、こんな感じで動きますた。
var
Contents: string;
BA: array of Byte;
i: integer;
Len: integer;
a, b: string;
Flag, TFN, PD: OleVariant;
begin
a := HTTPEncode('あはは');
b := HTTPEncode('うふふ');
Contents := 'A=' +a +'&B=' +b;
Len := Length(Contents);
SetLength(BA, Len);
for i := 0 to Len-1 do
begin
BA[i] := Byte(Contents[i+1]);
end;
PD := BA;
WebBrowser1.Navigate('http://hoge/hoge.cgi', Flag, TFN, PD);
end;
0968デフォルトの名無しさん
NGNGCでWindowsアプリを書くための本だから全く載ってない。が、
＞windowsメッセージからどうしてVCLのForm1あてのメッセージだと分かるんでしょうか
は理解できるようになると思う。
0969965=968
NGNGttp://halbow.cool.ne.jp/ShousaiIndex.html
というテキストもあるけど、これだけで理解できるかなあ・・・。
DelphiだけどVCLは使ってない。
0970デフォルトの名無しさん
NGNGありがとうございました。紹介された本やＷＥＢページなどで基本を勉強してみます。
とっかかりを教えてくれて、とてもうれしいです。
0971946
NGNGありが㌧！
さっそく試しますた。
しかしHTTPEncodeが未定義のエラーでコンパイルが通りませんでした。ギャフン
パーソナル版ではHTTPapp無いのね…
今からIndyで書き直してみることにします(´・ω・`)
0972デフォルトの名無しさん
NGNG内部アプリケーションエラー
Unable to complete network request to host "***.***.***.***". Error writing data to the connection. 既存の接続はリモート ホストに強制的に切断されました。
でアカウントとれないんですけど。
0973デフォルトの名無しさん
NGNG0974デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1038103769/l50
0975デフォルトの名無しさん
NGNGVBスレじゃんか
0976デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1037146781/
0977デフォルトの名無しさん
NGNGHTTPEncodeのソースは探すといろんなところに有るですよ。
こことか。
ttp://www.scalabium.com/faq/dct0126.htm
それにIndy使うにしてもHTTPEncodeは必要な罠。
0978デフォルトの名無しさん
NGNGつぅか16進文字列変換だからスクラッチしても大した手間じゃないわけで。
0979デフォルトの名無しさん
NGNG数年前に自前で四則演算出来ない奴が増えたなと思ってたけど、今は１６進変換みたいな
簡単なレベルでつまづいてるみたい。
0980デフォルトの名無しさん
NGNG0981デフォルトの名無しさん
NGNG生産性の向上は商業的には大切な要素だけど教育的には駄目駄目だな。と。
0983デフォルトの名無しさん
NGNG0984デフォルトの名無しさん
NGNG0985デフォルトの名無しさん
NGNGﾌｻｷﾞｺ ⑧が二つできちゃったけど、あれもそれぞれ次スレができていくんだろうなぁ。
マ板のﾌｻｷﾞｺ③がまだ生き残っているし、どうなっちゃうか。楽しいけどね。
スレタイに Delphi.NET を入れてしまう。という手もあるかな？
できれば DelWiki 専用スレが欲しいが、当分は間借りということになるのでしょう。
0986デフォルトの名無しさん
NGNG「ジジィ」が気にさわったか？ｗ
0987デフォルトの名無しさん
NGNG0988デフォルトの名無しさん
NGNG0989デフォルトの名無しさん
NGNG0990デフォルトの名無しさん
NGNG0991デフォルトの名無しさん
NGNG0992デフォルトの名無しさん
NGNG0993デフォルトの名無しさん
NGNG0994デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNG0996デフォルトの名無しさん
NGNG0997デフォルトの名無しさん
NGNG0998デフォルトの名無しさん
NGNG0999デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。