Merhaba arkadaşlar bu makalemizde Delphi ’de Case of kullanımını göreceğiz. Yapıyı şu şekilde kullanıyoruz.
case i of
…
else
…
end;
Bu örnekte buttona tıkladığımızda case of metoduyla mesaj kutusunda girilen sayıyı yazıyoruz.
Şekil 1
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
number:integer;
begin
number:=5;
case number of
1:ShowMessage('The number you entered. Girilen sayi 1 dir');
2:ShowMessage('The number you entered. Girilen sayi 2 dir');
3:ShowMessage('The number you entered. Girilen sayi 3 dur');
4:ShowMessage('The number you entered. Girilen sayi 4 dur');
5:ShowMessage('The number you entered. Girilen sayi 5 dir');
6:ShowMessage('The number you entered. Girilen sayi 6 dir');
7:ShowMessage('The number you entered. Girilen sayi 7 dir');
8:ShowMessage('The number you entered. Girilen sayi 8 dir');
9:ShowMessage('The number you entered. Girilen sayi 9 dir');
10:ShowMessage('The number you entered. Girilen sayi 10 dir');
else
ShowMessage('The number you entered is incorrect! Girdiginiz sayi yanlis!');
end;
end;
end.
Click for details
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder