Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Datei als UTF8 datei speichern

  Alt 7. Okt 2007, 15:05
Herzlich willkommen in der Delphi-PRAXiS, raptor.

Du solltest deine Delphi-Version angeben oder in deinem DP-Profil eintragen.

Du kannst die Zeilen deines Memos nach UTF8 konvertieren:

Delphi-Quellcode:
procedure SaveLinesUTF8(lines: TStrings; fn: TFileName);
var
  i: Integer;
  s: TStrings;
begin
  s := TStringList.Create;
  try
    for i := 0 to Pred(lines.Count) do
      s.Add(AnsiToUtf8(lines[i]));
    s.SaveToFile(fn);
  finally
    s.Free;
  end;
end;
Getippt und nicht getestet.

Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat