sutils.pas

来自「本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过」· PAS 代码 · 共 37 行

{------------------------------------------------------------------------}
{
  STRUTILS.PAS - string utilities

  Copyright (C) 1998 by Jacques Nomssi Nzali
  For conditions of distribution and use, see copyright notice in readme.txt
}
{------------------------------------------------------------------------}

{$IFNDEF MSDOS}
  {$DEFINE SYSUTILS}
{$ENDIF}

Unit Sutils;

interface

type
  str11 = string[11];
  Function IntToStr(value : LongInt) : str11;
  { Convert any integer type to a string }


implementation

{------------------------------------------------------------------------}
Function IntToStr(value : LongInt) : str11;
{ Convert any integer type to a string }
var
  s : str11;
begin
  Str(value:0, s);
  IntToStr := S;
end;


end.