InputBox dan InputQuery

Jika kemarin mengenal messagedialog dan messagebox sekarang bagian Inputbox dan InputQuery.ane satuin aja,soalnya bahasannya pendek gan.
langsung aja gan kita testing. buat form aja yang standar dengan penampakan seperti ini gan:
ada 3 button dan 1 label


menurut delphi.about.com
deklarasi fungsi inputbox tu kaya gini :
function InputBox(const ACaption, APrompt, ADefault: string): string;
sedangkan deklarasi fungsi inputQuery kaya gini gan :
function InputQuery(const ACaption, APrompt; var Value: string): boolean;
ada boolean dan ada string.
supaya tidak bingung kita coba kodingkan dalam 3 buah button yang sudah disiapkan gan:
sebelumnya beri event pada form show seperti ini gan:

procedure TForm1.FormShow(Sender: TObject);
begin
form1.Caption:='inputbox dan inputquery';
label1.Caption:='';
end;

button pertama kita beri listing seperti ini gan:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=inputbox('masukan nama anda','input here',s);
showmessage('nama anda adalah '+s);
form1.Caption:='selamat datang '+s;
end;

coba dicoba gan:
kemudian button kedua listing nya seperti ini gan:

procedure TForm1.Button2Click(Sender: TObject);
var
  nama:string;
  s:boolean;
begin
nama:='nama kamu';
s:=inputquery('Masukan lagi nama anda','again beybeh',nama);
if s then
  showmessage('nama anda adalah '+nama)
else
  showmessage('ko gak diisi men???');
end;

semoga bisa menemukan perbedaanya gan.
setelah paham,untuk button ketiga kodingin buat mengecek bilangan gan
seperti ini gan:

procedure TForm1.Button3Click(Sender: TObject);
var
  angka:string;
  cek:boolean;
begin
cek:=inputquery('testing gan','Masukan angka dari 1..100000',angka);
label1.Font.Style:=[fsBold];
try
 if (cek)and(strtofloat(angka) >= 1)and(strtofloat(angka) < 10) then
  label1.Caption:=angka+' merupakan bilangan satuan'
 else if (cek)and(strtofloat(angka) >= 10)and(strtofloat(angka) < 100) then
  label1.Caption:=angka+' merupakan bilangan puluhan'
 else if (cek)and(strtofloat(angka) >= 100)and(strtofloat(angka) < 1000) then
  label1.Caption:=angka+' merupakan bilangan ratusan'
 else if (cek)and(strtofloat(angka) >= 1000)and(strtofloat(angka) < 10000) then
  label1.Caption:=angka+' merupakan bilangan ribuan'
 else if (cek)and(strtofloat(angka) >= 10000)and(strtofloat(angka) < 100000) then
  label1.Caption:=angka+' merupakan bilangan puluh ribuan'
 else if (cek)and(strtofloat(angka) >= 100000)and(strtofloat(angka) < 1000000) then
  label1.Caption:=angka+' merupakan bilangan ratus ribuan'
 else if cek = false then
  showmessage('udah ah gan');
except
  label1.Caption:='jangan ngaco';
end;
end;

semoga bermanfaat gan

Posted in: Delphi