MENAMBAH ANGKA DIDEPAN ANGKA

19.32

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;

Artikel Terkait

Previous
Next Post »