Zitat von
Feuerwehrmann90:
Delphi-Quellcode:
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;
die letzte zeile ergibt nicht so viel sinn (denn sie gehört nicht mehr zur for-schleife).
du weiß ja, dass du zum schluss 61 reihen haben wirst (mit überschrift). dann kannste auch gleich
SG_ausgabe.RowCount := 61;
machen (am besten bevor du darauf in der for-schleife zugreifen willst).
der rest sieht doch schonma ganz gut aus.
was dir jetzt noch fehlt ist der ontimer-event der jede sekunde ausgelöst wird und
der kern der aufgabe is. es soll ja jede sekunde ein messwert hinzugefügt werden.
nun erstellst du dir einen globalen array
Messwerte: array[0..59] of Double
bzw kannste auch
Messwerte: array[1..60] of Double
machen. beide varianten erstellen einen array mit 60 elementen.
bei dem einen beginnt der index für das erste element halt bei 0, bei dem anderen bei 1.
wenn du dir deinen zufallsmesswert geholt hast weist du ihm einfach dem aktuellen array-element zu.
z.B.
Messwerte[10] := messwert;
wobei sich für die 10 natürlich eine variable
anbietet die mitzählt welches element aktuell ist.