IN durch CharInSet ersetzen

[franz22]

Hallo zusammen,

beim Öffnen eines, mit Delphi2007 erstellten Programms, mit Delphi XE7 bekomme ich folgende Meldung angezeigt:
[dcc32 Warnung] Unit1.pas(4190): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt. Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der Unit 'SysUtils' in Betracht.

Die beanstandete Quelltextzeile dazu ist:

Delphi-Quellcode:

  if not (Key in ['0'..'9', ',', '-', Char(VK_BACK), Char(VK_DELETE)]) then Key:= #0;

Diese Konstruktion stammt übrigens aus dem Easy Delphi Helper.

Nun habe ich das nach CharInSet() umgeformt, aber der Quelltext erstreckt sich jetzt über mehrere Zeilen:

Delphi-Quellcode:

  if not CharInSet(Key,['0'..'9']) then
    if not CharInSet(Key,[',']) then
      if not CharInSet(Key,['-']) then
        if not CharInSet(Key,[Char(VK_BACK)]) then
          if not CharInSet(Key,[Char(VK_DELETE)]) then Key:= #0;

Hat jemand eine Idee, wie es noch kürzer geht (Ja, ich weiß, das alles passt auch in eine Zeile), eventuell mit anderen Methoden?

Vielen Dank das Ihr Euch diesen Thread angeschaut habt.

Grüße
Franz

[Nersgatt]

Das Set beginnt bei [ und endet bei ] :wink:

Delphi-Quellcode:

if not CharInSet(Key,['0'..'9', ',', '-', Char(VK_BACK), Char(VK_DELETE)]) then

[franz22]

Hallo Jens,

vielen Dank für die blitzschnelle Antwort. Hat geklappt.

Grüße
Franz

[himitsu]

Man könnte auch einfach die Compilermeldung deaktivieren.
CharInSet macht intern auch nichts anderes, als ein IN.

Und außerdem ist CharInSet auch schonwieder veraltet, aber dessen bei Ersatz macht Emba wohl einen Scherz.

[uligerhardt]

Zitat:

Zitat von himitsu (Beitrag 1322588)

Und außerdem ist CharInSet auch schonwieder veraltet, aber dessen bei Ersatz macht Emba wohl einen Scherz.

Wie "schon wieder veraltet"? Verursacht CharInSet in DX eine Warnung?

Ich erinnere mich noch mit Freude an TCharacter. Um unseren D2007-Prä-Unicode-Quelltext auf XE2 zu bringen, haben wir unter anderem

Delphi-Quellcode:

c in ['0'..9'']

durch

Delphi-Quellcode:

TCharacter.IsDigit(c)

ersetzt, die neue, korrekte, frisch eingeführte Methode. Soweit OK. Dann steigen wir auf XE6 um und es hagelt "TCharacter is deprecated"-Meldungen. TCharacter wurde (vermutlich) 2009 eingeführt und 2014 (oder eher - bin zu faul zum nachschauen) ist es veraltet? :wall:

[himitsu]

Die Meldung kommt schon seit einer ganzen Weile.

Delphi-Quellcode:

function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean; overload; inline; deprecated 'Use TCharHelper functionality';

Nur für eigene Bereichsdefinitionen ist TCharHelper absolut sowas von garnicht geeignet.

XE6 weiß ich jetzt nicht, das war jetzt wieder aus XE8 kopiert.
Ja, bei soeinem Mist, weiß man doch garnicht was man tun soll.

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1322642)

Ja, bei soeinem Mist, weiß man doch garnicht was man tun soll.

Nennt mich maiv, aber wenn mir so etwas auf den Wecker geht, dann definiere ich mir mein eigenes Konstrukt (in meiner Basis-Bibliothek) und leite das per Compilerschalter auf die Variante um, die denn aktuell da gültig sein soll.

Dann bleibt der Anwendungscode immer gleich und trotzdem wird das verwendet, was nun gerade State of the Art ist.

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1322642)

Delphi-Quellcode:

function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean; overload; inline; deprecated 'Use TCharHelper functionality';

Jetzt nochmal mit Drumherum aus dem aktuellen Seattle:

Delphi-Quellcode:

{$IFNDEF NEXTGEN}
function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload; inline;
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload; inline;
{$ELSE}
function CharInSet(C: Byte; const CharSet: TSysCharSet): Boolean; overload; inline; deprecated 'Use TCharHelper functionality';
function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean; overload; inline; deprecated 'Use TCharHelper functionality';
{$ENDIF}

Bei genauem Hinsehen wird man entdecken, daß CharInSet lediglich für den NextGen-Compiler als deprecated markiert ist.

[baumina]

Ifndef ?

[Sir Rufo]

Zitat:

Zitat von baumina (Beitrag 1322648)

Ifndef ?

http://docwiki.embarcadero.com/RADSt...e_%28Delphi%29 (extra verlinkt auf die Delphi XE Dokumentation) :stupid: