unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Grids;
type
TForm1 =
class(TForm)
SG_ausgabe: TStringGrid;
Button1: TButton;
Button2: TButton;
ED_max: TEdit;
ED_mittel: TEdit;
ED_min: TEdit;
timer: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
i:integer ;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
timer.Enabled:=true;
for i:=1
to 60
do
SG_ausgabe.Cells[0,i]:=Inttostr(i);
SG_ausgabe.RowCount:=i;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer.Enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SG_ausgabe.Cells[0,0]:='
Nummer';
SG_ausgabe.Cells[1,0]:='
Datum/Zeit';
SG_ausgabe.Cells[2,0]:='
Grad Celsius';
end;
end.