![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Mira si esto te sirve:
Código:
var i, j : Integer; Tabla.First; j := 0; while NOT Tabla.EOF do begin for i:=0 to Tabla.FieldCount - 1 do WS.Cells[i, j] := Tabla.Fields[i].AsString; Inc(j); Tabla.Next; end;
__________________
Guía de Estilo |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|