ANSI to OEM Konvertierung

[Nalincah]

Hi zusammen!

Ich hab ein kleines Problem: Ich muss ne Datenbank in ne andere Datenbank kopieren, nur dabei werden im Ziel die Umlaute nicht richtig angezeigt. Es steht immer nur ein | da. Wie kann man das Umwandeln?

[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:

Delphi-Quellcode:

Inkompatible Typen: 'Char' und 'PChar'

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[roderich]

ich mach's so:

Delphi-Quellcode:

function OEM2Ansi(OEMString: string): string;
begin
  OEMString := OEMString + #0;
  OemToChar(PChar(OEMString), @OEMString[1]);
  Delete(OEMString, Length(OEMString), 1);
  Result := OEMString;
end;


function Ansi2OEM(AnsiString: string): string;
begin
  ANSIString := ANSIString + #0;
  CharToOEM(PChar(ANSIString), @ANSIString[1]);
  Delete(ANSIString, Length(ANSIString), 1);
  Result := ANSIString;
end;

weiß nicht ob's noch kürzer oder eleganter geht...
Roderich

[Nalincah]

Danke, klappt wunderbar