Cita:
|
Empezado por alcides
Que he dejado de hacer.
|
Pues justamente eso, pasar a la siguiente línea:
Código Delphi
[-]
if selectedindex < (fieldcount -1) then
selectedindex := selectedindex +1
else
begin
selectedindex := 0;
DataSource.DataSet.Next;
end;
Por cierto, he visto que has formateado el código en tu mensaje usando etiquetas [b]. Te comento que puedes encerrar todo el código entre etiquetas [delphi] lo cual dara formato automáticamente al código sin necesidad de poner etiquetas en cada palabra reservada. Además con esto se preservarán las indentaciones.
// Saludos