nee, unter Einrückung verstehe ich
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i,b:integer;
g:string;
index:integer;
begin
Timer6.Interval := 1000 * strtoint(edzeit.text);
Timer6.Enabled:=True;
if g ='Geradeaus' then
begin
Inc(Index);
If Index > stringgrid1.Row then Index := 0;
g:= stringgrid1.Cells[1,Index];
cbStrobe.checked:=false;
cbData1.checked:=false;
cbData3.checked:=true;
cbData5.checked:=true;
cbData7.checked:=true;
end;
end;
halt alles, was zusammengehört, einrücken, saß man das sofort erkennt (z.B. Anweisungsblöcke der if-Anweisung). dein erster quelltext ist gruselig, weil nicht ersichtlich ist, welches end zu welchem begin gehört.
Quelltext ist nur eingerückt von deinem Code. scheint mir jetzt auch sinnfrei zu sein, da du
Zitat:
if g ='Geradeaus' then
stehen hast, ohne das g irgendwas zu gewiesen wird
Wenn du das mit dem index so durchziehen möchtest, mußt Du ihn als globale Variable deklarieren (ist aber nicht optimal, du kannst mal nach globalen Variablen im Forum suchen
) oder z.B. im private-Abschnitt der Form. Aus dem Var-Teil der Buttonclick muß es raus. Bei jedem click ist index wieder 0.
Ansonsten weiß ich nicht wirklich, was genau Du tun willst (habe mir aber auch die anderen threads von Dir nicht ganz durchgelesen). Evtl ist es besser, du hängst mal das gnaze projekt dran, damit man sieht, was du eigentlich machen willst.