Hallo Hoschie,
Glückwunsch zur deiner eigenen Leistung. Steckt da in jedem Dokument immer nur ein Lehrgang?
Hier noch ein paar versteckte Anregungen:
Delphi-Quellcode:
const
FN_LOG = '
log.txt';
XML_TEMPLATE = '
<?xml version="1.0"?><root></root>';
procedure WriteLog(
const msg:
string);
var
log: TextFile;
begin
AssignFile(log, FN_LOG);
if FileExists(FN_LOG)
then Append(log)
else Rewrite(log);
WriteLn(log, DateTimeToStr(Now), #9, msg);
CloseFile(log);
end;
function LoadXml(xd: IXMLDOMDocument;
const fn: TFileName): Boolean;
begin
if FileExists(fn)
then Result := xd.load(fn)
else Result := xd.loadXML(XML_TEMPLATE);
end;
// ...
begin
// ...
if LoadXml(xdNew, fnNew)
then
begin
xdNew.documentElement.appendChild(xdNode);
xdNew.save(fnNew);
end else Log(Edit1.Text);
// ...
end;
Getippt und nicht getestet.
Freundliche Grüße