Problema: Gostaria de colocar em minha aplicação o recurso de copiar um registro de uma tabela para a área de transferência, permitindo ao usuário colar estes dados em outro aplicativo (ex: MS-Word). Isto é possível? Solução: Sim. Siga os passos abaixo: - Crie seu form normalmente, colocando DataSource, Table e demais componentes; - Coloque um botão e no evento OnClick deste botão coloque o código abaixo: procedure TForm1.Button1Click(Sender: TObject); const SeparadorCampoValor = ': '; SeparadorCampo = #13#10; { Quebra de linha } var S: string; I: integer; begin S := ''; for I := 0 to Table1.FieldCount -1 do S := S + Table1.Fields[I].FieldName + SeparadorCampoValor + Table1.Fields[I].AsString + SeparadorCampo; 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).
O conteúdo desta página pode ajudar alguém? Compartilhe!