+62 812-1171-5379 Fast Respond

Whatsapp kami

+62 812-1171-5379 | Fast Respon
Copyright © All rights reserved.

Penggunaan In Break Continue dan Exit

13
Mar
Penggunaan In Break Continue dan Exit
By Fathon Suguharta

Fungsi IN pada delphi :  

Fungsi ini berguna untuk pengecekan sebuah nilai dengan banyak kondisi tetapi singkat perintahnya, bahasa kami artinya nilai mengandung

Contoh penggunaannya

if nilai[1,3,5,7,9] Then // cara bacanya jika nilai mengandung 1,3,5,7,9
begin

end;

Fungsi Break :

Break digunakan untuk berhenti atau keluar dari perulangan yang tentu saja sudah dikondisikan

Misalnya :

for i := 1 to 10 do
Begin
  if i = 5 then
  Begin
      Break;
  End else
  Begin
      Memo_Break.Lines.add(inttostr(i));
  End;
End;

Fungsi Continue :

Perintah Continue biasanya dipakai lanjut perintah / statement

for i := 1 to 10 do
Begin
  if i = 5 then
  Begin
      Continue;
  End else
  Begin
      Memo_Break.Lines.add(inttostr(i));
  End;
End;

 

Fungsi Exit :

Perintah exit adalah perintah keluar dari sub atau procedure

if Uji(StrToInt(EdtNIlai.Text)) = False Then
Begin
   Exit;
End else
Begin
  ShowMessage('Selamat, nilai yang anda masukkan lebih dari 10');
End;
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label1: TLabel;
    LblKeterangan_in: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    BTCek_in: TButton;
    BTBreak: TButton;
    Memo_Break: TMemo;
    BTKontinue: TButton;
    Memo_Continue: TMemo;
    BtUji_Exit: TButton;
    EdtNIlai: TEdit;
    procedure BTCek_inClick(Sender: TObject);
    procedure BTBreakClick(Sender: TObject);
    procedure BTKontinueClick(Sender: TObject);
    procedure BtUji_ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BTCek_inClick(Sender: TObject);
begin
     if Strtoint(Edit1.Text) in [1,3,5,7,9] Then
     Begin
          LblKeterangan_in.Caption := 'Anda memasukkan bilangan ganjil';
     End else
     if Strtoint(Edit1.Text) in [2,4,6,8,10] Then
     Begin
          LblKeterangan_in.Caption := 'Anda memasukkan bilangan genap';
     End else
          LblKeterangan_in.Caption := 'Angka tidak terjangkau';
end;

procedure TForm1.BTBreakClick(Sender: TObject);
Var i : byte;
begin
     i := 0; Memo_Break.Clear;
     for i := 1 to 10 do
     Begin
          if i = 5 then
          Begin
               Break;
          End else
          Begin
               Memo_Break.Lines.add(inttostr(i));
          End;

     End;
end;

procedure TForm1.BTKontinueClick(Sender: TObject);
Var i : byte;
begin
     i := 0; Memo_Continue.Clear;
     for i := 1 to 10 do
     Begin
          if i = 5 then
          Begin
               Continue;
          End else
          Begin
               Memo_Continue.Lines.add(inttostr(i));
          End;
     End;
end;

procedure TForm1.BtUji_ExitClick(Sender: TObject);
     Function Uji(nilai : integer) : Boolean;
     Begin
          Result := False;
          if nilai >= 10 Then
          Begin
               Result := True;
          End;
     End;
begin
     if Uji(StrToInt(EdtNIlai.Text)) = False Then
     Begin
          Exit;
     End else
     Begin
          ShowMessage('Selamat, nilai yang anda masukkan lebih dari 10');
     End;
end;

end.