gibt es eine Möglichkeit sicher festzustellen ob einen Zeichenkette ANSI oder OEM Zeichen enthält? Derzeit behelfe ich mir damit:
Code: Alles auswählen
LOCAL lAnsi := FALSE
LOCAL nLaenge := 0
LOCAL nZeichen := 0
cText := AllTrim( cText )
nLaenge := Len( cText )
FOR nZeichen := 1 TO nLaenge
DO CASE
CASE Asc( cText[ nZeichen ]) < 128
CASE Chr( Asc( cText[ nZeichen ])) $ 'äöüÄÖÜß'
lAnsi := TRUE
EXIT
ENDCASE
NEXT