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

くだすれDelphi(超初� ..

407: ◆XcB18Bks.Y
08/04/18 16:18:16
>>406
最近のバージョンではOnMouseEnter, OnMouseLeave イベントとして実装されていますね。

>>379
おおざっぱに言いますとこんな感じです。

・WideString…全部の文字が2バイト
・UTF-8…英数コードが1バイト（しかもこれらのほぼすべての文字コードがANSI文字列同じ）、
　　　　　　漢字やかななどが3バイト

408:デフォルトの名無しさん
08/04/18 22:54:38
ユニコードが使えるエディタを作りたいのですが、良い方法はありませんか？
こちらの環境は Delphi 5 Pro です。

409:デフォルトの名無しさん
08/04/18 23:00:38
SynEdit unicode editionを使う

410:デフォルトの名無しさん
08/04/18 23:02:28
>>409
多謝！

411:デフォルトの名無しさん
08/04/18 23:40:25
stringの長さだけを初期化する方法でSetLength(s, len)ってやるのと
SetString(s, nil, len)ってやる方法の二つがあるみたいですが、
この二つの差って何かありますか？

412:デフォルトの名無しさん
08/04/20 19:09:13 BE:626494-PLT(12660)
総合アーカイバコンポで書庫内ファイルの削除したいんだけど、
RemoveItemsメソッドの使い方教えてください
↓こんな感じで動かすと書庫本体が削除されちゃうのですが…

　DelList := TStringList.Create();
　Arc := TArchiveFile.Create(Application);

　DelList に書庫内ファイル名を突っ込む←この書庫内ファイルを削除したい

　try
　　Arc.FileName := "書庫本体までのフルパス";
　　Arc.Options.jso　:= 1;　// 共有エラーの場合に処理を続行
　　Arc.Options.n　　:= 1;　// 経過非表示にする
　　Arc.RemoveItems(Application.Handle, nil,'', [DelList]);
　finally
　　Arc.Free;
　　DelList.Free();
　end;

413:デフォルトの名無しさん
08/04/21 00:35:09
>>411
SetStringで長さを設定する人を見たことが無い。
違いが気になるなら、ソース見て。

>>412
ここ見ると、追加・削除をサポートしていない形式があるみたいだけど、大丈夫？
URLﾘﾝｸ(www.geocities.jp)

あと、TArchiveFile.Createで例外が生成されると、DelList.Freeは実行されない。

414:デフォルトの名無しさん
08/04/21 01:15:14
>>411
SetLengthはメモリを再確保した後に内容のコピーをするような分岐がありますが、
SetStringでnilを指定した場合1つの分岐だけで即座に新しい領域が割り当てられます。
なのでSetStringの方が若干速いです。

>>413
SetLengthとSetStringはともに組み込みの手続きであり、ソース上にそのものの実装は存在しません。
場合によって別々の内部手続きが呼び出されます。この場合はLStrSetLengthとLStrFromPCharLenです。
これを初心者がソースを見て判断するのは酷でしょう。
それにSetStringで長さを設定するのはVCL内に多く見られます。
実際どうなってるか知りもしないのにそのような発言をするのはよくないんじゃないかと。

415:デフォルトの名無しさん
08/04/21 01:15:25 BE:209243-PLT(12660)
>>413
レスありがと
形式はzipだからおｋだと思うんだ…
何か書き方が悪いのか何なのか
それとcreateもtryの内側に入れることにしようと思います＞＜

416:デフォルトの名無しさん
08/04/21 01:52:53
Createをtryの内側に入れると、今度はCreateの例外で
ArcもDelListも代入前に使われちゃう。

417:デフォルトの名無しさん
08/04/21 12:31:04
>>415-516
nilで初期化しておけばおｋ

418:デフォルトの名無しさん
08/04/21 13:25:31
みんなー、>>516まで入りたい放題だぞー

419:デフォルトの名無しさん
08/04/21 16:51:44
Delphi.NET(2005)で質問です。

TStringGridの内容を帳票として成型して
プレビュー画面を表示した後、印刷したいのですが
一体どうすれば良いのでしょうか。

420:デフォルトの名無しさん
08/04/21 22:35:32
Excelでフォーマットを好きなように作り、プログラムからグリッドの内容をセルに流し込み、印刷で。

421:デフォルトの名無しさん
08/04/22 00:50:35
ユーザにそこまでやらせるのはひどいアプリだなぁ

422:デフォルトの名無しさん
08/04/22 00:52:49
２００５で、かつ Delphi.NET 使ってる時点で論外

423:デフォルトの名無しさん
08/04/22 00:53:51
>>422
.NetとFirebirdでWebアプリ作ってる俺に謝れ！

424:デフォルトの名無しさん
08/04/22 13:12:50
ClientDataSetに放り込んでQuickReportとかは？

425:デフォルトの名無しさん
08/04/22 21:30:31 BE:975078-PLT(12660)
>>412分かる人いないかな？

426:デフォルトの名無しさん
08/04/22 23:17:35
>>425
私なら直接DLLの関数を呼び出す。

427:デフォルトの名無しさん
08/04/23 12:43:14
turbo DelphiでMSSQLのデータを表示したいのですが
知り合いにできない、と言われました。
プログラムそのものが初めてでこれからやろうとしていたので本当なのかどうかがわかりません。
本当にできないのですか？

428:デフォルトの名無しさん
08/04/23 13:06:11
>>427
普通にできる

429:デフォルトの名無しさん
08/04/23 14:20:06
>>428
ありがとうございます。これから頑張って覚えてやってみます。
友人には間違いを伝えておきます。

430:デフォルトの名無しさん
08/04/23 15:17:50
>>425
確かにzipでやってみたらファイルが消えた。
lhaならできたけどzipじゃないとだめなの？

431:デフォルトの名無しさん
08/04/23 15:25:14
>>426
日本語でおｋ

432:デフォルトの名無しさん
08/04/23 19:38:35 BE:557748-PLT(12660)
>>426
DLL直だとコンポーネント使ってる意味が無いというか…
最悪それに挑戦することになりそうです。

>>430
zipで出来ないとうまくないですねー
何とかならないものかしら

433:デフォルトの名無しさん
08/04/23 20:16:08
以前かなり前、TShapeの表示/非表示の切り替えが異常に遅いって
書いたモノですが、ようやく原因が分かりました。＼(^o^)／
TShapeを表示させているフォームのAutoScrollをFalseにしたら、
劇的に速くなりました。良かった。これでGWは何日か休めそう

434:デフォルトの名無しさん
08/04/24 03:03:11
>>432
ZIP32.pasのMainEntry2の中でコマンド実行する前に
DeleteFile( ArchiveFileName )でファイル消されてる。
それコメントアウトするとちゃんと処理できたけど、追加のとき
エラー回避のために必要みたいなコメントあるから、ファイルを
消すときだけ処理を飛ばすようにした方が安全かも。

435:デフォルトの名無しさん
08/04/24 06:59:21
TMenuBarやTToolBarを使ってメニューを移動できるようにすると
メニューにマウスを乗っけるとボタンみたいになってしまうのですが
これを防ぐにはどうすればいいのでしょうか？

436:デフォルトの名無しさん
08/04/24 10:56:39
DelphianWorldって亡くなりました？

437:デフォルトの名無しさん
08/04/24 17:08:52
文字列型変数のアドレスを取る手続きFooがあるのですが、
その手続き内で文字列のサイズと内容をセットしたいのですが、どうすれば
いいでしょうか？
呼び出し元は
var AResult: string;
begin
　Foo(@AResult);
end;
です。
procedure Foo(P: Pointer);
begin
　// ここで文字列のサイズと内容を設定したい。
end;

438:デフォルトの名無しさん
08/04/24 20:25:22
短い文字列型を使う。

439:デフォルトの名無しさん
08/04/24 20:31:25
DelphiMLって今生きてるの？
4月8日からメールが流れて来ないんだが

440:デフォルトの名無しさん
08/04/24 20:48:01
437です。
>>438
呼び出し元の方は変更できませんので、呼び出し先の方でなんとかしたいです。

で、とりあえず、色々やってみたのですが、
procedure Foo(P: Pointer);
begin
　Pointer(P^) := Pointer(StrNew('あいうえお'));
end;
でやると一応動いているようには見えますが、StrNewの方で参照カウントが設定
されていないので、ちょっと不安です。
呼び出し元がWideStringで
procedure Foo(P: Pointer);
begin
　Pointer(P^) := Pointer(WStrNew('あいうえお'));
end;
でやるとHeapがどうたらというエラーでコケマス。

441:デフォルトの名無しさん
08/04/24 20:53:33
ぶっちゃけ

procedure Foo(var s: string);
begin
　s := 'あいうえお';
end;

これでいいじゃんと思うのは俺だけ？

442:デフォルトの名無しさん
08/04/24 21:11:37 BE:1409999-PLT(12660)
>>434
なるほど、ちょっとそのへんいじってみます。
貴重な情報ありがとうございます。

443:デフォルトの名無しさん
08/04/24 21:12:07
procedure Foo(ps: PWideString);
begin
　ps^ := 'あいうえお';
end;

呼出元がポインタで渡してるみたいだし俺ならこうするかな

444:デフォルトの名無しさん
08/04/24 22:32:32
>>439
生きてるけど、人がいなくなって瀕死状態なのかと

445:デフォルトの名無しさん
08/04/24 22:40:29
同じモジュールなら、PString(P)^ := ?? でいけそうですが。
string=WideStringなら、 >443と同じですけど。

446:デフォルトの名無しさん
08/04/24 23:09:55
>>445
日本語でおｋ
つかおまいのこれ(>>440)はどこでStrDisposeするんだ？
どっかにリストでももってそこで管理する気か？

447:デフォルトの名無しさん
08/04/24 23:45:37
>>434
オイラからもありがとう
とりあえずこうしといた
if Pos('-d',_lpszCmdLine)=0 then
DeleteFile( ArchiveFileName );

448:デフォルトの名無しさん
08/04/24 23:47:09
とりあえず、445<>440だ。

449:デフォルトの名無しさん
08/04/25 00:05:17
Delphian Worldは消滅したみたい。Delphi-MLは開店休業。みんなFTにいるんじゃない？

450:デフォルトの名無しさん
08/04/25 01:11:53
>Delphi-MLは開店休業。みんなFTにいるんじゃない？

へっ？ Delphi-ML ってメンバーが１０人あまりなんか？
それは・・・瀕死状態なんでは？

451:デフォルトの名無しさん
08/04/25 04:31:23
FT?

452:デフォルトの名無しさん
08/04/25 07:49:08
>>440です。みなさん、ありがとうございました。
>>443,>>445さんの方法でうまくいきました。
procedure Foo(P: Pointer);
begin
　PWideString(P)^ := 'あいうえお';
end;
PStringまたは,PWideStringにキャストすれば良かったのですね。
>>441
実際のFooは仮想クラスのメソッドで派生クラスでオーバーライドしているため、
インターフェースを変える事ができません。
>>446
文字列のための動的なメモリの割り当ては、呼び出し先(この場合Foo)で行っていますが、
呼び出し元のAResultの変数が破棄される時(この場合、スコープから外れた時)に、割り当てられたメモリは自動的に
解放されると思います（たぶん）。

453:デフォルトの名無しさん
08/04/25 08:47:53
質問します。よろしくお願いします。
var pArray: PInteger;
として
GetMem(pArray,100);
pArray[0]:=12;
とかすると、配列型が必要ですとエラーが出ます。
Integerのポインタを配列としてアクセスするにはどうすれば良いでしょうか。

454:デフォルトの名無しさん
08/04/25 09:20:46
PIntegerArrayにキャスト。
PIntegerArray(pArray)[0]:=12;

455:デフォルトの名無しさん
08/04/25 09:31:14
フォルダのパスから、そのフォルダの中にあるファイルのパスを所得するにはとうしたらいいのでしょうか？

456:453
08/04/25 09:37:41
>>454
うまくいきました。ありがとうございます。

457:デフォルトの名無しさん
08/04/25 09:39:00
.NET だと使えないけど absolute という便利な構文がある。

type AInteger = array [0..$ffff] of integer;
var
pＩnteger: ^Integer;
pArray: ^AInteger absolute pInteger;

とやればいちいちキャストしなくても pIntegerの別名が pArrayになるんで

　pArray^[0] := 12;

と書けるよ

458:デフォルトの名無しさん
08/04/25 09:45:18
>>455 意味が判らないけど
FindFirst，FindNext，FindClose
か windows API の　FindFirstFile FindNextFile FindClose
の事かな？

459:455
08/04/25 09:57:04
>>458
レスありがとうございます。
フォルダをフォームにD&Dしたとき
そのフォルダの中のファイルのパスがほしいという事です。

460:デフォルトの名無しさん
08/04/25 10:02:26
D&D の方が判らないの？
FindFirst，FindNext，FindClose の使い方が判らないの？

461:デフォルトの名無しさん
08/04/25 10:06:22
他に COM を使う方法があるよ。　やり方は
CreateOleObject('Scripting.FileSystemObject')　で検索すればいいと思う

462:455
08/04/25 10:11:50
>>460
FindFirstでいけそうです。ありがとうございました。

463:デフォルトの名無しさん
08/04/25 13:27:08
>>453の件で便乗質問です。
私はいつも以下のようにしていますが、何かプログラム上の問題はありますか？
var
P: PIntegerArray;
i: Integer;
begin
GetMem(P,SizeOf(Integer)*10); // Integer10個分の領域確保
try
for i := 0 to 9 do
begin
P[i] := i*10000; // 順番に0,10000,20000,....90000を代入
ShowMessage(Format('P[%d] = %d',[i,P[i]]));
end;
finally
FreeMem(P); // 領域解放
end;

464:デフォルトの名無しさん
08/04/25 13:59:49
>>452
P は AnsiString型変数へのポインタをPWideString型へキャストすると、おかしくなると思うよ。
AResultは常にWideString型なの？

>>463
問題ない。

465:デフォルトの名無しさん
08/04/25 14:05:51
問題ないけど、この使い方なら動的配列使えばいいのにって思うな。

466:デフォルトの名無しさん
08/04/25 14:06:29
いまどきなら動的配列じゃね？

467:463
08/04/25 14:17:19
>>464-466
ありがとうございます。確かに動的配列でいけました。
var
A: array of Integer;
i: Integer;
begin
SetLength(A,10);
for i := 0 to 9 do
begin
A[i] := i*10000;
ShowMessage(Format('A[%d] = %d',[i,A[i]]));
end;

468:デフォルトの名無しさん
08/04/25 20:33:15
フォルダのリネームって一行ぐらいじゃできないの？

469:デフォルトの名無しさん
08/04/25 20:58:09
RenameFile で出来ると思うけど？
ただ、誰かが使ってたら駄目だよ。

もしかして、自分自身が使ってるんじゃないの？
カレントフォルダを変更してみたら？

470:デフォルトの名無しさん
08/04/25 21:03:42
とりあえず試してみたら？　
if not RenameFile( oldName ,NewName ) then ShowMessage( SysErrorMessage( GetLastError())) ;

471:デフォルトの名無しさん
08/04/25 21:40:56
動的配列…
むかーし、なにもかもをTStringGridで処理してた時期を思い出した（涙

472:デフォルトの名無しさん
08/04/25 22:04:03
それはひどすぎ。動的配列がなかったときは、配列のポインタを使ったもんだ。>>463 のように。

473:468
08/04/25 23:51:18
>>469-470
ありがとう
チョット酒飲みいってたｗ

474:デフォルトの名無しさん
08/04/26 03:04:25
CloseQueryでFalseしてMinimizeする常駐アプリが立ち上がってると
シャットダウンできないんだけどどうやってシャットダウンなりログアウトに対応すればいいの？

475:デフォルトの名無しさん
08/04/26 03:47:34
WM_QUERYENDSESSIONで何とかしてみるとか

476:デフォルトの名無しさん
08/04/26 07:57:20
演算結果の型についての質問です。
var
　A: Integer;
begin
　A := MaxInt;
　if A + 1 > MaxInt then
　　// ほにゃらら
を実行すると、if文の条件式が偽となります。
Delphiのマニュアルを見るとオペランドがInt64でない場合は、演算結果はInteger型に
なるとのことで、if文の条件式が偽になることは納得しました。
で、if文の条件式を A + Longword(1) とすると、今度は条件式が真になります。
A + Longword(1)の型は一体何になってるのでしょうか？

477:デフォルトの名無しさん
08/04/26 08:01:11
符号無し整数の演算結果は一時的にInt64になるんじゃなかったか

478:デフォルトの名無しさん
08/04/26 10:59:35
型名を知りたかったらrecord型やSelfに突っ込んでエラー起こしてみるのが手っ取り早い。

var
　A: Integer;
　rec: record dum: Integer; end;
begin
　rec := LongWord(1);
　　[エラー] 'Record' と 'Cardinal' には互換性がありません

　Self := A + LongWord(1);
　　[警告] 符号付型と符号無し型の演算により、オペランドが拡張されまし
　　[エラー] 'TForm1' と 'Int64' には互換性がありません

479:デフォルトの名無しさん
08/04/26 11:53:43
RadioGroupのアイテムを一つだけ無効にすることってできますでしょうか？

480:デフォルトの名無しさん
08/04/26 11:59:05
>>477,>>478
ありがとうございます。試してみます。

481:デフォルトの名無しさん
08/04/26 12:21:27
>>479
URLﾘﾝｸ(delphi.arcadiangarden.com)

482:479
08/04/26 12:31:31
>>481
ありがとう

483:デフォルトの名無しさん
08/04/26 19:02:08
>>474
アイコンの通知を受け取るためにAllocateHWndで定義したメッセージ処理メソッドで
処理したかったメッセージ以外はWin32APIのDefWindowProcIに投げるようにする。

484:デフォルトの名無しさん
08/04/27 02:17:08
>>476
そういうことを気にしなくてもいいコードを書くべき。

485:デフォルトの名無しさん
08/04/27 15:40:11 BE:487474-PLT(12660)
フリーのDelphi6でADO使いたいのですが、
ActiveXの取り込みの一覧に、Microsoft ActiveX Data Objectsがありません
また、Microsoft ADO Data Control 6.0っていうものをインストールしようとすると、
再構築時に、MSAdodcLib_TLB.pasで「'Error'は型ではありません」と再構築出来ません
どうしたらADO使えるようになりますか？

486:デフォルトの名無しさん
08/04/27 15:40:29
>>484
ここは超初心者用スレだから、そんな難しいこと言われても無理。

487:デフォルトの名無しさん
08/04/27 15:43:01
そもそも会話が成立してないからスルーで桶

488:デフォルトの名無しさん
08/04/27 16:25:37
>>485
Turboが嫌なら金払え

489:デフォルトの名無しさん
08/04/27 16:48:17
金なんか払わんよ

490:デフォルトの名無しさん
08/04/27 17:39:17 BE:209243-PLT(12660)
>>488
フリーだとADO使えないの？

491:デフォルトの名無しさん
08/04/27 18:09:02
Delphi6だと、DataSet系ついてないと思った。

492:デフォルトの名無しさん
08/04/27 20:57:16
ADOIntf.pasついてないのか？

493:デフォルトの名無しさん
08/04/28 11:53:30
TurboDelphi用のQuickReportは無いのですか？
いくら探しても…

494:デフォルトの名無しさん
08/04/28 12:18:29
バンドル版じゃなくて商品版はあるんじゃね？

495: ◆XcB18Bks.Y
08/04/28 17:36:06
>>485
Turbo Delphi Explorerを導入される方が早いと思います。
統合開発環境が.NETベースなのでインストールが面倒なのがなんですが。

496:デフォルトの名無しさん
08/04/28 17:42:15
Turboでコンポーネントインスコ出来たらいいんだけどなあ・・・

497:デフォルトの名無しさん
08/04/28 17:48:57
買えよ

498:番組の途中ですが名無しです
08/04/28 17:54:51 BE:626494-PLT(12660)
>>495
ちょっと悩みましたが、TurboDelphiを導入してみようと思います
ありがとうございました

499:デフォルトの名無しさん
08/04/28 19:03:35
htmlのプレビューを、IEエンジンのように時間を掛けずに表示する方法はありますか？
THogeTextViewが一番いいと思うのですが、どう使えばいいのか分かりません・・・

500:デフォルトの名無しさん
08/04/28 23:11:41
Turbo Delphi無料版で、リソースファイル(.res)を作りたいのですが、
どうすればいいでしょうか？

あるサイトで
「rcファイルを作成し、プロジェクトに追加し、コンパイルすれば、
自動的にresファイルが生成される」と書かれていたのですが、その通りに実行すると、

　[Pascalエラー] E1026 ファイル'～～.res'が見つかりません

というエラーになってしまいます。

よろしくお願いします。

501:デフォルトの名無しさん
08/04/28 23:30:24
外部のプロセスから出力されたOutputDebugStringの文字列を取得するコンポってないですか

502:デフォルトの名無しさん
08/04/29 04:48:56
>>500
URLﾘﾝｸ(www.wilsonc.demon.co.uk)

503:デフォルトの名無しさん
08/04/29 06:04:01
>>500
brcc32 hoge.rc

で、rcファイルをコンパイルしてみるとか。

504:デフォルトの名無しさん
08/04/29 11:07:28
>>500
URLﾘﾝｸ(homepage2.nifty.com)

505:デフォルトの名無しさん
08/04/29 11:25:47
504補足
プロジェクトにrcファイルを追加したら、
一旦「ファイル→全て閉じる」してから再度プロジェクトを開いてください。
これでコンパイル出来ると思います。

これってTurboDelphi無料版のバグかな？

506:わかな
08/04/30 00:31:31
CのオブジェクトファイルファイルをDelphiでリンクするやり方教えて！

507:デフォルトの名無しさん
08/04/30 00:43:32
{$L XYZ.obj}

508:わかな
08/04/30 01:07:55
>>507
ありがとうヽ(*^。^*)ノ

509:500
08/04/30 09:09:26
>>502-505
返事が遅れてすみません。>>503さんの方法で上手くいきました。

>>502 ＤＬして試しましたが、よく分かりませんでした・・・
>>504-505　ご丁寧にありがとうございました。今後の参考にさせていただきます。

510:デフォルトの名無しさん
08/04/30 17:14:21
LeadBytesってLeadByteTable: array[#0..#255] of Booleanにした方がよっぽど速いな

511:デフォルトの名無しさん
08/05/01 20:44:33
Delphi2008はリリースされないの？

512:デフォルトの名無しさん
08/05/01 20:50:37
Delphi2008でググればいろいろ出てくるぜ

513:デフォルトの名無しさん
08/05/01 21:23:38 BE:174252-PLT(12660)
TurboDelphi入れてみたけどコンパイル遅くなったのは何で？

514:デフォルトの名無しさん
08/05/01 22:43:44
そりゃそうだろう。 Windowsだって、XPからVistaにすると遅くなる。

515:デフォルトの名無しさん
08/05/01 22:44:49
なるほど

516:デフォルトの名無しさん
08/05/01 22:59:27 BE:469793-PLT(12660)
>>514
うん。なるほど
MS-Access入って無い環境でもmdb+ADOのアプリって動く？

517:デフォルトの名無しさん
08/05/01 23:38:58
>そりゃそうだろう。 Windowsだって、XPからVistaにすると遅くなる。

そしてVistaは誰にも嫌われる、と。
確かにDelphiの最新バージョンと一緒なんだな。

518:デフォルトの名無しさん
08/05/02 07:39:53
ウンコPCは窓から捨てろよ

519:デフォルトの名無しさん
08/05/02 07:48:33
【Borland】CodeGearオッチャその8【(ﾉ∀`)ｱﾁｬｰ】
ｽﾚﾘﾝｸ(tech板)

520:デフォルトの名無しさん
08/05/02 09:20:39
TurboDelphiとTurboDelphi.NETって共存できないの？

521:デフォルトの名無しさん
08/05/02 09:57:12
>>520
できますん

522:デフォルトの名無しさん
08/05/02 15:50:42
TDateTimeからUTCの時間（文字列、もしくは、年、月、日の数値）を取得する方法教えてくださいでつorz

523:デフォルトの名無しさん
08/05/02 17:11:00
>>522
>>305

524:デフォルトの名無しさん
08/05/02 18:03:04
ちょっと疑問なんですが、
Nowでとった時間をTQueryなんかでAsDateTimeで設定したとしたら、
UTCとして登録されるのかな？
もしかして、localtimeとして登録されちゃう？

525:524
08/05/02 18:15:39
あれ？

テストしてみたら、localtimeがRDBに入ってるみたいだけど、そうなの？

これだと、登録した場所によって、時間の前後が変わっちゃうんだね。

526:524
08/05/02 18:27:43
具体的には、

１．日本でNowで日時を取得
２．RDB(Firebird)のTIMESTAMP項目に、AsDateTimeで設定
３．アプリを例えばグリニッジで実行したら

このとき、１と３の日付文字列は同じになるのでしょうか？異なるのでしょうか？

527:524
08/05/02 18:30:17
自分の予想としては、
DateTimeToStrはローカルタイム変換はせずローカルタイムｊのみ入力可で、
RDBにはローカルタイムで登録されてるので、
同じ日付文字列になると思うのですが。。。

528:デフォルトの名無しさん
08/05/02 19:06:49
もうちょっともちけつ

529:524
08/05/02 19:18:36
ﾗｼﾞｬ!

知りたいのは以下の内容です。

質問１：
RDBに日付を登録するときはローカルタイムで良いのでしょうか？
それともUTCの方が良いのでしょうか？
どちらが良いともいえない場合、どちらが一般的でしょうか？

質問２：
Nowで取得してAsDateTimeでRDBのTIMESTAMP項目に登録すると、
ローカルタイムが登録されるのでしょうか？

質問３：
上記の通り登録したRDBのTIMESTAMP項目をAsDateTimeで取ってきて、
DateTimeToStrした場合、
ロケールがどこに設定されたとしても、”日、時、分”は同じものとなるのでしょうか？

530:デフォルトの名無しさん
08/05/02 21:10:45
こんばんは。
電卓のプログラム（ＯＳに搭載されている）の３のボタンを９っていう数字に変えたいんですけど、
//電卓のウィンドウハンドルを取得
hcal :=FindWindow(nil, '電卓');
h5 :=FindWindowEx(hcal, 0, nil, '3');
if h5 <>0 then
begin
SetWindowText(h5, '9');

Sleep(100);

end;

うまくいかないのですが、どうしたらよいでしょうか？
ご教授おねがいします。

531:デフォルトの名無しさん
08/05/02 22:35:49
>>524
>>質問2,3
ADO,DBExpress何を使ってるかしらんが、基本的にドライバ次第。
ひねくれた？ドライバでなければ、TimeStamp値として渡した日付時刻がそのまま
登録される。勝手に変換したりはしないと思う。渡す日付時刻をどう解釈するかは
アプリ次第。

532:デフォルトの名無しさん
08/05/02 22:58:27
>>510
集合はビット演算が入るから、配列より遅くなる。でも、メモリ消費は1/8だよ。

>>530
MSDNには、下記のようにある。
>ほかのプロセス内のコントロールのテキストを設定するには、
>SetWindowText 関数を呼び出すのではなく、直接 WM_SETTEXT メッセージを送ります。

533:デフォルトの名無しさん
08/05/03 00:07:54
TStringListのDelimiterに<>などの2文字以上の文字を設定するにはどうすればいいのでしょうか
置換で代替できるとは思うのですが格好よくないので使いたくありません・・・

534:デフォルトの名無しさん
08/05/03 00:16:35
>>533
無理
SetDelimitedTextルーチンをぱくって自分で書くしか。
単純な置換だと""の中まで変えちゃうから要注意。

535:デフォルトの名無しさん
08/05/03 02:02:47
>>533
具体的に1文字で何ができないのかを言った方が、解決すると思う

536:デフォルトの名無しさん
08/05/03 02:16:34
>>534
ありがとうございます
URLﾘﾝｸ(www.din.or.jp)のを使わせてもらうことにします

537:デフォルトの名無しさん
08/05/03 02:19:48
>>535
すみません、リロード忘れてました
2chのDATを扱いたいので・・・
一応<だけでやってもいいとは思いますが面倒なので・・・

538:デフォルトの名無しさん
08/05/03 02:22:34
>>537
TRegExpおすすめ
というかdat処理ならこういうの入れないとめんどくさくて無理

539:デフォルトの名無しさん
08/05/03 02:27:38
>>538
なるほど、正規表現の手がありましたか
確かに分かりやすそうです
ありがたく使わせてもらいます

540:デフォルトの名無しさん
08/05/03 08:39:07
>>532
情報ありがと。
けどメッセージ飛ばしたけど、書き換えできなかった・・・。
もう手はないかな？

541:デフォルトの名無しさん
08/05/03 09:25:51
特定のウィンドウにキーを送るのではなく
グローバルホットキー、例えばCtrl+Alt+G
を発動させるコードってどう書くんですか

542:|Дﾟ彡 ◆A6VzDeLphI
08/05/03 14:56:30
Ctrl/Shift/Alt/Winキーを受け付けるWindowsのHotKeyを登録・処理する
URLﾘﾝｸ(delfusa.main.jp)

543:デフォルトの名無しさん
08/05/03 15:29:58
HotKeyを受け取って自分で処理したいのではなく
その逆にどこかのアプリで登録済みのHotKeyを
呼び出してそのアプリの機能を呼び出したいということです。
その際直接そのアプリを指定しないでキーボード操作のみの形でやりたいです。

544:|Дﾟ彡 ◆A6VzDeLphI
08/05/03 15:46:31
key_eventで、キーをおしたことにすればいいんじゃないのかな？

特定のアプリ専用なら
俺なら、ウィンドウ列挙してそのアプリを前面にもってきてから
アクセラレータキーを送るとか、
そうするなあ。

545:デフォルトの名無しさん
08/05/03 16:30:05
SetWindowsHookEx　をやりたいって事のようだけど
コレは色々悪さ出来るからな。　
どっちにしても自前で解決して欲しい所。

546:デフォルトの名無しさん
08/05/03 16:59:03
全部の窓からWM_GETHOTKEYで　設定されてるキーを調べて
その窓に対してコマンドを送ればいいんじゃないの？

547:デフォルトの名無しさん
08/05/03 20:42:59
普通に key_event ６回だろ。

548:デフォルトの名無しさん
08/05/04 09:36:12
>>545
とりあえずマウスのフックとキーボードが押されたときに反応する（フックっていうのか？）のはできるんだけど、
電卓の例の場合はどういう種類のフック使うんでしょうか？

549:デフォルトの名無しさん
08/05/04 10:30:30
>>548
Delphi関係ないからAPIスレで聞け
Win32API質問箱 Build65
ｽﾚﾘﾝｸ(tech板)

550:デフォルトの名無しさん
08/05/04 19:11:50
フォームではなく、特定のコンポーネントにファイルをD&Dして
受け取らせるにはどうやったらいいのでしょうか？

551:デフォルトの名無しさん
08/05/04 19:19:50
フォームならできるのにコンポーネントだとできない理由は？

552:デフォルトの名無しさん
08/05/04 20:51:09 BE:974887-PLT(12660)
ウインドウハンドル持ってないコンポはダメじゃなかったっけ？

553:デフォルトの名無しさん
08/05/04 21:47:52
>>552
TGraphicControl派生コンポはTPanel置いてその中に置けばおｋ

554:デフォルトの名無しさん
08/05/04 22:00:58 BE:174825-PLT(12660)
>>553
なるほど
じゃあ、アプリケーションメッセージで
if (Msg.message = WM_DROPFILES) and (Msg.hwnd = Panel1.Handle) then
こんな感じで振り分ければおｋじゃね？＞>>550

※FormCreateの中に↓を入れておくこと
DragAcceptFiles(Panel1.Handle, True);
Application.OnMessage := AppMessage;

555:デフォルトの名無しさん
08/05/04 22:02:52 BE:626494-PLT(12660)
実際、ppMessageはこんなかんじ

procedure TFrom1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
　if (Msg.message = WM_DROPFILES) and (Msg.hwnd = Panel1.Handle) then begin
　　SetForegroundWindow(From1.Handle);
　　SendMessage(Handle, WM_DROPFILES, Msg.wParam, Msg.lParam);
　　Handled := True;
　end;
end;

556:デフォルトの名無しさん
08/05/04 22:04:39 BE:609375-PLT(12660)
そんで更にこんな感じ

procedure TFrom1.DropFiles(var Msg:TWMDROPFILES);
const
　　NameMax = 1024;
var
　　DropFileCount: Integer;
　　FileNameA : array[0..(NameMax + 10)] of Char;
　　TempStr:String;
begin
　　DropFileCount := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
　　DragQueryFile(Msg.Drop, 0, FileNameA, NameMax);
　　//お好きな処理//

　　DragFinish(Msg.Drop);
end;

557:550
08/05/04 22:51:03
みなさんありがとうございます
早速やってみますね

558:デフォルトの名無しさん
08/05/04 23:16:23
DragQueryPointでその位置にあるコントロールを取得しては？

559:デフォルトの名無しさん
08/05/05 09:30:28
いつも助かっています。
Open SourceのでかいDelphiで書かれたソフトがあり、それで
勉強しようと思っています。CTRL－Cや’；’を押してどういう処理が
されているのかをとりあえず見たいのですが、どういう文字の検索を
すれば該当部分のコードを見れるでしょうか？
OnKeyで探したのですが、それらしき処理をしている所には飛んで
いかなかったのですが。

560:デフォルトの名無しさん
08/05/05 09:38:27
実行させてみるのが一番いいと思うよ。
OnKeyって事はコンソールアプリじゃなくて　GUI アプリなんだろ？

windowsGUIならイベントは全部 TAplicatioの　OnMessage　でひっかけられるから
この中で　キーイベントを IF 文入れて　ブレークポイントかけられるようにして
トレースしてゆけばいい

561:デフォルトの名無しさん
08/05/05 10:43:29
もしTActionのショートカットに入ってたらソース上には現れない
フォームを右クリックしてエディタで表示して例えば「;」なら「187」って
いう生数字を探せば見つかる

562:デフォルトの名無しさん
08/05/05 13:35:59
お返事ありがとうございました。
> 560
あまりよくわかっていませんが、FormCreateに
Applicaton.OnMessage:= AppMessage;
を入れて
Precedure TMainFrom.AppMessage(．．．）
var dummy：integer;
begin
　　If msg.message=WM_Keydown then
　　dummy:=1;
end;
でdummy:=1に赤線（ブレーク）をしてみましたが、そこで
止まってくれません．．．こういう意味ではない？？

＞５６１
１８７という生数字を探しましたが、ありませんでした．．．

MenuにもCTRL-Cのショートカットは登録してないですし
URLﾘﾝｸ(www.sph.sc.edu)
なのですが．．．

563:デフォルトの名無しさん
08/05/05 14:06:49
MDIChildってフォームのメニューに"Ctrl+C"と";"のショートカットが割り当てられた項目あるけど違うのけ？

564:デフォルトの名無しさん
08/05/05 14:43:09
あ、ありがとうございました。元Sourceをみていただいて
とても感謝しています。
Childwin.dfmの中を見ればいいんですね。
*.pasの中だけ、１８７の検索をしていました。
これをみると、Copyはshortcut16451とありますが、これは
CTRL＋Cでいいんですよね．．？？
本当にありがとうございました。

565:デフォルトの名無しさん
08/05/05 15:10:46
> これをみると、Copyはshortcut16451とありますが、これは CTRL＋Cでいいんですよね．．？？

そう

566:デフォルトの名無しさん
08/05/06 08:18:38
お前ら、SpTBXLibの2.0が出てますよ
URLﾘﾝｸ(club.telepolis.com)
2.0からTBXが不要になりました

567:デフォルトの名無しさん
08/05/06 11:44:46
SetLength(S, $7FFFFFFF)とやるとAccessViolationが
でます。Delphiは境界テスト？もろくに行われていない製品なのでしょうか？
SetLength(S, $7FFFFFFF - 10)でやっと「メモリ不足」というエラーがでます(これは
別にいいんですが)。10というのはどっからきてるんでしょうね。参照カウンタと長さ用の領域に
8バイト、終端文字に1バイト、あと？

568:デフォルトの名無しさん
08/05/06 11:48:42
Delphiは境界テスト？もろくに行われていない製品なのでしょうか？
Delphiは境界テスト？もろくに行われていない製品なのでしょうか？
Delphiは境界テスト？もろくに行われていない製品なのでしょうか？

569:Delﾌｻｷﾞｺ ◆A6VzDeLphI
08/05/06 13:05:03
|,,∧ 　　　
|ﾟДﾟ彡　　
|⊂ﾐ　　　
>>567さん
ほんとうだ。。よく気がついたね。

570:デフォルトの名無しさん
08/05/06 13:46:54
あるいはメモリマネージャ側のエラーかもな

571:デフォルトの名無しさん
08/05/06 13:55:56
今試せないけど、データ型が大きすぎとかでそんなエラーになるとｵﾓｯﾀなあ。違うの？Sがなんだか知らんが

572:デフォルトの名無しさん
08/05/06 14:36:26
型が大きすぎでAccessViolationはねーよｗ

573:デフォルトの名無しさん
08/05/06 15:44:02
ソース見ればアクセス違反が出るまでの経緯が分かるけど、単にチェック不足だな。
要求メモリ量が負になっても気にせず続行する男気あふれるコードだ。

574:デフォルトの名無しさん
08/05/06 18:33:32
TSaveDialogでOptionsのofShowHelpをTrueにするとヘルプボタンが表示されますが
どのイベントでひろえば良いのでしょうか。

575:デフォルトの名無しさん
08/05/06 21:14:47
WM_HELPを拾えばいいんでない？

576:デフォルトの名無しさん
08/05/06 23:15:22
質問です＾＾
デルファイ７使ってるんですが
「元に戻す」（アンドゥ）ってどうやるんでしたっけ
先日分からなくて諦めました
３作業前に戻るとか出来ないんですかね＾＾；；；；；；

577:デフォルトの名無しさん
08/05/06 23:17:48
７では無理

578:デフォルトの名無しさん
08/05/06 23:35:45
>>577

まじでぇえええええ＾＾
あり；；

579:デフォルトの名無しさん
08/05/07 09:30:11
>>575
ダイアログを表示しているフォームのOnHelpでも、TApplicationのOnmessage
でMsg.messageをWM_HELPで判定しても
procedure WMHelp(var msg: TMSG); message WM_HELP;をprivateで宣言して
やってもひろえていないようです。どうして？

580:デフォルトの名無しさん
08/05/07 11:21:00
>>579
TApplication.HandleにRegisterWindowMessage(HELPMSGSTRING)で送られてるみたいだが

581:デフォルトの名無しさん
08/05/07 16:08:54
>>580
ありがとう。でも分からなかったです。とほほ

582:デフォルトの名無しさん
08/05/07 17:25:29
>>581
WinspectorとかでTApplicationの持つウィンドウのメッセージ監視すれば引っかかるはずだよ。
TApplication.OnMessageでは引っかからないからTApplicationのウィンドウをサブクラス化しないと受け取れないかも。

583:デフォルトの名無しさん
08/05/07 20:07:13
というかダイアログのHelpContextを設定しておけば
Application.HelpFileで指定しといたヘルプ
（の該当するトピック）を開いてくれるんだが。
それ以外のことをやりたいわけ？

584:デフォルトの名無しさん
08/05/08 07:27:53
TApplicationのウィンドウプロシージャーなら、Application.HookMainWindowでOK.
WM_COMMANDもどこかのウィンドウに送られている。(ダイアログのトップレベルのウィンドウかも)

585:デフォルトの名無しさん
08/05/08 08:10:53
色々ありがとうございます。ちなみにHTMLヘルプなもんで…HelpContextでは
うまくいきませんでした。それから Application.HookMainWindow も少しだけ
試したんですが。もう少し気合入れて調べてみます。

586:デフォルトの名無しさん
08/05/08 22:12:24
TBXを配布しているサイトが見れないのですが、TBXを再配布しているサイトはないのでしょうか？

587:デフォルトの名無しさん
08/05/08 22:34:11
微妙にバージョン違い？
URLﾘﾝｸ(www.torry.net)

588:デフォルトの名無しさん
08/05/08 22:54:06
ありがとうございます
使ってみます

589:デフォルトの名無しさん
08/05/09 02:44:36
type TSettings = class
published
　property Min: Integer;
　property Max: Integer;
　property Text: String;
　property Switch: Boolean;
end;

といったプロパティをINIファイルに自動的に読み書きさせるコードのサンプルってないのかな。
WriteComponentだとプロパティの追加削除ですぐ例外吐くから使えない。

590:デフォルトの名無しさん
08/05/09 03:55:41
そのWriteComponent内で呼ばれるTWriterのコードでも見たら？
まさにそのものをやってるメソッドがあるから

591:デフォルトの名無しさん
08/05/09 04:46:57
TPersistentから継承しなくても良かったっけ？

592:デフォルトの名無しさん
08/05/09 05:04:16
誰か例のTGifImageの脆弱性なおしておくれ

593:デフォルトの名無しさん
08/05/09 08:06:58
JaneStyleはTGifImageを修正してるみたいですね

594:デフォルトの名無しさん
08/05/09 09:37:06
gifimage.pasの5992行から

while (code >= ClearCode) do
begin
//ここから
if UINT(Source) > UINT(@stack[High(stack)]) then
begin
Dec(Source);
Result := Source^;
Exit;
end;
//ここまで
Source^ := table1[code];

検証お願いします

595:デフォルトの名無しさん
08/05/09 11:04:57
>>594
行けたぜGJ！
でも俺の場合5873行なんだがこれはバージョンの違い？
一応2.2なんだが・・・

596:Ｚｚｚ
08/05/09 11:24:39
質問お願いします
Delphi7なんですけど
(最大化最小化閉じるボタンを非表示などをした)Formを
同プロジェクト内の別のFormでも使いたくFormごとコピーして
使用したいのですがコピーやり方がわかりません
どうやれば実現できるのでしょうか？？？

597:デフォルトの名無しさん
08/05/09 11:37:16
ExplorerでForm1.pas/.dfmをForm2.*にコピー＆リネームして
ファイル内のユニット名、クラス名、Nameプロパティ名を調整。

フォーム上のコンポーネントやプロパティの設定は.dfm
イベントハンドラ等のコードは.pasにあるから適当に切り貼りしてもいいかも。

名前をつけて保存でForm2とかやっちゃうとForm1が破棄されForm2を使い出すからわけわかってないと悲惨なことに。

IDEでは使いまわし支援でリポジトリなるものをサポートしているけどほとんど使ったことない。
活用してる人っているのかね。

なんにしてもプロジェクト全体のバックアップをしてから試したほうがいいかもね。

598:Ｚｚｚ
08/05/09 11:40:36
やはり意外と、つらそうな道のりですね
了解しました
地味に作成しようと思います
リポジトリの使用方法も忘れてつつあるので・・・
ありがとうございました

599:デフォルトの名無しさん
08/05/09 11:40:40
うちは5846行目だった

TGIFSubImgae.Decompressプロシージャ内のNextLZW関数内だよね？

600:デフォルトの名無しさん
08/05/09 12:45:27
ver2.2のNextLZWの中です

ASSERT(Code < TableSize, 'Code too large');
while (code >= ClearCode) do
begin
//ここから
if UINT(Source) > UINT(@stack[High(stack)]) then
begin
Dec(Source);
Result := Source^;
Exit;
end;
//ここまで
Source^ := table1[code];
Inc(Source);
if (code = table0[code]) then
Error(sDecodeCircular);
code := table0[code];
ASSERT(Code < TableSize, 'Code too large');
end;

601:デフォルトの名無しさん
08/05/09 13:17:57
>>596
継承して使うと似たようなフォームで少しだけ違うような場合に便利だよ
ファイル⇒新規作成⇒その他　で出たダイアログのタブの今のプロジェクト内から Form1を選んで
下の　・継承　を確認して [OK]

602:Ｚｚｚ
08/05/09 16:50:32
たびたびすいません
質問です
リストボックスやコンボックスのItems欄に選択「文字」を追加する
方法が分かりません
･･･と書くとItem addとか思われると思いますが、もう一歩進んで
その追加したを随時に追加し、且つ保存したいのです
プログラムを終了させる、プログラムを起動させる
「追加したデータが消えてる（涙・・・」
どうやれば保存できるのでしょうか
最終的には、マイナーなコンポーネントに対し保存したいのですが
基本のリストボックスやコンボックスのやり方を教授していただければ
自分で考えますので（当たり前ですけど）ヒントの程お願い致します

603:デフォルトの名無しさん
08/05/09 17:09:42
終了時にファイルに保存して起動時にファイルから読み込む。

604:Ｚｚｚ
08/05/09 17:23:32
>>603　おしい
それも一つの手ではあるんですが、最終的にコンポーネントの
Items欄に追加したいのでItems欄に保存する方法はないのかと
言うのを知りたいのです

605:デフォルトの名無しさん
08/05/09 17:31:18
質問する前に日本語を勉強する

606:デフォルトの名無しさん
08/05/09 17:41:48
いまいちよくわからないがexeのどこかに保存されているであろうItemsのデフォルト値に対して保存・読み出ししたいってことか？
もしそうなら、コンパイルする度に値が吹き飛ぶぞｗ

607:デフォルトの名無しさん
08/05/09 18:42:09
そういうことができるなら ini ファイルはいらんがな・・

608:デフォルトの名無しさん
08/05/09 18:57:18
リソースを書き換えたいのか？出来るだろうが、なんでiniファイルは駄目なんだ？

609:デフォルトの名無しさん
08/05/09 21:18:12
少なくともコード書いて試して 603 に対して「おしい」とかいってるのか？
const
  DatEx='.dat';
var
  ListDat:string;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListDat:=ChangeFileExt(Application.ExeName,DatEx);
  if FileExists(ListDat) then
    ListBox1.Items.LoadFromFile(ListDat);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ListBox1.Items.SaveToFile(ListDat);
end;
ちなみにみんなの言っている「日本語でおｋ」は
「Items欄に保存」ってのがわからんってことだぞ

610:Zzz
08/05/09 23:16:25
>>609
むむー
ListBox1.Items.SaveToFile(ListDat);　で行けるかも

えっと
Items欄に保存ってゆうのは・・・・・・
コンボボックスとかは、選択肢をItems.Addしなくても事前に入れて置けるじゃないですか（うろ覚えすまん）
あれってＰｇで、あるボタンを押した時のイベントでItems.Addして追加しても、
Ｐｇ終了して、再度Ｐｇ再開してコンボボックスの中見ると消えてるじゃないですか（あたりまえですけど）
つまり、そのItems欄の中にデータを残しておきたい訳です

（↓コンボの中）
にんじん
だいこん
トマト

↓（いもを追加）

（↓コンボの中）
にんじん
だいこん
トマト
いも

↓（システム落として再起動）

（↓コンボの中）
にんじん
だいこん
トマト

（がーん　いもは・・・・・）

611:デフォルトの名無しさん
08/05/10 00:01:24 BE:348454-PLT(12660)
iniかレジストリ使うのが普通じゃね？

612:デフォルトの名無しさん
08/05/10 00:55:11
自分で言ってるけど消えるのは当たり前なんです
そういうのは外部のファイルに記録しておいて
再開したときに読み込むのがいいと思います

613:デフォルトの名無しさん
08/05/10 07:42:56
だから、設計時に追加した情報は、コンパイルするとリソースとしてexeに含まれるの。

614:デフォルトの名無しさん
08/05/10 10:03:01
TIniFile使ってやるのが一般的じゃね？
>>610の気持ちもわからんではないが・・・逆にIDEで初期値を入れられるだけでも便利と思え！

ListBox1.Items.Commatext:=ReadString('ListBox1','Items','');

WriteString(ListBox1','Items',ListBox1.Items.CommaText);

615:デフォルトの名無しさん
08/05/10 10:27:37
dfmファイルを外部に持たせればＯＫ．

616:デフォルトの名無しさん
08/05/10 11:28:00
　　　彡川三三三ﾐ
　　　川出 ::::::⌒　⌒ヽ　パクリ星からやってきたお！
　　出川::::::::ー●-●-）
　..川（６|::::::::　　（。。））パクリ星の王子様の◆Style/kK.sだお！
　出川;;;::∴　ノ　３　ﾉ　　
　　　ノ＼＿;;;;;;;;;;;;;;;;ノ　　Janeスレ荒らしてるヒキコモリだから友達できないお！
　　（　*　　ヽー--'ヽ）
　　(∵ ;)　ﾟ　ﾉヽ　ﾟ）：）チンポは極小で包茎だお！！ちなみに童貞だお！！
　　(:　・ )--―'⌒ｰ--`,_）
　　（＿__）ーニ三三ﾆ-）
　　（∴　ｰ'￣⌒ヽωﾆЗ 好きなものは他人のソースとオナニーとwarezだお！！
　　　`l　・　　．　/ﾒ　/
　　　　ヽ　∵　 /~- /. 　　　今日もたくさんソースパクリまくるお！！
　　　　（＿＿))))）_）))))

次ページ