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.
TWindowsInfoFlags
TWindowsInfoFlagsEnum
BitInByte
BitInCardinal
BitInInteger
BitInLongInt
BitInShortInt
BitInSmallInt
BitInWord
EInternalFmt
MaxByte
MaxCardinal
MaxInteger
MaxLongint
MaxShortInt
MaxSmallInt
MaxWord
mSecinSec
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
TWindowsInfoFlags = set of TWindowsInfoFlagsEnum
TWindowsInfoFlagsEnum = (wif3x,wif95,wif98,wifNT,wif16,wif32,wifStyle3x,wifStyleNew);
Formato per la presentazione della exception EInternal
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