[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 2chのread.cgiへ]
Update time : 07/01 16:18 / Filesize : 177 KB / Number-of Response : 732
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

くだすれDelphi(超初心者用)その47



1 名前: ◆XcB18Bks.Y mailto:sage [2008/06/24(火) 16:24:25 ]
Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を
勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが
お礼はDelphiの布教と初心者の救済をお願いします。

<前スレ>
くだすれDelphi(超初心者用)その46
pc11.2ch.net/test/read.cgi/tech/1205323779/

<過去スレ>
DelWiki避難所(Delphi 関連の過去スレッド)
delwiki.info/?%E3%83%AA%E3%83%B3%E3%82%AF%2F%E3%82%B3%E3%83%9F%E3%83%A5%E3%83%8B%E3%83%86%E3%82%A3%2FDelphi%20%E9%96%A2%E9%80%A3%E3%81%AE%E9%81%8E%E5%8E%BB%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89


237 名前:デフォルトの名無しさん mailto:sage [2008/07/29(火) 04:54:47 ]
www12.plala.or.jp/selen/Delphi/Del_Web.html
とりあえずググったら速効出てきた。

238 名前:デフォルトの名無しさん mailto:sage [2008/07/29(火) 05:04:08 ]
>>237
そのソースを実装しても全く効果がありませんでした・・・
何か足りないのでしょうか

239 名前:デフォルトの名無しさん mailto:sage [2008/07/29(火) 17:24:47 ]
vistaでDelphi使いたいんだけど何入れればいいのん?
3.1って使える?

240 名前:デフォルトの名無しさん mailto:sage [2008/07/29(火) 20:23:47 ]
入れればいいのん?って聞かれればDelphi2007
D5も動いてるけどね
3.1は入れたことがない

241 名前:デフォルトの名無しさん mailto:sage [2008/07/29(火) 20:44:21 ]
2006はそのままではインストールできなかった。

242 名前:デフォルトの名無しさん [2008/07/29(火) 23:52:38 ]
ただ線を引くだけ、というクラスを作りたいんだけど、どこから継承すればいいの? Tshapeじゃもったいないし。

243 名前:238 mailto:sage [2008/07/29(火) 23:56:51 ]
>>237
うわぁ・・・Form1.KeyPreviewの中・・すごくFalseだったナリ・・・

244 名前:デフォルトの名無しさん mailto:sage [2008/07/30(水) 00:11:04 ]
>242
TShapeでいいのでは?それかTGraphicControlからTShapeを参考に必要な部分だけ
実装するか。

245 名前:デフォルトの名無しさん mailto:sage [2008/07/30(水) 01:27:41 ]
>>243
せめて移したコードのトレースしてれば、すぐにわかるだろそんなことw



246 名前:デフォルトの名無しさん mailto:sage [2008/07/30(水) 02:11:55 ]
>>232
TObject

247 名前: ◆XcB18Bks.Y mailto:sage [2008/07/30(水) 20:58:46 ]
>>242
TGraphicControlでいいと思います。
基本的にPaintメソッドに線を引くコードを書くだけですから
とりあえず動くものはぐに出来てしまうと思いますよ。


248 名前:デフォルトの名無しさん [2008/07/30(水) 21:14:16 ]
Delphiというか、標準PASCALで

readln(a);
assign(f, a);

というふうにやっているんですが、
自分の家のコンパイラだと通るんですが、
他のコンパイラでもこの描き方でおkですか?

aはchar型のpacked arrayです

249 名前:デフォルトの名無しさん mailto:sage [2008/07/30(水) 22:53:05 ]
Indy9とIndy10入れるとしたらどっちがいいですか?
オプソのもの時々参考にしたり弄ったりする時があるけどIndy9ばっかなのでIndy9かな・・・

250 名前:デフォルトの名無しさん mailto:sage [2008/07/30(水) 23:01:14 ]
Delphiのバージョンにもよるけど、基本Indy10で、問題があることがわかってる機能を使うならIndy9、じゃないのかな。

251 名前:242 [2008/07/30(水) 23:44:34 ]
解答さんくすです

>>244
>>必要な部分だけ実装
そんな高等技術まだないっす。

>>247
>>TGraphicControlでいいと

