Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 3/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Satıra Git
#1
Merhabalar,
Delphide kullanan oldu mu ?
Basit bir proje ama wsdl cevabına göre aynı içerisindeki procedure'u en baştan tekrar çalışsın istiyorum.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#2
label - GOTO kullan hocam
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#3
(14-09-2017, Saat: 17:33)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhabalar,
Delphide kullanan oldu mu ?
Basit bir proje ama wsdl cevabına göre aynı içerisindeki procedure'u en baştan tekrar çalışsın istiyorum.

Repeat
.....
Until Çıkış Şartı
Cevapla
#4
Teşekkürler.
Bir dezavantajı var mı dikkat etmem gereken bir durum vs
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#5
En baştan tekrar çalışmasını istiyorsan procedure'ü kendi içinde tekrar çağırabilirsin
There's no place like 127.0.0.1
WWW
Cevapla
#6
(14-09-2017, Saat: 18:31)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlTeşekkürler.
Bir dezavantajı var mı dikkat etmem gereken bir durum vs

goto kullanımında genelde başka biri okuduğunda zorluk yaşandığı için tavsiye edilmiyor ama gerekli ise tabiki kullanabilirsin.
ben genelde iç içe döngülerden çıkmak için kullanıyorum diğer türlü bayrak değişken kullanımı gerekecek.
@SimaWB dediği gibi procedure'ü kendi içinde tekrar çağırabilirsin.

“Do. Or do not. There is no try.”
Cevapla
#7
(14-09-2017, Saat: 18:31)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlTeşekkürler.
Bir dezavantajı var mı dikkat etmem gereken bir durum vs

1.  Repeat ile Until arasındaki kodlar en az bir kez çalıştırılır.
2.  Until döngüden çıkış için kullanılır.

Örnek :

procedure TKullaniciForm.btnSifreDegistir1Click(Sender: TObject);
Var
  S      : String;
  OK   : Boolean;
begin
S        := '';
OK     := False;
Repeat
  OK := InputQuery('Şifreyi Giriniz','Şifre',S); // False dönerse döngüden çık
Until (Not OK) OR ((OK) AND (Trim(S)<> ''));    // Çıkış şartı 

if (Trim(S)<> '') AND (OK) then
  TextEditSifre.Text  := EncodeString(S);

end;
Cevapla
#8
(14-09-2017, Saat: 20:09)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlEn baştan tekrar çalışmasını istiyorsan procedure'ü kendi içinde tekrar çağırabilirsin

Yine de üstteki bir iki satır kodumun yeniden başlamaması gerek bu yüzden direk içeriden çağırmadım.
Cevaplar için teşekkürler arkadaşlar
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#9
Tekrar koşmasını istediğiniz kodu bir subroutine yapıp asıl blok içinde o subroutine i çağırabilirsiniz..
Me on the move..
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Alt satıra geçiş Mericx 14 1.048 29-03-2017, Saat: 10:15
Son Yorum: SimaWB
  Label Alt Satıra Geçme Mericx 10 986 09-02-2017, Saat: 11:43
Son Yorum: Mericx



Konuyu Okuyanlar: 1 Ziyaretçi