paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 01:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: property storage, initialize storage before reading and writing integers and booleans, like has been done for strings in r18793 and r19196 #e9adbdad62 (issue #14115)

Browse Source 
git-svn-id: trunk@21127 -
This commit is contained in:
vincents 2009-08-07 08:32:45 +00:00
parent f075b648e1
commit 552c41ac04
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/propertystorage.pas
View File

@ -700,12 +700,17 @@ end;
function TCustomPropertyStorage.ReadInteger(const Ident: string; DefaultValue: Longint): Longint;
begin
StorageNeeded(True);
try
Result := DoReadInteger(RootSection, Ident, DefaultValue);
finally
FreeStorage;
end;
end;
function TCustomPropertyStorage.ReadBoolean(const Ident: string; DefaultValue: Boolean): Boolean;
begin
Result := DoReadInteger(RootSection, Ident, Ord(DefaultValue)) <> Ord(False);
Result := ReadInteger(Ident, Ord(DefaultValue)) <> Ord(False);
end;
procedure TCustomPropertyStorage.ReadRect(const Ident: string;
@ -746,12 +751,17 @@ end;
procedure TCustomPropertyStorage.WriteInteger(const Ident: string; Value: Longint);
begin
DoWriteInteger(RootSection, Ident, Value);
StorageNeeded(False);
try
DoWriteInteger(RootSection, Ident, Value);
finally
FreeStorage;
end;
end;
procedure TCustomPropertyStorage.WriteBoolean(const Ident: string; Value: Boolean);
begin
DoWriteInteger(RootSection, Ident, Ord(Value));
WriteInteger(Ident, Ord(Value));
end;
procedure TCustomPropertyStorage.WriteRect(const Ident: string;
@ -775,7 +785,12 @@ end;
procedure TCustomPropertyStorage.EraseSections;
begin
DoEraseSections(RootSection);
StorageNeeded(False);
try
DoEraseSections(RootSection);
finally
FreeStorage;
end;
end;
procedure TCustomPropertyStorage.SetStoredValues(Value: TStoredValues);