XML Read Data

settings.xml

procedure TSettings_Frm.FormCreate(Sender: TObject);
var
  Str:String;

  Doc: TXMLDocument;
  XMLNode: TDOMNodeList;
  CheckForUpdates: Boolean;
  RememberSettings: Boolean;
begin
  try
    ReadXMLFile(Doc, GetCurrentDir + '\settings.xml');

    // Güncellemele ayarı
    XMLNode:=Doc.DocumentElement.GetElementsByTagName('updates');
    CheckForUpdates:=StringToBoolean(XMLNode.Item[0].FirstChild.TextContent);

    // Ayarlar saklansın mı
    XMLNode:=Doc.DocumentElement.GetElementsByTagName('rememberSettings');
    RememberSettings:=StringToBoolean(XMLNode.Item[0].FirstChild.TextContent);
  finally
    // finally, free the document
    Doc.Free;
  end;

  CheckForUpdates_Chbx.Checked:=CheckForUpdates;
  RememberSettings_Chbx.Checked:=RememberSettings;
end;