2

私は関数を書き込もうとしていますTdatetime（しかし、プログラムを開くと、彼は今データを表示する必要があります）

以下に関数TDatetimeがありますが、エラーがあります：

（（（（'' DecodeDateTime（data、rok、miesiac、dzien、godzina、minuta、sekunda、milisekunda）;''））））

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    edRok: TSpinEdit;
    edMiesiac: TSpinEdit;
    edDzien: TSpinEdit;
    lbRok: TLabel;
    lbMiesiac: TLabel;
    lbDzien: TLabel;
    lbDT: TLabel;
    btnZamknij: TBitBtn;
    procedure edRokChange(Sender: TObject);
    procedure edDzienChange(Sender: TObject);
    procedure DecodeDate(Date: TDateTime);
    function DT(Dzien, Miesiac: Byte; Rok: Integer): Byte;
    function GetDzienText(Dt: Byte): String;
    function Now: TDateTime;



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.edRokChange(Sender: TObject);
begin
 case edMiesiac.Value of
  1,3,5,7,8,10,12: edDzien.MaxValue:=31;
  4,6,9,11: edDzien.MaxValue:=30;
 else
  if edRok.Value mod 4=0 then edDzien.MaxValue:=29
  else edDzien.MaxValue:=28;
 end;{case}
 if edDzien.Value>edDzien.MaxValue then
  edDzien.Value:=edDzien.MaxValue;
  edDzienChange(Sender);
end;

procedure TForm1.edDzienChange(Sender: TObject);
begin
 lbDt.Caption:='Dzień tygodnia: '+GetDzienText(DT(eddzien.value, edmiesiac.value, edrok.value));
end;


procedure TForm1.DecodeDate(Date: TDateTime);
var
 Now, Rok, Miesiac, Dzien: Word;
begin
DecodeDate(Now);
DecodeDate(Rok);
DecodeDate(Miesiac);
DecodeDate(Dzien);
edRok.Value:=Rok;
edMiesiac.Value:=Miesiac;
edDzien.Value:=Dzien;
end;



function TForm1.DT(Dzien, Miesiac: Byte; Rok: Integer): Byte;
var m,r,w: Byte; {deklaracja zmiennych}
begin
 if Miesiac>2 then m:=miesiac-2
 else
  begin
   m:=miesiac+10;
   rok:=rok-1;
  end;
  r:=rok mod 100;
  w:=rok div 100;
 Result:=((13*m-1) div 5+dzien+r div 4+w div 4+r+5*w) mod 7;
end;

function TForm1.GetDzienText(Dt: Byte): String;
const Dni: array[0..6] of String=
      ('Niedziela','Poniedziałek','Wtorek','Środa',
       'Czwartek','Piątek','Sobota');
begin
 Result:=Dni[dt];
end;

function TForm1.Now: TDateTime;
var
  dzien, miesiac, rok: Word;
  godzina, minuta, sekunda, milisekunda: Word;
  data: TDateTime;

begin
  data := Now;
  DecodeDateTime(data, rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda);
  MessageBox(0,PAnsiChar(Format('Data: %d/%d/%d %d:%d:%d:%d',[rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda])), 'Data', MB_ICONINFORMATION);
end;

end.
4

2 に答える 2

6

変化する

data := Now;

に

data := SysUtils.Now;

Nowを再帰的に呼び出しています。

于 2011-01-22T18:02:44.073 に答える
2

あなたは一緒に無限の再帰を持っているように見え、それはスタックオーバーフローにつながります（あなたがここでこの質問をするのにどれほど適切か）。

代わりに次のように書くことができます。

function TForm1.Now: TDateTime;
var
  dzien, miesiac, rok: Word;
  godzina, minuta, sekunda, milisekunda: Word;
begin
  Result := SysUtils.Now;
  SysUtils.DecodeDate(Result, rok, miesiac, dzien);
  DecodeTime(Result, godzina, minuta, sekunda, milisekunda);
  MessageBox(0,PChar(Format('Data: %d/%d/%d %d:%d:%d:%d',[rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda])), 'Data', MB_ICONINFORMATION);
end;

コードで同じ名前を使用しているため、NowとDecodeDateを完全に修飾する必要がありました。あなたは本当にそれをするべきではなく、衝突しない名前を選ぶべきです

私はあなたの目的を本当に理解していません、そしてこのコードには明らかに他の多くの問題があります。

次のプログラムを実行した別の回答のコメントトレイルに従ってください。

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

procedure Main;
var
  dt: TDateTime;
  dzien, miesiac, rok: Word;
  godzina, minuta, sekunda, milisekunda: Word;
begin
  dt := Now;
  DecodeDate(dt, rok, miesiac, dzien);
  DecodeTime(dt, godzina, minuta, sekunda, milisekunda);
  MessageBox(
    0,
    PChar(Format(
      'Data: %d/%d/%d %d:%d:%d:%d',
      [rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda])
    ),
    'Data',
    MB_ICONINFORMATION
  );
end;

begin
  Main;
end.

結果としてこの出力が得られました：

代替テキスト

あなたが2002年に電話をかけNow、実際に結果が出た場合、私はあなたのコンピュータの時間が間違っていると結論付けることしかできません！DecodeDate

于 2011-01-22T18:01:13.337 に答える