Delphi相談室その３

952 ：デフォルトの名無しさん：02/04/06 14:50

>>951
１から勉強し直してください。

953 ：デフォルトの名無しさん：02/04/06 14:55

>>951
ここは性格異常者の隔離スレだから、こっちへ行きなさい。
http://pc.2ch.net/test/read.cgi/tech/1017803412/l50

954 ：ネタじゃないのよ：02/04/06 14:55

>>952
そんなこと言わんと教えてください。おながいします。

955 ：ネタじゃないのよ：02/04/06 14:57

>>953
ありがとう。逝ってきます。

956 ：デフォルトの名無しさん：02/04/06 15:00

これとよーく見比べてみな。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

end.

957 ：デフォルトの名無しさん：02/04/06 20:43

　　　　　　　v
　　　　　　(ﾟωﾟ)　＜そろそろ出番だな
　　　　　／(　 )＼　　　　　　　　
　　　　　　／'＼

958 ：デフォルトの名無しさん：02/04/06 21:59

時刻処理をしたいのだけど、１５時から16時の間はＡの処理、それ以外はＢの処理
ってのはどのようにすればいいのでしょか？

959 ：958：02/04/06 22:14

補足説明
GetLocalTimeを使うと現在時刻が取れるのだけど１５時から16時の間とかは
wHourを使ってきちんとif文で処理出来るのだけど１５時半とかの場合はif文が
使えないっす。

960 ：デフォルトの名無しさん：02/04/06 22:20

>>958
"日付時刻ルーチン"でヘルプを検索しる！

961 ：デフォルトの名無しさん：02/04/06 23:21

>>959
＞１５時半とかの場合はif文が使えないっす。

って15時半から16時の間なら・・・っていう事が
if文で出来ないってことですか？

962 ：デフォルトの名無しさん：02/04/07 00:23

>>960
検索したけど使い方が分からんかった。
やり方教えてくれぃ。

963 ：デフォルトの名無しさん：02/04/07 00:27

>>961
行き違いになってましたすみません。

>って15時半から16時の間なら・・・っていう事が
>if文で出来ないってことですか？
はい。例えば
if Localtime.wHour>14
とすれば１５時以降か以前かの判断が出来るのですけど、
この方法だと分単位の判断が出来ないので良い方法があればと思いまして。

まあ強引に入れ子にしてif文を並べれば出来ないこともないのですが、もっと
スマートな方法があるだろうと思いまして。

964 ：デフォルトの名無しさん：02/04/07 00:31

>>963
TDateTimeじゃ駄目ですか？

965 ：デフォルトの名無しさん：02/04/07 01:05

>>964
毎度どうも。
TDataTime型に現在の時刻を入れる方法あるのでしょうか？

966 ：デフォルトの名無しさん：02/04/07 01:12

>>965
あ、いや初レスです。
TDateTimeのメソッド一覧は見ました？

CurrentDate
CurrentTime
CurrentDateTime

辺りだと思います。

967 ：デフォルトの名無しさん：02/04/07 01:37

Delphiでの書き方がわからないので、
BCBでｽﾏｿですが、こんな感じでしょう。

if (TDateTime::CurrentTime() >= StrToTime("15:30:00") &&
　　TDateTime::CurrentTime() <= StrToTime("16:00:00"))
{
}

else
{
}

968 ：961：02/04/07 01:43

今までなにも考えずにネストしてました…

969 ：Delフサギコ ◆zE1iiRdQ ：02/04/07 01:46

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　／　
　ミ；ﾟДﾟ彡＜　　つくってみたけど
　ﾐつ⑩) 　＼　
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　ＵＵ　　
なんか、
[Form1.Caption: '今は1:43:15なので2:00:00から3:00:00の間です']
こんなふうな意味わからん表示になるんだけど
なんでだろ～～なんでだろ～～(ﾃﾂ&ﾄﾓ)

procedure TForm1.Button1Click(Sender: TObject);
var
　i: Integer;
　StartTime, EndTime: TTime;
begin
　for i:=0 to 23 do
　begin
　　StartTime := EncodeTime(i , 0, 0, 0);
　　EndTime := EncodeTime(i+1, 0, 0, 0);

　　if (CompareTime(StartTime, Time) = GreaterThanValue)
　　　and (CompareTime(Time, EndTime) = LessThanValue) then
　　begin
　　　Form1.Caption :=
　　　　'今は'+TimeToStr(Time)+'なので'+
　　　　TimeToStr(StartTime)+'から'+
　　　　TimeToStr(EndTime)+'の間です';

　　　Break;
　　end;
　end;
end;

なんか、どこか間違ったかな？
D6UP1です。

970 ：デフォルトの名無しさん：02/04/07 02:31

>>969
× CompareTime(StartTime, Time)
○ CompareTime(Time, StartTime)

かな？
あと、iが23のとき、EncodeTime(i+1, 0, 0, 0); で例外が出るような。

