Array timer, stringgrid hilft mir

[patti]

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