Hallo allemaal,
Als Sw = False dan werkt deze code niet. Terwijl mijn idee is dat bij If Sw = False de daarbij behorende Repeat niet zal worden uit gevoerd maar de volgende repeat wel.
Als Sw = False dan werkt het niet, dan wordt de volgend repeat ook niet uitgevoerd.
Is hiet een oplossing voor?
Met een vriendelijke groet, Frans
Code:procedure TForm1.Button1Click(Sender: TObject); var I: integer; begin I := 0; if Sw = True then repeat repeat Memo1.Lines.Add(IntToStr(I)); Inc(I); until I >= 20; Inc(K); Memo1.Lines.Add(IntToStr(K)+' '+IntToStr(I)); if Sw = True then until K >= 2; end; procedure TForm1.Button2Click(Sender: TObject); begin Sw := True; end; procedure TForm1.Button3Click(Sender: TObject); begin K := 0; Sw := False; end;
Bookmarks