Cek Angka
Fungsi validasi untuk menge-cek apakah karakter berupa angka atau bukan.
Ini merupakan alternatif lain dari cara sebelumnya, yaitu: Cek Input Berupa Angka.
Deklarasi fungsi:
Deklarasi fungsi:
function cekAngka(const inp: string): Boolean;
var
v: PChar;
begin
Result:= False;
v:= PChar(inp);
while v^ <> #0 do
begin
if not (v^ in ['0'..'9']) then Exit;
Inc(v);
end;
Result := True;
end;
var
v: PChar;
begin
Result:= False;
v:= PChar(inp);
while v^ <> #0 do
begin
if not (v^ in ['0'..'9']) then Exit;
Inc(v);
end;
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Trim(Edit1.Text) = '' then Exit;
CheckBox1.Checked:= CekAngka(Edit1.Text);
end;
begin
if Trim(Edit1.Text) = '' then Exit;
CheckBox1.Checked:= CekAngka(Edit1.Text);
end;
Sample Output
Tidak ada komentar:
Posting Komentar