Und wie tu ich das nun auf mein programm beziehen. Die zeit will ich ja eingeben und die richtung auch und danach soll er celle für celle abarbeiten .
der quelltext sieht nun wie folgt aus also was muss ich nun noch umschreiben das die zeiten nicht von anfangan da sind sondern das ich die eingebe und der rechner das alles automatisch macht.
so wie vorherige seite beschrieben wie das pojekt aussieht.
vielen dank nochmal
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
b:byte;
Phase:integer;
Zeit:integer;
var
cnt1: Integer;
begin
Stringgrid1.FixedCols:=0;
for cnt1 := 0 to Stringgrid1.RowCount - 1 do
Stringgrid1.Cells[0,cnt1]:=inttostr(cnt1);
stringgrid1.cells[0,0]:='Zeit';
stringgrid1.cells[1,0]:='Richtung'
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i,b,p:integer;
g:string;
zeitS:String;
zeitI:integer;
begin
cbData7.Checked:=True;
zeitI:=Strtointdef(zeitS,-1);
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;
Inc(Index);
If Index > stringgrid1.colcount
then Index := 0;
end;
procedure TForm1.Timer6Timer(Sender: TObject);
begin
cbData7.Checked:=False;
Timer6.Enabled:=False;
end;
end.