Difference between revisions of "Utf8File To AnsiFile/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{Utf8File To AnsiFile}} <br> <br> Das Unterprogramm konvertiert eine UTF8-Datei in eine Ansi-Datei.<br> <br> <syntaxhighlight> uses FileUtil, Classes, ...; ... procedur...") |
m |
||
| Line 1: | Line 1: | ||
{{Utf8File To AnsiFile}} | {{Utf8File To AnsiFile}} | ||
<br> | <br> | ||
| + | Zurück zur Seite [[code examples/de|Code Beispiele]].<br> | ||
<br> | <br> | ||
Das Unterprogramm konvertiert eine UTF8-Datei in eine Ansi-Datei.<br> | Das Unterprogramm konvertiert eine UTF8-Datei in eine Ansi-Datei.<br> | ||
Revision as of 09:26, 8 February 2014
│
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
...
--Olaf 08:04, 7 September 2013 (CEST)
