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

* Fixed two bugs reported by Florian:

Browse Source 
- TDOMText.SplitText didn't set the result value
  - Fixed TDOMNode_WithChildren.InsertBefore, which didn't link the new
    node correctly into the node list
This commit is contained in:
sg 2001-05-06 21:37:39 +00:00
parent 4fb34be618
commit 7ac6009969
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fcl/xml/dom.pp
View File

@ -769,7 +769,10 @@ begin
if RefChild = FFirstChild then
FFirstChild := NewChild
else
begin
RefChild.FPreviousSibling.FNextSibling := NewChild;
NewChild.FPreviousSibling := RefChild.FPreviousSibling;
end;
RefChild.FPreviousSibling := NewChild;
NewChild.FParentNode := Self;
@ -1378,16 +1381,14 @@ begin
end;
function TDOMText.SplitText(offset: LongWord): TDOMText;
var
nt: TDOMText;
begin
if offset > Length then
raise EDOMIndexSize.Create('Text.SplitText');
nt := TDOMText.Create(FOwnerDocument);
nt.FNodeValue := Copy(FNodeValue, offset + 1, Length);
Result := TDOMText.Create(FOwnerDocument);
Result.FNodeValue := Copy(FNodeValue, offset + 1, Length);
FNodeValue := Copy(FNodeValue, 1, offset);
FParentNode.InsertBefore(nt, FNextSibling);
FParentNode.InsertBefore(Result, FNextSibling);
end;
@ -1499,7 +1500,13 @@ end.
{
$Log$
Revision 1.6 2001-03-08 19:37:12 michael
Revision 1.7 2001-05-06 21:37:39 sg
* Fixed two bugs reported by Florian:
- TDOMText.SplitText didn't set the result value
- Fixed TDOMNode_WithChildren.InsertBefore, which didn't link the new
node correctly into the node list
Revision 1.6 2001/03/08 19:37:12 michael
+ Merged changes from fixbranch
Revision 1.5 2000/09/12 14:07:58 sg