TDataValue = record
    Value: string;
    function AsString: string;
    function AsInteger(DefVal: Integer = 0): Integer;
    function AsFloat(DefVal: Double = 0.0): Double;
    function AsDateTime(DefVal: TDateTime = 0.0): TDateTime;
    function AsDate(DefVal: TDateTime = 0.0): TDateTime;
    function AsTime(DefVal: TDateTime = 0.0): TDateTime;
    function AsBoolean(DefVal: Boolean = False): Boolean;
  end;

function TDataValue.AsBoolean(DefVal: Boolean): Boolean;
begin
  if Value = '' then
    Result := DefVal
  else
    Result := Value = '1';
end;

function TDataValue.AsDate(DefVal: TDateTime): TDateTime;
begin
  Result := StrToDateDef(Value, DefVal, SafeIniFormatSettings);
end;

function TDataValue.AsDateTime(DefVal: TDateTime): TDateTime;
begin
  Result := StrToDateTimeDef(Value, DefVal, SafeIniFormatSettings);
end;

function TDataValue.AsFloat(DefVal: Double): Double;
begin
  Result := StrToFloatDefEx(Value, DefVal);
end;

function TDataValue.AsInteger(DefVal: Integer): Integer;
begin
  Result := StrToIntDef(Value, DefVal)
end;

function TDataValue.AsString: string;
begin
  Result := Value;
end;

function TDataValue.AsTime(DefVal: TDateTime): TDateTime;
begin
  Result := StrToTimeDef(Value, DefVal, SafeIniFormatSettings);
end;