strutils.pas

详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...一个酒店管理系统VB+Access [学生学籍管理系统(VB+Acess).zip] - !这个是刚刚编的毕业设计,可能

{------------------------------------------------------------------------}
{
  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 StrUtils;

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.