Selasa, 12 Agustus 2008

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;

Tidak ada komentar: