consulta en DBgrid a Excel (duda)
 

Viendo varios ejemplo de pasar una colsulta a un doc. de excel encontre lo siguiente: es que de una consulta que muestro en mi DBgris lo quiero pasar a Excel

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i, j:Integer;
Str:String;
TS:TStrings;
begin
// Inicializamos
Str := '';
// Para cada línea de las selecciondas El DBGRID no acepta SELECTION
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do begin
// Si no es la 1ª linea, añadimos un salto de línea
if (i <> StringGrid1.Selection.Top) then begin
Str := Str + #13#10;
end;
// Para cada elemento dentro de la línea (celdas)
for j := 0 to (StringGrid1.Rows[i].Count - 1) do begin
// Si no es la primera celda, añadimos un separados
if (j <> 0) then begin
Str := Str + #9;
end;
// Construimos la cadena
Str := Str + StringGrid1.Rows[i].Strings[j];
end;

// (1) La guardamos en el clipboard (como texto)
Clipboard.AsText := Str; // En que parte declaro esto?
// (2) Para guardarloa fichero...
TS := TStringList.CReate();
TS.Text := Str;
TS.SAveToFile('c:\salida.csv');
TS.Free;
end;
end;

Para usar el objeto Clipboard debes incluir la unidad clipbrd.pas. Lo que sí es que no tengo idea de para qué se requiere en este caso.

Una forma muy sencilla de exportar tu consulta a Excel es usando las componentes ExportSuite de nuestro compañero delphi.com.ar

// Saludos

ya descargue los componentes y ya encontre el error :p esta cabeza mia que no procesa rapido. Gracias Roman