Utf8File To AnsiFile/de

From Lazarus wiki
Revision as of 08:33, 4 March 2020 by Trev (talk | contribs) (Fixed syntax highlighting; deleted category included in page template)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Deutsch (de)


Zurück zur Seite Code Beispiele.


Das Unterprogramm konvertiert eine UTF8-Datei in eine Ansi-Datei.

uses
  FileUtil, Classes, ...;

  ...

procedure subDekodiereUtf8DateiZuAnsiDatei(
  const conStrQuellDatei, conStrZielDatei: string);
var
  strlStringlist: TStringList;
  strPuffer: String;

begin

  strlStringlist := TStringList.Create;
  strlStringlist.LoadFromFile(Utf8ToSys(conStrQuellDatei));

  // Wenn BOM vorhanden, dann entfernen
  if Copy(strlStringlist[0], 1, 3) = #$EF#$BB#$BF then
  begin
    strPuffer := strlStringlist[0];
    Delete(strPuffer, 1, 3);
    strlStringlist[0] := strPuffer;
  end;

  // Konvertiert die Stringliste von UTF8 nach Ansi
  strlStringlist.Text := UTF8ToAnsi(strlStringlist.Text);
  strlStringlist.SaveToFile(Utf8ToSys(conStrZielDatei));

  FreeAndNil(strlStringlist);

end;

Aufruf unter Windows:

  ...

  subDekodiereUtf8DateiZuAnsiDatei('E:\Test.txt', 'E:\Test1.txt');

  ...

Aufruf unter Linux:

  ...

  subDekodiereUtf8DateiZuAnsiDatei('/home/user/Test.txt', '/home/user/Test1.txt') then 

  ...