またBCBで申し訳ないですが、
日付をまたぐ場合にも対応すると、

TDateTime dtStart = StrToTime("23:00:00");
TDateTime dtEnd = StrToTime("1:00:00");
TDateTime dtCurr = Time();

if (dtEnd < dtStart)
{
　　if (dtCurr < dtEnd)
　　　　dtCurr++;

　　dtEnd++;
}

if (dtCurr >= dtStart && dtCurr <= dtEnd)
　　Caption = "内";
else
　　Caption = "外";

です。

971 ：970：02/04/07 03:05

暇なので勉強も兼ねてDelphiで。

function Hoge: Boolean;
var
　StartTime, EndTime, CurrTime: TDateTime;
begin
　StartTime := StrToTime('23:00:00');
　EndTime := StrToTime('1:00:00');
　CurrTime := Time;

　if (EndTime < StartTime) then
　begin
　　EndTime := EndTime + 1;
　　if (CurrTime < EndTime) then CurrTime := CurrTime + 1;
　end;
　Result :=(CurrTime >= StartTime) and (CurrTime <= EndTime);
end;

972 ：Delフサギコ ◆zE1iiRdQ ：02/04/07 03:18

　　 ∧,,∧∩　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　＜　こうですね！
　　 U　　ミ　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　＠ﾐ　　ﾐ
　　 ∪''∪

　　if (CompareTime(StartTime, Time) = LessThanValue)
　　　and (CompareTime(Time, EndTime) = LessThanValue) then

そっかそっか。LessとかGreaterとかいうとついわけわかですね

MyCompareTime(StartTime , '<', Time)
とかで比較できたらいいかも。

あ。それって
TimeOf(StartTime)　<　TimeOf(Time)　ってやればいいのか。

ちょっと勉強にﾅﾀ。ありがとうです>>970さん

973 ：970：02/04/07 03:52

Delphiのコードの間違い探しをしたり、自分で書いてみたりして
私も今日はいい勉強になりました。

974 ：970：02/04/07 04:11

>>971 訂正です。

　　EndTime := EndTime + 1;
　　if (CurrTime < EndTime) then CurrTime := CurrTime + 1;
　　　　↓
　　if (CurrTime < EndTime) then CurrTime := CurrTime + 1;
　　EndTime := EndTime + 1;

975 ：デフォルトの名無しさん：02/04/07 12:26

そろそろ、そろっと、新しいスレ立てないと1000になるよ

976 ：デフォルトの名無しさん：02/04/07 15:09

963
です。９７１をベースにしてできました。ありがとうございました。
９６９でやろうとしたらCompareTimeとGreaterThanValueとLessThanValueが
未定義だ！と怒られちゃったので。(^^;

977 ：デフォルトの名無しさん：02/04/07 15:37

爽やかな展開だ、いやに

978 ：デフォルトの名無しさん：02/04/07 19:33

DelphiでXMLをコチョコチョやりたいんですが
情報が集まっているところをご存知でしたら教えていただけないでしょうか

979 ：デフォルトの名無しさん：02/04/07 20:01

Delphi Magazine 4月号に、interfaceの自動参照カウント処理と、
interfaceを返す関数を呼び出したときに戻り値を受け取らなくても
コンパイラが勝手に一時オブジェクトを作って、スコープ脱出時にその開放をやってくれる機能を
うまく使って記述コードをすっきりさせる手法が紹介されてた。
C++っぽくておもしろいな。

function AutoFree(obj: TObject): Iなんたら;
ってのがあるとすると(Iなんたらはデストラクト時にobjをfreeしてくれるものがあるとする)、

begin
sl := TStringList.Create;
AutoFree(sl);
slを使った処理...
end;
みたいに、try-finallyを記述しなくても確実に開放できるんだな。
mutexとかの管理なんかも同じ調子ですっきりできそうだ。

バイナリのサイズはむしろ増えそうだが。

980 ：デフォルトの名無しさん：02/04/08 01:16

デバッグをしてると時々、
ソースファイルが見つかりません。ExtCtrls.pas
とか表示されるんだけどこれって回避する方法ある？

981 ：デフォルトの名無しさん：02/04/08 01:18

例外出るとﾜｹﾜｶﾒなヤツ探しにいくヤツだろ？
パッチあてると治るらしいぜ。
オレはパソナルだから面倒でそのままだけど(ﾜﾗ

982 ：名無し~3.EXE：02/04/08 04:14

Ent版を買って[プロジェクトオプション]-[コンパイラ]-[デバッグ用DCUを使う]に
チェックを入れる。

983 ：ageだ：02/04/08 05:19

ageだ

984 ：デフォルトの名無しさん：02/04/08 05:36

新スレ立てますた

Delphi相談室その４
http://pc.2ch.net/test/read.cgi/tech/1018211735/l50

985 ：デフォルトの名無しさん：02/04/08 14:26

新スレ移行のついでに埋め立て協力ｶｷｺ