For döngüsünü şarta göre bitirmek
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
For döngüsünü şarta göre bitirmek
StringGrid içerisinde for döngüsü ile gerekli yerler formüller ile dolduruluyor 5 sütundaki en son hücreler birbirine eşit olduğu zaman döngünün sonlanmasını istiyorum bunu nasıl gerçekleştirebilirim
Re: For döngüsünü şarta göre bitirmek
Break komutu işinizi görür.
Kod: Tümünü seç
var
i : Integer;
s : string;
begin
s := '';
// A big loop
for i := 1 to 10 do
begin
s := s + IntToStr(i) + ' ';
// Exit loop when a certain condition is met
if Random(4) = 2 then Break;
end;
ShowMessage('i = '+IntToStr(i));
ShowMessage('s = '+s);
end;
Re: For döngüsünü şarta göre bitirmek
döngüden çıkmak yerine daha farklı bir şey düşünüyorum mesela stringgrid içerisinde 6 7 8 9 ve 10. sütunlarda hesaplamalar yapılıyor ve döngü 5000 kere döndürülüyor ama bir süreden sonra o sütünlardaki değerler birbirine eşit oluyor ben bu eşitlik sağlandığında stringgrid satır sayısını o eşitliğin sağlandığı satır kadar yapmak istiyorum atıyorum 100 satırda eşit oldular stringgrid satır sayısı 100 olsun bunu çözemedim if ile deniyorum ama yine bir şey çıkmıyormussimsek yazdı: ↑15 May 2019 08:19 Break komutu işinizi görür.
Kod: Tümünü seç
var i : Integer; s : string; begin s := ''; // A big loop for i := 1 to 10 do begin s := s + IntToStr(i) + ' '; // Exit loop when a certain condition is met if Random(4) = 2 then Break; end; ShowMessage('i = '+IntToStr(i)); ShowMessage('s = '+s); end;
Re: For döngüsünü şarta göre bitirmek
For yerine repeat untili kullanabilirsin. Until için şartı kontrol edersin döngü otomatik biter. Döngü içerisinde de değişkeni sürekli 1 artırırsan elinde grid satır sayısı olur.
Bildiğim tek şey, hiç bir şey bilmediğim.
Re: For döngüsünü şarta göre bitirmek
Merhaba,forisicle yazdı: ↑15 May 2019 06:14döngüden çıkmak yerine daha farklı bir şey düşünüyorum mesela stringgrid içerisinde 6 7 8 9 ve 10. sütunlarda hesaplamalar yapılıyor ve döngü 5000 kere döndürülüyor ama bir süreden sonra o sütünlardaki değerler birbirine eşit oluyor ben bu eşitlik sağlandığında stringgrid satır sayısını o eşitliğin sağlandığı satır kadar yapmak istiyorum atıyorum 100 satırda eşit oldular stringgrid satır sayısı 100 olsun bunu çözemedim if ile deniyorum ama yine bir şey çıkmıyormussimsek yazdı: ↑15 May 2019 08:19 Break komutu işinizi görür.
Kod: Tümünü seç
var i : Integer; s : string; begin s := ''; // A big loop for i := 1 to 10 do begin s := s + IntToStr(i) + ' '; // Exit loop when a certain condition is met if Random(4) = 2 then Break; end; ShowMessage('i = '+IntToStr(i)); ShowMessage('s = '+s); end;
Mevcut kodunuzu paylaşabilir misiniz?