ANSI to OEM Konvertierung

[Nalincah]

Habs mal so probiert:

Delphi-Quellcode:

function UmwandelnZeichen(s:string):String;
var
i:integer;
r:string;
begin
  r := '';
  for i := 0 to length(s) do
  begin
    r := OemToChar(s[i]);
  end;
  result := r;
end;

Aber da sagt der:
Inkompatible Typen: 'Char' und 'PChar' [edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]