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;