unit StrFmt;
interface

function SLongInt (L: longint)                          :string;
function SFLongInt(L: longint; Siz: integer)            :string;
function SReal    (R: real)                             :string;
function SFReal   (R: real; Siz: integer)               :string;
function SFDReal  (R: real; Siz: integer; Dec: integer) :string;

implementation

function SLongInt;
var
  RStr : ^string;
begin
  asm
    mov  sp,bp
    push ss
    push word ptr [bp+0ah]
  end;
  str(L, RStr^);
end;

function SFLongInt;
var
  RStr : ^string;
begin
  asm
    mov  sp,bp
    push ss
    push word ptr [bp+0ch]
  end;
  str(L:Siz, RStr^);
end;

function SReal;
var
  RStr : ^string;
begin
  asm
    mov  sp,bp
    push ss
    push word ptr [bp+0ch]
  end;
  str(R, RStr^);
end;

function SFReal;
var
  RStr : ^string;
begin
  asm
    mov  sp,bp
    push ss
    push word ptr [bp+0eh]
  end;
  str(R:Siz, RStr^);
end;

function SFDReal;
var
  RStr : ^string;
begin
  asm
    mov  sp,bp
    push ss
    push word ptr [bp+10h]
  end;
  str(R:Siz:Dec, RStr^);
end;

end.