![]() |
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 |
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:
Vielleicht hilft es ja bei der Lösung Deines Problems weiter.
{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; mfg eddy |
Re: Exportieren von Access in Paradox --> Umlaute funkt.
Hallo Christian,
Zitat:
Zitat:
Grüße vom marabu |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz