Hola Jose Caceres, no dices como estas exportando a excel, digamos que estas utilizando los componentes de la paleta Server, ExcelApplication, un ExcelWorkBook y un WorkSheet.
En tu consulta lo ordenas por campo Bolean que dices, cosa que salga primero todos los verdaderos y luego todos los falsos. En el codigo puedes utilizar una banderita para incrementar el numero de filas cuando llegues a los falsos.
Código Delphi
[-]
var
Fila : Integer;
banderita : Boolean;
begin
Fila := 3; ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := True;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet);
banderita := False; Query1.First;
While Not Query1.Eof do
begin
With ExcelWorksheet1.Cells do
begin
if (Query1.FieldByName('campo').AsBoolean = False) and (Not banderita) then
begin
Fila := Fila+6;
banderita := True;
end;
Item[Fila,1].Value := Query1.FieldByName('campo1').AsString;
Item[Fila,2].Value := Query1.FieldByName('campo2').AsString;
Item[Fila,3].Value := Query1.FieldByName('campo3').AsString;
Inc(Fila);
Query1.Next;
end;
end;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
Saluditos