1 ：
デフォルトの名無しさん ：
2006/05/23(火) 19:07:57 2 ：
デフォルトの名無しさん ：2006/05/23(火) 19:08:59
2
4 ：
デフォルトの名無しさん ：2006/05/23(火) 19:09:41
5 ：
デフォルトの名無しさん ：2006/05/23(火) 19:10:19
おｋ立てたぞ
6 ：
デフォルトの名無しさん ：2006/05/23(火) 19:19:33
>>1 おつかれさまです。
999を再投下させていただきます。
すいません上で書いた者ですが、サーバーが繋がっていない時にSocket.SendTextで例外が発生しないのは仕様なんでしょうか？D5です。
procedure XXXX(var message: TMessage); message WM_XXXX;
ダメ。とりあえずコメントにしておけ。
procedure XXXX(var message: TMessage);
それ何か意味あるんか？
普通にinheritedしたらメッセージ処理しちゃうじゃん
>>6 ヘルプから
非ブロッキングソケットの場合，データは独自の内部バッファを持つ WinSock DLL に送られます。
WinSock が追加のデータを受け付ける場合，SendBuf はキューにあるバイト数を直ちに返します。
WinSock の内部バッファスペースが送信されるバッファを受け付けられない場合，SendBuf は -1 を返し，
キューにはデータが入りません。
この場合は，WinSock がすでにキューにあるデータを送信する機会を得るのを少し待ってから，再試行します。
ブロッキングソケットの場合，SendBuf は実際に書き込まれたバイト数を返します。
接続への書き込み中にエラーが発生した場合は，SendBuf は接続を終了し，ESocketError 例外を生成します。
非ブロッキングにしているのなら仕様です。
OnErrorが発生しなければ送信できたものと解釈してください。
14 ：
デフォルトの名無しさん ：2006/05/24(水) 10:21:55
>>13 やはり仕様なのですね。
ブロッキングにする方向で考えてみたいと思います。
ありがとうございました。
DelphiだとInt型の数値を表示するときは
つ Format
IntToStr() は Format() の簡易版、だよね
Thx・・・
>17
writelnじゃなくてwriteという関数を使うんだ。
∫,,,,,,,,,∧,,∧
∫,,,,,,,,,∧,,∧ ﾂｺﾄﾃﾞ
∫,,,,,,,,,∧,,∧ ﾜｽﾚﾃﾀ
>20さん
25 ：
デフォルトの名無しさん ：2006/05/24(水) 23:28:51
lnは改行して表示だっけか
>>21 ,22,23
ﾌｻﾌｻﾇｺﾀｿあんがとさん。
んで今まさにそのなんちゃらsnapshotとウィンドウ列挙で色々やってる所なんだが(Halbow氏の所のとググリ先で拾ったソース合体で)
>>トップレベルウィンドウはWindow列挙してOwnerなしとかの条件で
>>タスクマネージャーのタスク表示と互換にしとけばいいんじゃないの？
↑これで詰まってる所(´･ω･`)トップレベルウィンドウ"だけ"の列挙ﾑｽﾞｽ。
条件をきつくするとリストアップして欲しいアプリが漏れ、ゆるくすると大量のウィンドウがリストアップされる。
例えばJane2ch.exeならウィンドウクラス名がTApplication以外のウィンドウが54個!!
unDonut.exeならメインウィンドウ以外が21個!!も列挙されてしまう。
ちょっち諦めムードが漂ってきた所。
WS_EX_APPWINDOWが付いてるか確認するんじゃ駄目だった？
Owner なし、Visible である、って条件だけでかなり、タスクバーの数に近づくはずだけど。
∫,,,,,,,,,∧,,∧ ﾇｺﾀﾝですが
∫,,,,,,,,,∧,,∧ そいえば
|,,∧ ﾄｺﾛﾃﾞ
MSDN を読んだ限りでは無理っぽいが
>>30 >>列挙コードに問題があるんちゃうかと。
どう考えても列挙コードに問題ありのようです。
ちょっち改造実験中。
つうか、理解出来ていないコードがあるのがそもそも問題っぽいw コールバックとか。
>>31 俺も気になる。
ランチャーとかでWinキー対応しているのもあるからな。
>>22 こういうコードとか フック系のAPIの紹介コードは 作成罪が成立したら注意しないといけないね
InputBoxのようなダイアログを自前で作っています。
ヒント：var Key
>>37 OKButton.Default := True;
>>35 それって MSDN の例を Delphi に移植しただけだし、フックだって似たようなもの。
それがひっかかるようだと MSDN は閉鎖だな
TQueryで取得したフィールドがNULLかどうかを調べる方法は無いでしょうか？
if query.FieldByName('foo').IsNull then
44 ：
42 ：2006/05/25(木) 19:09:24
IsNullなんてものがあったのか・・・
delphi今日からはじめました。
repeatと書いたら必ず例外なくuntilがあるから
>>46 でもbegin endつけても問題ないんでしょ？
begin end;なんてどこに書いたって処理されるでしょ
そりゃ単文でも複文でも入るから当たり前でしょ
クラス名を文字列で受け取って、そのクラスのインスタンスを作成することは出来ますか？
できません。
即レス感謝です
>>52 その調子でDelもやめて、
他の将来性のある言語にシフトしましょう。
よろしくお願いします。
Delphi6PersonalとTntコンポとIndyを使って
フォーム上にWebページ(文字コードUTF8N)のソースを表示しようと思い、
var
Html : WideString;
begin
Html := IdHTTP1.Get('
http://hoge.com );
TntMemo1.Text := Html;
end;
こういう風に書いたんですが、文字化けまくりです。
あと何を書けばよいのでしょうか？
>>50 RegisterClasses してたり、
実行時型情報を持っていれば可能
GetClass/FindClass でヘルプを見るといい
FindClass は GetClassを呼んで、nilなら例外を出すだけ
ソースを持っていればClasses のTReader.GetFieldClass で使ってる
おかげさまで自作プログラムのボタンは無事押せました。
EnumWindowsでなんとか汁。
FindWindow('TMainForm', nil);
>55
>>56 自前のアプリならプログラムのメインフォームのクラス名が
FindWindowの第１引数に指定する値だぞ
という事で実行中アプリのフルパスのみからのトップレベルウィンドウのハンドル取得は諦めました。
厨房アプリ作成、乙
64 ：
デフォルトの名無しさん ：2006/05/26(金) 19:39:44
いつも読み書きされているファイルを他のフォルダーにコピーしたいのですが、
65 ：
54 ：2006/05/26(金) 20:06:14
>>59 できました！ ありがとうございます！
ところで、UTF8DecodeすればTNTコンポじゃなくても日本語表示されるんですね。
それが意外でした。
>>66 他のプログラムが読み書きしてるファイルを更新可能な状態のまま、コピーするにはどうしたらいいの？
できない。
なぜそんな事が必要になるのか理解すらできない
思い出しカキコですんません。
俺５，６，７入れてるけど何も問題ないよ
>>71 Thanxです。
じゃ、なんだったんだろうな…
使えるなら、このまんまでいきます！
73 ：
デフォルトの名無しさん ：2006/05/27(土) 12:21:38
>>69 バックアップをしたいのですけど、時々他のプログラムがデータを読み書きしに来るので
エラーになってしまうのですよ。
なので、追記可能モードとかでファイルのコピーが出来ればよかったのですが。
データベースとかだといつも使ってるファイルをバックアップしてそうだけどどうやっているんでしょ？
そもそも変更途中のファイルをコピーしたってバックアップにならないと思うぞ
行列を読み込みたいんだけど・・・Unko[i,j]
>>75 CVS形式を動的配列に読むってことだろうか
だったら要素数が分からなければムリ
もっと詳しく
空白区切りが欲しいのかカンマ区切りか判らないから両方に対応させるとしたら
78 ：
デフォルトの名無しさん ：2006/05/27(土) 18:36:22
VBの.NET化により旧VBの独壇場であったデータベースを利用した小規模なスタンドアローンアプリ市場が空白地帯となった。
79 ：
sage ：2006/05/27(土) 23:45:42
.NETリストラ組乙
80 ：
デフォルトの名無しさん ：2006/05/28(日) 02:29:58
こんばんは。本当の初心者で質問するのも恥ずかしいのですが、１つ教えてほしいことがあります。
対応していない。
「delphi gif」で検索すれば幾つか出てくる
80じゃないけど
>83
>>85 どっか変？それともこういう風に引用しろってこと？
> アニメーションgifの表示は無理だと思ったほうがいい
それなら悪かったです
88 ：
デフォルトの名無しさん ：2006/05/28(日) 11:54:24
Delphiにgcを搭載して欲しい
89 ：
73 ：2006/05/28(日) 12:14:34
>>74 いや、そうじゃないんですよ。
変更途中のファイルをバックアップするんじゃなくて、しょっちゅう変更されているファイルのバックアップです。
変更途中のファイルは、相手のプログラムが占有しているので読みにもいけませんよね。
でも、こっちが読んでいるときには相手のプログラムからの書き込みは許可したいってことです。
バックアップしたファイルが若干古くなってしまうのはバックアップできないよりマシなので気にしないです。
>>89 >でも、こっちが読んでいるときには相手のプログラムからの書き込みは許可したいってことです。
このタイミングでは、相手のプログラムにはちょっと待ってもらえばいいんじゃないの？
最近はどんなソフトでも、ひと段落したら Ctrl + F9 をつい押してしまう。
>>90 これは自分でファイルを作る場合ですよね。
>>91 相手のプログラムに待たせる方法なんてあるのでしょうか？
>>93 えっと、今現在、どうやってファイルをコピーしてるわけ？
95 ：
91 ：2006/05/28(日) 15:08:44
>>93 あー、相手プログラムのソースがなきゃ出来ないね。
（パラサイトで出来なくもないけど）
>>94 バックアップしてないです。。。
なので、きちんと定期的にバックアップしようと思っていまして。
>>96 Delphiで、
１、バックアップしたいファイルを読出＋fmShareDenyNoneで開いて
２、バックアップ先のファイルを新規作成で開いて
３、１をメモリに読んで２に書き出すのを繰り返す
98 ：
80 ：2006/05/28(日) 19:53:21
>>81 ,82
レスどうも有難うございます。
delphi以外なにもやったことがなく、しかも独学なので
２ちゃんの初心者スレだけが頼りです。
どうもありがとうございました。
Paradoxって、もうバージョンアップしないというようなことを聞いたんですが、使うのはやめたほうがいいですか？
そりゃいずれ32bitプログラムがサポートされなくなる頃には
Oracleって、有名ですね。
ローカルDBにOracle やSQLServer は重すぎだろ。
Paradox、使います。
105 ：
デフォルトの名無しさん ：2006/05/28(日) 23:23:46
Oracleのフリー版てあるんすか？ぜひ使ってみたい
つ Oracle Database 10g XE
Express Edition か。
昨日Delphiを始めてみたばかりなんですが
ParadoxってBDEでしか扱えないんじゃなかったっけ？
もしそうならParadoxはやめとけ。
>>103 の言うInterbaseもしくはFirebirdがお手軽かと。
Interbase の日本語PDF マニュアル嫁ば。
Delphiで無料なのはバージョン6だけですか？
Delphiで作成したDLLをCやC#やJAVAで使用することは出来ますか？
>>112 Delphi 2005 Personal ドイツ語版
>>113 C ... エクスポートしてある関数を呼び出すだけ
C# ... PInvoke
Java ... DLL をWeb サービス化
C/DelにDLLの区別はない
>>109 すいません＆ありがとうございます
そこだけ見落としてました（汗
117 ：
115 ：2006/05/29(月) 23:23:00
すまそ>114さんが正しい
2ストロークショートカットを実装したいのですがそういったコンポーネントはありますか？
Delphi用のJNIユニットがある。JavaからDelphiのコードを呼ぶことも逆も可能。
>>118 探してみたが、見つからなかった。
自分で作った方が早いかも。
DelphiのTCP/IPの初歩でよく作られるホスト、ポートを通知して行うチャットツールなようなものがありますよね？
可能
それを考えるのもﾌﾟﾛｸﾞﾗﾏｰ
>>122 つまり100番ポートをサーバープログラムで開けた場合でもそれが原因で不正な進入などが増加することは
無いってことですね？
ありがとうございました
100番ポートを通って進入してきたらどうしょうもないけどなｗ
>>123 繋いできたときに特定のメッセージが送られてこなかったら強制切断するとかそーいうことですか？
>>125 60000以降ってのはﾎﾟｰﾄｽｷｬﾝ対策ということでしょうか？
自前のソフトでポート番号を使用する場合は
Delphiと関係ない。
すんません。中級者以上の人のコードをみてると、
はぁ？
procedure Hoge(var iVal:Integer);//参照渡し
133 ：
デフォルトの名無しさん ：2006/05/30(火) 22:58:10
今初級本を読みながら勉強中で、質問が１つあります。
>>132 関数でポインタを引数にしたときみたいに呼び出し元もかわるんですね。
constがローカル内では変更できないのは知ってましたが・・
ありがとうございます。助かります。
>>131 偉そうな書き方するくらいなら、ナンも書かんとけや！！！
読んでて気分悪くなるだけだからよ！ な？ 頃すぞ？ ﾌﾟｹﾞﾗ
態度のよい質問者だな。最近はこんな奴らばかり。
131=132 の可能性はないのか？
一般論としては 131 が正しい。ヘルプ嫁
>>134 ヘルプ嫁ですんだら、このスレいらねーよ ﾌﾟｹﾞﾗ
漏れも131が正しいと思うぞ。
>133
質問させてください。
var
>>141 ありがとうございました。
これは自分では思いつきそうもなかった。
143 ：
133 ：2006/05/31(水) 00:25:33
>>139 どうもありがとうございました。
「プログラム的にはpublic扱い」とか、初心者からみると詳しそうですごいなー、と思います。
また質問するかもしれないので、その時もよろしくお願いします。
大域変数Edit[1..3]:TEdit を宣言してFormのonCreateに
質問の仕方が悪い奴にそれなりのレスがつくのはしょうがない。
状況次第ですな。
質問者じゃないけど
>>141 のやりかたってなんかいい事あるんですか？
俺ならたぶんこう書いてしまうと思う
var
i:integer;
begin
for i:=1 to 3 do
hairetsu[i] := strtoint(tedit(findcomponent('edit'+inttostr(i)).text);
end;
> ヘルプ嫁で済むならこんなスレいらないし
そんなことない。
>>131 の説明と
>>132 の例文は、もっと詳しくちゃんとヘルプに
のっている。おそらく
>>130 はヘルプも見てないと思われ。
D6per のヘルプのキーワード に var を入れると一目瞭然。
値パラメータと変数パラメータ
大部分のパラメータは，値パラメータ（デフォルト）か変数パラメータ（var）のどちらかになります。値パラメータは値で渡され，変数パラメータは参照で渡されます。以下の 2 つの関数を例にとって，これを具体的に見てみます。
function DoubleByValue(X: Integer): Integer; // X は値パラメータ
begin
X := X * 2;
Result := X;
end;
function DoubleByRef(var X: Integer): Integer; // X は変数パラメータ
begin
X := X * 2;
Result := X;
end;
どちらの関数も返す結果は同じですが，渡される変数の値を変更できるのは 2 番目の DoubleByRef 関数だけです。これらの関数を次のように呼び出してみます。
（以下省略するがかなり詳しく書いてある）
もうよくね？
>147
151 ：
デフォルトの名無しさん ：2006/05/31(水) 01:42:11
質問のレベルを一気に下げてしまう内容ですが、教えてください。
コンパイルはF9かCtrl＋F9が便利だと思うよ
153 ：
151 ：2006/05/31(水) 01:53:03
>>152 回答ありがとうございます。
F9とctrl＋F9をやってみましたが、今回は反応ありませんでした・・・。
記述した内容が間違いまくっている？とかで、実行できないのかな・・・。
もう一度書いた内容を見直してみます。
再起動すれ
publishedに書けばプロパティとして公開されるからpublicと同じ扱いだと言っているのでは？
StringList型のデータを受け取ときは下のように書いていた
正しくは、参照の値渡しなわけだが。参照自体を変更したいときはやはり var を
159 ：
デフォルトの名無しさん ：2006/05/31(水) 10:50:38
素人な質問で初歩的な質問で恐縮ですが
マウスドライバに依存するらしいよ。
>>160 さっそくのレス、ありがとうございます。
Del7+Win2k+PS2（ロジクール）下ではピクリとも動きませんでした…
たとえば２つ以上、スクロール可能なコンポーネントがあった時は
どちらがスクロールするのかしないのか、また同時にケースがあると思うので
基本的には、コードを書かないとダメだと思いますので
恐れ入りますが、引き続きご意見をお待ちしております。
何もコード書かない場合、通常はフォーカスのあるコントロールがスクロール。
163 ：
デフォルトの名無しさん ：2006/05/31(水) 13:14:12
10秒ごとに１足していくっていうプログラムはどうすれば書けますか？
Delphi6 の quickreportで、グループが変わったらページ番号のリセットを
>>163 コードが示されないことには返答のしようがない・・・
166 ：
159 ：2006/05/31(水) 13:43:56
>>162 こちらもレス、ありがとうございます。
ゴメンなさい、初歩な質問で恐縮ですが
> HandledをTrue
と言うのは、どの項目・箇所で指定する物なのでしょうか？
>>165 Label1.Caption := IntToStr(1+1);
こんなふうにやってんじゃね？
168 ：
163 ：2006/05/31(水) 13:45:46
今こんな感じです。Timerのプロパティの方でインターバルを10000にしてます
>>166 >フォームのOnMouseWheelでHandledをTrueにすれば、コントロールにはメッセージが行かない。
って書いてあるけどこれの意味が解らない(通じない)の？
フォームの OnMouseWheel イベントの Handled 引数を True にするって意味だと俺は理解したけど・・・
>>168 ローカル変数をいじっても意味ないじょ・・・
>>168 おんなじ事じゃ！
var
k:integer; //←こいつをこの辺にくっつけとけ
procedure TForm1.Timer1Timer(Sender: TObject);
begin
k:=1+1;
label1.Caption:=IntToStr(k);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;
>>168 変数のスコープだけかと思ってたら
他にもおかしいじゃねぇか！！
こいつは
k:=1+1;
こうじゃ！！
k:=k+1;
>>172 そこが最初に突っ込むべき場所だと思うお
１ずつ足すだけなら Inc(k); でもいいんじゃない
175 ：
163 ：2006/05/31(水) 14:44:59
わー！！超恥ずかしいミス！！みんなありがと！
176 ：
159 ：2006/05/31(水) 14:57:32
>>169 そうです、超初心者なので意味が分からないです。
申し訳ないです・・・
>>176 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
end;
ただし、コントロールにはメッセージが行かない。かは、俺は試してない・・・
178 ：
159 ：2006/05/31(水) 17:31:14
>>177 重ね重ね、ありがとうございます。
Handled := True; と直接書くとは思いませんでした・・・
それで試した結果ですが、memoはクリアしたのですが
QuickReportは動きませんでした。
どのコンポーネントを動かすか選んでコードを書く方法はあるのでしょうか？
恐れ入りますがよろしくお願いいたします。
>>178 QuickReportは使ったことないのでうまくいくのか解らないけど
フォームの OnMouseWheel イベントでアクティブなコントロールを調べて
スクロールバーの位置を変えれば出来るんじゃない？
>>164 PageNumber は使わずに、自分で変数を用意する。
>>179 QuickReportはアクティブでは調べられないみたいなのでマウス位置で判断すれば出来そうですな
182 ：
デフォルトの名無しさん ：2006/05/31(水) 21:52:17
TabControl や PageControl の OnDrawTab で自前で描画しているのですが、
派生して CreateParams() を override して TCS_FOCUSNEVER = $8000; をセットする
ClientSocket、ServerSocketを使用したTCP/IP通信で連続して通信するときに繋がらないように
186 ：
デフォルトの名無しさん ：2006/06/01(木) 09:56:42
>>183 回答ありがとうございます。ちょっと試してみます。
何らかのセパレータ挟んだ方がいいと思うけどね。
Delphiでメモリーリークが激しいのですが、何かチェックしておくべきことがありましたら教えてください。
それだけならｿｰｽうｐしたほうが早いと思うよ
Delphiで作ったアプリをLinuxで動くようにすることはできますか？
プラットフォームに依存する処理をしていなければ
そのKylixとやらは無料ですか・・？
Delphi7 Enterpriseに付いてきたような
ちょっとふとした質問
FindCmdLineSwitchなんてのもあるよ
質問です
対象の文字列が ' であるかどうか調べたいのですが
''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>201
206 ：
202 ：2006/06/01(木) 21:19:45
>>205 ありがとうございました。
覚えておきます。
>>205 ないですか・・・
ふぅむ、１つづつ比較するのは面倒ですね。
>>208 自分で作れるならここに質問してません･ﾟ･(ﾉД`)･ﾟ･
>>209 >ふぅむ、１つづつ比較するのは面倒ですね。
面倒ってことはやり方は分かるんじゃないのか？
>209
ユニットのinterfaceの最後辺りに、
>>209 glibcとかBSDのlibcからパクってくればいいじゃん。
そのまま使うならBCCで、単純な文字列操作だけだろうからDelphiに書き直すのも簡単。
・・・。 おおぉ、ありがとうございます。 試してきますm(_ _)m
その前に、自力で試したぶんを書きます。
あれ・・・？ これだったら、見つからなかったら戻り値がないですね・・・
function StrPBrk2(S:String; sTarget:String):String;
Stringって1..Length(S)じゃなかったけ？
>>218 そそ、0には要素数がはいってるとかなんとか。
ん？ 仮に選択文字が100個あったら、100回繰り返すよな
Exit
Break じゃなくて Exit ？ Breakじゃなくて？
この場合どっちも変わらん
売却されるって話どうなったの？
225 ：
デフォルトの名無しさん ：2006/06/02(金) 08:52:18
再就職の話どうなったの？
226 ：
デフォルトの名無しさん ：2006/06/02(金) 09:06:59
VCLにはベクトル演算関連のユニットは含まれていないようですが、
ない
228 ：
デフォルトの名無しさん ：2006/06/02(金) 12:33:18
ていうか、あまり深く考えなくても
229 ：
デフォルトの名無しさん ：2006/06/02(金) 13:27:33
計算アルゴリズム
ttp://pc8.2ch.net/test/read.cgi/tech/1090227743/939 とするとまぁ、線分は方向ベクトルであらわしておいて内積とるのが無難だね。
いろいろポカがあったんで極力ちゃんと書いてみた。
#include<cmath>
struct Point2D {
double x;
double y;
Point2D(x, y) : x(x), y(y) {;}
};
struct Vector2D {
double x;
double y;
Vector2D(const Point2D& p)
: x(p.x), y(p.y) {;}
Vector2D(const Point2D& p1, const Point2D& p2)
: x(p1.x-p2.x), y(p1.y-p2.y) {;}
Vector2D getUnitVector(void) const;
};
230 ：
デフォルトの名無しさん ：2006/06/02(金) 13:28:15
940 名前： 子供の頃から忘れ物の多い924 [sage] 投稿日： 2005/10/12(水) 15:10:14
231 ：
デフォルトの名無しさん ：2006/06/02(金) 13:29:55
942 名前： デフォルトの名無しさん [sage] 投稿日： 2005/10/12(水) 15:25:08
232 ：
デフォルトの名無しさん ：2006/06/02(金) 18:19:27
Delphi6のアップデート２パックを実行しようとしているのですが、
234 ：
デフォルトの名無しさん ：2006/06/02(金) 19:02:30
>>233 もちろんやってみましたが、駄目でした。
ファイルサイズは同じです。
c:\ に置いて実行してみるとか。
ユーザー名に2バイト文字が含まれるとか、そんなので不具合の出るアプリがあったりするが、どうか？
IEだと駄目だと思ってFlashGetで別フォルダにDownLoadしてみたけど駄目でした。
>>235 駄目ぽ。
>>236 デフォルトのフォルダ名ぽ。
もうDel6は使うな、という某のシグナルかもね
>237は未来人。ハルヒと戯れてやってください
>>211 ,212
そういう情報はどこを見ればわかりますか？
243 ：
デフォルトの名無しさん ：2006/06/03(土) 01:24:53
タイマーを使って心電図のようなグラフィックをつくりたいんですがうまくいきません。
「何がうまく行かないのか」書かないと。
245 ：
デフォルトの名無しさん ：2006/06/03(土) 01:38:42
Delphi 2005とVB 2005でどちらが優れていますか？
246 ：
デフォルトの名無しさん ：2006/06/03(土) 01:39:08
今、
初心者向けなら、
初心者だって配列使うぐらいできるだろう。それはあまりにもひどい。
251 ：
56 ：2006/06/03(土) 09:30:41
キャプションが不定の親ウインドウを検索するのはキャプションをnilにしてうまく出来ました！
クラス名でも検索できるよ
>>239 そのデフォルト以外のディレクトリを指定する画面すら表示されないぽ。
>>246 TForm1 = class
～～
private
x,y: integer; ←onCreateとかで初期化
PaintBox1.Canvas.MoveTo(0,0);←これはonShowで
あとはtimerイベントの中でLineTo(x,y);の後に次の数値をx,yに代入しておくとか
かな?
256 ：
デフォルトの名無しさん ：2006/06/03(土) 13:59:53
.jsファイルを開くメソッドってありますか？
普通は、関連付けを利用するなら WinExec() じゃなくて ShellExecute() だろ
実行したいのか？
>>254 再インストールしたほうがいいのかも
ファイルが破損してて読み込めないとか
関連付けられたアプリで開くならShellExecute
261 ：
256 ：2006/06/03(土) 16:48:42
262 ：
56 ：2006/06/03(土) 17:00:46
>>252 うーん、検索は出来るんですけど押したいボタンのあるウインドウかをどうやって判断するんでしょう？
プログラム可能なら、へなちょこなクラス名にするといい。
264 ：
246 ：2006/06/03(土) 21:59:53
>>248 さん
返信ありがとう！無事に出来ました！！
ただ、もう一つ悩んでいる事があります。
配列の要素から最大の値を取るものと最小の値を取るものを抽出したいのですが可能ですか？
265 ：
246 ：2006/06/03(土) 22:01:04
可能ってか、if 文で大小比較するだけ。
267 ：
246 ：2006/06/03(土) 22:35:23
すいません。言葉足りませんでした。if文でやってるんですけど
WideString用のTStringListって有りますか？
まずは文法から覚えるといい
>>251 EnumChildWindows で全部列挙し、それらしいのを探すしかない。
>>267 最大値、最小値の値を保持する変数 max と min を使って、最後に表示した部分と比較
するんだよ。
で、最大値だったら、max にその値を代入する。最小値も同じ。そうすると、更新される
たびに max と min を表示するだけでリアルタイムで最大、最小を表示することが出来る。
プログラミングのコードより、論理を考えたほうがいいよ。
273 ：
デフォルトの名無しさん ：2006/06/04(日) 00:51:49
教えてください。「procedure ******」というようにメソッドの定義をする場合、
１
275 ：
273 ：2006/06/04(日) 01:00:23
どうもありがとうございます。ちゃんと書くようにします。
276 ：
デフォルトの名無しさん ：2006/06/04(日) 01:35:45
質問させてください。
参照を比較してもダメ。中身を比較しないと。
TStringListでやると手軽に開けたんでｗ
バイナリの比較でいいなら
end; がいっこ足りんかった
281 ：
デフォルトの名無しさん ：2006/06/04(日) 03:03:12
ありがとうございます。できました。TMemoryStreamという便利なのがあるんですね。
282 ：
56 ：2006/06/04(日) 09:12:16
>>271 有難うございます
またも新しい関数なのでmsdn見ながらいろいろやってみます。
283 ：
デフォルトの名無しさん ：2006/06/04(日) 19:09:36
前スレで他のアプリを強制的に終了させるのはWM_TERMINATEって言われたんだけど、そんなコマンド無いって怒られてしまいます。
WM_CLOSEをシカトするアプリに強制退去を願うなら
TerminateProcessに終了したいプロセスハンドルをセットして実行汁。
てか、コマンドってなんだ？
WM_CLOSE はアプリを終了するメッセージじゃないよ。
WM_QUITの間違いじゃない？
DestroyWindow もアプリを終了する API じゃないよ。
hndl := FindWindow(nil, '電卓'));
SendMessageでWM_CLOSE送ればいいんじゃない
('・ω・`)
293 ：
デフォルトの名無しさん ：2006/06/05(月) 11:54:01
見えない
>>291 暴走しててそれでも終了できないのがあるんですよ。
まずはTerminateProcessの戻り値を見て
>>290 ThreadID := GetWindowThreadProcessId(hndl, @ProcessID);
>>294 SendMessageTimeout で WM_CLOSE してシカトされたら Terminate とかじゃなかったっけ？
TThreadのExecuteが終了したことを知る手段はないでしょうか。
basic の ＧＯＴＯ みたいに、処理を途中で違う場所へ飛ばす命令はありますか？
>>298 Executeの終わりでSetEventするなり、スレッドのハンドルをWaitForSingleObjectするなり。
おかしな所で送ってしまいましたΣ
>>299 Delphiにもgoto文あります。ヘルプを見れ。
>>302 goto以外で、実現する方法ありませんか？
>>303 ありました・・・ ありがとうございます。
Basic だけの命令だと思いこんでいて、調べていませんでした。
>>304 実現って、既にif文で書けてるんじゃないの？
306 ：
305 ：2006/06/05(月) 21:31:12
やべ、途中送信。
if 文ネストになっていて、どうにか脱却できないかなと思いまして。
308 ：
デフォルトの名無しさん ：2006/06/05(月) 21:49:31
加算された値に加算するにはどうすれば良いんですか？
ifのネストになっているならExitを効果的に使うんだ
>>308 Delphiというよりプログラムの基礎をもう少し勉強するんだ
>>308 初期化は１回だけにしないと・・・てか、こんな例じゃダメだ端折りすぎ。
> label1:=IntToStr(b);
>>308 bを上に定義しといて
b:=b+a+StrToInt(edit.text);
だろ？普通
>>309 わかりました。やってみます。
ヘルプで Exit 手続き の例を見ようとしたら、
追加情報はありません（141）
と出ます。
何が書かれてるんでしょうか。
delphiのgotoは使い方によってはありだと思うよ
可読性上げるのなら、ifの条件判定部を関数化して
ある文から、複数の文のどれかを検索し、
多重ネストしたループで、任意の階層だけループを抜ける場合とか
数が多いなら関数作っても良いし、少ないなら単にExit使えば良い
>318
>>322 その strpbrk というものを delphi で再現できないんですか？
一文字ずつ調べてった方が速いんじゃ……(Cの時も
>>320 話は全然変わるが
例外処理やらif、whileやらを併せて使うと5重ネストとか朝飯前になってしまって非常に見づらくて困る。
おまけにifとifとの間にコメントが挟まれててどっちのコメントかもわかりにくい。
しかも現行で稼動実績のある部分なので修正入れることもできず・・・
今後こうならないためにどうすべきですかね(´･ω･`)
>322
例外処理一つにできないか考えるべき。
>>279 のコードは駄目。
後は関数内関数を使って見やすくする。
328 ：
デフォルトの名無しさん ：2006/06/06(火) 15:51:49
PaintBox1.Canvas.Brush.Color:=clWhite;
330 ：
329 ：2006/06/06(火) 16:20:16
331 ：
デフォルトの名無しさん ：2006/06/06(火) 16:46:30
返信ありがとうございます！
>>329 Pen.color:=clWhite（白線にする）
と書いても無反応です。
>>328 そこみたんですがわかりませんでした。
白でFillRectして黒でstyleにps何がしを設定してからLineToした後にグラフ書くとか
>>331 Brush.Styleが合ってないと思われる。線を引くだけなら背景の塗りつぶしはしない
>>328 これだけでは判断できないんですけど、LineToで線引いてるんだよねぇ？
いや、ハッチブラシを使いたかったんでしょ。こんな場合はありえないが。
336 ：
デフォルトの名無しさん ：2006/06/06(火) 17:47:43
タイマー使って徐々にグラフを描くっていう感じの仕様にしたいので
MoveTo() LineTo() を使った方が簡単。間隔とか背景色といろんなことが自由にできるし。
338 ：
デフォルトの名無しさん ：2006/06/06(火) 21:22:51
Posは最初のマッチを返しますが、
while pos<>0 do でまわす
ふざけないでください
343 ：
デフォルトの名無しさん ：2006/06/06(火) 22:01:32
var hoge; でグローバル変数にする方が
そんなことを気にするのは何故ですか？
逆にメモリ消費が多いと期待どおりなのか？
346 ：
343 ：2006/06/06(火) 22:05:23
同じなら期待通りです
ファイル名に使えない文字が入力されたか調べるためにStringListに禁止文字を格納し
348 ：
343 ：2006/06/06(火) 22:09:00
オブジェクト参照がある分、クラス内変数がメモリ消費が多いのは当たり前。
Pos 関数みたいに、前から検索していき
>>347 TStringList より列挙型使ったほうがいいんでない？
const
InvalidChar = [' ', #9, '\', '/', ':', ',', ';', '*', '?', '"', '<', '>', '|'];
var
i: Integer;
Source, Dest: String;
begin
Source := 'hogehog\e.txt';
Dest := '';
for i := 1 to Length(Source) do
if not(Source[i] in InvalidChar) then
Dest := Dest + Source[i];
end;
352 ：
351 ：2006/06/06(火) 22:26:34
ありゃ、InvalidChar にスペースとか含んでら。
>>349 なんとなく分かったような・・・
大きい変数はclassに入れない方がいいんですね。
>>347 KeyPressで弾けばいいんじゃね？例はアルファベットのみ
procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key : Char);
const
Arrow_Keys := ['a'..'z','A'..'Z'] ;
begin
if not Key in Arrow_keys then Exit ;
end;
>>354 Key := #0 にするの忘れてた・・・
>>350 Copy関数使え。あるいはSetStringとか
> 大きい変数はclassに入れない方がいいんですね。
それを分かった上でなんでその疑問が出てくるんだ･･･
delphi使いはメモリ消費を気にしないんですね
メモリ消費を気にするなら Delphi つかってらんないだろ
メモリマネージャは1M単位でメモリを確保していると言うのに…。
>>361 まずちゃんと動く物を作るのが先だろ
それが難しいからみんな頑張ってるのに・・・
365 ：
347 ：2006/06/06(火) 23:43:46
>>351 はぁー、列挙型使うんですか、つうか列挙型ってこんな風に使えるんですね。
inですか、in。なるほどー、勉強になります。
#9ってTab文字なんですね、今知りました。
どうでもいいですが","はファイル名に使えるようです。
さらにどうでもいいですが、XPの場合ですがファイル名を変更しようとして入力中に出るバルーンと
決定しようとした時に出るダイアログの表示文字列が違うのはなんなんでしょうねw
(バルーンには禁止文字がダイアログと比べて2文字足りない上にダイアログに表示される","はファイル名に使えるw)
>>354 KeyPressではじくのもやってたんですが、BackSpaceが入力出来なくなるのとコピペされるとだめなのでやめました。
っていうかコピペは出来るようにしておきたいので。
まぁVB使いなんでしょう
>>366 コピペもしたかったのか、こんなんでどう？
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
Arrow_Keys = ['1'..'9','0','a'..'z','A'..'Z',Chr(VK_BACK)];
begin
// 対象キーが押されていれば最上位ビットがＯＮになる(マイナス値)
if GetKeyState(VK_CONTROL) < 0 then begin
end else begin
if not (Key in Arrow_keys) then begin Key := #0; Exit end;
end;
end;
D6の古い環境にD7を入れたらシリアルが不正って言われる。。。
関係ないかも試練が
372 ：
347 ：2006/06/07(水) 15:23:09
>>368 なるほどというか、目から鱗です。「はぁー！なるほどー！」っていう気持ちが伝わるでしょうか。
ソースだけがどんどんレベルアップして私はおいてけぼり状態ですw
ホントにいいスレです、レス下さった皆さんありがとう。
>>369 ∧＿∧∩ ／￣￣￣￣￣￣￣￣￣￣￣
（ ´∀｀）/＜ 先生！どう使うかわかりません！
＿ / / / ＼
＼⊂ノ￣￣￣￣＼ ￣￣￣￣￣￣￣￣￣￣￣
||＼ ＼
||＼||￣￣￣￣￣||
|| ||￣￣￣￣￣||
.|| ||
>>372 ただし、コピペ可能にすると検査なしで入力されてしまうから
きちんと弾きたいのならChangeで検査したほうがいい。
あと、Changeで検査するときはコピペのときにカーソル位置を考慮しないとダメだったような？
>>363 k w s k
もしかして、最近のFastMMってそうなん？
メモリプールしてくれてんのかな？
>>378 サンクス。
プールしてんのね。
どうりで、メモリ確保が早くなったわけだ
380 ：
347 ：2006/06/07(水) 19:06:58
>>374 どうもです。なんとかうまくいきそうな感じになりました。
どうやらKeyPressでChangeも発生するようなので全部Changeでやる事にしました。
GetKeyState関数やら列挙型の使い方とか知ることが出来て満足です。みなさんありがとう。
コンポーネントパレットをじっと見つめるんだ
何も浮かび上がってきません＞＜
ListViewじゃね？
>>383 まじかよ
installフォルダにDemosってあるだろ
そのなかにVirtual Listviewってのががあるから見てみろりん
386 ：
381 ：2006/06/07(水) 20:47:45
>>385 Demoの中に見つかりました～。ありがとうございます(_ _)
へなちょこです。
板違い。ソフトウェア板に行け。
390 ：
215 ：2006/06/08(木) 01:12:16
気になるから納得いくまでやってみた。
391 ：
215 ：2006/06/08(木) 01:13:02
end else begin
もしかして LastDelimiter ?
C言語の\n(改行)にあたる文字は何でしょうか
いつの間にか良スレ
397 ：
デフォルトの名無しさん ：2006/06/08(木) 10:59:51
Delphi2005で使えるIndy10の最新版ってどこにありますか？
関数１つで戻り値の型をstringとintegerの２つ準備させる方法は copy 関数みたいに２つ用意しないとダメですか？
>>400 record使えばよろしかろ
initializeが必要になるんだっけ？
ダメですね。
memoコンポーネントを使ったのですが
WordWrap := True;
できました！
対象の文字が数値型かどうか調べるにはどうしたらいいですか
> if 0 = integer then
StrToIntで例外発生したらFalseを返す関数を作ればどうだろう
えっと、簡単に書きすぎました。
・・・言ってる事が変ですね。
>>410 StrToInt(pString); の行を
if (StrToInt(AStr) < 0) or (StrToInt(AStr) > 9) then Result := False;
414 ：
デフォルトの名無しさん ：2006/06/08(木) 17:00:05
テキストエディタを作ってるんですが、JIS/S-JIS/EUCはどうやって見分けるんですか？
function IsNumerical(c: widechar): boolean;
>>414 Delphi関係ないような気が…。nkfのソースでも読んでみれば？
>>392 それ、見つかった一番前の奴調べる奴ないん？
ヘルプには載ってないがTryStrToIntぐらい常識だろ
419 ：
デフォルトの名無しさん ：2006/06/08(木) 19:47:02
Delphi 2005よりVB 2005の方が優れていてしかも安いって本当ですか？
>>418 どこらへんの地域の常識か構文で提示願いたい
ヘルプには載ってないのが常識なわけないだろ・・・ってDelのヘルプが糞なのは常識だが
>>421 同意
・・・ヘルプよりヘルプらしいサイトないだろか
VCLはヘルプ見るよりソース読むのがよっぽどよく分かる
Delphi6を使っています。
メニューのフォントはシステム設定で固定なので設定不可
>>414 それは意外と難しい
変換するコードはあちこちに転がってるがどのコードかを判別するのは案外ない
俺は結局某雑誌の記事を元に自分で実装した
427 ：
424 ：2006/06/09(金) 01:14:28
>>425 そうですか・・・、とりあえず諦めます。
もうちょっと色々身に付けてからチャレンジしようと思います。
xyzzyみたいな自動判別しててソース公開されているのを参考にしたらどうか
>>426 横からで申し訳ありませんが､その雑誌名(判れば刊行年月も)
教えてもらう訳にはいかないでしょうか
430 ：
414 ：2006/06/09(金) 08:34:58
>>426 自分もお願いします。
Delﾏｶﾞとかですか？
サイトのアクセス解析するソフトを作りたいんですが、GoogleやYahooとかの検索ワードってURLエンコードされてますよね？
>>429-430 翔泳社のWindowsデベロッパーマガジン2006年1月号の記事
「文字コードなんて怖くない！」ってやつ。
JIS(iso-2022-jp)/SJIS/EUC/Unicode/UTF-8の判別方法が載ってた
サンプルコードで載ってたのはVBだったけどそんなに難しくなさそう
だったんでdelphiに翻訳した
433 ：
431 ：2006/06/09(金) 09:19:32
タスクバーのヒントはどうすれば表示されるように出来ますか？
Application.Hintにヒント文字列を設定
>>435 やはりApplication.Hintでいいんだ
でもApplication.ShowHint := True;もやったけど表示しなかった・・・
すまん、タスクバーとタスクトレイを混同してた
>>437 Application.Title も設定してるけど・・・
タスクバーのタスクスイッチボタンの上にマウスを置いたときに表示する
>>439 >Application.Title 相当が収まりきれない場合だけです。
知らなかった・・・ありがとう (収まってるからだったのか)
441 ：
デフォルトの名無しさん ：2006/06/09(金) 15:41:59
mp3のタグを扱いたいんだけどいいコンポーネントある？
あるPopupMenuのサブメニュー(menuList(TMenuItem))に個数不定の項目を、メニューを表示する度にOnPopupで作りなおしています。
444 ：
442 ：2006/06/09(金) 17:15:38
>>443 そうでしたか、レスありがとうございます。
445 ：
デフォルトの名無しさん ：2006/06/09(金) 17:53:13
DelphiでCのfmodに相当する関数はありますか？
ない、と思う。５分で作れる、とも思う。
function FMod(const X, Y: Extended): Extended;
うーむ、Abs() は必要ですか？
449 ：
447 ：2006/06/09(金) 18:56:42
>>448 あら、必要ないですね・・
無駄に考えすぎでした。
先生質問です。
>>450 uses に SysUtils があるかな？
>451
>>441 DLLならいくらでもあるっす。コンポだけが全てじゃないが。
質問です。
非公式パッチを当ててVCL.NETを起動してないか？
いまどきD2005を使ってるのが驚き。
457 ：
441 ：2006/06/09(金) 22:44:40
>>454 そのプログラムをエクスプローラーから実行していない？
すでに実行済みのプログラムは終了させないと作れないよ。
>>454 インストールしたばかりで使用許諾を受けてない…
なんて事はない?
２００５は使用許諾を受けないと動かないんだ？
ヴビ厨が解雇されるまでの時間よりは長いのではないかと。
かちゅ～しゃの左側のカテゴリー表示って、どのコンポーネント使ってるの？
>>454 実際に使用許諾を受けていなくても
ｗｅｂやメールで取得のチェックボックスをを選んでいればコンパイル出来るが
何も選んでいないとコンパイル前にはじかれるんだよ
465 ：
デフォルトの名無しさん ：2006/06/10(土) 20:37:14
10個くらいの画像を重ねて印刷するために、
467 ：
465 ：2006/06/10(土) 21:44:45
これってStretchDrawだけじゃ無くてただのDrawでも該当するのでしょうか？
>465
469 ：
454 ：2006/06/11(日) 13:22:13
実行>実行が出来ないだけで、デバッグ無しで実行、コンパイルなどは正常に出来ました。
>>469 取り合えず再インスコぐらいしたんだろうな？
BDS2006 にバージョンアップするか、D7 以下の旧バージョン使うのを推奨する。
472 ：
454 ：2006/06/11(日) 14:06:50
>470
473 ：
デフォルトの名無しさん ：2006/06/11(日) 18:05:01
[致命的エラー]
うん、どう見てもまずいじゃん
475 ：
デフォルトの名無しさん ：2006/06/11(日) 18:16:37
何がまずいんですか？
お前が出してる情報が少なすぎて分からんが、
477 ：
デフォルトの名無しさん ：2006/06/11(日) 18:32:43
わかりました、やってみます。
478 ：
465 ：2006/06/11(日) 18:34:35
色々調べてたら分かったんですが、あのサイトの中村さんって本まで出してる
凄腕の方だったんですね。図書館で借りてきてしまいました。
で、ビットマップの印刷って実はとっても難しいものだったんですね。
とりあえず、対策版を先方に送って結果待ちです。また、
>>468 さんありがとう
ございます。検討したいと思います。
ジャブジャブと勢いよくな！
480 ：
４７７ ：2006/06/11(日) 18:47:37
もしかして、FormでやることってFrameじゃできないんですか？
エラー全部貼ればすむものを
482 ：
デフォルトの名無しさん ：2006/06/11(日) 19:32:16
使用承諾未承認みたいのが立ち上げるときに出るのに
Q&A掲示板にマルチポスト止め。
485 ：
４７７ ：2006/06/11(日) 19:40:11
マルチポスト止めってなんですか？
486 ：
デフォルトの名無しさん ：2006/06/11(日) 19:45:13
プログラムを保存しようとするとusesに「StdCtrls」って
487 ：
251 ：2006/06/11(日) 20:23:48
キャプションを持たない特定ウインドウを判定するのはGetWindowRectを使って何とか出来ました。
>>486 >StdCtrls
そのユニットが StdCtrls を使ってるから。
>実行してもどなにもおこりません
日本語でおｋ or おまいのコードが間違ってるから。
>>487 ポップアップメニューは子ウィンドウじゃないから。
Exじゃない方のFindWindowで取れたと思うよ。
490 ：
251 ：2006/06/11(日) 22:01:18
>489
491 ：
デフォルトの名無しさん ：2006/06/11(日) 22:16:19
>>488 一回実行できたのに、保存してDelphi消して、また立ち上げて
実行すると何にも起きないんです。なぜですかね？
ちなみにProjectのprogramはこんな感じなんですが問題ありますか？
program Project1;
uses
Forms;
{$R *.res}
begin
Application.Initialize;
Application.Run;
end.
492 ：
４９１ ：2006/06/11(日) 22:28:16
unit1のprogramは↓なんですが何かおかしいですか？
493 ：
４９１ ：2006/06/11(日) 22:29:24
続きです。
>>491 begin
Application.Initialize;
Application.CreateForm(TForm1, Form1); ←ココ重要
Application.Run;
end.
>>494 同時に
uses
Forms, Unit1;
にしとかないとコンパイルとおらないぞ
>>491 program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
意味分かるよな？
つか、デフォルトでいじらなきゃ、まんまなわけだが。なにやってるんだ・・・
498 ：
４９１ ：2006/06/11(日) 23:17:41
えっと意味はわかりませんがそれに書き直せばいいんですね？
499 ：
４９１ ：2006/06/11(日) 23:27:04
>>497 それがなぜだか勝手にかわってしまうですよ。
Projectを保存しますか？とか出るのを「はい」にしたらいけないのでしょうか？
新規作成で最初からやり直した方が早くね？
501 ：
４９１ ：2006/06/11(日) 23:44:31
>>500 また全部（ボタンとかラベルとか）を作るのがめんどかったので・・・
っていうかできました。後はUnit2,3,4,5....をProjectに打ち込めば
いいんですよね？ホントありがとうございました。
502 ：
デフォルトの名無しさん ：2006/06/12(月) 00:12:58
delphiのお試し版しか持っていないので、製品版を購入しようと思います。
504 ：
502 ：2006/06/12(月) 00:38:26
>>503 どうもありがとうございます。
delphiってあんなに種類があるんですね。
プロフェッショナルって、値段も結構するんですね（--;)
>>504 ソース的にはあやふやなのだが
しばらくするとTurbo 版という物が出るらしい。
廉価版なのではという噂もある。
と言うわけで急いでなければ、秋まで待ってみるという手もある。
外れたら御免なさい。
506 ：
502 ：2006/06/12(月) 00:57:44
>>505 情報どうもありがとうございます。
デルファイってあんまり初心者本が出てないから、ヘルプの機能を使いながら
勉強したかった（今のお試し版ではヘルプが見れません）ので、
急ぐ理由はないけれど、製品版が早く手に入れば嬉しいという感じです。
買おうかどうか迷っているうちに秋になったりして・・・（^0^；）
Delphi6Personalを使ってソフトを作っているんですが
>>507 1人で数十万～数百万のソース書いて保守してるけど
GExpertsを使ったり上手くクラスを使ったりしてやってるよ。
保守を楽にする為には設計で苦労する。
設計を楽にする為には保守で苦労する。
どちらかに偏ると思うけどがんばるしかないねぇ～。
>>508 数百万のソースを書いてるって、1人でできるもんなのかよ。
>>507 Pro版ならCtrl+上下でinterface/implementationを行き来できるので
interface節の宣言がそのままクラスビューや関数ジャンプのかわりになってたりして。
まあ構造ツリーだかクラスエクスプローラだかもあるし。
ちょっと待て
>>507 UNITという単位を旨く使って、出来るだけ独立性が高くて再利用可能にしてゆくしかないよ
行でもすげぇな
いま担当してるソフトのソース行数約５万行だった
コメントは4万行くらい？
>>506 商用で、使わないんなら
Delphi6のPersonalが無料ですよ
質問です。URLエンコードしたものがYahooで使えないんですけど、どーしたらいいですか？
521 ：
デフォルトの名無しさん ：2006/06/12(月) 20:47:14
エスパーの出番ですよ
522 ：
伊藤 ：2006/06/12(月) 20:49:28
GOOGLEでやれ
524 ：
デフォルトの名無しさん ：2006/06/12(月) 20:56:30
YAHOOのアドレス間違ってる
525 ：
デフォルトの名無しさん ：2006/06/12(月) 21:27:16
>UTF-8
ステップ数って行数の事じゃないの？
1つのステップを複数行に分けて書くことも出来る。
528 ：
251 ：2006/06/12(月) 23:45:13
postMessage(hcWindow, WM_LBUTTONDOWN,0,MakeLParam(100,15));
ポップアップて右栗で出てくるヤツか？
530 ：
251 ：2006/06/13(火) 00:05:46
>529
そりゃクリックしたら閉じるだろう
とある２つあるのボタンのイベントが、
>>532 こうするらしい。
BoolVal := (@Button1.OnClick = @Button2.OnClick);
Button1.OnClick はメソッドだから、そのような文では参照できない。
× ６ビットの長さ。
ܷܵܶ
TMediaPlayerにリソースからMIDIを読み込ませたいと思ったんですが、LoadFromResourceみたいなメソッドがありません。
ボタンを押したら3分後にbeepで警告音を鳴らし
つ ﾍﾞｸﾀｰでﾀﾞｳｿ
>>541 さんへ
AVIStream Delphiなどでググってみたんですが、３件とかしか出ません。
あまり熟成されてないようです。
APIを使うようですが、APIをバリバリ使えるテクニックが未だないもので…
ちょっとあきらめようかと思います。
ヒント、ありがとうございます。
AVIStream Delphi の検索結果 約 293 件
midi だったらsndPlaySound でいけるかも。
>>543 さんへ
あ、日本語のサイトだけっす。英語サイトは工房にはキツイ・・
>>544 さんへ
DirectXはDDDDとかのコンポ使えるだけっす orz
>>545 さんへ
sndPlaySoundやってみたんですけど、リソースからの読み込みがうまくできなくて。
Waveの方はリソースから読めたんですけど、MIDIはリソースコンパイラが対応してないんですかね？
使った事無いから駄目って意見よく聞くけど、わからないから質問してきてる以上、
工房のくせにDelphiなんてやってんじゃねーよ。
>>546 > リソースからの読み込みがうまくできなくて。
TResourceStream
まで
あらら、いい加減な事教えてゴメン。
>>548 がいいたいのは、３０歳以上のおさーんだけってことじゃないか。
俺はあと２日で３０なんだが、この場合もアウトか。
midiStreamOpenとかは駄目なの？
しすもんです。
Delphiは30過ぎのｵｻｰﾝしか使ってないアダルトソフト
560 ：
528 ：2006/06/14(水) 06:50:07
うーん WIN32 APIの板で聞いた方がいいのかな
>558
その不具合、けっこう有名だ。＞CoolBarにToolBarをのっけて
フォームを一番右上に配置するときは
それだと左上になるだろ？
Self.Left := Screen.Width - Self.Width;
できました
漫才かよ、こいつら
568 ：
558 ：2006/06/14(水) 16:45:35
569 ：
558 ：2006/06/14(水) 16:53:52
コンポーネントのXPMenu使ってるんですね。試してみます。
570 ：
558 ：2006/06/14(水) 17:37:42
>>558 Delphi2006用ソースをDelphi6でコンパイルしたときに同じような感じになった
572 ：
558 ：2006/06/14(水) 18:57:28
XPMenuの作者にメールだしても、エラーで帰ってくる。鬱だ・・・
アクションを実行したいのですが、
>>573 VCLのソース見たら、OnExecuteイベント呼んでるだけだった。
つまり、Action1.Executeと、Action1.Execute(Action1)は一緒
>>574 ありがとうござんす。ソースを見てみましたが、良く分かりませんでした。
で、何となくですが、Action1Execute(Action1);
としました。
いや、Action1.Execute を呼ぶべきじゃないのか。
SenderにNIL代入してイベントハンドラ呼ぶのは止めておけ。思わぬ例外に泣くぞ。
それは一個人の流儀だろ
>>558 TToolBar.FlatをTrueじゃだめなのか？
if文に論理(かつ、または、ノット等)を入れるときはどうしたらいいの？
if (1+1=2) and (2+2=4) then
if (1+1=2) and (2+2=4) then
>>583 括弧は省かない方がいいぞ
優先順位が決まってるからいらないって意見もあるけど・・・
明示的に付けておいたほうが後々のトラブルはない。
良いも悪いもつけないとビルドが通らん
ほんと、国語力ないのが多いな・・・
しろーとな質問ですみません
modified
ܷܵܶ
TMemoのModifiedプロパティを使用する。
>>584 エラーになるならないではなくて、頭の中では括弧つきでコーディングしてるのだから
コードも省かないでおけってことだよ・・・
ありがとー！バッチリです！
>>593 if とか演算の括弧は省くなってことを言いたいだけですよ。
あまりそいつには触らない方がいいと思うよ
andの優先順位が高いことには不条理を感じることもあるな
ビット演算子のアンドと論理演算子のアンドで記法が同じなのが混乱の原因
だってTrue/Falseは1/0じゃん？
599 ：
デフォルトの名無しさん ：2006/06/15(木) 21:46:59
delphi2005と７の違いは大雑把にどんなところが違うのでしょうか？
>>599 2005: 重い、落ちる、バグ多い
2005使うくらいなら、2006の方を進める
602 ：
599 ：2006/06/15(木) 22:48:20
>>600 ありがとん。でも.netて何だろ（・ω・）？
当分初心者だから使わなさそう。
603 ：
599 ：2006/06/15(木) 23:06:34
>>601 あれっ、2006なんて出てるんだ・・・。
ますます選べなくなりそう。
>>603 2006はfor～inとか構文拡張も多いしFastMMだし、2006>7>>>>
>>2005 と思っときゃ間違い無いよ。
ただIDEの日本語対応度だけは7が上かも。
>>605 >>>>>の付き具合からすると、2005は余程不便なのかな・・・。
>ただIDEの日本語対応度だけは7が上かも。
この１行で７に決めました。ありがとう。
606 ：
558 ：2006/06/15(木) 23:34:12
>>605 不便っつーより、機能だけ見れば順当にバージョン順なんだけど、2005はIDEがよく落ちる。それだけ。
マシンスペックが今時のなら、間違いなく2006薦めるが
VS2005にしとけ
なぁ、2007日本語版出るのかな？
便乗して質問、Del6のソースをBDS2006で開けますか？(そのままコンパイル可能？)
>>605 バッチ当てればD2005もD2006も同じ。
だからこんな感じ。
D7>>>>>>>>D2006>D2005
最新のPCだろうが何だろうが
D2005以降はもっさりするのでお勧めできない。
後デザイナの挙動も少しおかしい。
よってその選択で正解。
Delphi6パーソナル版で
FindWindow, EnumWindowsでウィンドウハンドルとってSendMessage
>>613 全然同じじゃねーて D2006>D2005 は同意
プログラムで音量上げるにはどうすればいいですか？
ちょっと説明不足ですね
ファイルをネットで更新するコンポーネントってないですか？
でｌｐひ2006のことなんだけど、デバック時のロー
そういうのはBDSスレへ
TListViewで、Ctrl+＋ キーを押すと列の幅が自動調整されますが、
とりあえずスレのレベルが低いということだけはガチ
くだすれにいるくせにスレのレベルが低いとはどういう事なんだろう
>>626 Ctrl + +キーで列の幅が自動調整されるなんて今知ったｗ
for i := 0 to ListView1.Columns.Count -1 do
ListView1.Column[i].Width := LVSCW_AUTOSIZE;
LVSCW_AUTOSIZEをLVSCW_AUTOSIZE_USEHEADERにすると
カラム長に合わさるよ
ダウンローダーみたいなのを作りたいのですが
Indy
そのindyでどうやればいいんですか？
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
fs := TFileStream.Create('hoge.dat', fmCreate);
try
IdHTTP1.Get('
http://hogehoge/hoge.dat ', fs);
finally
fs.Free;
end;
end;
Webの巡回ソフトの用のものをTWebBrowserを使って作ろうとしています
マルチポストは良くない。
>>635 ありがと．．．Q&Aで返信つかないままどんどん下がるので
さびしくなってこっちにもかいてしまいました
みんなどんどん返信つくのに．．
イミフメだから。そのコード、どんなタイミングで実行してるの？
フォーカスあるなら Returnキー押すコード書くだけ。
フォーカスはあるようです
だから、いつ実行してるの？ モーダルダイアログなんだろ。
ダイアログのOKボタンを押さないと駄目では？
WebBrowserのonCommandState
↑onCommandStateChange
Editコンポーネントで数値以外の入力を禁止するには何すればいいんでしょうか
つ TMaskEdit
メッセージダイアログの中で改行するにはどうすればいいのでしょうか？
FindFirstでファイル、フォルダの検索をした場合に検索される順番に決まりはあるのでしょうか？
>>648 ファイルシステムの実装による。
大抵作っていった順序。. ..が先に来るな。
>>648 FATは作成順。
NTFSは名前順。
検索順を変えたいなら、十分でソートする。
命名スレで暴れているDel厨君うざいですよ
654 ：
648 ：2006/06/17(土) 16:55:16
>>650 ,651
早速の回答ありがとうございます。
なるほど、ファイルシステム依存なんですね。こりゃまいった。
んで
>>十分でソート
ってなんざんしょ？
自前で
656 ：
648 ：2006/06/17(土) 17:16:13
>>655 あっ、自分でって事ですね？すんません想像力無くて。
じっぶん で十分って変換されるのか
じゅぶん かもしれん
659 ：
デフォルトの名無しさん ：2006/06/17(土) 19:44:36
昨日はじめたばかりです。
>>660 本当にありがとうございます！！！！！！
精進します！
662 ：
デフォルトの名無しさん ：2006/06/17(土) 20:09:58
>。。。。
なんだと！！！！！！！！！
ごめんなさい。。。。orz
>645
666 ：
665 ：2006/06/17(土) 22:10:50
× Key=#0
D6です。メニューにフォルダを展開し、クリックすると開くようにしたいのですが、
ツリービューつかったダイアログつくれ
「ある項目」ったって誰も知らない
try
671 ：
667 ：2006/06/18(日) 02:26:47
>>669 すまんね、'サブメニューのある'項目だな。
つまり、'サブメニューのある'項目にもOnClickハンドラがあるのですよ。
すると'サブメニューのある'項目をマウスポインタが通過するだけでOnClickが呼ばれる。
>>670 例外が発生するとかではないので無理っぽい。
本来'サブメニューのある'項目自体にOnClickを割り当てるのがおかしいとは思うがどうにかならんのか、と。
> マウスポインタが通過するだけでOnClickが呼ばれる
と思ったけどそうなるみたいだな
最小再現コードを見せて。
目的にメニューの機能がフィットしてないので諦めれ
>>667 でフォルダをメニューに展開とか言ってるがファイル数が1000とかあったらどうなるよ？
似たようなもの作ったことがある。
ランチャーでも作ってるんだろうか
レコード型で、
const MenuNum = 3
680 ：
デフォルトの名無しさん ：2006/06/18(日) 05:53:47
サブメニューを変更すると、親メニューのハンドルが無効にならなかった？
>>678 グローバル変数なら、宣言と同時に初期化が可能。
var
P: TPoint = (X:0; Y:0);
ただその例はおかしい。 MenuCaption は動的配列にしないと駄目。
そうなると動的配列の初期化は出来ない。
classで実装するべき。
その部分はTStringList型を使うべき。
682 ：
６７８ ：2006/06/18(日) 07:10:59
ご意見、ありがとうございます。
わざわざ、という発想がわからんなぁ。クラスでいいと思うが。
GCがないからインスタンス生成に対する心理的抵抗が非常に大きいというのは非常に理解できるよ。
QDのDDSDコンポーネントとTMediaPlayerコンポーネントを両方使うと
686 ：
デフォルトの名無しさん ：2006/06/18(日) 11:35:49
よくわからんが
687 ：
デフォルトの名無しさん ：2006/06/18(日) 11:46:52
>>684 うむ。こういうときばかりは、Delphi.NETがうらやましくなる・・・
>>687 ガーベジコレクション。ゴミ集め。
つまり、Object.Freeしなくても勝手に開放してくれるということ。
>>645 SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowsLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
>>686 マウス世代からするとスクロールしか念頭にないんじゃない？
というか普通に教えてくれ。
スクロールが当たりませじゃないものって何がある？
＞当たりませ
GC まかせは気持ち悪いところもあるんだよ。ちゃんと Free をすれば済むことを
>693
俺もStringListばっかり使ってる
>>694-695 例えば、
var
StrArr: array of string;
count: integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
if (Length(StrArr) <= count) then SetLength(StrArr, Length(StrArr) + 10);
StrArr[count] := IntToStr(count);
Inc(count);
Memo1.Lines.BeginUpdate;
Memo1.Clear;
for i := 0 to count-1 do
Memo1.Lines.Add(StrArr[i]);
Memo1.Lines.EndUpdate;
end;
のようにすると、メモリが許す限りいくらでも増やせる。開放も気にしなくよい。
配列要素数を減少させるときも SetLength() を使う。
697 ：
667 ：2006/06/18(日) 16:10:33
>>672 ,673
なぜかなるんですねぇ・・・。
>>674 メニューを作成し、項目aを作成、項目aにサブメニューbを作成、項目aのOnClickにShowMessageでも書く。
実行し、メニュー項目aをポイントするとShowMessageされてしまう・・・、ってな感じ。
>>675 そうですよねぇ、本来のメニューの使い方ではないんですよねぇ。
>ファイル数が1000とか
ファイルは表示してませんが、サブフォルダがあるかどうかの判定に時間がかかる場合があって大変です(´･ω･`)
>>676 どうやらそういう方向で考えないとだめっぽいですね。
>>677 ランチャー'のような物'を目指してたんですが、皆さんのレスを見てると普通のメニューでは無理っぽい模様です(´･ω･`)
常にプログラムを常駐させて
APIでタスクトレイに登録、キーフック
今日初心者本を見ながらDelphi始めたのですが、
それは、Win16 の名残り。使わない方がいいよ。
TStrings (List) で、区切る文字列の指定を , だけにしたいのですがどうしたらいいでしょうか。
>>703 に便乗。
CommaText を使うと格納されているリストを文字列として取得できるんだけど、
それを , じゃなくて半角スペースで取得する方法知らない？
半角スペースでも区切られるでしょ。試したの？
あ、アホレスだった。リストの方なら、A + ' ' + B + ' ' + ... 簡単に作れる。
>>703 半角、全角スペースを含む文字が区切り文字に含まれている場合は
区切り文字をダブルクォーテションで囲めば半角、全角スペースで区切られない
>>704 Delimiterプロパティを変更すれば任意の文字を区切り文字に設定可能
あるいはﾍﾞﾀにStringReplace
半角、全角スペースを無視したい場合は別の文字に置換してCommaTextにブチ込む
sTemp := StringReplace(sTemp, ' ', 'hankaku', [rfReplaceAll]);
sTemp := StringReplace(sTemp, ' ', 'zenkaku', [rfReplaceAll]);
sTempList.CommaText := sTemp;
値が必要な時になったら
Strings[0] := StringReplace(Strings[0], 'hankaku', ' ', [rfRelaceAll]);
区切り文字を指定したいなら区切り文字をカンマに、半角、全角、カンマを
別の文字に置換してCommaTextに（ｒｙ
sTemp := StringReplace(sTemp, '&', ',', [rfReplaceAll]);
sTemp := StringReplace(sTemp, ' ', 'hankaku', [rfRplaceAll]);
sTemp := StringReplace(sTemp, ' ', 'zenkaku', [rfReplaceAll]);
sTemp := StringReplace(sTemp, ',', 'kanmma', [rfRplaceAll]);
>>706 A := a[i] + ' ' ;
という風に for i:= 0 to a.count -1 do 文で回してるんだけど、最後にスペースつくからそれを回避したくて。
・・・って、 a.count を取得しといて if で最後つけないように指定すればいいのか。
空白区切りで取得できたら楽なのに。
>>708 最初の項目 a[0] に i=1 から順に + ' ' + a[i];
>>707 置換かー・・・ なんか余計手間に思えるけど結果それのが分かりやすい・・・かな？
ありがとう試してみる。
区切り文字は、create のあとに Delimiter を指定すればいいってのはわかってるんだけどね。
それを取得する方法がカンマしかないのかなーと。
分解を取得で違う方法にするってのは、通常考えない事だから仕様にないのは当然か。うーん。
>>709 それだと a[0] の文字列が取得できないじゃない？
リロードしろ俺。
というか回答者いっぱい居てなんだか優しいなここの人らは。
>>709 よくわからんのだけど？
a[0] を ' ' + a[i] で書き換えて行けって事？
>>707 ご飯から返ってきたら返答がありました。
それでやってみたら、できました。 ありがとうございましたm(_ _)m
s := a[0];
716 ：
701 ：2006/06/19(月) 22:45:10
これを入力しないと次の項目に進めないのですが
「FileListBox」と「DirectoryListBox」と「DriveComboBox」のことだ。
Internet Explorer をDelphiで操作するプログラムを作りたいんですが、どのようにやったらいいでしょうか？
ヒント１：ActiveX
「Internet Explorer をDelphiで操作する」って、具体的にどうしたいの？
>>701 その本古すぎ。初心者スレで勉強すべし。
× 初心者スレで
723 ：
718 ：2006/06/20(火) 00:26:01
>>720 Webメーラーを使ったSPAM送信するプログラムを作りたいんです。
そんなのは教える気はないな。
725 ：
718 ：2006/06/20(火) 00:47:45
何故ですか？
正直、SPAMをDelphi+IEで送ろうとする>723の涙ぐましい努力に敬意を表する。
なんか使い方にもよるかもしれないけどStringReplaceてめっちゃ遅くない？
はっきり言って遅いよ。
>>729 何か他の言語と比べて遅いならわかるけど、
体感で遅いと感じるんだよね？
それだと使いどころを間違ってるとしか言えない。
勿論。使い所が悪いとダメ。
>>727 こいつは「StringReplaceより優れた関数つくったぜぇー」って勘違いして自慢したいだけだからほっとけ
StringReplace って、初心者用でしょ。ちょっと考えれば、あんなものよりマシなのは
734 ：
デフォルトの名無しさん ：2006/06/20(火) 02:47:15
なんでことさらに
>>732 みたいな書き込みをしたがるのかわからん。
以前も「けなすくらいなら書き込まんとけ！」みたいなことでもめてたことがあったが、関係ないもんから見てても気分悪くなるよ。
736 ：
デフォルトの名無しさん ：2006/06/20(火) 02:54:22
ぶっちゃけ標準ライブラリに似たような機能あるのに
なんだ？Del厨は口が悪いなｗ
余裕がない奴が多い、ってのは一理あるかも
>>737 よっぽどコンプレックスをお持ちでなによりです。
今日も生きててご苦労様です。
もうやめようぜ。
Delphiの話しようぜ
DelphiのStringReplaceは初心者用とかいてありますが
わざとからかって質問してんだろう？
もしよかったら他の関数もレベル分けされているものがあれば教えてください。
TStringList に入れて、一行づつ StringReplace で置換すれば速くなるよ。
てか、数十バイト程度の文字列処理用だね。処理速度が欲しければ自分で書くか、
コードでスクリーンショット（PrintScreen押すだけ）を撮りたいのですが
いづれにしても、AnsiPos() や Copy() を多用して、切った貼ったを繰り返す関数は
>>747 keybd_event(VK_SNAPSHOT, 0, 0, 0);
keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);
これでPrintScreenを押したことになる
あとはImageのキャンバスに貼り付けるだけ
745より速くしたい場合は、標準ライブラリでは無理だから自分で書く。
751 ：
747 ：2006/06/20(火) 03:59:45
FAQだが遅いのはStringの長さの拡張&コピー。
速い関数を作れる人がわざわざ遅い関数を使うことなんかあり得ない。そう言う意味では
StringReplaceの速度が問題になることなんてまずないから安心して使うといいよ
ありえないって断言しちゃったよこの人。
初心者でもながぁーい文字列を操作することもあるでしょ。
> 速度最優先で組んでるならCでもやればいいのに。
> 速度最優先で組んでるならCでもやればいいのに。
文字列を操作するツール以外なら
速度で言うとC>=C++>Delphi>>>>>>.Netだな。
> 速度で言うとC>=C++>Delphi>>>>>>.Netだな。
要は、Delphi の文字列処理用ライブラリはダメダメだってことだ。
マウスホイールを回すとDBGridの選択行がスクロールしてしまいます。
764 ：
初心者 ：2006/06/20(火) 11:38:28
いや、なんかすごいですね。
>>764 うーん。
遅い原因は 複数の置換を行うと O^2 とデータ量x置換数に比例する事にあるんで
目的に応じて設計しないといけないからなわけで
置換といっても正規置換もやりたいの？ とかによって規模が一気に巨大になるし
StringReplaceって、OldStr、NewStr、Strを入れたらOldStrをNewStrに置き換えてくれるやつでそ？
まぁStringReplace使ったぐらいで初心者あつかいされるなら
>>764 根拠、根拠言ってる奴に作ってもらうとよろし。
もう作ってるらしいから。
つーか、もうどうせならHalbowのサイトでも見ながらWin32 APIで実装したらいいんじゃない。
速度を追い求め非効率生産、勝手にやってろって感じだな。
> ほとんどのDel使いは初心者だわな。
> だったらこいつの高速版で長い文字列でも問題なし版ってことじゃダメなの？
>>769 IndyやOpenJaneみてるとそれぐらいの規模でもStringReplace使ってるみたいだよ。
だから、だめライブラリなんだけどね。
俺は別に動けば速くても遅くても関係ない。自分が使うわけじゃないし。
StringReplace論議はこれぐらいにして
775 ：
718 ：2006/06/20(火) 16:27:28
Internet Explorer をDelphiで操作するプログラムを作りたいんですが、どのようにやったらいいでしょうか？
操作って具体的に何がしたいのか
StringReplaceが遅いって言うやつはよくいるけど、速いソースを出してくるやつは見たこと無いな
それだったらIEなんか使わないでIndyのhttpコンポーネント使えばいいじゃない
汎用性と速度は反比例する物だからね
> 速いソースはそれぞれの目的に特化した物になってるから公開しても意味無いからじゃないの
srはもういいっていってんのがわかんねえの？
784 ：
デフォルトの名無しさん ：2006/06/20(火) 17:43:06
>>779 indyは初心者が作ってるらしいので嫌です
>>783 そんな下らん事言う前に、お前がソース出せば一瞬で終わるよｗ
StringReplaceは存在しなくていいと思ってる厨の考え
ぱぱっとStringReplace互換のソースを書いてここに貼り付けたらみんなハッピーになれるのにねｗ
Del厨ってスクリプト書けば5分で終わるCUIなフィルタも
いえてる。
>>787 寺子屋スレでやってたでしょ。ああいう感じ。
ここはDelスレだろ
GUI 以外は、ダメダメな標準ライブラリしか持たない厨たちの悲哀・・・
>>792 とかの方がよっぽどひとつの環境で全て済ますことにこだわってるじゃねーかww
794 ：
デフォルトの名無しさん ：2006/06/20(火) 18:38:38
comettrees.pasてどこにあるか知っていませんか？
>>793 ちょ・・・
本人気づいてないんだから、そっとしておいてあげようよ
知りません。
ライブラリがダメなところは、いくらでも改変可能なのが利点だからね
StringReplaceを試しにVB.NETで書き直して1MBのテキスト処理させてみたら3.7倍高速化されたよ。
そらまー、処理系云々よりデータ量と実装方針で決まるタイプの処理だからな。
>>799 でも、チマチマした最適化よりPCのスペックアップの方が有効だけどね。
>>753 からここまでは見る価値ないから透明あぼーんでいいよ
連鎖あぼーんすればこのレスも見えなくなるな
脱Delphi初心者の基準はStringReplaceを10倍高速化できるかどうかということだね。
>>803 「10倍」ってのが厨っぽい。
まず元の長さとパターンと一致数と云々……に対するオーダーを下げるのが目標。
それができたら同じアルゴリズムに対して効果的な機械語の吐かせ方を模索。
これは酷い
srはもういいっていってんのがわかんねえの？
>>806 ID出すように設定変更するのが面倒だから
質問があります。
>>808 何をしたいか書け
起動したいのならShellExecute
組み込みたいのならTWebBrowser
ActiveXつくりたいならPro版以上でウィザード起動
>>808 一番簡単なのはStringReplace。
ただパフォーマンスに難ありだからあまり複雑なことには向かないかも。
今日は暑いからな…
へぇー、StringReplace って IE も操作できるのか、すげぇ
VB使いの方がよっぽどレベル高いね
Del 厨は StringReplace でなんでもできる。
>>816 だね。とにかく欠点を直視しないのが特徴。そこらへんが徹底してる。痛々しい。
>StringReplace() は初心者専用とは言える。
819 ：
デフォルトの名無しさん ：2006/06/20(火) 22:39:02
賠償をするのか
RegExpとWSHどっちが速い？
MLにあったReplaceStringとかじゃあかんの？
いまだStringReplaceな流れの中すみませんが質問
>>他ｱﾌﾟﾘのｺﾝﾎﾟｰﾈﾝﾄのﾌﾟﾛﾊﾟﾃｨ
> たいそうな御託ならべたってソースの一つも張れないじゃないか！
826 ：
823 ：2006/06/21(水) 00:13:33
>>824 ありがとうございます。
調べてみたらなんかいろいろ難しそうなのでえっちらおっちらやってみます。
827 ：
デフォルトの名無しさん ：2006/06/21(水) 00:35:29
DelphiでAjaxは使えますか？
コンポーネントライブラリの
>>829 英語サイト・・・orz
日本語でないですか？
delphiでエレベータの制御はできますか？
＼
シンドラー社のはＶＢ製だろ
エレベーターの制御にStringReplaceは使えますか？
遅くて指定階を通り過ぎることがあってもいいなら、使える。
StringReplaceまた盛り上がってきました！
どこが？835と836で頭が冷えました。なんであんなに熱くなってたんだろ…
NGWord: StringReplace
だれかWifeReplace関数作ってください。
StringReplaceにバグ見つけたんですが
いいえ、構いません。
StringReplaceで
>>822 を知ることができたので大満足です。
良かったね。つーか、文字列を操作するのに string なんてほとんど使わないし。
>>845 そうなん？
文字列処理ルーチンばっかり使ってるんだけど、
何が良い？
847 ：
デフォルトの名無しさん ：2006/06/21(水) 21:47:57
ポインタ使えよｗｗ
別に相当シビアに速度求めなければどうでもいいし
ダメ
そこはらめぇ・・・
MEMOのコンポーネントを使ってなのですが・・・
>>822 それMBCS非対応
対応版がNiftyのMLやCodeCentralにあるけど
他にもBM法組み込んだのとか異人さんはいろいろ出してるよね
>>842 Null文字も処理したいなら関数らんとね
> 別に相当シビアに速度求めなければどうでもいいし
このオッサンはいつまで初心者スレで粘るつもりなんだろうか・・・
>>840 function WifeReplace(var OldWife: TWife): TWife;
begin
dispose(OldWife);
result := Kekkonsoudansyo.getNewWife;
end;
関係ないが、ループさせてベンチ採るとCompareString(NORM_IGNORECASE)より
ポインタ覚えたばかりの学生だろ。
>>853 そういうことはやりたい奴だけやればいいじゃん
普通に使う分には10倍程度早くなったところでどうでもいい
Del 厨って不思議。.NET アプリが遅いからネイティブマンセーなのか、と思ったら
VB.NET で3.7倍。
>>859 10msで終わる処理を1msにする必要がないんだが、
たった9ms縮めるのに労力を使うのが.NETなのかい？
.NETは逆にその速度以上にするにはMSに頑張ってもらうしかないからな
1GBのテキストファイルを処理しなけりゃならないなら考えるけど、
stringは確かに遅い。
つーか.NETで速くなった云々の例って、+演算子じゃなくStringBuilder使用してるだろ？
どうしてDelスレ住民はこんなに釣れるかね。
>>855 dispose(OldWife);でクラッシュするみたいです
Baby.Parent.mother が OldWife を参照しているのが原因です。
Dispose(Me);
870 ：
デフォルトの名無しさん ：2006/06/22(木) 04:25:54
>>864 開発効率重視するのがどうしてStringReplaceなんて原始的な手段を選ぶの？
言い訳に必死杉。
VB使いがStringBuilderや正規表現を当たり前のように使えるのがそんなにうらやましいの？
はいはいうらやましいです
>>870 釘を打つのに重機持ち出してきて不満が出ない境遇(客とか)は確かに羨ましい。
>>870 なんか言葉の意味すら分からなくなったようで可哀想だから説明するけど、
開発効率重視ってのは、車輪の再発明せずに既存のもので作るって話。これは「開発」速度ね。
速度重視ってのは自分で関数を作り直すってこと。インラインアセンブラで組んだり。こちらはコードの「実行」速度ね。
VBではMSに貰った関数以上のものは使えないし作れないから、そういう発想がないのかな？
まあこれでひとつ賢くなったね。良かった良かった。
VB厨はそろそろ後釣り宣言を出すと思いますけど、
>>873 へー。車輪の再発明をしないとStringReplace以外の選択肢がないんだ。
VCLって機能豊富なんだね。
>>874 後釣り宣言は既出。にも拘らず粘ってるものだからみなかわいそうになって相手してるものと^^
function WifeReplace(var OldWife: TWife): TWife;
>OldWife.setISyaryou(Me.getMoney);
879 ：
デフォルトの名無しさん ：2006/06/22(木) 08:41:56
VB使いでさえ今やAjaxぐらいのことはやってるのに、Del厨は未だにWin GUIに文字列操作か。
↑ブビ厨のフリするな。この基地外Del厨。
まぁ、なんにしろ StringReplace() の実装が糞なことが原因なわけで、
いまだにDel使ってる時点でどうかしてるだろ・・・
ふつうVB使うよね？
Delphi超初心者スレだぜここ…て
まだやってるな・・・
StringReplace は初心者専用だしね。
でも、正規表現の方が柔軟性があるよ。
柔軟性あるけど、単機能じゃないから、使いにくい。それだけ。
正規表現を使った部分文字列の置換って、速度的にはどうなの？
まぁすべてがVBに軍配が上がるし
（ ´,_ゝ｀）ﾌﾟｯ
↑そんなに悔しかったの？ｗ
VB厨の見分け方
つーか粘着基地外の黙らせ方も教えてください。おながいします
Delphiで、1つのプロジェクトを複数人で開発する場合の開発手法について教えてください。
897 ：
896 ：2006/06/22(木) 13:02:59
↑について、開発環境はDelphi7でWin32アプリを作成したいと思っています。
つStarTeam
つ WinCVS
>>877 やっぱりdispose(OldWife);で落ちるね。エラー処理しておいた方がいいかも
try
dispose(OldWife);
except
dispose(Me);
finally
kodomo.getHokenkin;
end;
VB厨はDelphiでも正規表現使えるの知らないのかな？
VB厨はデフォルト以外に関しては考えが及ばないんだよ。ほっといてやれ。
>>896 つSubversion(&ToritoiseSVN)
904 ：
896 ：2006/06/22(木) 14:18:41
レスありがとうございます。資源を一元管理するツールなんてのがあるんですね。
MEMOのコンポーネントを使ってなのですが・・・
>>904 みたいなのばかりだから某の事業が行き詰るんだよ。もっとお布施しろ。
ｽﾚﾀｲ読めない奴は死ね
－－－－■－－－－－■－－－－－－－－－－－－－－－－－－－－－
>>908 覚えてるだけで100万はしたよ
あなたは？
>>905 私の知る限り現世に神はいないので、
それだけの情報で全てを解決できる人はいません
もっと詳細に書きましょう
前者はTMemo同士の文章を入れ替えるのか、
別で確保してある文字列と入れ替えるのか分かりません。
後者は困ってることが分かっただけで何をしたいのか分かりません。
ｽﾚﾀｲ読めない奴は死ね
↑ こんな書き込みするやつが１００万お布施するような会社だから、事業が行き詰るんだよ。
荒らしの書き込みをStringReplace()で消し去ることはできますか？
今日もやることがなくひたすら初心者スレを荒らし続ける孤独なBorland信者のオッサンｻﾐｼｽ
今日もやることがなくひたすら初心者スレを荒らし続ける孤独な元VB厨のオッサンｻﾐｼｽ
>>905 Memo1.Lines.Text = 入れ替えたい文章
TMemoのスクロールバーを表示しないようにするのか？
それならMemo1.ScrollBars := ssNone
918 ：
905 ：2006/06/22(木) 17:19:08
すみません、説明不足でしたか・・・
2つの質問は共にMEMOコンポーネントを使った事なのですが
・ボタンを押す事によって、MEMOのLinesに書かれてる文章を
プログラムコードに事前に書いておいた文章に差し替えたいです。
Editだと、Edit.Text := '入換えたいよ～'と掛けるのですが
Memoだと、Memo.Lines := ？？？？？なのです・・・
Memoコンポーネントを複数貼っておいて
その中身同士をコピーもしくはMemoその物を見せたり消したり
と言うのを思いついたのですが、たぶん良くない方法だと思いましたし
ここで賢人に教えて頂ければ、Delphiのプログラミングを始め色々壁に当たってる事にも
一人で悶々としてる状態から、新しい見方・考え方で突破できるかと思い
ここに書きました。
・もう一つは、サイズを決めておいたMemoコンポーネントの中だけで
入力を受付け制限をしたいです。
WordWrapを設定すると、右側（行方向の文字数）は制限できるのですが
下側（列方向）は、ScrollBarsをssNoneに設定しておいても
文字入力がどんどんあればいくらでも改行して
どんどん下側にスクロールしてしまいます。
>>1 に書かれていた超低レベルなのですが
すみませんがやさしく教えて下さい。
お願いいたします。
919 ：
905 ：2006/06/22(木) 17:25:38
>>917 レスありがとうございます！
長文を書いている間で気がつきませんでした。
～nes. "Text" が抜けてたのですね。
さっそくやってみました、行けました！
改行も '+ #13'を足してクリアーできました。
もう一つの質問ですが、スクロールバーの表示を消したいだけじゃなくて
用意しておいたMemoコンポーネントの四角内だけで文字入力を制限したいです。
>>918 OnKeyPress内で行数調べて、超えてるようならReturnの入力を無効にする
921 ：
905 ：2006/06/22(木) 17:35:59
>>920 ありがとうございます
なるほど方法は理解できました！
でも行数を調べる方法が分からないのと
コピペの時はダメっぽい方法ですよね。。。
ゴメンなさい、もう少しヒントをくださいませ・・・
memo1.Lines.Count
>>750 の探した位置の保持て、Array of Integer で適時SetLengthするか
TListかCardinalListみたいなもの使うのんですか？
TMemoのonChangeで指定行数以降を削除するとか。
まさにStringReplaceの出番だな。
残念ながら無い
なにが？
>用意しておいたMemoコンポーネントの四角内だけで文字入力を制限したいです。
そんなつまんないレスしかできないなんて初心者以下ですね＾＾；
面白い事を言うスレじゃないし
いや、つまらないかもしれんが、それが現実。上級者なら、そもそもそんな仕様を
なんだかんだ言って雑談するの好きなのな
自称上級者のミジンコが初心者を見下して楽しむスレですよ
Delphi５を友達にすすめられたんだけど…
> 自称上級者のミジンコが初心者を見下して楽しむスレですよ
そんなこというなら、
>>918 の二番目の回答を書いたらどうだ？
最低だなおまえら。
Javaみたいにソースでコンポーネントを宣言して配列にしたりとかできますか？
938 ：
925 ：2006/06/22(木) 22:49:40
onChange利用してみましたよぉ
939 ：
925 ：2006/06/22(木) 22:52:49
あーインデント消えてもうた
なんでこうPCに詳しいやつって陰険なのが多いんだ？
942 ：
936 ：2006/06/22(木) 23:01:00
>>940 俺はお前ら神の如き上級者に見下されてるただの超初心者だからな。
・オブジェクトの配列を作ることは出来る
>941
と陰険なミジンコが申しております
本当に気になるところ全部直したいなら、
TMemo(つーかEDITコントロール)弄り回すよか、エディタコンポ見繕ってきて改造するべきだろうなあ、と思いつつも
>>938 一旦TStringListにでも移して処理したら軽くなるんじゃね？
正規表現ならPerlが一番いいね。
>>943 なるほど方法はあるわけですか
ソースファイルにコンポーネントの情報を格納しているようなところが見当たらないんですけど
別にファイルにあるんですかね？
>>948 言ってることがよーわからんがデザイナで設定した内容のことなら
.dfmをエディタで開くとわかるかも
951 ：
デフォルトの名無しさん ：2006/06/22(木) 23:47:07
こんばんは。１つ質問があります。
>>951 div …… 整数の割り算(対応する余りは mod )
/ …… 実数の割り算(結果は小数なので余りの概念なし)
953 ：
951 ：2006/06/22(木) 23:56:11
>>952 どうもありがとうございます！
割り算もできないようじゃ先は長いな・・・（´ー｀；）
StringReplaceさえ使えれば大丈夫
いい加減StringReplaceウザイ
NGWordに入れとけ>StringReplace
3つもあぼーん続いてるが何があったんだ
↑あぼーんして、そこ気にしてる馬鹿
StringReplaceが遅い事がなぜVB厨の琴線に触れたのか、私には理解できない。
↑デル厨のフリするな。この基地外VB厨。
のついでにデル厨とVB厨も指定しとけ
お前ら低レベル過ぎてﾜﾛﾀｗ
あのさあ、BDSスレの流れを初心者スレにもちこまんでくれんかな？
>入力する文字数を制限するのはどうですか？
922 じゃ駄目なのか？
StringReplaceじゃ駄目なのか？
いい加減StringReplaceウザイ
NGWordに入れとけ>StringReplace
3つもあぼーん続いてるが何があったんだ
＿＿＿＿
↑あぼーんして、そこ気にしてる馬鹿
／ ヽ
ジーコ「Delphiが売れないのは電通のせい」
976 ：
デフォルトの名無しさん ：2006/06/23(金) 21:59:43
あげ
ジーコ「Del厨に一番足りないのはプロフェッショナリズム。
すぐ荒らしか。分かり易すぎる。
979 ：
デフォルトの名無しさん ：2006/06/24(土) 04:32:49
次スレもう要らないよね？
むしろ荒らし隔離用が2スレあってもこれだけもれてくるんだから
てか荒らししかいないんだから、このすれいらない
もうDelphiっていらないよね！
勧めるならC#の方にしなさい。
あ、でもDel使いのほとんどは C# にはもう行っちゃてるでしょ。
Delphi初心者スレで
>>986 Del厨が他スレでよくやってたことだよ
988 ：
デフォルトの名無しさん ：2006/06/24(土) 17:42:08
Del厨って言動がﾁｮﾝみたい
989
990
991
992
993
994
995
996
997
Del厨って何で初心者スレ荒らすの？
次スレは要らない
1000も要らない
1001 ：
１００１ ：
Over 1000 Thread このスレッドは１０００を超えました。
