Shareware Grab Bag/Shareware Grab Bag.iso/007/boostrs.arc/LEFT.PAS

Pascal/Delphi Source File | 1980-01-01 | 896 b | 37 lines

{ --------------------------------
  LEFT justify a string in a field
  -------------------------------- }
Function LEFT ( S : AnyString;
                N : Integer;
                Pad : Char ) : AnyString;
                { AnyString is Type string[255] }
begin
   Inline ( $1E/
            $8D/$76/$09/
            $8D/$9E/$08/$01/
            $8B/$46/$06/
            $36/$88/$07/
            $43/
            $8A/$4E/$08/
            $30/$ED/
            $29/$C8/
            $77/$05/
            $31/$C0/
            $EB/$0F/$90/
            $8B/$FB/
            $01/$CF/
            $8B/$C8/
            $8B/$46/$04/
            $16/
            $07/
            $FC/
            $F3/$AA/
            $8B/$FB/
            $16/
            $1F/
            $8A/$4E/$08/
            $30/$ED/
            $FC/
            $F3/$A4/
            $1F );
end;