paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 23:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: repair TCustomPropertyStorage StorageNeeded balance with FreeStorage (fixes bug #0013239)

Browse Source 
git-svn-id: trunk@19196 -
This commit is contained in:
paul 2009-04-01 22:26:56 +00:00
parent da507228d2
commit e9adbdad62
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/propertystorage.pas
View File

@ -681,13 +681,21 @@ end;
function TCustomPropertyStorage.ReadString(const Ident, DefaultValue: string): string; function TCustomPropertyStorage.ReadString(const Ident, DefaultValue: string): string;
begin begin
StorageNeeded(True); StorageNeeded(True);
Result := DoReadString(RootSection, Ident, DefaultValue); try
Result := DoReadString(RootSection, Ident, DefaultValue);
finally
FreeStorage;
end;
end; end;
procedure TCustomPropertyStorage.WriteString(const Ident, Value: string); procedure TCustomPropertyStorage.WriteString(const Ident, Value: string);
begin begin
StorageNeeded(False); StorageNeeded(False);
DoWriteString(RootSection, Ident, Value); try
DoWriteString(RootSection, Ident, Value);
finally
FreeStorage;
end;
end; end;
function TCustomPropertyStorage.ReadInteger(const Ident: string; DefaultValue: Longint): Longint; function TCustomPropertyStorage.ReadInteger(const Ident: string; DefaultValue: Longint): Longint;