Array
(
)

copiar strings de um edit

Mahdak
   - 03 fev 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:

#Código


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!


Educacau
   - 03 fev 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;


Mahdak
   - 06 fev 2006

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