Buscar por:

Copiando todos os registros de uma tabela para o clipboard

Código

//Inclua na seção uses: Clipbrd 

procedure TForm1.Button1Click(Sender: TObject); 

const 

  SeparadorCampoValor = ': '; 

  SeparadorCampo = #13#10; { Quebra de linha } 

  SeparadorRegistro = '===========' + #13#10; 

var 

  S: string; 

  I: integer; 

begin 

  S := ''; 

  Table1.First; 

  while not Table1.EOF do begin 

  for I := 0 to Table1.FieldCount -1 do 

  S := S + Table1.Fields[I].FieldName + SeparadorCampoValor + 

  Table1.Fields[I].AsString + SeparadorCampo; 

  S := S + SeparadorRegistro; 

  Table1.Next; 

  end; 

  Clipboard.AsText := S; 

end; 

  {Para testar:

- Execute este aplicativo;

- Clique no botão;

- Vá em outro aplicativo (ex: MS-Word) e mande colar (Ctrl+V).

Observações

CUIDADO! Não use este recurso com tabelas grandes, pois poderá usar memória demasiadamente. No teste que fiz, o tamanho da string S atingiu 20K e funcionou normalmente. Mas isto pode variar de uma máquina para outra.}