Arsip: format 4digit
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)
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....
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);
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 buttonmore ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- (ASK) Ngambil HTTP Response tanpa tunggu
by fcomputer in Network, Files, I/O & System more 12 years ago - sendkey
by ahariono in Tip n Trik Pemrograman more 16 years ago - saving state combobox
by old_shutterhand in Tip n Trik Pemrograman more 16 years ago - Menghitung nominal tiap beberapa menit (like billing)
by kaito_kid in Bedah Kasus more 13 years ago - Membuat Tulisan Di QRLabel/QRMemo Rata Kiri-Kanan ?
by umarbakri in Reporting more 16 years ago - Source code document generator
by cikumiyu in Hal umum tentang Pascal Indonesia more 16 years ago - Create menu Item di Delphi IDE [problem: cannot dropdown..]
by wongdee2t in Enginering more 18 years ago - Cara buat file log
by em052007 in Tip n Trik Pemrograman more 16 years ago - Cara generate isi table ke script
by Random in MsSQL more 16 years ago - Download
by alisahasan in MsSQL more 17 years ago