Cita:
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