TOPIC:

procedure TfrNet.Button2Click(Sender: TObject);
var
  i:Integer;
  xml:TXMLDocument;
  dnl:TDomNodeList;
  nowNode:TDomNode;
begin
  if CheckListBox1.ItemIndex<0 then
  showmessage('No data to delete.') else
  begin
  try
    ReadXMLFile(xml,'Config.xml');
    dnl:=xml.GetElementsByTagName('AppTimes');
    if dnl.Count>0 then
    for i:=0 to dnl.Count-1 do
      begin
        if TDomElement(dnl.FirstChild).TextContent=CheckListBox1.Items[CheckListBox1.ItemIndex] then
        begin
          nowNode:=dnl;
          nowNode.parentNode.RemoveChild(nowNode);
          CheckListBox1.Items.Delete(CheckListBox1.ItemIndex);
        WriteXMLFile(xml,'Config.xml');
        end;
      end;
    finally
      xml.Free;
    end;
  end;
end;                            

==debug==
Error: Engineering NTC Citation Exception Class 'External: SIGSEGV'.

In the file 'laz2_dom.pas' on line 1324:
Result := DetachChild(OldChild);

Any sample project for test ?
Your CodeTyphon Version ?

It can be used normally in another unit, and the operation method is the same

Typhon Version 7.9
Revision:2209101845