paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

rstconv: fixed memory leak

Browse Source 
git-svn-id: trunk@26484 -
This commit is contained in:
paul 2014-01-17 02:15:35 +00:00
parent 34cf432600
commit 13a0b21031
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
utils/rstconv.pp
View File

@ -121,7 +121,7 @@ procedure ReadRSJFile;
var
Stream: TFileStream;
Parser: TJSONParser;
JsonData: TJSONData;
JsonData, JsonItems: TJSONData;
JsonItem: TJSONObject;
S: String;
item: TConstItem;
@ -130,16 +130,21 @@ begin
Stream := TFileStream.Create(InFilename, fmOpenRead or fmShareDenyNone);
Parser := TJSONParser.Create(Stream);
try
JsonData := Parser.Parse.GetPath('strings');
for I := 0 to JsonData.Count - 1 do
begin
item := TConstItem(ConstItems.Add);
JsonItem := JsonData.Items[I] as TJSONObject;
S := JsonItem.Get('name');
DotPos := Pos('.', s);
item.ModuleName := Copy(s, 1, DotPos - 1);
item.ConstName := Copy(s, DotPos + 1, Length(S) - DotPos);
item.Value := JsonItem.Get('value');
JsonData := Parser.Parse;
try
JsonItems := JsonData.GetPath('strings');
for I := 0 to JsonItems.Count - 1 do
begin
item := TConstItem(ConstItems.Add);
JsonItem := JsonItems.Items[I] as TJSONObject;
S := JsonItem.Get('name');
DotPos := Pos('.', s);
item.ModuleName := Copy(s, 1, DotPos - 1);
item.ConstName := Copy(s, DotPos + 1, Length(S) - DotPos);
item.Value := JsonItem.Get('value');
end;
finally
JsonData.Free;
end;
finally
Parser.Free;