copiar strings de um edit

Delphi

03/02/2006

caros colegas, estou tentando fazer o seguinte:

- tenho um edit onde será armazenado o numero serial de um HD qualquer, outro onde será armazenado 6 strings randomizadas pelo código abaixo:

var
i:integer;
const
str=´1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ´;
max=6;
begin
  for i:=1 to max do
  Edit_Gera.Text := Edit_gera.Text+str[random(length(str))+1];

end;


- em um terceiro edit, eu gostaria que contivesse o seguinte calculo:
- primeira string do edit_HD + primeira string do edit_Gera + segunda string do edit_HD + segunda string do edit_Gera ... e assim por diante até ter copiado todas as strings e armazenado no terceiro edit.

- assim sendo se tivessemos no edit_HD as strings ´3HT2L7QY´ e no edit_gera as strings ´YNZ9OA´ , no terceiro edit teriamos algo como: ´3YNHZT92OLA7QY´

- alguem poderia me ajudar com isso???

Abraços!


Mahdak

Mahdak

Curtidas 0

Respostas

Educacau

Educacau

03/02/2006

na realidade vc vair ter que usar um for de 1 até o tamanho da string, e depois vc coloca o valor do i no segundo parametro da função copy.

For i:=1 to length(edit1.text) do
begin

edit3.text:=edit3.text+copy(edit1.text,i,1);
edit3.text:=edit3.text+copy(edit2.text,i,1);

End;


GOSTEI 0
Mahdak

Mahdak

03/02/2006

deu erto, valleu a força... :lol:


GOSTEI 0
Sandro Adão

Sandro Adão

03/02/2006

Olá Mahdak,

Você pode copiar a string inteira que estiver no componenente apenas utilizando o código 
Edit1.PasteFromClipboard;
GOSTEI 0
POSTAR