GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

Added: ValidateValue method

Browse Source
This commit is contained in:
Mark van Renswoude 2004-09-26 13:59:43 +00:00
parent 2caa82fc4a
commit e19d798e51
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
X2UtSettings.pas
View File

@ -140,6 +140,11 @@ type
//:$ Deletes the specified value.
procedure DeleteValue(const AName: String); virtual; abstract;
//:$ Validates the specified value using the defined callback method
//:$ if present.
function ValidateValue(const AName: String; const AValue: Variant): Variant;
end;
{
@ -425,6 +430,18 @@ begin
end;
function TX2Settings.ValidateValue;
var
pDefine: TX2SettingsDefine;
begin
Result := AValue;
pDefine := FFactory.GetDefine(FSection, AName);
if Assigned(pDefine) then
pDefine.Action(saRead, FSection, AName, Result);
end;
{===================== TX2SettingsFactory
Defines
========================================}