Case of (Von bis)

[HolgerCW]

Hallo zusammen,

Delphi-Quellcode:

Case Anzahl_Zeilen of

    41 - 1000: begin

    StringGrid.DefaultRowHeight := 12;
    StringGrid.RowHeights[0] := 24;
    StringGrid.Font.Size := 6;

             end;

    31 - 40: begin

    StringGrid.DefaultRowHeight := 14;
    StringGrid.RowHeights[0] := 24;
    StringGrid.Font.Size := 7;

             end;

    21 - 30: begin

    StringGrid.DefaultRowHeight := 18;
    StringGrid.RowHeights[0] := 24;
    StringGrid.Font.Size := 8;

            end;

    0 - 20: begin

    StringGrid.DefaultRowHeight := 24;
    StringGrid.Font.Size := 8;

            end;
   end;

Bei dem obigen Code sagt er mir doppeltes Case-Label ?

Was bedeutet das ?

Gruss

Holger

[sirius]

41..1000

[DeddyH]

Delphi-Quellcode:

Case Anzahl_Zeilen of
  41..1000: begin
            end;
  0..40   : begin
            end;
end;

[Bernhard Geyer]

Zitat:

Zitat von HolgerCW

Bei dem obigen Code sagt er mir doppeltes Case-Label ?

31-40 ist das gleiche wie 21-30 und zwar -9 :-)
Ansonsten hast du ja schon die passende Syntax für deine Wünsche bekommen

[HolgerCW]

... das wars, was ich gesucht habe.

Danke

Gruss

Holger