Arsip: format 4digit

 
user image
more 18 years ago

dinox

hai semua,beriva kareba ?(pa kabar, bahasa palu sulteng :)) mau nanya ada yang tau ga cara biar bisa nampilin format 4 digit misal angka 1 menjadi 0001 atau 10 jadi 0010 dari database seh biasa aja tapi plg ga bs nampilin di form trus mau digabung ama huruf misal A0001 thanks b4 :cry: (lagi sakit gigi)
user image
more 18 years ago

LuriDarmawan

ini ada cara susah:

function i2s0( pJmlDigit, pN: integer):string;
var
  lss                               : string;
  lii                               : word;
begin
  lss                               := inttostr( pN);
  if length( lss) < pJmldigit then
  begin
    for lii := 1 to (pJmlDigit - length( lss)) do
      lss                           := '0' + lss;
  end;
  result                            := lss;
end;
cara pake:
 
  ... 
  iAngkaYangMoDitampilin := 46;
  iJumlahDigit := 4;
  label9438373.caption := 'A' + i2s0( iJumlahDigit, iAngkaYangMoDitampilin);
  ...
coba ajah... siapa tahu ga bisa :D xixixiixixixi....
user image
more 18 years ago

deLogic

@Luri: itu cara yg susah, nah cara yg mudah gimana...?? :)
user image
more 18 years ago

LuriDarmawan

yang agak susah:

function inifungsi( i:integer):string;
var lsS:string;
begin
  lsS:=inttostr(i);
  result:=copy('0000000'+lsS,1+length(lsS), 7);
end;
cara pake? cukup demikian:

  Caption := inifungsi( 34);
user image
more 18 years ago

fafenail

Bisa juga dengan cara ini

procedure TForm1.btn1Click(Sender: TObject);
begin
   edt2.Text:='A'+FormatFloat('0000',StrToFloat(edt1.text));
end;
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  //Hanya memperbolehkan Angka 0-9 dan backspace
  if not (Key in )then
    Key :=#0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Maksimal yang dimasukan 4 digit
  edt1.MaxLength:=4;
end;
contoh diatas menggunakan simulasi 2 text edit dan 1 button
more ...
  • Pages:
  • 1
Share to

Random Topic

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