153 lines
4.4 KiB
ObjectPascal
153 lines
4.4 KiB
ObjectPascal
{
|
|
:: X2UtConfigRanges provides various definition observers to ensure
|
|
:: a value is within the specified range. To enforce a range on a defined
|
|
:: value, call:
|
|
::
|
|
:: IX2ConfigSource.Register(...).Attach(<RangeClass>.Create(...))
|
|
::
|
|
:: Last changed: $Date$
|
|
:: Revision: $Rev$
|
|
:: Author: $Author$
|
|
}
|
|
unit X2UtConfigRanges;
|
|
|
|
interface
|
|
uses
|
|
X2UtConfig;
|
|
|
|
type
|
|
TX2BaseConfigRange = class(TInterfacedObject, IX2ConfigDefinitionObserver)
|
|
protected
|
|
// IX2ConfigDefinitionObserver
|
|
procedure Read(const AConfig, AName: String; var AValue: Variant); virtual;
|
|
procedure Write(const AConfig, AName: String; var AValue: Variant); virtual;
|
|
|
|
procedure CheckRange(var AValue: Variant); virtual; abstract;
|
|
end;
|
|
|
|
TX2ConfigStringPosition = (spLeft, spRight);
|
|
TX2ConfigStringLengthRange = class(TX2BaseConfigRange)
|
|
private
|
|
FCutOffPosition: TX2ConfigStringPosition;
|
|
FFillChar: Char;
|
|
FFillPosition: TX2ConfigStringPosition;
|
|
FMinLength: Integer;
|
|
FMaxLength: Integer;
|
|
protected
|
|
procedure CheckRange(var AValue: Variant);
|
|
public
|
|
constructor Create(const AMinLength: Integer = 0;
|
|
const AMaxLength: Integer = 0;
|
|
const AFillChar: Char = #20;
|
|
const AFillPosition: TX2ConfigStringPosition = spRight;
|
|
const ACutOffPosition: TX2ConfigStringPosition = spRight);
|
|
end;
|
|
|
|
TX2ConfigIntegerRange = class(TX2BaseConfigRange)
|
|
private
|
|
FDefault: Integer;
|
|
FMax: Integer;
|
|
FMin: Integer;
|
|
protected
|
|
procedure CheckRange(var AValue: Variant);
|
|
public
|
|
constructor Create(const AMin: Integer = Low(Integer);
|
|
const AMax: Integer = High(Integer);
|
|
const ADefault: Integer = 0);
|
|
end;
|
|
|
|
implementation
|
|
uses
|
|
Variants,
|
|
|
|
X2UtMisc;
|
|
|
|
|
|
{========================================
|
|
TX2BaseConfigRange
|
|
========================================}
|
|
procedure TX2BaseConfigRange.Read(const AConfig, AName: String;
|
|
var AValue: Variant);
|
|
begin
|
|
CheckRange(AValue);
|
|
end;
|
|
|
|
procedure TX2BaseConfigRange.Write(const AConfig, AName: String;
|
|
var AValue: Variant);
|
|
begin
|
|
CheckRange(AValue);
|
|
end;
|
|
|
|
|
|
{========================================
|
|
TX2ConfigStringRange
|
|
========================================}
|
|
constructor TX2ConfigStringLengthRange.Create(const AMinLength,
|
|
AMaxLength: Integer;
|
|
const AFillChar: Char;
|
|
const AFillPosition: TX2ConfigStringPosition;
|
|
const ACutOffPosition: TX2ConfigStringPosition);
|
|
begin
|
|
inherited Create();
|
|
|
|
Assert((AMaxLength = 0) or
|
|
(AMaxLength >= AMinLength),
|
|
'MaxLength must be 0, equal to or larger than MinLength!');
|
|
|
|
FMinLength := AMinLength;
|
|
FMaxLength := AMaxLength;
|
|
FFillChar := AFillChar;
|
|
FFillPosition := AFillPosition;
|
|
FCutOffPosition := ACutOffPosition;
|
|
end;
|
|
|
|
procedure TX2ConfigStringLengthRange.CheckRange(var AValue: Variant);
|
|
var
|
|
sFill: String;
|
|
sValue: String;
|
|
|
|
begin
|
|
if VarIsType(AValue, varString) then
|
|
begin
|
|
sValue := AValue;
|
|
if Length(sValue) < FMinLength then
|
|
begin
|
|
sFill := StringOfChar(FFillChar, FMinLength - Length(sValue));
|
|
|
|
case FFillPosition of
|
|
spLeft: sValue := sFill + sValue;
|
|
spRight: sValue := sValue + sFill;
|
|
end;
|
|
end;
|
|
|
|
if (FMaxLength > 0) and (Length(sValue) > FMaxLength) then
|
|
case FCutOffPosition of
|
|
spLeft: Delete(sValue, 1, Length(sValue) - FMaxLength);
|
|
spRight: SetLength(sValue, FMaxLength);
|
|
end;
|
|
|
|
AValue := sValue;
|
|
end else
|
|
AValue := StringOfChar(FFillChar, FMinLength);
|
|
end;
|
|
|
|
|
|
{========================================
|
|
TX2ConfigIntegerRange
|
|
========================================}
|
|
constructor TX2ConfigIntegerRange.Create(const AMin, AMax, ADefault: Integer);
|
|
begin
|
|
inherited Create();
|
|
|
|
FMin := AMin;
|
|
FMax := AMax;
|
|
FDefault := ADefault;
|
|
end;
|
|
|
|
procedure TX2ConfigIntegerRange.CheckRange(var AValue: Variant);
|
|
begin
|
|
AValue := InRange(AValue, FMin, FMax, FDefault);
|
|
end;
|
|
|
|
end.
|