Stringkonvertierung

[Sir Rufo]

Ich würde das ja noch komplizierter machen

Nein, ich bin faul:

Delphi-Quellcode:

function ReadDataNormFile( const ADataNormFilename : string ) : string;
var
  LText : TStrings;
begin
  LText := TStringList.Create;
  try
    LText.LoadFromFile( ADataNormFilename, {System.SysUtils} TEncoding.GetEncoding( {Winapi.Windows} CP_OEMCP ) );
    Result := LText.Text;
  finally
    LText.Free;
  end;
end;

Dieses ganze Oem/Ansi Hin-und-Her macht doch nur schwindelig im Kopf