Ich würde es so machen:
Im OnCreate deiner Form:
i := 1;
Und im Timer-Event:
Delphi-Quellcode:
if i <= 60 then
begin
grad[i] := random(1000)/100-25; // neuer messwert
SG_ausgabe.Cells[0,i]:=inttostr(i);
SG_ausgabe.Cells[1,i]:=DateTimeToStr(Now);
SG_ausgabe.Cells[2,i]:=Format('%1.2f Grad Celcius',[grad[i]]);
inc(i);
end;
Sollte zumindest schon mal die ersten 60 Zeilen füllen (Code ist schnell aus dem Kopf raus getippt, sollte aber funktionieren. Wenn das klappt, dann kannst du dich daran machen, zu überprüfen, wenn du mehr als 60 Werte hast (Min., Max. und Durchschnitts-Wert sind noch nicht mit drin!)
P@Tti