Home › Delphi

Cara Validasi Inputan di Delphi7

Written By Een Pahlefi Friday, February 26, 2016 Add Comment Edit

Ketika sebuah inputan harus diisi semua, maka kita harus buat dengan teknik if then else (pengkondisian).

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text='') then
    begin
     ShowMessage('nama kosong');
     Edit1.SetFocus;
    end else
  if (Edit2.Text='') then
  begin
    ShowMessage('alamat kosong');
    Edit2.SetFocus;
  end else
   begin
    ShowMessage('inputan terisi semua');
   end;
end;

0 Response to "Cara Validasi Inputan di Delphi7"

Post a Comment

Subscribe to: Post Comments (Atom)