XML "String Wurst" formatieren

[nahpets]

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;