Umlaute und 'ß' aus Textdatei korrekt anzeigen

[p80286]

Delphi-Quellcode:

 CharToOem(PChar(s), Length(s)); 
-->
 CharToOem(PChar(s), Pchar(s)));
 Writeln(so);

oder aber mit zwei strings si und so
CharToOem(PChar(si), Pchar(so)); ggf. muß auch AssignFile und CloseFile verwendet werden!

Gruß
K-H

[Delphi_gn7]

bei deinem 1. vorschlag werden die zeichen nicht korrekt angezeigt, so wie am anfang und wenn ich es mit deiner 2. variante mache, läuft das programm, terminiert aber fast sofort nach dem start, obwohl kein readln fehlt.

[p80286]

Hallo Delphi_gn7

was funktioniert wann nicht?
könntest Du mal den Sourcecode bekannt machen?

Gruß
K-H

[Delphi_gn7]

Klar, hier ist er:

Delphi-Quellcode:

program uni;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var txt:textfile;
    si,so: string;

begin
 assign(txt,'E:\t.txt');
 reset(txt);
 while not eof(txt) do
 begin
   ReadLn(txt, si);
   CharToOem(PChar(si), PChar(so));
   Writeln(so);
 end;
 ReadLn;
 close(txt);
end.

[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]

[Delphi_gn7]

danke, das mit dem setLength wusste ich noch nicht.

was bewirkt denn:

Delphi-Quellcode:

except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);

?

mfg

[DeddyH]

Das bewirkt die Ausgabe der entsprechenden Fehlermeldung im Falle einer Exception.

[Delphi_gn7]

dankesehr!