Standarddateicodierung

[himitsu]

Doch, das Encoding der DFM wird geändert.

Bei der PAS merkt sich Delphi die glesene Kodierung.
Bei DFMs nicht (immer).
Beim D10/11 bin ich mir nicht sicher, aber XE ändert es öfters, obwohl es den originalen Zustand kennen dürfte.

Intern wird immernoch Binär gearbeitet
und beim Lesen wird eventueller Text nach Binär umgewandelt.
Beim Speichern wird aus Binär NEU der Text generiert.

Delphi-Quellcode:

// unit Classes;

type
  TStreamOriginalFormat = (sofUnknown, sofBinary, sofText, sofUTF8Text);

procedure ObjectBinaryToText(Input, Output: TStream); overload;
procedure ObjectBinaryToText(Input, Output: TStream; var OriginalFormat: TStreamOriginalFormat); overload;
procedure ObjectTextToBinary(Input, Output: TStream); overload;
procedure ObjectTextToBinary(Input, Output: TStream; var OriginalFormat: TStreamOriginalFormat); overload;

procedure ObjectResourceToText(Input, Output: TStream); overload;
procedure ObjectResourceToText(Input, Output: TStream; var OriginalFormat: TStreamOriginalFormat); overload;
procedure ObjectTextToResource(Input, Output: TStream); overload;
procedure ObjectTextToResource(Input, Output: TStream; var OriginalFormat: TStreamOriginalFormat); overload;

function TestStreamFormat(Stream: TStream): TStreamOriginalFormat;