Hallo habe folgendes Problem ich möchte aus dem stringgrid die zeiten nutzen und sie in einem timer aktiv machen also ich gebe in die stringgrid zb die zeiten 5,3,4,9,6s ein dann soll zuerst die zeit 5s aktiviert werden und bestimmte checkboxen in der zeit sollen angesprochen werden. Dann soll er automatisch in die nächste celle rücken wo die zeit 3 steht und in dieser zeit sollen wieder bestimmte checkboxen checked sein usw.
bei dem quelltext klappt das prinzipiell schon aber er geht nicht von einer celle in die nächste er nimmt immer die zuletzt eingetragene.
könnt ihr mir sagen wie ich den quelltext ändern muss damit es klappt
Danke delphi-projekt
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i,b:integer; g:string;
begin
Timer6.Interval := 1000 * strtoint(edzeit.text);
g:= stringgrid1.Cells[1,stringgrid1.Row];
g:=(ComboBox1.Text);
Timer6.Enabled:=True;
if g ='Geradeaus'
then
begin
cbStrobe.checked:=false;
cbData1.checked:=false;
cbData3.checked:=true;
cbData5.checked:=true;
cbData7.checked:=true;
end;
if g= 'Rückwärts'
then
begin
cbStrobe.checked:=false;
cbData3.checked:=false;
cbData1.checked:=true;
cbData5.checked:=true;
cbData7.checked:=true;
end;
if g= 'Geraderechts'
then
begin
cbStrobe.checked:=false;
cbData5.checked:=false;
cbData1.checked:=false;
cbData3.checked:=true;
cbData7.checked:=true;
end;
if g= 'Geradelinks'
then
begin
cbStrobe.checked:=false;
cbData7.checked:=false;
cbData1.checked:=false;
cbData3.checked:=true;
cbData5.checked:=true;
end;
end;
end.