Ansi2OEM/de

From Lazarus wiki
Jump to navigationJump to search
The 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)