Hallo,
für AnsiReplaceText musst Du
StrUtils in die Usesliste aufnehmen.
Um die von Dir eingefügten Leerzeichen zur Formatierung zu entfernen, könntest Du folgendermaßen vorgehen:
Delphi-Quellcode:
Uses
...
StrUtils;
var
xml : TStringList;
i : Integer;
begin
xml := TStringList.Create;
xml.LoadFromFile('
XML-Datei.xml');
for i := 0
to xml.Count - 1
do xml[i] := Trim(
xml[i]);
xml.Text := AnsiReplaceText(
xml.text,#13#10,'
');
xml.SaveToFile('
XML-Datei.neu.xml');
xml.Free;
end;