For döngüsünü şarta göre bitirmek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
forisicle
Üye
Mesajlar: 11
Kayıt: 01 May 2019 06:45

For döngüsünü şarta göre bitirmek

Mesaj gönderen forisicle »

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
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Re: For döngüsünü şarta göre bitirmek

Mesaj gönderen mussimsek »

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;
forisicle
Üye
Mesajlar: 11
Kayıt: 01 May 2019 06:45

Re: For döngüsünü şarta göre bitirmek

Mesaj gönderen forisicle »

mussimsek 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;
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ıyor
Kullanıcı avatarı
sunye
Üye
Mesajlar: 105
Kayıt: 24 Ağu 2004 04:49
Konum: izmir

Re: For döngüsünü şarta göre bitirmek

Mesaj gönderen sunye »

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.
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: For döngüsünü şarta göre bitirmek

Mesaj gönderen ertank »

forisicle yazdı: 15 May 2019 06:14
mussimsek 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;
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ıyor
Merhaba,

Mevcut kodunuzu paylaşabilir misiniz?
Cevapla