Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi UTF8/Unicode/Ansicode Konvertierungen! (https://www.delphipraxis.net/187792-utf8-unicode-ansicode-konvertierungen.html)

SMO 4. Jan 2016 17:44

AW: UTF8/Unicode/Ansicode Konvertierungen!
 
Zitat:

Zitat von bernau (Beitrag 1325969)
Man kann eine Codepage als optionalen Parameter angeben.

Ansonsten nicht mehr das alte AssignFile verwenden.

Es gibt auch System.GetTextCodePage und System.SetTextCodePage. Sind aber nur primitive Wrapper für einen Typecast: TTextRec(T).CodePage.

Dass man modernere Methoden für den Dateizugriff verwenden sollte, ist klar. Aber wie sieht es mit Konsolenanwendungen aus?
Da benutze ich noch immer das gute, alte Writeln.

Ein bisschen Off-topic:

Die alten Pascal-Dateifunktionen sind ja seit einiger Zeit Unicodetauglich und Codepage-aware. Das finde ich prinzipiell gut. Allerdings gefällt mir die Implementierung nicht so ganz. Ich habe mich vor einer Weile mal näher damit beschäftigt und festgestellt, dass etliche der _WriteXxx Prozeduren das TTextRec.CodePage Feld missbrauchen, um festzustellen ob die Datei bereits geöffnet wurde. Dafür müsste aber meiner Meinung nach das Feld TTextRec.Mode verwendet werden.
Man suche in System.pas nach "TryOpenForOutput", dann findet man mehrere Male sowas:

Delphi-Quellcode:
if t.CodePage = 0 then TryOpenForOutput(t);
Sollte aber
Delphi-Quellcode:
if t.Mode <> fmOutput then
sein. Man vergleiche dazu die Fundstellen von "TryOpenForInput".

Ist das im aktuellen D10 noch immer so? Falls ja, wer macht den Bugreport?

himitsu 5. Jan 2016 10:15

AW: UTF8/Unicode/Ansicode Konvertierungen!
 
Für Console gibt es entweder nette Componenten, die den Zugriff besser regeln und auch weitere Funktionen bieten, wie z.B. Farben und Cursorposition zu ändern.
Und SetFileApisToANSI oder SetFileApisToOEM.

Ansonsten kann man auch auf StdIn und StdOut mit modernen Dateifunktionen zugreifen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:33 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz