Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi ANSI to OEM Konvertierung (https://www.delphipraxis.net/8619-ansi-oem-konvertierung.html)

Nalincah 9. Sep 2003 09:33


ANSI to OEM Konvertierung
 
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 9. Sep 2003 09:38

Re: ANSI to OEM Konvertierung
 
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 9. Sep 2003 09:53

Re: ANSI to OEM Konvertierung
 
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 9. Sep 2003 10:01

Re: ANSI to OEM Konvertierung
 
Danke, klappt wunderbar


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:56 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz