Sonderzeichen übermitteln

[nahpets]

Ja, die Konsole hat' nen anderen Zeichnsatz, als z. B. der Editor von Delphi.

Probier' doch mal bitte, ob in Deinem neuen Programm die Ausgabe der Umlaut äöü ... klappt.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Windows;

function StrOemToAnsi(const S: string): string;
begin
  SetLength(Result, Length(S));
  if S <> '' then OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

function StrAnsiToOem(const S: string): string;
begin
  SetLength(Result, Length(S));
  if S <> '' then AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

var
   MyString : String;

begin
  try

   MyString := StrAnsiToOem('Mein String mit Sonderzeichen ૐ');

   writeln(MyString);
   Readln;

    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Damit besser?

Wobei ich bezweifle, dass die Konsole das von Dir gewählte Sonderzeichen überhaupt ausgeben kann.

Zum Zeichensatz der Konsole (und dessen Änderung) wurde weiter oben schonmal was geschrieben.