Ansi2OEM/de
From Lazarus wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
Deutsch (de)
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Das Unterprogramm konvertiert eine Datei vom Ansi-Zeichensatz in den OEM-Zeichensatz (DOS und Windowskonsole).
uses
Windows, FileUtil, ...;
...
procedure subAnsi2OEM(const conStrQuellDateiname, conStrZielDateiname: string);
implementation
procedure subAnsi2OEM(const conStrQuellDateiname, conStrZielDateiname: string);
// konvertiert eine Datei mit Ansi-Zeichensatz in den OEM-Zeichensatz
var
txtQuelldatei: file of char;
txtZieldatei: file of char;
chrZeichen: char;
strPuffer: string;
begin
assignfile(txtQuelldatei, UTF8ToSys(conStrQuellDateiname));
assignfile(txtZieldatei, UTF8ToSys(conStrZielDateiname));
Rewrite(txtZieldatei);
Reset(txtQuelldatei);
Reset(txtZieldatei);
while not EOF(txtQuelldatei) do
begin
Read(txtQuelldatei, chrZeichen);
strPuffer := chrZeichen + #0;
CharToOEM(PChar(strPuffer), @chrZeichen);
Write(txtZieldatei, chrZeichen);
end;
closefile(txtQuelldatei);
closefile(txtZieldatei);
end;
Aufruf unter Windows:
subAnsi2OEM('E:\Test_alt.txt', 'E:\Test_neu.txt');
--Olaf 08:45, 24 March 2014 (CET)