Hi, ich möchte in eine Tabelle Werte eingeben, und in der ersten Spalte sollen Zahlen stehen was ich nun mit diesem Quelltext mache:
Delphi-Quellcode:
implementation
var anztimer:integer;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.Cells[0,stringgrid1.Row]:=(Edit1.text);
stringgrid1.Cells[1,stringgrid1.Row]:=(ComboBox1.Text);
stringgrid1.Row:=stringgrid1.Row+1;
anztimer:=stringgrid1.row;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.cells[0,0]:='Zeit';
stringgrid1.cells[1,0]:='Richtung';
end;
So, nun möchte ich per Button2, das mein Timer1 die Werte aus der ersten Spalte nach und nach abläuft.
Das heißt, steht in der ersten Spalte 5 in der ersten Zeile, soll der Timmer 5Sekunden bei der ersten Zeile bleiben, und danach erst in die nächste Zeile wechseln. Dies will ich erreichen mit:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
interval:cardinal;
begin
for i:=1 to anztimer-1 do
begin
Timer1.Enabled := true;
Timer1.Interval:=(stringgrid1.cells[0,i]);
label1.caption:=(stringgrid1.cells[0,i]);
end;
end;
end.
Irgend etwas klappt noch nicht so recht, kann mir jemand mal einen Tipp geben?