Function Untuk Menambahkan Karakter ‘0’( Nol) di depan Angka

Biasanya , ketika kita bikin aplikasi database kita akan banyak berurusan dengan data No Bukti. Pada umumnya, data no bukti ini mempunyai pola tertentu, misalnya :

PO/10/0000001 : No Bukti Purchase Order, tahun 2010, no Urut 1
GR/10/0000101 : No Bukti Goods Receiving, tahun 2010, no Urut 101.


PO/10/0000001 : No Bukti Purchase Order, tahun 2010, no Urut 1
GR/10/0000101 : No Bukti Goods Receiving, tahun 2010, no Urut 101.



Dengan pola seperti itu, wajib bagi kita untuk menambahkan karakter 0 sebelum no urut. Pada artikel ini saya akan mencoba memberikan dua contoh function yang bisa melakukan hal di atas.


1. Cara Sendiri

function TambahkanKarakterNol(Const AAngka, 
ALength : Integer) : String;
begin
Result := IntToStr(AAngka);
while length(Result) < ALength do Result := '0' + Result;
end;

2. Caranya Delphi : )

function TambahkanKarakterNol(AAngka, ALength : Integer): string;
begin
Result := SysUtils.Format('%.*d',[ALength, AAngka]);
end;