Q&A

  • 접속 시간 출력

델파이 아주 아주 초보 입니다.

만들고 싶은 프로램이 있어서 기초 없이 하고 있습니다.

 

접속 유지 시간을 실시간으로 출력을 해주고 싶은대 잘 모르겠습니다.

 

로그인이 되면 1초 부터 계속해서 시간이 증가 되야 하는대

 

00:00:01 하고 끝나네요..

 

뭔가 있을 듯 싶은대요 ^^:

 

도움 좀 주시면 감사하겠습니다.

 

 

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  starttime: tdatetime;


implementation

{$R *.dfm}

 

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  starttime := now()-((1/(24*60*60))) ;

  label2.Caption := FormatDatetime('hh:mm:ss', now() - startTime );

end;

end.

2  COMMENTS
  • Profile
    백록화 2012.04.25 20:03

    starttime 이 타이머 이벤트에서 계속 변하잖아요 ^^ starttime 은 다른데서...로그인 후라든가.. 초기화 해주고..타이머 이벤트에서는 연산해서 출력만 해주시면...

  • Profile
    zerosum 2012.04.25 21:06

    잘 되네요 감사합니다. ^^*

    돈 주고 컴포넌트 부터 사서 하고 있습니다.

    워낙 기초없이 거꾸로 하고 있네요 ..