Einzelnen Beitrag anzeigen

hschmid67

Registriert seit: 2. Jul 2012
Ort: Weilheim i. Obb.
62 Beiträge
 
Delphi 10.4 Sydney
 
#1

Fehler in Case-Konstrukt - E2030 Doppelte Case-Label

  Alt 8. Sep 2019, 07:57
Hallo Zusammen,

heute habe ich einen seltsamen Fehler, der zunächst in Tokyo aufgetaucht ist und den ich jetzt gerade auch in Rio 10.3.2 getestet habe. Ich möchte einzelne Zeichen konvertieren und hab dazu (vereinfacht zum Vorführen) etwa folgende Prozedur:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  lStr: string;
begin
  lStr := '123456789';
  for i := 1 to lStr.Length do
  begin
    case lStr[i] of
        #0 .. #44 : ;
       #45 : ;
       #46 .. #47 : ;
       #48 .. #57 : ;
       #58 .. #64 : ;
       #65 .. #90 : ;
       #91 .. #96 : ;
       #97 .. #122 : ;
      #123 .. #137 : ;
      #138 : ; // Hier der Fehler
    end;
  end;
end;
Dabei bekomme ich in der markierten Zeile den folgenden Fehler

Code:
E2030 Doppeltes Case-Label
Wenn ich gleich die Range #123 .. #138 setze, funktioniert das Ganze. Ich verstehe es nicht Ist das etwa ein Compiler-Fehler in Delphi? Oder kann mir jemand erklären, was ich hier falsch mache?

Viele Grüße
Harald
Harald Schmid
  Mit Zitat antworten Zitat