ฟังชันนี้สามารถเติม 0 หน้าหรือหลังก็ได้ กำหนดความยาวข้อความได้ด้วย

[doramon]

ฟังชันนี้สามารถเติม 0  หน้าหรือหลังก็ได้   กำหนดความยาวข้อความได้ด้วย

st=insZero('9',1,4);


function InsZero(Str:string;Pos:integer;No:integer):string;
begin
  //
    while length(str)<No do
    begin
      insert('0',str,pos);
    end;
    result:=str;
end;