MENAMBAH ANGKA DIDEPAN ANGKA

Ini adalah source DELPHI yang dapat menambah angka ‘0’ di depan angka biasa. Sourcenya adalah sebagai berikut:

function Tambahnol(const Source: string; Len: Integer): string;

var

i: Integer;

begin

Result := Source;

for i := 1 to (Len-Length(Source)) do

Result := '0' + Result;

end;

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest

Arman Efendi

Artikel Terkait