Cara Validasi Inputan di Delphi7

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;

Subscribe to receive free email updates: