Zitat von
Bernhard Geyer:
Und was verstehst Du nicht?
TFileName? Das eine Variable vom Typ TStrings mit TStringList Erstellt wird (ok, klar es geht, ist aber mieser Stil).
Probieren wir's mal so:
Delphi-Quellcode:
procedure SaveLinesUTF8(Lines: TStrings; FileName: String);
var
i: Integer;
TempStrings: TStrings;
begin
TempStrings := TStrings.Create;
try
for i := 0 to Lines.Count - 1 do
TempStrings.Add(AnsiToUtf8(lines[i]));
// Wandle jede Zeile des Quell-TStrings in UTF8 um
// und füge sie in eine neue StringList ein.
TempStrings.SaveToFile(fn);
finally
TempStrings.Free;
end;
end;
Ob das jetzt geht kann ich jetzt nicht sagen, weil TStrings dürfte ja eigentlich nur String nicht WideString speichern.