Alternar colores en dbgrid

[roman]

Empezado por Casimiro Notevi

Soy un manazas
Lo he trasteado un poco y han aparecido dos grupos de asientos juntos y con el mismo color.

No es que seas un manazas, es que el código dice:

Código Delphi [-]
case UlDigit(StrToInt(DataSource1.DataSet.FieldByName('ASIENTO').value)) of
    0 :ColorElegido:=ColorA;
    1 :ColorElegido:=ColorB;
    2 :ColorElegido:=ColorC;
    3 :ColorElegido:=ColorD;
    4 :ColorElegido:=ColorE;
    5 :ColorElegido:=ColorA;
    6 :ColorElegido:=ColorB;
    7 :ColorElegido:=ColorC;
    8 :ColorElegido:=ColorD;
    9 :ColorElegido:=ColorE;
end;

o sea, asigna el mismo color a los asientos con terminaciones 0 y 5.

La verdad no termino de entender cómo funciona el método que propone José Luis. La probabilidad de que existan grupos de asientos contiguos con el último dígito igual creo que puede ser muy alta.

// Saludos