Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   angeblich doppeltes Case-Label, aber ich find keines? (https://www.delphipraxis.net/130228-angeblich-doppeltes-case-label-aber-ich-find-keines.html)

himitsu 5. Mär 2009 09:34


angeblich doppeltes Case-Label, aber ich find keines?
 
Delphi-Quellcode:
Case C of
  #$09, #$0A, #$0D, #$20..#$7E, #$85, #$A0..#$D7FF, #$E000..#$FDD0, #$FDDF..#$FFFD: Result := True;
  Else Result := False;
End;
Zitat:

[DCC Fehler] MyXML.pas(1144): E2030 Doppeltes Case-Label
Also gemeckert wird bei #$A0..#$D7FF, aber da ist doch nichts doppelt?
Oder überseh ich nur etwas :gruebel:

C = WideChar


und nicht über das "sinnlose" Case wundern, aber versucht ihr mal ohne großen Overhead ein C in [...] für Unicode hinzubekommen :angel2:

Angel4585 5. Mär 2009 09:40

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
hast du mal anstatt $0A, $000A usw probiert?

SirThornberry 5. Mär 2009 09:41

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
funktioniert das mit dem # überhaupt vor widechars? Ich würde vermuten das generell zu normalem char damit gewandelt wird. Ich würde wie mein Vorposter auch das # weg lassen und das c zu einem ordinalen Typen casten um zu sehen ob es dann funktioniert.

himitsu 5. Mär 2009 09:48

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
wenn ich # weglaß, dann müßte ich C in einen Integer convertieren und das wollt ich nicht ._.

und #$00A0..#$D7FF bringt auch nichts, es ging ja schonmal, nur jetzt nimmer

PS: so geht es, aber nachdem ich den Zeichensatz entsprechende XML 1.1 weiter eingeschränkt hab, geht es plötzlich nicht mehr :wall:

dieses ging noch:
Delphi-Quellcode:
xtChar: Case C of
          #$09, #$0A, #$0D, #$20..#$D7FF, #$E000..#$FDD0, #$FDDF..#$FFFD: Result := True;
          Else Result := False;
        End;
ich könnte das $ weglassen, daber mit Dezimalzahlen ist es schwerer wartbar, da die Spec sozusagen etwa so [#x00A0-#xD7FF] aussieht

SirThornberry 5. Mär 2009 09:53

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
Zitat:

wenn ich # weglaß, dann müßte ich C in einen Integer convertieren und das wollt ich nicht ._.
Es geht ja auch nicht darum das du es dann so lassen sollst sondern darum den Fehler zu finden. Wenn es gecastet zu Integer funktioniert muss man wo anders ansetzen als wenn es da auch nicht funktioniert.

himitsu 5. Mär 2009 09:59

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
ochso ^^

also nach Word gecastet und ohne # geht es. :shock:

und auch ein splitten in AnsiChar/WideChar bringt nichts, da wird jetzt nur bei #$0100..#$D7FF gemeckert
Delphi-Quellcode:
#$A0..#$FF, #$0100..#$D7FF

[add]
ach ja, beim tauschen von Ansi und Unicode, dann meckert er jetzt bei #$85

Delphi-Quellcode:
#$0100..#$D7FF, #$E000..#$FDD0, #$FDDF..#$FFFD, #$09, #$0A, #$0D, #$20..#$7E, #$85, #$A0..#$FF: Result := True;
:gruebel:

und wenn ich es wieder umdreh und die 85 auskommentier, dann geht es.

Ja gut, die #$85 ist neu und entspricht keinem offitziellen Char, aber warum da Delphi dann dabei durchdreht?

Angel4585 5. Mär 2009 10:04

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
geht das in Delphi 2005 noch nicht? weil ich bekomm da ne Meldung inkompatible Typen char und widechar :shock:

edit: was sind die chars eigentlich ausgeschrieben?

Die Muhkuh 5. Mär 2009 10:16

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
Hi,

fragt mich nicht warum, ich hab es auch nur durch ausprobieren heraus gefunden, aber wenn Du statt #$85 #$0085 funktioniert es.

Angel4585 5. Mär 2009 10:26

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
ich hatte doch gesagt das er diese schreibweise nehmen soll un er meinte es geht trotzdem nicht :gruebel:
Ich meinte die Schreibweise natürlich für alle zweistelligen

$85 ist vom Typ her Char
$0085 WideChar
wenn ich das recht interpretiere

Zoot 5. Mär 2009 10:28

Re: angeblich doppeltes Case-Label, aber ich find keines?
 
Seltsam.
Kann keines der Probleme nachvollziehen (D2007);
Auch die Version mit #$85 läuft bei mit problemlos.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:05 Uhr.
Seite 1 von 2  1 2      

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