すっげー百済ねぇ質問だけど、あまり上位のオブジェクトを使うと、必要のない無駄な機能まで継承してしまって非効率って事はないの?
実際必要なのはプロパティでは始点・終点の座標と、任意に付与した線の名前と、線の色と太さくらい持ってれば十分なんだけど。
あとメソッドでは線を引く、線を消す、線を隠す、ShowHint、イベントハンドラはOnMouseMoveとOnClickくらいかな。

252 名前:デフォルトの名無しさん mailto:sage [2008/07/31(木) 00:00:37 ]
> >>244
> >>必要な部分だけ実装
> そんな高等技術まだないっす。

じゃ素直にTShapeから派生しとけ。

253 名前:デフォルトの名無しさん mailto:sage [2008/07/31(木) 00:18:55 ]
>>250
うーん、悩むとこですね
周りで使われてるのはIndy9ばっかなのでIndy10使うことになったら入れなおしでいいか・・・

254 名前:デフォルトの名無しさん mailto:sage [2008/07/31(木) 00:55:55 ]
>>251
VCLのソース読んでみな。TShape コントロールは TGraphicControl に
毛が生えたものでしかないことが分かるから。

255 名前:デフォルトの名無しさん [2008/07/31(木) 10:06:38 ]
久々に Windows アプリ書くんで、どうせなら新しめの Delphi 使おうと
『Codegear て何?』とか、『なんでBorland ドメインじゃないん?』と思いつつ TurboDelphi 落とした。

『そんな API 呼ぶなよ』とか警告出るけど、Delphi3.1 で書いたコードも通って一安心なんだけど、
なんで IDE のウインドウサイズ記憶しないの?
起動するたんびに WUXGA 画面いっぱいに広がって困りますわorz
オプションとか見たけどそれらしき項目を見つけられず・・・自動保存の設定じゃないし。

今浦島なおじさんに教えてたもれ!




256 名前:デフォルトの名無しさん mailto:sage [2008/07/31(木) 10:08:14 ]
上の方にレイアウトの呼び出し、保存のボタンがある。
何通りでも好きなだけ記憶させると言いい。

257 名前:デフォルトの名無しさん mailto:sage [2008/07/31(木) 10:09:30 ]
ウィンドウを好きなように配置して
メニューの右上の方にDefaultLayoutみたいなドロップダウンリストがあるから
その右隣のボタンをクリックして保存

258 名前:デフォルトの名無しさん mailto:sage [2008/07/31(木) 10:30:10 ]
>>256 >>257
これは便利。
Classic Undocked で昔の別ウインドウ形式になるんだね。

そこら辺にマウスカーソル当てればわかることに即答ありがとう!


259 名前:デフォルトの名無しさん mailto:sage [2008/08/01(金) 12:45:00 ]
delphi7でwindows mobileのソフト作成ってできますか?

260 名前:デフォルトの名無しさん mailto:sage [2008/08/01(金) 12:46:20 ]
無理

261 名前:デフォルトの名無しさん mailto:sage [2008/08/01(金) 14:53:13 ]
叶姉妹

262 名前:デフォルトの名無しさん mailto:sage [2008/08/02(土) 00:56:42 ]
>>239
2007推奨。
旧バージョンは、VCLがVista環境下でいろいろと不都合がでてしまう。
VCL小細工しているせいかね。悲しいかな。

263 名前:デフォルトの名無しさん mailto:sage [2008/08/02(土) 09:37:36 ]
>>262
代表的な不都合をお願いします。
時期開発環境の参考にします。

264 名前:デフォルトの名無しさん mailto:sage [2008/08/02(土) 10:18:10 ]
ぐぐれよw

265 名前:デフォルトの名無しさん mailto:sage [2008/08/02(土) 19:20:31 ]
UNICODE非対応の今はどれでも同じ
Vistaで使いたいなら自分で工夫、妥協するしかない



266 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 00:22:58 ]
UAC有効だと確認ダイアログが出まくってまともに使えない。
Aero有効にしているとスクロールバーが半分隠れて使いにくくなる。

267 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 01:44:46 ]
結論としてはVista使ってる奴が悪い、になるんだろうな

268 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 01:59:56 ]
Vistaが糞なんだろ

269 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 09:27:44 ]
Vistaがクソとか平気でいう奴は、自分の置かれている立場(言語)がわかっているのかなあ?

270 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 09:45:41 ]
死んだとか言われてるけど初心者の俺には何が死んだのかよく分からないし普通に使えるので別にどうということはない

