copiar strings de um edit
03/02/2006
0
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:
- 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!
- 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
Curtir tópico
+ 0
Responder
Posts
03/02/2006
Educacau
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;
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;
Responder
06/05/2019
Sandro Adão
Olá Mahdak,
Você pode copiar a string inteira que estiver no componenente apenas utilizando o código
Você pode copiar a string inteira que estiver no componenente apenas utilizando o código
Edit1.PasteFromClipboard;
Responder
Clique aqui para fazer login e interagir na Comunidade :)