Unit Util

Classes

Functions

BlankStr - **************************************************************************** -- function StrOfChar Ritorna una stringa composta di N blank.
Delay - **************************************************************************** -- Procedure Delay Restituisce il controllo al chiamante dopo il tempo specificato.
ForceMinimizeBorderIcon - **************************************************************************** -- Procedure ForceMinimizeBorderIcon Forza la presenza del Minimize Cmd anche sui Form che non lo prevedono (dialoghi).
HideTitleBar - **************************************************************************** -- Procedure HideTitleBar Rimuove da un form la TitleBar che comprende il System Menu, il Minimize Cmd e la Caption.
ParseStr - **************************************************************************** -- function ParseStr Esegue il parsing di una stringa.
ParseStrAndTrim - **************************************************************************** -- function ParseStrAndTrim Esegue il parsing di una stringa e quindi esegue la Trim sul residuo.
RunningAsInherited - ***************************************************************************}
StrOfChar - **************************************************************************** -- function StrOfChar Ritorna una stringa composta di N caratteri C.
TrimmedParseStr - **************************************************************************** -- function TrimmedParseStr Esegue il parsing di una stringa ed esegue la Trim sul risultato.
WindowsInfoFlags - **************************************************************************** -- Function WindowsInfoFlags Ritorna informazioni relative al tipo ed alla versione di Windows.

Types

TWindowsInfoFlags
TWindowsInfoFlagsEnum

Constants

BitInByte
BitInCardinal
BitInInteger
BitInLongInt
BitInShortInt
BitInSmallInt
BitInWord
EInternalFmt
MaxByte
MaxCardinal
MaxInteger
MaxLongint
MaxShortInt
MaxSmallInt
MaxWord
mSecinSec

Variables


Functions


function BlankStr(const N: Integer): string;

**************************************************************************** -- function StrOfChar Ritorna una stringa composta di N blank.

procedure Delay(const Interval: Longint);

**************************************************************************** -- Procedure Delay Restituisce il controllo al chiamante dopo il tempo specificato. -- Parametri: Interval: in Longint Ritardo richiesto in millisecondi.

procedure ForceMinimizeBorderIcon(Form: TForm);

**************************************************************************** -- Procedure ForceMinimizeBorderIcon Forza la presenza del Minimize Cmd anche sui Form che non lo prevedono (dialoghi). -- Parametri: Form: in TForm Il form su cui agire.

procedure HideTitleBar(Form: TForm);

**************************************************************************** -- Procedure HideTitleBar Rimuove da un form la TitleBar che comprende il System Menu, il Minimize Cmd e la Caption. -- Parametri: Form: in TForm Il form su cui agire.

function ParseStr(var ParseBuffer: string; const TargetKey: Char): string;

**************************************************************************** -- function ParseStr Esegue il parsing di una stringa. -- Parametri: ParseBuffer: in out string Buffer con la striga su cui eseguire il parse all'ingresso e stringa residua all'uscita. TargetKey: in Char Carattere di separazione dei token. Result: out string Token risultato del parsing. ParseBuffer è assunto avere il formato [Head][[TargetKey][Tail]]. Head viene ritornato in Result e Tail in ParseBuffer. Se TargetKey è assente per Tail si assume ''.

function ParseStrAndTrim(var ParseBuffer: string; const TargetKey: Char): string;

**************************************************************************** -- function ParseStrAndTrim Esegue il parsing di una stringa e quindi esegue la Trim sul residuo. -- Parametri: ParseBuffer: in out string Buffer con la striga su cui eseguire il parse all'ingresso e stringa residua all'uscita. TargetKey: in Char Carattere di separazione dei token. Result: out string Token risultato del parsing. ParseBuffer è assunto avere il formato [Head][[TargetKey][Tail]]. Head viene ritornato in Result e Tail in ParseBuffer. Se TargetKey è assente per Tail si assume ''. Su Tail viene esguita la Trim.

function RunningAsInherited(const Instance: TObject; const StaticClass: TClass): Boolean;

***************************************************************************}

function StrOfChar(const C: Char; const N: Integer): string;

**************************************************************************** -- function StrOfChar Ritorna una stringa composta di N caratteri C.

function TrimmedParseStr(var ParseBuffer: string; const TargetKey: Char): string;

**************************************************************************** -- function TrimmedParseStr Esegue il parsing di una stringa ed esegue la Trim sul risultato. -- Parametri: ParseBuffer: in out string Buffer con la striga su cui eseguire il parse all'ingresso e stringa residua all'uscita. TargetKey: in Char Carattere di separazione dei token. Result: out string Token risultato del parsing. ParseBuffer è assunto avere il formato [Head][[TargetKey][Tail]]. Head viene ritornato in Result e Tail in ParseBuffer. Se TargetKey è assente per Tail si assume ''. Su Result viene esguita la Trim.

function WindowsInfoFlags: TWindowsInfoFlags;

**************************************************************************** -- Function WindowsInfoFlags Ritorna informazioni relative al tipo ed alla versione di Windows. -- Parametri: Result: out TWindowsInfoFlags

Types


TWindowsInfoFlags = set of TWindowsInfoFlagsEnum

TWindowsInfoFlagsEnum = (wif3x,wif95,wif98,wifNT,wif16,wif32,wifStyle3x,wifStyleNew);
Formato per la presentazione della exception EInternal

Constants

BitInByte = 8

BitInCardinal = 31

BitInInteger = 32

BitInLongInt = 32

BitInShortInt = 8

BitInSmallInt = 16

BitInWord = 16

EInternalFmt = '%s - %d'

MaxByte = 255

MaxCardinal = MaxInt

MaxInteger = MaxInt

MaxLongint = MaxInt

MaxShortInt = 127

**************************************************************************** Nome: Util Scopo: Costanti, tipi e procedure di utilità generale. Generalità:Util contiene costanti, tipi e procedure di utilità generale di complessità non sufficiente a giustificare una unit dedicata. Autore: Ing. M. Venturini Revisore: Data: 11 Mar. 96 Revisioni: 22 Dec. 1997: porting a 32 bit.

MaxSmallInt = 32767

MaxWord = 65535

mSecinSec = 1000


Variables