Case of 2

// Case Of 2

{
Case Of Juga Dapat Diberikan Banyak Tindakan ... Seperti dibawah ini

Contoh Menampilkan biodata Berdasarkan nim menggunakan case of
}

//=================================================


procedure TForm2.Button1Click(Sender: TObject);
begin

case strtoint(edit1.Text) of
213280164 :                   // apabila nilai edit1 = 213280164 Maka mulai
begin                         // Pembatas Kode Nilai 213280164
memo1.Lines.Add('Indra') ;    // Mengisi memo
memo1.Lines.Add(edit1.Text) ;
memo1.Lines.Add('parepare') ;
memo1.Lines.Add('Informatika') ;
end;                          // Penutup Kode nilai 213280164

213280163 :  begin

memo1.Lines.Add('Rani') ;
memo1.Lines.Add(edit1.Text) ;
memo1.Lines.Add('Sidrap') ;
memo1.Lines.Add('Informatika') ;
end;

213280162 :  begin
memo1.Lines.Add('Dwi') ;
memo1.Lines.Add(edit1.Text) ;
memo1.Lines.Add('Pinrang') ;
memo1.Lines.Add('Bhs Inggris') ;


end;
end;



//=====================================