Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Exportieren von Access in Paradox --> Umlaute funkt. nicht (https://www.delphipraxis.net/54697-exportieren-von-access-paradox-umlaute-funkt-nicht.html)

Christian18 10. Okt 2005 10:04

Datenbank: Paradox • Version: 7 • Zugriff über: BDE

Exportieren von Access in Paradox --> Umlaute funkt. nich
 
Hallo,

wie mein Titel schon sagt, bin ich gerade dabei von einer Access DB in eine Paradox7 Tabelle Daten zu exportieren. Das funktioniert auch alles. Aber wenn ich mir die Paradox7 Zabelle dann so anschaue, stelle ich fest, das Umlaute nicht Exportiert wurden. also ein ä wird da als " angezeigt u.s.w. --> jetzt wollte ich mal frage, ob dies nur einen Einstellungssache ist.

MFG Christian18

eddy 10. Okt 2005 10:15

Re: Exportieren von Access in Paradox --> Umlaute funkt.
 
Hallo Christian18,

ich habe mich zwar nicht mit Access befaßt, aber ich hatte ein ähnliches Problem bei der Datenübernahme aus DBF-Dateien (nach Paradox).

Delphi-Quellcode:
{ASCII zu ANSI}
function KorrUml1(sa:string):string;
var
  s : string;
  j : integer;
  b : byte;
begin
  s:='';
  for j:=1 to length(sa) do begin
    b := ord(sa[j]);
    case b of
     {ASCII          ANSI    }
      $82: s:=s + chr($E9); //é;
    //$??: s:=s + chr($E8); //è
      $84: s:=s + chr($E4); {ä}
      $94: s:=s + chr($F6); {ö}
      $81: s:=s + chr($FC); {ü}
      $E1: s:=s + chr($DF); {ß}
      $8E: s:=s + chr($C4); {Ä}
      $99: s:=s + chr($D6); {Ö}
      $9A: s:=s + chr($DC); {Ü   220 = Alt-154}
      $F8: s:=s + chr($B0); {°   186 = Alt-248}
      $9B: s:=s + chr($F8); {ø   248 = Alt-155}
      $AB: s:=s + chr($BD); {½   189 = Alt-171}
      $AC: s:=s + chr($BC); {¼   188 = Alt-172}
      $5F: s:=s + chr($80); {€   128 = Alt-95 hat nicht fkt.}
    else
      s := s + sa[j];
    end;
  end;
  KorrUml1 := s;
end;

{ANSI zu ASCII}
function KorrUml2(sa:string):string;
var
  s : string;
  j : integer;
  b : byte;
begin
  s:='';
  for j:=1 to length(sa) do begin
    b := ord(sa[j]);
    case b of
  //   ANSI          ASCII
  //
      $E4: s:=s + chr($84); {ä   228}
      $F6: s:=s + chr($94); {ö   246}
      $FC: s:=s + chr($81); {ü   252}
      $DF: s:=s + chr($E1); {ß   223}
      $C4: s:=s + chr($8E); {Ä   196}
      $D6: s:=s + chr($99); {Ö   214}
      $DC: s:=s + chr($9A); {Ü   220 = Alt-154}
      $B0: s:=s + chr($F8); {°   186 = Alt-248}
      $F8: s:=s + chr($9B); {ø   248 = Alt-155}
      $BD: s:=s + chr($AB); {½   189 = Alt-171}
      $BC: s:=s + chr($AC); {¼   188 = Alt-172}
      $80: s:=s + chr($5F); {€   128 = Alt-95 hat nicht fkt.}
    else
      s := s + sa[j];
    end;
  end;
  KorrUml2 := s;
end;
Vielleicht hilft es ja bei der Lösung Deines Problems weiter.

mfg
eddy

marabu 10. Okt 2005 12:15

Re: Exportieren von Access in Paradox --> Umlaute funkt.
 
Hallo Christian,

Zitat:

Zitat von Christian18
bin ich gerade dabei von einer Access DB in eine Paradox7 Tabelle Daten zu exportieren.

wie exportierst du?

Zitat:

Zitat von Christian18
Aber wenn ich mir die Paradox7 Zabelle dann so anschaue, stelle ich fest, das Umlaute nicht Exportiert wurden. ... jetzt wollte ich mal frage, ob dies nur einen Einstellungssache ist.

Vergleiche doch mal die Code Pages. Vielleicht musst du bei der Paradox-Tabelle nur die richtige einstellen? Du kannst dazu die Datenbankoberfläche verwenden. Wähle dazu den Menüpunkt Tools:Tabellenoperationen:Umstrukturieren. Im Dialog wählst du dann bei den Tabelleneigenschaften "Sprachtreiber".

Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12: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