Difference between revisions of "OEM2Ansi/de"
From Lazarus wiki
Jump to navigationJump to searchm (Fixed syntax highlighting; removed categories included in template) |
|||
Line 5: | Line 5: | ||
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | ||
Das Unterprogramm konvertiert eine Datei vom OEM-Zeichensatz (DOS und Windowskonsole) in den ANSI-Zeichensatz.<br> | Das Unterprogramm konvertiert eine Datei vom OEM-Zeichensatz (DOS und Windowskonsole) in den ANSI-Zeichensatz.<br> | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
uses | uses | ||
Windows, FileUtil, Classes, SysUtils, ...; | Windows, FileUtil, Classes, SysUtils, ...; | ||
Line 45: | Line 45: | ||
<br> | <br> | ||
Aufruf unter Windows: | Aufruf unter Windows: | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
subOEM2Ansi('E:\Test_alt.txt', 'E:\Test_neu.txt'); | subOEM2Ansi('E:\Test_alt.txt', 'E:\Test_neu.txt'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− |
Latest revision as of 13:28, 21 February 2020
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Das Unterprogramm konvertiert eine Datei vom OEM-Zeichensatz (DOS und Windowskonsole) in den ANSI-Zeichensatz.
uses
Windows, FileUtil, Classes, SysUtils, ...;
...
procedure subOEM2Ansi(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;
// Übersetzt den Zeichensatz OEM in den Zeichensatz Ansi
OemToCharBuff(PChar(strPuffer), PChar(strPuffer), Length(strPuffer));
Write(txtZieldatei, char(strPuffer[1]));
end;
closefile(txtQuelldatei);
closefile(txtZieldatei);
end;
Aufruf unter Windows:
subOEM2Ansi('E:\Test_alt.txt', 'E:\Test_neu.txt');