Stringkonvertierung

[himitsu]

Delphi-Quellcode:

type
  OemString = type AnsiString(CP_OEMCP);

var
  F: TextFile;
  S: OEMString;
begin
  ReadLn(F, S);

Delphi-Quellcode:

var
  F: TextFile;
  S: AnsiString;
begin
  ReadLn(F, S);
  SetCodePage(S, CP_OEMCP, False);