Форум программистов [Powered by Invision Power Board]

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with StringGrid1 do
  begin
    FixedCols := 0;
    FixedRows := 1;
    RowCount := 2;
    ColCount := 4;
    Rows[0].Text := 'Id'#13#10'Timer'#13#10'Tel'#13#10'Date'#13#10;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LastRow: Integer;
  UnixTime: Int64;
  TimeLo, TimeHi: Integer;
begin
  LastRow := StringGrid1.RowCount;
  StringGrid1.RowCount := LastRow + 1;
  UnixTime := DateTimeToUnix(Now());
  TimeLo := Integer(UnixTime and $FFFFFFFF);
  TimeHi := Integer(UnixTime shr 32);
  { "Раскидаем" текущее время по двум ячейкам, поскольку в одну можно
    поместить только 4 байта без динамического выделения памяти под объект.
    Integer и TObject - 4-хбайтные типы, можно приводить их друг к другу }
  StringGrid1.Objects[0, LastRow] := TObject(TimeLo);
  StringGrid1.Objects[1, LastRow] := TObject(TimeHi);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  UnixTime: Int64;
  h, m, s: Integer;
  i: Integer;
begin
  with StringGrid1 do
    for i := 1 to RowCount - 1 do
    begin
      if (Objects[0, i] = nil) and (Objects[1, i] = nil) then Continue;
      { собираем из двух частей время создания строки StringGrid'a }
      UnixTime := Integer(Objects[0, i]) or (Integer(Objects[1, i]) shl 32);
      { время прошедшее, с момента создания }
      UnixTime := DateTimeToUnix(Now()) - UnixTime;
      h := Trunc(UnixTime / 3600); // сколько прошло часов с момента добавления строки
      m := Trunc(UnixTime / 60) - h * 60; // сколько прошло минут
      s := UnixTime - h * 3600 - m * 60; // сколько секунд
      Cells[1, i] := IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s);
    end;
end;

end.