Hallo nochmal,
Ich habe den folgenden Code nun verwendet, kann leider aber nicht überprüfen, ob er funktioniert
Delphi-Quellcode:
var
lStringListDatei : TStringList;
begin
lStringListDatei.Encoding.UTF8;
lStringListDatei.LoadFromFile(lConfig.getXMLDatabase, TEncoding.UTF8);
lStringListDatei.Insert(1,'<test>');
lStringListDatei.Add('</test>');
lStringListDatei.SaveToFile(lConfig.getXMLDatabase, TEncoding.UTF8);
end;
Ich bekomme nur eine '
access violation at 0x004b7038: write of Adress': Fehlermeldung und werde dort hin verwiesen mit einer Markierung in die FDefaultEncoding Zeile.
Delphi-Quellcode:
{ TStrings }
constructor TStrings.Create;
begin
inherited Create;
FDefaultEncoding := TEncoding.Default;
FLineBreak := sLineBreak;
FDelimiter := ',';
FQuoteChar := '"';
FNameValueSeparator := '=';
FOptions := [soWriteBOM, soTrailingLineBreak, soUseLocale];
end;