paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 11:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix TSAXAttributes copying.

Browse Source
This commit is contained in:
Yuri Serebrennikov 2025-04-30 01:35:51 +03:00 committed by Yuri Silver
parent 4e1c9aa1df
commit 34ca0cca57
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-xml/src/sax.pp
View File

@ -454,22 +454,16 @@ var
begin
for i := 0 to FData.Count - 1 do
Dispose(PSAXAttributeData(FData[i]));
FData.Clear;
end;
procedure TSAXAttributes.SetAttributes(Atts: TSAXAttributes);
var
i: Integer;
begin
FData.Count := Atts.Length;
for i := 0 to FData.Count - 1 do
with Data[i]^ do
begin
URI := Atts.URIs[i];
LocalName := Atts.LocalNames[i];
QName := Atts.QNames[i];
AttrType := Atts.Types[i];
Value := Atts.Values[i];
end;
Clear;
for i := 0 to Atts.Length - 1 do
AddAttribute(Atts.URIs[i], Atts.LocalNames[i], Atts.QNames[i], Atts.Types[i], Atts.Values[i]);
end;
procedure TSAXAttributes.AddAttribute(const AURI, ALocalName, AQName: SAXString;