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...

Kamu sudah pakai fungsi if belom atao fungsi case??? masa' ga' bisa sih...

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:

mudah2an ini bisa membantu :

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

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..

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

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..

di set true aja readonly object editboxnya, mungkin itu cara yang paling gampang