Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
Delphi-Quellcode:
oder aber mit zwei strings si und so
CharToOem(PChar(s), Length(s));
--> CharToOem(PChar(s), Pchar(s))); Writeln(so);
Delphi-Quellcode:
ggf. muß auch AssignFile und CloseFile verwendet werden!
CharToOem(PChar(si), Pchar(so));
Gruß K-H |
Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
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.
|
Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
Hallo Delphi_gn7
was funktioniert wann nicht? könntest Du mal den Sourcecode bekannt machen? Gruß K-H |
Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
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. |
Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
Du reservierst ja keinen Speicher für so.
Delphi-Quellcode:
[edit] Übrigens: Du könntest Dir so auch sparen, da Du si als Ein- und Ausgabe an CharToOEM übergeben kannst. [/edit]
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. |
Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
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 |
Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
Das bewirkt die Ausgabe der entsprechenden Fehlermeldung im Falle einer Exception.
|
Re: Umlaute und 'ß' aus Textdatei korrekt anzeigen
dankesehr!
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz