döngüye tekrar sokma

[the_korsan]

mrb

for döngüsünden çıktıktan sonra birkaç komut işletiliyor, gelen sonuca göre tekrar geri dönüp döngüye koyabilirmiyiz.

örneğin adam asmaca örneğindeki kodlar şu şekilde:

Kod: Tümünü seç

begin
HAK:=0;
s:=edit1.Text;
a:=edit2.Text;
b:=edit3.Text;
  for j:=1 to length(s) do
  begin
       HAK:=HAK+1;
        for i:=1 to length(s) do
        begin
          if s[i]=a then
           begin
           delete(b,i,1);
           insert(a,b,i);
           edit3.Text:=b;
           END;

           end;
           END;

         if edit3.Text=s then  label1.Caption:='TEBRİKLER';
         if (HAK>=LENGTH(s)) AND (edit3.text<>s) THEN
         BEGIN
         label2.Caption:='HAKKI BİTTİ';
         end;
end;

burada hak bitti yazısı her seferinde çıkıyo. bunu nasıl ayarlayabiliriz..

Not: Lütfen mesajları okunaklı ve kod kısmını [ code ] [ /code ] tag ları içinde yazalım.. @rsimsek

[rsimsek]

başlatmak istediğin döngü yerine ;

Kod: Tümünü seç

repeat
   .....
   dongüler...;
   komutlar...;
   .....
until Şart/Koşul; // Koşul sağlanınca sonraki satıra geç..
sonraki satır....;

[the_korsan]

kodların konusu adam asmaca oyunu idi.

yalnız ben bu komutlar işletilirken edite yeni değer gireceğim .
2.for döngüsünden sonra kontrol yapılacak
1.döngü bitmeden edite yeni değeri girmem gerekiyor. for her ilerlediğinde yeni bir değer şeklinde.

[rsimsek]

Döngü içinde döngü son değerinin değiştirilemez! Onun yerine dediğim gibi ya while ... / do bloğu yada repeat / until ... bloğu kullanılır..