Hola a todos, tengo una duda y seria genial que alguien me de una respuesta ya que es buscado pero sin suerte.
Estoy haciendo un sistema para una boleteria de colectivos y dependiendo de la cantidad de asiento que tenga el colectivo creo una cantidad determinada de botones que simulan los asientos. mi incoveniente se encuentra cuando tengo que cambiarles el TAG a los botones ya estos guardan los ID de los asientos que pertenecen al viajes seleccionado. El error que me ocurre es que siempre cambia el tag del ultimo Boton y no de todos uno por uno como deberia.
Este es mi codigo:
Código Delphi
[-]var
TEMP_Asientos:Tzquery;
I, N:Integer;
CantidadAsientos:Integer;
begin
I := 0;
N := 0;
TEMP_Asientos := TZQuery.Create(DM_Conecciones);
TEMP_Asientos.Connection := DM_Conecciones.Conexion;
TEMP_Asientos.Close;
TEMP_Asientos.SQL.Clear;
TEMP_Asientos.SQL.Add('SELECT * '+
'FROM asientos '+
'WHERE id_viaje = :pIdViaje');
TEMP_Asientos.ParamByName('pIdViaje').AsInteger := DM_Conecciones.ZQ_Boleteria.FieldByName('id_viaje').AsInteger;
TEMP_Asientos.Open;
CantidadAsientos := TEMP_Asientos.RecordCount + 1;
TEMP_Asientos.First;
for N := 1 to PNL_colectivo.ComponentCount - 1 do
begin
if PNL_colectivo.Components[N] is TButton then
Begin
For I := 1 to CantidadAsientos -1 do
begin
Boton.Tag := TEMP_Asientos.FieldByName('id_asiento').AsInteger;
TEMP_Asientos.Next;
end;
end;
Espero sus respuestass Gracias.