Difference between revisions of "convert charset for console/de"
From Lazarus wiki
Jump to navigationJump to searchm |
m |
||
Line 2: | Line 2: | ||
<br> | <br> | ||
<br> | <br> | ||
+ | =Den Zeichensatz für die Ausgabe an der Konsole anpassen= | ||
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | ||
Falls Ihr Konsolenprogramm unter Windows Ansi-Text mit Umlauten und Sonderzeichen korrekt ausgeben soll, dann müssen Sie den Ansi-Text in den OEM-Zeichensatz konvertieren.<br> | Falls Ihr Konsolenprogramm unter Windows Ansi-Text mit Umlauten und Sonderzeichen korrekt ausgeben soll, dann müssen Sie den Ansi-Text in den OEM-Zeichensatz konvertieren.<br> |
Revision as of 20:28, 28 February 2014
│
Deutsch (de) │
Den Zeichensatz für die Ausgabe an der Konsole anpassen
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Falls Ihr Konsolenprogramm unter Windows Ansi-Text mit Umlauten und Sonderzeichen korrekt ausgeben soll, dann müssen Sie den Ansi-Text in den OEM-Zeichensatz konvertieren.
Unter Linux (Ubuntu) ist eine Konvertierung des Zeichensatzes nicht notwendig.
program project1;
{$mode objfpc}{$H+}
{$IMPLICITEXCEPTIONS OFF}
uses
Windows;
var
strText: string;
// Diese Funktion übersetzt den Inhalt eines Ansistrings
// in den Zeichensatz der Konsole
function funAnsiZuOEM(strUebergabe: string): string;
begin
strUebergabe := strUebergabe + #0;
CharToOEM(PChar(strUebergabe), @strUebergabe[1]);
Delete(strUebergabe, Length(strUebergabe), 1);
Result := strUebergabe;
end;
begin
strText := 'Rosé und Tölt';
writeln('Ausgabe: ' + funAnsiZuOEM(strText));
end.
--Olaf 10:37, 15 February 2014 (CET)