Arsip: validasi edit

 
user image
more 12 years ago

khumaedy

buat abang2 master delphi gimana sich validasi agar edit hanya dapat diisi oleh char saja atau anka saja mohon pencerahanyya :shock: :shock:
user image
more 12 years ago

wahyu_elrahma

search !!!! Click Before tou ask
user image
more 12 years ago

Jevox

hmm.... coba di Edit OnKeyPress: // ini untuk validasi Angka sama char if not (Key in ) then key :=#0; hope dis help
user image
more 12 years ago

khumaedy

kalau gabungan keduanya bgmana ex, 3char awal berupa huruf 3 char akhir berupa angka
user image
more 12 years ago

mas_kofa


procedure TfrmWriterAspect.edNoteKeyPress(Sender: TObject; var Key: Char);
var
  str: string;
begin
  inherited;
  str := edNote.Text;
  if length(str) in [0,1,2] then
  begin
    if not (upcase(Key) in )then key :=#0;
  end
  else if length(str) in [3,4,5] then
  begin
    if not (upcase(Key) in )then key :=#0;
  end else Key :=#13;
end;
Berjalan dgn Baik Di Kompi ku.....
user image
more 12 years ago

khumaedy

Thanks mas kofa, semoga gak bosan dengan pertanyaan sederhana saya :D :D
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com