paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 16:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed access violation reported on Mailing list

Browse Source 
git-svn-id: trunk@18793 -
This commit is contained in:
michael 2009-02-22 14:48:27 +00:00
parent 61219c304d
commit 3355d5624b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/propertystorage.pas
View File

@ -680,11 +680,13 @@ end;
function TCustomPropertyStorage.ReadString(const Ident, DefaultValue: string): string; function TCustomPropertyStorage.ReadString(const Ident, DefaultValue: string): string;
begin begin
StorageNeeded(True);
Result := DoReadString(RootSection, Ident, DefaultValue); Result := DoReadString(RootSection, Ident, DefaultValue);
end; end;
procedure TCustomPropertyStorage.WriteString(const Ident, Value: string); procedure TCustomPropertyStorage.WriteString(const Ident, Value: string);
begin begin
StorageNeeded(False);
DoWriteString(RootSection, Ident, Value); DoWriteString(RootSection, Ident, Value);
end; end;