Gönderen Konu: Delphide Döngüler (Okunma sayısı 2067 defa)

cakirr42 · « : 16 Ocak 2010 14:57:49 »

Döngüler
İf Döngüsü
if döngüsünün genel yapısı aşağıdaki gibidir.
If şart then
Komut ;
Else
diğer komut ;

Kod: (Unknown Language)

var
i : integer ;
begin
i := 0;
i := i + 1 ;
if i = 1 then begin
Label1.Caption := 'Doğru ';
end
else
if i<>1 then begin
Label1.Caption := 'Yanlış ';
end;
end;
 

Case Döngüsü
Bir değişkenin aldığı bir çok değere göre ayrı komutların çalıştırılması gereken durumlarda
Case döngüsü kullanılır. Genel yapısı aşağıdaki gibidir.
Case değişken of
durum1 : Komutlar ;
durum2 : Komutlar ;
......
durumn : komutlar ;
Else komutlar ;
end;
Yukarda dikkat edilirse değişken; durumlara uyan değerler aldığı zaman ilgili komutlar çalışacak
eğer değişkenin değeri hiçbirine uymuyorsa Else' den sonraki komut çalışacaktır.
Aşağıdaki örneği inceleyelim.

Kod: (Unknown Language)

Case x of
1 : label1.Caption := ' Mustafa YURTSEVER ' ;
2 : label1.Caption := ' Ali YEŞİLOĞLU ' ;
3 : Edit1.Text := ' Ahmet Kürşat ÇAKIR ' ;
else
Edit1.Text := ' Hoşçakal ' ;
end;
 

For Döngüsü
For döngüsünün genel yapısı aşağıdaki gibidir.
For i := ilkdeğer to sondeğer do
begin
komut ;
end ;
Burada to kullanıldığı için i artarak değerler alır.downto kullanıldığı zaman değer i değerleri
azalarak gider.
For i := ilkdeğer downto sondeğer do
begin
komut ;
end ;

Kod: (Unknown Language)

var
i : array [ 1 .. 20 ] of string ;
k : integer ;
begin
for i := 1 to 20 do
i [ k ] := InputBox( ' i değer girişi ' Inttostr (k ) + '.nin adı ' ' ' ) ;
end ;

While - Do Döngüsü
Bir şart gerçekleştiği zaman çalışması gereken program bloklarında kullanılır.Genel yapısı
aşağıdaki gibidir.
While şart do
Begin
Komutlar ;
end ;

Kod: (Unknown Language)

var
i : integer ;
Begin
i := 0 ;
while i < 10 do
Begin
Label1.Caption := inttostr ( i ) ;
i := i + 1 ;
end ;
 

Repeat - Until Döngüsü
Genel yapısı aşağıdaki gibidir. Şart gerçekleşene kadar çalışması gereken kısımlarda kullanılır.
Repeat
Komut ;
Until Şart ;

Kod: (Unknown Language)

var
i : integer ;
begin
repeat
i := 50 ;
Until (i>0) and ( i < 50 )
end ;
 

For in Do
Delphi 2010 la geldi sanırım

Kod: (Unknown Language)

var  
s : string;  
begin  
fors inlistbox1.items do  
begin  
showmessage(s);  
end; 
 

cakirr42 · « **Yanıtla #1 :** 16 Ocak 2010 15:01:16 »

Döngü Kontrol İfadeleri
Bazı durumlarda döngü bitmeden döngüden çıkılmak istenebilir. Bu gibi durumlarda döngü
kontrol deyimlerini kullanmak gerekir. Bunlardan bazıları Break Continue gibi deyimlerdir.

Break
Break kontrol deyimi ForWhile veya Repeat döngülerinden birinde döngüden çıkmak için
kullanılır.Aşağıdaki örneği inceleyelim.

Kod: (Unknown Language)

procedure TForm1.Button1.Click ( Sender : TObject ) ;
var
i : array [1 .. 20 ] of string ;
k : integer ;
begin
for i := 1 to 20 do
if i [ k ] = 'Bahadir' then begin
break ;
if > 50 then begin
ShowMessages (' Aranan kayıt bulunamadı. Tekrar deneyiniz...' ) ;
end
else
ShowMessages (Inttostr ( k ) + ' . kişi' ) ;
end ;
end ;
 

Continue
Continue; For While veya Repeat döngülerinde bazı şartlar gerçekleştiğinde döngünün sonuna
gitmeden tekrar başa dönmesini sağlar.

Kod: (Unknown Language)

var
i : integer ;
Begin
for i := 1 to 20 do
if i<10
continue ;
end ;
ShowMessages( Inttostr ( i ) ) ;
end ;
 