271 名前:デフォルトの名無しさん [2008/08/03(日) 12:02:01 ]
recordを前方宣言出来るのでしょうか。
出来るのであれば、どうか方法を教えて頂けませんでしょうか。
出来ないのであれば、私を汚らしい言葉で責め立てて頂けませんでしょうか。

272 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 13:08:51 ]
できないっぽいね。何をしたいのか具体的に書いてごらん?

273 名前:sage [2008/08/03(日) 13:46:14 ]
272様。
Builderのバグの
qc.codegear.com/wc/qcmain.aspx?d=36215
コレを回避出来ないものかとおいまして。

274 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 15:23:16 ]
ふ〜む、難しいねぇ。つかOpenにしたまま放置かい。

275 名前:デフォルトの名無しさん mailto:sage [2008/08/03(日) 15:43:23 ]
都度hppを書き換える方法で行きます。




276 名前:デフォルトの名無しさん mailto:sage [2008/08/04(月) 17:39:17 ]
var
d, i: Integer;
begin
d := Windows.GetLogicalDrives();
for i := 0 to 32 do
if ((1 shl i) and d) <> 0 then Str.Add(Chr(i + Ord('A'))+':\');
end;

とやるのと

var
d: Integer;
c: Char;
begin
d := Windows.GetLogicalDrives();
for c := 'A' to 'Z' do
if ((1 shl (Ord(c) - 1)) and d) <> 0 then Str.Add(c + ':\');
end;
とやるのとじゃどっちが賢いんでしょうか

277 名前:デフォルトの名無しさん mailto:sage [2008/08/04(月) 23:26:14 ]
TWebBrowserのHttpヘッダを見たいんですが何かいい方法ありませんでしょうか

278 名前:デフォルトの名無しさん mailto:sage [2008/08/05(火) 00:54:36 ]
>276
下かな?でも上はそもそもバグっとる。for i := 0 to 25 doにしないと。

>277
つ WireShark

279 名前:デフォルトの名無しさん mailto:sage [2008/08/05(火) 00:54:58 ]
>>276
0 to 32 で 33個になるんだけど。
下の Ord(c) - 1 も、Ord(c) - Ord('A')じゃないの?

私は上の方が自然だと思います。
iが26以降になったときに何かやったほうがいいのかもしれません。


280 名前:デフォルトの名無しさん mailto:sage [2008/08/05(火) 02:05:24 ]
こんなのはどうだ。 d と c を分離するのはかえって解りづらいかな。
for c := 'A' to 'Z' do
begin
 if (d and 1) = 1 then Str.Add(c + ':\');
 d := d shr 1;
end;

281 名前:276 mailto:sage [2008/08/05(火) 02:30:36 ]
こんなにレスありがとうございます

>>278
適当にググって適当にやったのがいけなかったかw
確かに25の間違いです

>>279
ご指摘の通りです
これからは見直しは1時間だな・・・

>>280
うーん、なんかすっきりしないですね

282 名前:デフォルトの名無しさん mailto:sage [2008/08/05(火) 04:11:15 ]
280に一票

283 名前:デフォルトの名無しさん mailto:sage [2008/08/05(火) 08:07:05 ]
with BitArray(GetLogicalDrives) do with Each do while Loop do
  Str.Add(Char_Add('A', It.Value) + ':\');

欠点はうちの環境でしか動かないことだがw

284 名前:277 mailto:sage [2008/08/05(火) 09:22:39 ]
>>278
ああいや、外部からではなくDelphi内でモニタできないものかなあと思いまして、
Headerプロパティのようなものが見当たらず、代替するにも見当がつかなかったので聞いてみたのですが、
もしやindy経由で手の込んだことしないといけないんでしょうか…

285 名前:デフォルトの名無しさん mailto:sage [2008/08/05(火) 15:46:47 ]
>>284
ここにあった
blog.goo.ne.jp/ozoz-goo/e/b403b98e3c2f3445549b191819c94a4f



286 名前:デフォルトの名無しさん [2008/08/05(火) 22:34:59 ]
nkf32.dllやjconvertなりで文字コード自動検出してエンコードするソフトを作っているんですが、ほぼ英字のテキストだとたまに自動検出に失敗します。
失敗するのはいいんですが、失敗して文字化けした文字を検出するにはどうすればいいんでしょうか?

EmEditorの自動検出でもよく失敗するのですが、そういうとき開くと「指定したエンコードで変換できない文字が含まれています。編集を続行して保存するとファイルの中身が破壊されます。 」と出るので検出は出来ると思うんですが、どうやったらいいのか見当もつきません・・・

287 名前:デフォルトの名無しさん mailto:sage [2008/08/05(火) 22:48:40 ]
全文スキャンするしかないんじゃない?
文字コード検出のってファイル先頭部分しか見てないんじゃないかな

288 名前:デフォルトの名無しさん mailto:sage [2008/08/06(水) 00:09:51 ]
(c)文字は変換できないんじゃないの?

289 名前:286 mailto:sage [2008/08/06(水) 00:30:02 ]
自動検出で全文してみたんですけど無理みたい(失敗)です。。
EmEditorで検出失敗してもエラーが出ないときがあるので難しいのかもしれません。
けど、失敗エンコードのままの文をFireBird2.1DBのテーブルにインサートしてその文をクエリで検索するとエラーが今のとこ確実に出ます・・・
2.0ではエラーはでずクエリできるので、2.0を使うしかないみたいです、自分の今の力では。。

(c)って著作権のマークのやつでしょうか

290 名前:デフォルトの名無しさん mailto:sage [2008/08/06(水) 00:48:34 ]
自前変換ならエンコする時に全文字見る訳で
その時に検出するだけでしょ
WideCharToMultiByteとかならlpUsedDefaultCharで検出できるかと

291 名前:デフォルトの名無しさん mailto:sage [2008/08/06(水) 11:12:20 ]
>>285
うーん、headタグの取得については記述がありますが、
httpヘッダに関しては書いてないみたいです

TWebResponseとかあるのにTWebBrowserでは使えないんてくやしいっ
大人しくTcpServer経由しますか…

292 名前:286 mailto:sage [2008/08/06(水) 11:54:16 ]
>>290
なるほど、エンコ時にやればいいのか
ありがとうございます!


293 名前:デフォルトの名無しさん mailto:sage [2008/08/06(水) 16:38:17 ]
というかぁ、完璧な自動って不可能だからぁ。
文字コードが重なっていて、自動判断できない領域があるしぃ。


294 名前:デフォルトの名無しさん mailto:sage [2008/08/06(水) 18:57:59 ]
その文書作った人がそうだといったらどう見ても違う文字コードでもその文字コードになっちゃうだろうしなあ

295 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:12:21 ]
指定のビットが0か1かを判定する関数またはクラスの作成をよろしくお願いします。
入力するデータはビット番号とデータなのですが、元のデータのサイズが決まっていなくて、
32ビットデータ4個(ビット0-127)だったり2個(ビット0-63)だったと可変です。



296 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:18:29 ]
そこまで速度にこだわってないので、関数でいいのかな。
function TestBit(BitNum: Integer; Data: array ): Integer;
Data引数が可変引数だったりするとうれしいです。以上よろしくお願いします。




297 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:20:22 ]
ああ、32ビットと固定長でないかもしれません。16ビットや8ビットの場合もあるかもです。



298 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:21:58 ]
ここは丸投げスレではありません
お引き取りください

