|
Soru = Klavyeden girilen karakterlerin büyük harf, küçük harf, rakam veya özel karakter olduğunu bulan programı yapınız.
Çalışma Şekli:
Kodlar:
Procedure TForm1.Button1Click(Sender: TObject);
var
kar:char;
Procedure krktr(klm:char);
begin
case kar of
'A'..'Z':showmessage('Büyük harf');
'a'..'z':showmessage('Küçük harf');
' 0' ..'9':showmessage('Rakam');
else showmessage('Özel karakter');
end;
end;
begin
kar:=inputbox('?','bir karakter giriniz','')[1];
krktr(kar);
end;
Çalışma Şekli:
 
Programı çalıştırdığımızda ‘Karekter Bulma' butonu tıkladığımızda veri girişi girmek için pencere gelecektir. Buradan klavyeden buluna harflerden küçük harfe bastığımızda kullanıcıya 'Küçük Harf' mesajını verecektir.Diğer karakterleri denersenizde ona göre mesaj verecektir.
|
