Delphi – İnputbox Kullanımı

Merhaba arkadaşlar,

Sizlere delphi ile açmış olduğumuz formumuzda örnek ile inputboxın nasıl kullanıldığını göstereceğim.

Örneğimiz için açmış olduğumuz formumuza sadece 1 adet buton ekliyoruz. Eklemiş olduğumuz butonun içine yani click olayına aşağıdaki kodları yazıyoruz.


procedure TForm1.Button7Click(Sender: TObject);
var
sehir: String;
begin
sehir:=inputbox('Bilgi','Oturduğunuz şehri girin?','');
if sehir='Ankara' then showmessage('Ankarada oturuyorsunuz')
else if sehir='İstanbul' then showmessage ('İstanbulda oturuyorsunuz')
else if sehir='İzmir' then showmessage ('İzmirde oturuyorsunuz')
else showmessage ('Başka şehirlerde oturuyorsunuz ! ');

end;

Kodlarımız ile ne yaptık?

İlk olarak örneğimiz için sehir adında string bir değişken tanımladık. Daha sonra sehir adlı değişkene inputboxtan veri çekilmesini sağladık ve inputboxın parantez içindeki ilk bölümünden üst başlığını ikinci bölümünden sorulacak soruyu ayarladık. Daha sonrasında ise if yapısı ile gerekli cevapların ekranda gösterilmesini sağlayarak işlemimizi bitirdik.

Ekran çıktılarımız ise aşağıdakiler gibi oldu.

 

 

Sosyal Medyada Paylaş Facebook Twitter Google+

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

Konu hakkında yorumunuzu yazın


Delphi – İnputbox Kullanımı (1 Yorum)