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.
Etiketler: delphi dizi kullanımı, dizi ile ayları gösterme, dizi ile ayları gösterme delphi, dizi kullanımı delphi, klavyeden girilen sayıya göre ayı gösterme, klavyeden girilen sayıya göre günü gösterme, programlama, yazılım
Eklenme Tarihi: 5 Şubat 2017
Konu hakkında yorumunuzu yazın