mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 19:39:17 +02:00
fixed TCustomPropertyStorage.WriteInteger (issue #1383)
git-svn-id: trunk@8039 -
This commit is contained in:
parent
704c675400
commit
f4dbf5df7b
@ -687,7 +687,7 @@ end;
|
|||||||
|
|
||||||
procedure TCustomPropertyStorage.WriteInteger(const Ident: string; Value: Longint);
|
procedure TCustomPropertyStorage.WriteInteger(const Ident: string; Value: Longint);
|
||||||
begin
|
begin
|
||||||
DoReadInteger(RootSection, Ident, Value);
|
DoWriteInteger(RootSection, Ident, Value);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCustomPropertyStorage.EraseSections;
|
procedure TCustomPropertyStorage.EraseSections;
|
||||||
|
Loading…
Reference in New Issue
Block a user