Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#5

AW: Delphi XE/XE2 Probleme mit UTF-8 Editor

  Alt 14. Sep 2011, 12:03
Vielleicht hab ich da ja was falsch verstanden, aber ich arbeite sehr bequem mit EBCDIC in der IDE:

Delphi-Quellcode:
const
  cEBCDICCodePage = 1141;

type
  EBCDICString = type AnsiString(cEBCDICCodePage);

const
  cTest: EBCDICString = 'Hallo Welt';

procedure Test(const Value: EBCDICString);
var
  F: TFileStream;
begin
  F := TFileStream.Create('c:\temp\test.dat', fmCreate);
  try
    F.Write(Value[1], Length(Value));
  finally
    F.Free;
  end;
end;

begin
  Test(cTest); // geht genauso wie
  Test('Hello World'); // in beiden Fällen wird EBCDIC in den Stream geschrieben
end.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat