Aus stringgrid die daten nutzen

[busybyte]

Delphi-Quellcode:

Var anztimer,index:integer;

procedure TForm1.Button2Click(Sender: TObject);
begin
if (stringgrid1.Row>stringgrid1.RowCount-2) then
stringgrid1.RowCount:=stringgrid1.Rowcount+1;

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);
begin
Timer6.Enabled:=Not Timer6.Enabled;
end;


procedure TForm1.Button4Click(Sender: TObject);
Var cnt1:integer;
begin
for cnt1:=0 to Stringgrid1.RowCount-1 do
Stringgrid1.Rows[cnt1].Clear;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.FixedCols:=0;
with combobox1 do
 begin
 Clear;
 items.Add('Geradeaus');
 items.Add('Rückwärts');
 items.Add('Geraderechts');
 items.Add('Geradelinks');
 itemindex:=0;
 end;
 edZeit.Text:='1';
Timer6.Enabled:=False;
end;

Procedure Machwas;
var i,b,p:integer;
    g:string;
    zeitS:String;
    zeitI:integer;
begin with Form1 do
begin

zeitS:=stringgrid1.Cells[0,Index];
zeitI:=Strtointdef(zeitS,0);
Timer6.Interval := 1000 * zeitI;

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;
cbData1.checked:=true;
cbData3.checked:=false;
cbData5.checked:=true;
cbData7.checked:=true;
end;
if g= 'Geraderechts'
then
begin
cbStrobe.checked:=false;
cbData1.checked:=false;
cbData3.checked:=true;
cbData5.checked:=false;
cbData7.checked:=true;
end;
if g= 'Geradelinks'
then
begin
cbStrobe.checked:=false;
cbData1.checked:=false;
cbData3.checked:=true;
cbData5.checked:=true;
cbData7.checked:=false;
end;

Inc(Index);
If Index > stringgrid1.Row
then Index := 0;

if (Timer6.Interval<1) then
Timer6.Interval:=1;
end;
end;


procedure TForm1.Timer6Timer(Sender: TObject);
begin
cbStrobe.checked:=false;
cbData1.checked:=false;
cbData3.checked:=false;
cbData5.checked:=false;
cbData7.checked:=false;

Machwas;

end;

end.

wurde doch etwas länger..jetzt bin ich mal gespannt...