Delphi – Dizi Kullanımı İle Girilen Sayıdan Ayı Bulma

Merhaba arkadaşlar,

Sizlere bugün delphi ile girilen sayıdan ayı bulmayı göstereceğim. Yani klavyeden 12 sayısını girdiğimizde bize 12. ayın Aralık olduğunu, 5 sayısını girdiğimizde 5.ayın Mayıs olduğunu gösterecek. Bu işlemlerimizi  dizi kullanarak yapacağız. Sizlerde dizi kullanımı mantığını kavradıktan sonra kendi örneklerinizi oluşturabilir ve kullanabilirsiniz.

Şimdi işlemlerimiz için delphi ile açmış olduğumuz formumuza 1 adet edit ve 1 adet buton ekliyoruz. Ve eklediğimiz butonumuzun içine yani click olayına aşağıdaki kodları yazıyoruz.


procedure TForm1.Button4Click(Sender: TObject);
const
Aylar:Array[1..12] of string =('Ocak','Şubat','Mart','Nisan','Mayıs','Haziran','Temmuz','Ağustos','Eylül','Ekim','Kasım','Aralık');
begin
showmessage(Aylar[StrToint(Edit2.Text)]);
end;

Kodlarımızı yazdıktan sonra artık programımız çalışır hale geldi.

Şimdi bu kodlarla ne yaptığımızı anlatalım. İlk olarak const 1’den 12’ye kadar devam eden bir dizi tanımladık. Dizimizin içine karşısına denk gelen ayı yazdık. En son  ise showmessage ile editten girilen değere karşılık gelen ayı gösterilmesini sağladık.

Şimdi 5. ve 12. ayı gösterelim ve ekran çıktılarımızın nasıl olduğuna bakalım.

 

Sosyal Medyada Paylaş Facebook Twitter Google+

Etiketler: , , , , , , ,
Eklenme Tarihi: 5 Şubat 2017

Konu hakkında yorumunuzu yazın