299 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:23:47 ]
>>298
今日は暑いですが、よろしくお願いします。

300 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:25:33 ]
>>299
本当に暑いですね
クーラーつけなきゃやってらんないです


お引き取りください

301 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:30:44 ]
>>300
そんな寂しい事を言って私を涼しくしなくてもいいので、TestBitの中身の方をお願いします。


302 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 16:44:51 ]
解決しました。
function TestBit(Stream: TStream; BitNum: Integer): Integer;
var
B: Byte;
OldPosition: Int64;
begin
OldPosition := Stream.Position;
try
if (BitNum < 0) or (BitNum > Stream.Size*8) then
raise Exception.Create('error');

Stream.Position := BitNum div 8;

Stream.ReadBuffer(B, SizeOf(B));

Result := (B shr (BitNum mod 8)) and 1;
finally
Stream.Position := OldPosition;
end;
end;
でいくことにしました。アドバイスありがとうございました。


303 名前:デフォルトの名無しさん mailto:sage [2008/08/08(金) 17:37:35 ]
>>302
どういたしまして、お役に立てて光栄です。

304 名前:デフォルトの名無しさん [2008/08/09(土) 02:42:51 ]
ゼロサプレスって言うんだっけ。桁数指定して、桁数に満たない場合は頭に0を埋めてくれるヤツ。
formatでできるかと思ったらできないんだね?
どうすればいいのか教えて? まさか自作関数?

