Döngüden bir butona basarak nasıl çıkabilirim..?

[uğur alkan]

Kod: Tümünü seç

procedure TForm2.FormActivate(Sender: TObject);
var
  Dosya: TextFile;
  DosyaAdi, Satir: string;
begin
 DosyaAdi := 'c:\netlog.txt';
  AssignFile(Dosya, DosyaAdi);
  {$I-}
  Reset(Dosya);
  if IOResult = 0 then 
  while not EOF(Dosya) do
  begin
     ReadLn(Dosya, Satir); // bir satır oku.
        form2.Edit1.Text:=Satir;
        form2.Edit1.Refresh;
        sleep (500);
  end
  else
     ShowMessage('Dosya açma hatası!');
  CloseFile(Dosya);
  {$I+}
end;

bu döngüden aynı form üzerinde bir butona basarak çıkmak mümkünmü?
bu döngü pc kilitliyor...

[oguzozturk74]

Döngüden her hangi bir şart belirterek EXIT komutu ile çıkabilirsin

[husonet]

Thread yapabilrsin Forumda gerekli açıklamalar var.

Kolay Gelsin...

[fduman]

Şöyle de olabilir.

Kod: Tümünü seç

var
  FExit: Boolean;

while .... and (not FExit)
begin
   Application.ProcessMessages;
end;

procedure Button1Click(sender....
begin
   FExit:= True;
end;

Butona bastığında FExit true olur. Döngü de eğer FExit true ise kırılır ve çıkar.

[fduman]

Bu arada o sleep(500) ü kaldır. Refresh etsin diye koymuşsun ancak processmessages komutu bu işi yapar.

[uğur alkan]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Dosya: TextFile;
  FExit: Boolean;
  DosyaAdi, Satir: string;
begin
 DosyaAdi := 'c:\netlog.txt';
  AssignFile(Dosya, DosyaAdi);
  {$I-}
  Reset(Dosya);
  if IOResult = 0 then
  while not EOF(Dosya) and (not FExit=true ) do
  begin
  Application.ProcessMessages;
     ReadLn(Dosya, Satir); // bir satır oku.
        form1.Edit1.Text:=Satir;
        form1.Edit1.Refresh;
        sleep(200);
        end;
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
  FExit: Boolean;
begin
   FExit:= True;
end;

end.

sonuç olumsuz...

döngü bitmeden çıkmıyor...
Thread olayını biraz araştırıp deneyeceğim...

[uğur alkan]

viewtopic.php?t=1693&highlight=thread
de bulunan codu formun neresine yazacagım....?
bu thread olayı ile ilgili olarak baya bir şey ögrendim. ancak nasıl yapılacagı ile ilgili hiç bir şey bulamadım doğru dürüst, konuya hakim üstatlar konuyu biraz daha açabilirlermi... çünkü çok sık kullanılan bir işlem bu...


ek bilgi olarak bulduklarımdan bir tanesi;

http://www.bilgiteknoloji.net/marjinal/ ... uclari.asp

kısa bir kod örnek olarak oradada verilmiş...
ilgilerinize çok teşekkür ederim.

[fduman]

FExit'i procedure içinde tanımlamışsın. Global olmalı ki farklı proc. lardan değer alabilsin.

Kod: Tümünü seç

var
  FExit: Boolean;

procedure ......
  while not EOF(Dosya) or (not FExit) do
  begin
     ReadLn(Dosya, Satir); // bir satır oku.
        form1.Edit1.Text:=Satir;
        form1.Edit1.Refresh;
       Application.ProcessMessages;
   end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   FExit:= True;
end;

end.

şeklinde düzelttim.

En iyi yöntem thread. Ancak belli konularda tecrübe ister.

[uğur alkan]

çok teşekkür ederim kod tamam...
biraz hazır cevap oldu ama kusura bakmayın....
benden sonrakiler kolaylıkla bulur artık

Kod: Tümünü seç

Application.ProcessMessages;