Fórum Array of String #262883
21/12/2004
0
Edit1.Text := RandomFrom([´0´,´1´,´2´,´3´,´4´,´5´,´6´,´7´,´8´,´9´]);
O caso é que também quero randomizar letras (strings) mas o código ficaria extenso. Para isso pensei em usar variáveis que deveriam conter array of string. Meu código:
procedure TForm1.Button1Click(Sender: TObject);
var
cArray: array of string;
begin
Edit1.Clear;
cArray := [´0´,´1´,´2´,´3´,´4´,´5´,´6´,´7´,´8´,´9´];
Edit1.Text := Edit1.Text + RandomFrom(cArray);
end;
O delphi me dá uma mensagem: ´Incopatible types: ´set´ and ´dynamic array´´
Onde está o meu erro??? Sou novo em programação avancada e preciso de ajuda!!!
Marcosrocha
Curtir tópico
+ 0Posts
21/12/2004
Jc_analista
var
vetor: array [0..2] of string = (´A´,´B´,´C´);
cont,i:integer;
begin
edit1.text:=vetor[random(2)]; // vai trazer só uma letra
cont:=random(100);
for i:=0 to cont do
edit1.text:=vetor[random(2)]; // vai trazer várias letras
end;
Gostei + 0
21/12/2004
Marcosrocha
[Error] UMain.pas(39): Cannot initialize local variables
Gostei + 0
21/12/2004
Jc_analista
var
form1: Tform1;
// abaixo da linha que e declarado o formulario
vetor: array [0..2] of string = (´A´,´B´,´C´);
Gostei + 0
21/12/2004
Massuda
Imaginando que você não precise alterar o conteúdo do array, você pode criar uma constante:
const vetor: array [0..2] of string = (´A´,´B´,´C´); var cont,i:integer;
Gostei + 0
21/12/2004
Marcosrocha
Uma ´vetor´ que me traz números (strings) e outra ´letras´ (strings) que me traz letas minúsculas para randomizar e gerar uma senha, por exemplo: 64a8sd3e
Gostei + 0
21/12/2004
Marcosrocha
Gostei + 0
21/12/2004
Massuda
Não sei se entendi, mas você pode fazer...
const letras: array [0..2] of string = (´A´,´B´,´C´); numeros: array [0..4] of string = (´5´,´9´,´0´, ´3´, ´7´);
Gostei + 0
21/12/2004
Marcosrocha
const letras: array [0..2] of string = (´A´,´B´,´C´); numeros: array [0..4] of string = (´5´,´9´,´0´, ´3´, ´7´);
É assim mesmo mas e para Randomizar essas duas variáveis???
Exemplo com uma: Edit1.Text := letras[Random(2)];
Eu queria fazer um jeito de a aplicação pegar uma letra ou um número aleatóriamente. não sendo necessário ser em ordem! Pode ser duas letras e um número ou dois números e uma letra ou três letras ou três números... Queria fazer randomizar as 2 variáveis!!!
Gostei + 0
21/12/2004
Jc_analista
for i:=0 to cont do
begin
if random(1) = 0 then
edit1.text:=edit1.text+letras[random(2)]
else
edit1.text:=edit1.text+numeros[random(2)];
/// Vc vai ter um random que vai dar 0 ou 1 se der 0 vc pega letras ou se der 1 vc pega numeros.
Entendeu.
Gostei + 0
21/12/2004
Marcosrocha
Gostei + 0
21/12/2004
Marcosrocha
Funcionou Gente, era isso mesmo que eu queria fazer... Obrigado!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)