305 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 08:53:26 ]
マニュアルのformat関数のところにちゃんと書いてあるよ



306 名前:デフォルトの名無しさん [2008/08/09(土) 09:13:41 ]
え? 実数の場合は%8.3fとかでいいんだけど(あと通過型も) 整数の方法がわからないよ

%05dとかにすると、スペースになってしまう。

307 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 09:17:56 ]
delphi format %05d
でぐぐってみw

308 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 10:04:36 ]
どーでもいいがゼロサプレスの逆だろ
ちなみに指定桁数を0で埋めるって何ていうんでしょう?

309 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 10:11:59 ]
www.wdic.org/w/TECH/%E3%82%BC%E3%83%AD%E3%82%B5%E3%83%97%E3%83%AC%E3%82%B9

310 名前:デフォルトの名無しさん [2008/08/09(土) 11:12:28 ]
ゼロパディングなんだ。
パケットとかではパディングってよく使うけど、桁合わせの時には聞いたことがないような。

311 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 18:28:40 ]
ListView がスクロールされた事を知らせるイベントってないですか?
あるいは、enable が true でスクロールバーをスライド出来なくする方法ありますか?

312 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 18:48:21 ]
スクロールしないならLabel並べておけ

313 名前:デフォルトの名無しさん [2008/08/09(土) 19:01:47 ]
ListViewはウィンドウコントロールだから、
普通に WM_VSCROLL で出来ないか?
WndProc書き換えちゃえ。

314 名前:311 mailto:sage [2008/08/09(土) 19:14:03 ]
>>312
ListView をクリックすると、そのセル上に同じ大きさで memo を表示して
あたかも編集出来る様にしたんですけど、スクロールすると ListView だけ動いて
memo は置いてけぼりになるんです、だから編集中はスクロール出来ない様にするか
スクロールしたら、なんとか memo が付いて行く様にしたいと思ったんです。

>>313
やったこと無いですけど、何とか出来るか試してみたいと思います、有難うございましたw

315 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 20:04:36 ]
>>314
Memo使うの?
Editでならやったことあるけど、今はStringGrid使ってるよ



316 名前:311 mailto:sage [2008/08/09(土) 20:50:14 ]
>>315
なんか memo が使いやすかったのでw

>Editでならやったことあるけど
その時スクロールとか困らなかったですか?

317 名前:デフォルトの名無しさん mailto:sage [2008/08/09(土) 22:50:12 ]
>>316
入力後Enterキーを押したらEditが消えるようにした気がする
すぐにStringGridに変えたからよく覚えてない

318 名前:311 mailto:sage [2008/08/09(土) 23:04:01 ]
>>317
そうですか、じゃあ自分もそうしようかなと思います、有難うございましたw

319 名前:デフォルトの名無しさん mailto:sage [2008/08/10(日) 11:39:07 ]
つーか、項目選択したらエディットコントロールを上掛け、
スクロールかEnter感知したらエディット消してListViewに反映でいいんじゃないの?
StringGridはドロップダウンリストとか使えないからなぁ‥‥

320 名前:311 mailto:sage [2008/08/10(日) 11:46:16 ]
>>319
そうしたいんです、でもスクロールを感知できなくて困ってるんです
Enter感知は出来るけどw

321 名前:デフォルトの名無しさん mailto:sage [2008/08/10(日) 12:02:43 ]
>>320
ならWndProcメソッドのオーバーライドがんばれ。
正規の方法でのコンポの継承が面倒なときは↓の方法使うと楽
www.geocities.jp/asumaroyuumaro/program/tips/replacecompo.html

322 名前:デフォルトの名無しさん [2008/08/10(日) 12:19:11 ]
なんか、最近Delphiのパンフが送られてこない気がするのですが、
次期バージョンの日本語版発売っていつごろになるんでしょうか?

今、BDS2006使いなのだけどもVistaにきちんと対応したい。
2007って今買い時かなのかな・・・?

次期バージョンはどうせ、VCLのUNICODE対応でバグ満載になるだろうし
安いうちに買っておけばよかたとちょっと後悔している

323 名前:デフォルトの名無しさん mailto:sage [2008/08/10(日) 12:19:51 ]
>>321
既出なのかもしれないけど、よいTipsですね。

