Aus stringgrid die daten nutzen

[busybyte]

ja du arbeitest mit row ,row ist falsch
nur mit cells und rowcount arbeiten

Delphi-Quellcode:

var index:integer;

procedure TForm1.Button1Click(Sender: TObject);
var i,b,p_:integer; g:string; //var index:integer; //hier wird index wieder 0 bzw. nicht 0 sondern undefiniert
zeitS:String;
zeitI:integer;
begin
//cbData7.Checked:=True;


//ich hab hier mal die Nummer 0 genommen
zeitS:=stringgrid1.Cells[0,Index];               //<-EDIT

//wenn du wirklich  5s schreibst dann das s entfernen
p_:=pos('s',ansilowercase(zeits));
delete(zeitS,p_,1);

zeitI:=Strtointdef(zeitS,-1);  //-1 wenn Fehler

edzeit.text:=zeitS;


Timer1.Interval := 1000 * zeitI; //strtoint(edzeit.text);
Timer1.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;
Inc(Index);
If Index > stringgrid1.Colcount
then Index := 0;
end;



procedure TForm1.FormCreate(Sender: TObject);
var
  cnt1: Integer;
begin
Stringgrid1.FixedCols:=0;
for cnt1 := 0 to Stringgrid1.RowCount - 1 do
Stringgrid1.Cells[0,cnt1]:=inttostr(cnt1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
cbData7.Checked:=False;
Timer1.Enabled:=False;

end;

Und ein Post weiter oben editiere ich noch den Fehler