Arsip: menampilkan warning jika editbox kosong atau diisi huruf

 
user image
more 13 years ago

divanda

bagaimana sintax nya untuk menampilkan warning jika ada edit box dan button yang kalau edit box jika tidak diisi angka atau diisi huruf akan menampilkan error?? jadi misal edit box diisi hurup atau dikosongin kemudian tekan button maka akan muncul warning bahwa user harus memasukkan angka? mohon bantuannya...
user image
more 13 years ago

EVA-00

Kamu sudah pakai fungsi if belom atao fungsi case??? masa' ga' bisa sih...
user image
more 13 years ago

bagussb

kalo saya biasanya pake seperti ini :
try
  StrToFloat(Edit.Text);
except
  ShowMessage('Error, please input angka');
  Exit;
end;
ato coba batasin input editnya di KeyPress :
 if not (Key in ) then
    Key :=#0;
ato kalo pengen lebih gampang lagi.. pake MaskEdit aja... :mrgreen:
user image
more 13 years ago

vikraa

mudah2an ini bisa membantu :

procedure TForm1.Button1clikc(sender:TObject);
begin
 if Length(Trim(Edit1.Text))=0 then Showmessage('Anda Belum Input Angka / Huruf ');
end; 
user image
more 13 years ago

divanda

procedure TForm1.BitBtn2Click(Sender: TObject); var buttonSelected : Integer; x : Real; begin if Length(Trim(edAmount.Text))=0 then Showmessage('no input'); exit; // Show a confirmation dialog buttonSelected := MessageDlg('Payment Confirmation',mtConfirmation, mbOKCancel, 0); // Show the button type selected if buttonSelected = 1 then x:= StrToFloat(edAmount.Text); if (content) < x then ShowMessage ('Not enough money in your card. Please reload first or choose the prior category') else begin payment(x); Label1.Caption:=FloatToStr(content); if buttonSelected = 2 then ShowMessage('Payment Cancelled'); end; end; nah, kalo dari sintax diatas ketika kita tidak memasukkan input berupa angka maka akan muncul dialog 'no input' tapi setelah itu kan kembali ke form1 lagi, dan kemudian ketika kita memasukkan angka dan klik button nya kenapa tidak mengeksekusi sintax berikutnya?? mohon bantuannya... newbie in delphi..
user image
more 13 years ago

vikraa


procedure TForm1.BitBtn2Click(Sender: TObject);
var
  buttonSelected : Integer;
  x : Real;
begin
  if Length(Trim(edAmount.Text))=0 then Showmessage('no input');
 //exit; ini dihilangkan saja
 ...................................
 ....................................
end;
note: syntax exit; menyebabkan perintah setelah exit tidak dieksekusi
user image
more 13 years ago

divanda

oya.. ni ada 1 pertanyaan lagi.. bagaimana caranya input yang di editbox tidak bisa dirubah oleh user.. jadi begini input yang dimasukkan di edit box adalah hasil penjumlahan yang ketika button "jumlah" ditekan maka hasilnya nampak di edit box dan ga bisa dimanipulasi oleh user.. apakah ada ide? apakah dengan memakai mask edit ato ada property lain yang menyebabkan user tidak bisa memanipulasi angka..
user image
more 13 years ago

vikraa

di set true aja readonly object editboxnya, mungkin itu cara yang paling gampang
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com