324 名前:311 mailto:sage [2008/08/10(日) 12:21:07 ]
>>321
やっぱりその方法しかないですかw
なんとか頑張ってやってみます、有難うございました。

325 名前:デフォルトの名無しさん [2008/08/10(日) 12:23:02 ]
そんな低レベルなところでがんばっても
.NETに移ったら全部ゴミになっちゃうからやめておいた方がいいよ。
今のうちにC#を学んでいつでも移行できるように準備しておいた方が後々特。



326 名前:デフォルトの名無しさん mailto:sage [2008/08/10(日) 12:35:12 ]
>>324
WindowProc差し替えの方が簡単かも。

327 名前:311 mailto:sage [2008/08/10(日) 13:01:27 ]
>>325
.NET も良さそうですね、便利そうで羨ましいですw

>>326
その方が簡単ですか、その方法も調べて見たいと思いますw

どうしても解からなかったら邪道だけどタイマーで監視します。
みなさん有難う御座いましたw

328 名前:311 mailto:sage [2008/08/10(日) 15:13:17 ]
なんとか
WindowProc の WM_VSCROLL で出来ました
有難う御座いましたw

329 名前:デフォルトの名無しさん mailto:sage [2008/08/10(日) 20:19:38 ]
memo1.lines.loadfromfile(****.txt);
でメモラインに追加してから

memo1.lines.loadfromfile(***2.txt);
のテキストを↓に追加したいのですが、上書きされて***2.txtのデータしか残りません・・・・
上書きせずに追加するにはどうすればいいのでしょうか?

330 名前:デフォルトの名無しさん mailto:sage [2008/08/10(日) 20:53:51 ]
add?

331 名前: ◆XcB18Bks.Y mailto:sage [2008/08/10(日) 21:15:41 ]
>>329
編集中のテキストにファイルから別のテキストを追加読み込みしたいということですね。
別に文字列リストを用意してそれに読み込んでからMemo1.Linesに追加。

procedure TForm1.Action_AddFromFileExecute(Sender: TObject);
var
 Strings: TStringList;
begin
 Strings := TStringList.Create;
 try
  if OpenDialog1.Execute then
  begin
   // 文字列リストにファイルを読み込む.
   Strings.LoadFromFile(OpenDialog1.FileName);
   // Memo1のテキストにこの内容を追加.
   Memo1.Lines.AddStrings(Strings);
  end;
 finally
  Strings.Free;
 end;
end;


332 名前:デフォルトの名無しさん mailto:sage [2008/08/11(月) 07:32:07 ]
ClientDataSetに大量のデータ突っ込んだ後、EmptyDataSetでクリアしても、
タスクマネージャのメモリ使用量が変わらないんだけど、これは??
データ突っ込んで、タスクマネージャで100MB近くなったんだけど、ずっとそのまま・・


333 名前:デフォルトの名無しさん mailto:sage [2008/08/11(月) 18:05:35 ]
TurboDelphiを先日落とした身です。

例えば

procedure TForm1.Button2Click(Sender: TObject);
var
hoge: string;
begin

end;

でF9実行しようとすると、その変数は使われてないと警告が出てデバッグが実行できません。
警告を残したままデバッグの実行はできないものなのでしょうか。

334 名前:デフォルトの名無しさん mailto:sage [2008/08/11(月) 18:08:42 ]
{$WARN SYMBOL_DEPRECATED OFF}
みたいなのを頭に書いとけば消せる。
具体的な指定はヘルプにあるはず。
その警告は残しておいた方がいいとは思うが。

335 名前:デフォルトの名無しさん [2008/08/11(月) 19:24:36 ]
Delphiでのアプリケーション間通信のよい方法があったら教えてください。

環境は双方ともDelphi製で、片方VCL GUIアプリ、片方Win32アプリです。

実際にはマップエディタで設定したマップを、別アプリのゲーム側で
リアルタイムに読み込んでプレビュー処理をしたいのです。
そこで、マップエディタで現在編集中のマップをファイルで保存しておいて、
そのファイル名(もしくはマップのIDなり)をゲーム側に伝えたいのです。



336 名前:デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:38:34 ]
ファイル名程度ならWM_COPYDATAで十分じゃ?

337 名前:デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:39:06 ]
ファイル名程度なら、WM_COPYDATAで十分じゃ?






[ 続きを読む ] / [ 携帯版 ]

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<177KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef