unit sysutils

Various system utilities

author: Tomasz Biela (Tebe)


http://www.freepascal.org/docs-html/rtl/sysutils/index-5.html

Constants:

name:value:description:
faReadOnly$01
faHidden$02
faSysFile$04
faVolumeID$08
faDirectory$10
faArchive$20
faAnyFile$3f

Types:

name:type:description:
TSearchRecrecord
  • Attr: Byte;
  • Name: TString;
  • FindHandle: Pointer;

end;

Interface:

name:description:
AnsiUpperCase

function AnsiUpperCase(const a: string): string;


Return an uppercase version of a string
    parameters:
  • const a: string[255]
    • returns:
  • string[255]
Beep

procedure Beep;


Sound the system bell
    Click

    procedure Click ; assembler;


    Sound the system click
      DeleteFile

      function DeleteFile(var FileName: TString): Boolean; assembler;


      Delete a file from the filesystem
        parameters:
      • var FileName: string[32]
        • returns:
      • TRUE - the file was successfully removed
      • FALSE - I/O error
      ExtractFileExt

      function ExtractFileExt(const a: string): TString;


      Return the extension from a filename
        parameters:
      • const a: string[255]
        • returns:
      • string[32]
      ExtractFilePath

      function ExtractFilePath(const a: string): string;


      Extract the path from a filename
        parameters:
      • const a: string[255]
        • returns:
      • string[255]
      FileExists

      function FileExists(name: TString): Boolean;


      Check whether a particular file exists in the filesystem
        parameters:
      • name: string[32]
        • returns:
      • TRUE - file exists
      • FALSE - file not exists
      FindClose

      procedure FindClose(var f: TSearchRec); assembler;


      Close a find handle
        parameters:
      • var f: TSearchRec
      FindFirst

      function FindFirst (const FileMask: TString; Attributes: Byte; var SearchResult: TSearchRec): byte;


      Start a file search and return a findhandle
        parameters:
      • FileMask: string[32]
      • Attributes: Byte
      • SearchResult: TSearchRec
        • returns:
      • =0 file matching the specified criteria is found
      FindNext

      function FindNext(var f: TSearchRec): byte; assembler;


      Find the next entry in a findhandle
        parameters:
      • var f: TSearchRec
        • returns:
      • =0 record matching the criteria, successful
      GetTickCount

      function GetTickCount: cardinal; assembler;


      Get tick count
        returns:
      • 32bit tick count
      IntToHex

      function IntToHex(Value: cardinal; Digits: byte): TString; register; assembler;


      Convert an integer value to a hexadecimal string
        parameters:
      • Value: cardinal (32bit)
      • Digits - number of characters
        • returns:
      • string[32]
      IntToStr

      function IntToStr(a: integer): ^string; assembler;


      Convert an integer value to a decimal string
        parameters:
      • a: integer
        • returns:
      • pointer to string
      RenameFile

      function RenameFile(var OldName,NewName: TString): Boolean; assembler;


      Renames a file from OldName to NewName
        parameters:
      • var OldName: string[32]
      • var NewName: string[32]
        • returns:
      • TRUE - successful
      • FALSE - I/O error
      StrToFloat

      function StrToFloat(var s: TString): real;


      Convert a string to a floating-point value
        parameters:
      • var s: string[32]
        • returns:
      • real (Q24.8)
      StrToInt

      function StrToInt(const s: char): byte; assembler; overload;


      Convert a char to an byte value
        parameters:
      • s: char
        • returns:
      • byte
      StrToInt

      function StrToInt(const s: TString): integer; assembler; overload;


      Convert a string to an integer value
        parameters:
      • s: string[32]
        • returns:
      • integer (32bit)

      This documentation was generated using PasDoc.