ok also es sieht jetzt wie folgt aus
ich habe eine stringgrid erstellt diese hat 2 spalten für zeit und richtung
Delphi-Quellcode:
stringgrid1.cells[0,0]:='Zeit';
stringgrid1.cells[1,0]:='Richtung'
so dann habe ich ein edit feld in welches ich die zeit eingebe und eine combobox wo ich die
richtungen auswählen kann
ich gebe ein 5(edit) Geradeaus(combobox)
3(edit) Rückwärts(combobox)
diese werte stehen dann in der stringgrid und durch den button3 soll nun bewirkt werden das er
in die erste celle springt sieht aha 5s lang geradeaus in der zeit sollen bestimmte checkboxen checked sein nach den 5s soll er in die nächste zelle springen dort sieht er 3s rückwärts und für diese 3s sollen dann wieder bestimmte checkboxen checked sein.
Also das mit der zeit hab ich jetzt so eingegeben
Delphi-Quellcode:
zeitS:=stringgrid1.Cells[0,Index];
zeitI:=Strtointdef(zeitS,0);
edzeit.text:=zeitS;
Timer6.Interval := 1000 * zeitI;
weil ich die "s" nicht mit eingebe aber das klappt irgendwie immer noch nicht ich tu mal meinen
gesamten quelltext ran vielleicht findet ihr den Fehler. Aber schonmal vielen dank für die vielen infos.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
stringgrid1.Cells[0,stringgrid1.Row]:=(Edzeit.text);
stringgrid1.Cells[1,stringgrid1.Row]:=(ComboBox1.Text);
stringgrid1.Row:=stringgrid1.Row+1;
anztimer:=stringgrid1.row;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i,b,p:integer;
g:string;
zeitS:String;
zeitI:integer;
begin
zeitS:=stringgrid1.Cells[0,Index];
zeitI:=Strtointdef(zeitS,0);
edzeit.text:=zeitS;
Timer6.Interval := 1000 * zeitI;
Timer6.Enabled:=True;
g:= stringgrid1.Cells[1,Index];
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;
Inc(Index);
If Index > stringgrid1.Row
then Index := 0;
end;
end.