View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0001352JEDI VCL00 JVCL Componentspublic2004-02-21 13:552004-03-09 02:47
ReporteranonymousAssigned Touser72 
PrioritynormalSeveritymajorReproducibilityalways
Status closedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001352: JvFormStorage.ReadString - No default result
DescriptionThe JvFormStorage.ReadString don't set the default value if the registry key is empty.

E.g.:

Caption:=JvFormStorage.ReadString('Title','Unnamed')

Where the Title key is empty.

CAPTION --> ''
Additional InformationThe solution I adopted:

File JvFormPlacement.pas

FIRST
function TJvFormPlacement.ReadString(const Ident, Default: string): string;
begin
  if Assigned(AppStorage) then
    Result := AppStorage.ReadString(AppStorage.ConcatPaths([Ident]), Default)
  else
    Result := '';
end;


AFTER
function TJvFormPlacement.ReadString(const Ident, Default: string): string;
begin
  if Assigned(AppStorage) then
    Result := AppStorage.ReadString(AppStorage.ConcatPaths([Ident]), Default)
  else
    Result := Default;
end;
TagsNo tags attached.

Activities

user72

2004-02-22 04:33

  ~0002995

Resolved in CVS. Thank you

Issue History

Date Modified Username Field Change
2004-02-21 13:55 anonymous New Issue
2004-02-22 04:31 user72 Status new => assigned
2004-02-22 04:31 user72 Assigned To => user72
2004-02-22 04:33 user72 Status assigned => resolved
2004-02-22 04:33 user72 Resolution open => fixed
2004-02-22 04:33 user72 Note Added: 0002995
2004-03-09 02:47 user72 Status resolved => closed