Hi,
@Neutral General:
bin ich vor 5 Minuten beim Googlen drauf gestossen. Das werde ich als letztes Ass im Ärmel behalten (als vorletztes - das letze wäre, das ganze mal mit fopen zu probieren
).
@all:
Ich habe zum testen die Boolsche Variable jetzt mal gesetzt:
Delphi-Quellcode:
if (MainForm.testbool) then ShowMessage('FEHLER!');
MainForm.testbool:=true;
Stream := TFileStream.Create(MainForm.AppDataDirConfig + '\MicoData.xml', fmCreate);
DomToXmlParser1.WriteToStream(FDoc, 'UTF-8', Stream);
FlushFileBuffers(Stream.Handle);
Stream.Free;
MainForm.testbool:=false;
lg