Exit
Exit; mevcut program bloğundan bloğun sonuna ulaşmadan çıkmaya yarar.

Kod: (Unknown Language)

var
 i : integer ;
begin
i := strtoint ( Edit1. Text ) ;
if i <10 then begin
exit ;
end
else
Edit1.Text := 'i'nin değerleri 10'dan büyük.' ;
end ;
end;
 

Halt
Programdan çıkış sağlar.

Kod: (Unknown Language)

Begin
Form1.Halt ; // Programdan çıkış sağlar.
end ;
 

Whit - Do
Herhangi bir kontrol elemanının birden fazla özelliğini değiştirmek için yada metodlara ulaşmak
için kullanılır. Genel kullanımım şekli aşağıdaki gibidir.

Kod: (Unknown Language)

With kontroladi do
Begin
....
end ; 
 

not: Alıntıdır...

cakirr42 · « **Yanıtla #2 :** 16 Ocak 2010 15:02:04 »

Umarım Faydalı Olmuşumdur...

barutali · « **Yanıtla #3 :** 16 Ocak 2010 16:26:36 »

delphi 2010 la geldi sanırım (2005 - 2006 - 2009 kullanmadım bilmiyorum 2007 de de hiç denemedim)

For in Do

Kod: (Unknown Language)

var 
 s : string;
begin
for s in listbox1.items do 
 begin
 showmessage(s);
 end;
 

cakirr42 · « **Yanıtla #4 :** 19 Ocak 2010 16:43:08 »

benim delphide denedim bu kodu olmadı büyük ihtimal 2010la gelmiştir bunuda ekleyim makaleye

sabanakman · « **Yanıtla #5 :** 19 Ocak 2010 20:02:10 »

Bu özellik muhtemelen Delphi 8 le gelmiş olabilir ama bu versiyonu hiç olmamış farzediyorum

. O yüzden Delphi 9 (D2005) ve sonrasında bu döngü biçimi desteklenmektedir, D7 ve öncesinde bu şekilde döngü çalışmamaktadır.

cakirr42 · « **Yanıtla #6 :** 19 Ocak 2010 20:03:53 »

ben d6 kullanıyorum ve bende sonuç vermedi hata aldım bu döngüde zaten ne işe yaradığınıda anlamış değilim

sabanakman · « **Yanıtla #7 :** 19 Ocak 2010 20:05:38 »

Daha pratik kodlamaya olanak sağlamaktadır.
http://www.delphidunyasi.net/delphi-sorulari/combobox-tan-font-ayari/msg28937/#new

cakirr42 · « **Yanıtla #8 :** 19 Ocak 2010 20:06:43 »

Anladım Hocam Saolun

sabanakman · « **Yanıtla #9 :** 19 Ocak 2010 20:09:23 »

Alıntı yapılan: cakirr42 - 19 Ocak 2010 20:03:53

...bu döngüde zaten ne işe yaradığınıda anlamış değilim

Alıntı yapılan: sabanakman - 18 Ocak 2010 10:01:44

Şu iki döngü delphi2005 ve sonrasında aynı anlama gelmektedir. Göz atarak ne olduğu sanırım anlaşılacaktır.
Kod: (Unknown Language)
var s:string; i:Integer;
begin
for s in ListBox1.Items do begin
///
end;

for i:=0 to ListBox1.Items.Count-1 do begin
s:=ListBox1.Items[i];
///
end;
end;

Her iki çeşit döngü karşında. Maksat kodlamada çeşitleme olsun demişler ama bu yeni stildeki döngü kod yazarken daha pratik olduğu açık olarak ortadadır sanırım

.

barutali · « **Yanıtla #10 :** 20 Ocak 2010 02:15:42 »

@SabanAkman hocam iyi olmuş ama ara ara güzel oluyor böyle değişiklikler (bence) :DD

cakirr42 · « **Yanıtla #11 :** 20 Ocak 2010 09:35:45 »

for to do
for in do
çeşit çeşit aynı işi yapıyo ama

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Delphide Döngüler (Okunma sayısı 2067 defa)

cakirr42

Delphide Döngüler

cakirr42

Ynt: Delphide Döngüler

cakirr42

Ynt: Delphide Döngüler

barutali

Ynt: Delphide Döngüler

cakirr42

Ynt: Delphide Döngüler

sabanakman

Ynt: Delphide Döngüler

cakirr42

Ynt: Delphide Döngüler

sabanakman

Ynt: Delphide Döngüler

cakirr42

Ynt: Delphide Döngüler

sabanakman

Ynt: Delphide Döngüler

barutali

Ynt: Delphide Döngüler

cakirr42

Ynt: Delphide Döngüler