Einzelnen Beitrag anzeigen

SMO

Registriert seit: 20. Jul 2005
178 Beiträge
 
Delphi XE6 Professional
 
#11

AW: UTF8/Unicode/Ansicode Konvertierungen!

  Alt 4. Jan 2016, 17:44
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:

if t.CodePage = 0 then TryOpenForOutput(t); Sollte aber 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?

Geändert von SMO ( 4. Jan 2016 um 17:46 Uhr)
  Mit Zitat antworten Zitat