Umlaute mit Readln einlesen

[Luckie]

Gegeben sein folgendes Programm:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

function Ansi2OEM(AnsiString: string): string;
begin
  ANSIString := ANSIString + #0;
  CharToOEM(PChar(ANSIString), @ANSIString[1]);
  Delete(ANSIString, Length(ANSIString), 1);
  Result := ANSIString;
end;

var
  s: String = '';

begin
  Writeln(Ansi2Oem('äöüäöüäöüäöööäüäöüäöäöüöüöäöüöäöüöäöüööüöäöüöäöüöäöüööüöäöüöäöüöäöüö'));
  while True do
  begin
    s := '';
    Readln(s);
    Writeln(Ansi2OEM(s));
  end;
end.

Die Ausgabe funktioniert, nur die Eingabe nicht. Gibt man zum Beispiel ein ö ein kommt " raus. Gibt es dafür eine Lösung?

Delphi-Quellcode:

Readln(Ansi2OEM(s));

Funktioniert nicht.

[St.Pauli]

Delphi-Quellcode:

ReadLn(s);
WriteLn(s);

Gibt mir die Umlaute korrekt aus.

[Luckie]

OK, da habe ich einmal zu viel gedacht. :mrgreen:

[Harry M.]

Bei mir nicht :(

Delphi-Quellcode:

äöüäöüäöüäöööäüäöüäöäöüöüöäöüöäöüöäöüööüöäöüöäöüöäöüööüöäöüöäöüöäöüö
äöü
""_

Edit: Alles klar jetzte habe ichs. :)

[St.Pauli]

Und imho müsstest du zur Ausgabe lediglich

Delphi-Quellcode:

function ChrToOem(s: string): string;
begin
  SetLength(Result, Length(s));
  CharToOem(PAnsiChar(s), @Result[1]);
end;

function OemToChr(s: string): string;
begin
  SetLength(Result, Length(s));
  OemToChar(PAnsiChar(s), @Result[1]);
end;

verwenden.

Nachtrag:
Wenn man nur mit ChrToOem konvertiert, käme es zu kuddel-muddel. Strings die du im Quelltext festgelegt hast wären im ASCII-Zeichensatz, Strings die du später einließt im OEM-Zeichensatz. Deswegen habe ich noch die Routine zum Konvertieren von Oem nach ASCII hinzugefügt.