Stringkonvertierung

[Blup]

Für den einfachsten Fall sollte das genügen:

Delphi-Quellcode:

function AnsiToOem(const AValue: AnsiString): AnsiString;
begin
  Result := AValue;
  if Length(Result) <> 0 then
    CharToOem(PAnsiChar(Result), PAnsiChar(Result));
end;

function OemToAnsi(const AValue: AnsiString): AnsiString;
begin
  Result := AValue;
  if Length(Result) <> 0 then
    OemToChar(PAnsiChar(Result), PAnsiChar(Result));
end;

var
  sl: TStringList;
begin
  sl.LoadFromFile('Oem.txt');
  sl.Text := OemToAnsi(sl.Text);
  {...}

Wer arbeitet eigentlich noch mit Readln?