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.