Area de transferência

Delphi

21/11/2004

Pessoal,

Tenho 4 vetores, dois do tipo string e dois do tipo integer, e gostaria de enviá-los para a área de transferência. É possível fazer isso com os quatro ao mesmo tempo?
:roll: Alguma dica ou exemplo?


Sonec2004

Sonec2004

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

21/11/2004

Tente assim:

Exemplo:
uses Clipbrd;

var
   vetor1: array[1..10] of String ;
   vetor2: array[1..10] of String ;
   vetor3: array[1..10] of integer ;
   vetor4: array[1..10] of integer ;

procedure TForm1.Button1Click(Sender: TObject);
var
   S: string;
   I: integer;
begin
   S := ´´;
   for I := 1 to 10 do
      S := S + vetor1[i] + vetor2[i] + IntToStr(vetor3[i]) + IntToStr(vetor4[i]) + 1310;

  Clipboard.AsText := S;
end;

Para testar:
- Clique no botão;
- Vá em outro aplicativo (ex: MS-Word) e mande colar (Ctrl+V).


GOSTEI 0
Sonec2004

Sonec2004

21/11/2004

:) Valeu, Fábio.
O código funcionou legal para colar no word. Mas dá pra fazer isso usando colunas distintas do excel?


GOSTEI 0
POSTAR