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