Umlaute und 'ß' aus Textdatei korrekt anzeigen

[DeddyH]

Du reservierst ja keinen Speicher für so.

Delphi-Quellcode:

program uni;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var text: TextFile;
    si,so: string;

begin
  try
  { TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
    AssignFile(text,'E:\t.txt');
    try
      Reset(text);
      while not Eof(text) do
        begin
          Readln(text,si);
          SetLength(so,Length(si));
          CharToOem(PChar(si),PChar(so));
          Writeln(so);
        end;
    finally
      CloseFile(text);
    end;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  Readln;
end.

[edit] Übrigens: Du könntest Dir so auch sparen, da Du si als Ein- und Ausgabe an CharToOEM übergeben kannst. [/edit]