Arsip: Delphi {repeat ...until}

 
user image
more 13 years ago

coacoac

saya mo tanya nih...gmn caranya menghentikan proses repeat-until yang saling berhubungan...?

procedure TForm1.Button1Click(Sender: TObject);
begin
berhenti:= False;
repeat
  ....................
until (berhenti= true)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
berhenti:= True;
repeat
  ....................
until (berhenti= false)
end;
user image
more 13 years ago

Peter

Kekna ndak bisa Om ... 8) Coba tambah variabel saja, trus dipasangi trigger
user image
more 13 years ago

ndenkltop

kamu bisa pake timer. procedure TForm1.Timer1Timer(Sender: TObject); begin if berhenti then begin ............ end else begin .............. end; end; procedure TForm1.Button1Click(Sender: TObject); begin berhenti:= false; end; procedure TForm1.Button2Click(Sender: TObject); begin berhenti:= True; end;
user image
more 13 years ago

mat_koder

tambahkan 'Application.ProcessMessage' di kedua rutin tsb spy Button1 & 2 dpt di-klik dan responsif.
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com