Fehler in Case-Konstrukt - E2030 Doppelte Case-Label

[hschmid67]

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