5

Com o seguinte código, crio uma quantidade X de edits:

var
  x : integer;
  var2: integer;
begin
  var2 := strtoint(edit2.Text);
  for x := 1 to var2 do
  begin
    ArrayEdit[x] := TEdit.Create(Self);
    ArrayEdit[x].Parent:= Self;
    ArrayEdit[x].Left := 83 + x * 50;
    ArrayEdit[x].Top := 130;
    ArrayEdit[x].Width := 41;
    ArrayEdit[x].Height :=24;
    ArrayEdit[x].Name := 'edit'+ inttostr(x+20);
    ArrayEdit[x].Text := '';
    ArrayEdit[x].ShowHint:=true;
    ArrayEdit[x].Hint:='edit'+ inttostr(x+20);
  end;
end;

Minha dúvida é a seguinte: Preciso pegar os valores de cada edit criado, e receber em uma variável para ser usada depois. Como posso fazer isso?

5
  • Receber em uma variável? Não seria melhor criar um vetor para armazenar já que são vários Edits. A menos que você realize algum tipo de operação em tempo de execução inclusive e que utilize apenas uma variável. Commented 21/09/2015 às 20:49
  • Sim, acabei pensando melhor a minha ideia foi a seguinte: adicionar os edit em um outro vetor, e dai atribuir para uma variável. Pois tenho que usar esses valores que serão escritos no edit criado em tempo de execução em um Tmemo. Commented 21/09/2015 às 22:34
  • E já implementou? Funcionou? Commented 22/09/2015 às 1:23
  • 1
    Funcionou, Obrigado. Commented 22/09/2015 às 13:47
  • Se você quiser pode colocar a resposta aqui na sua própria pergunta para que todos saibam o que você fez, sua pergunta teve 3 votos positivos até o momento pode ser que ajude alguém (; Commented 22/09/2015 às 13:50

2 Respostas 2

2

Foi adicionado os valores para algumas variáveis, de acordo com o índice necessário. Bem simples, mas para o meu caso era isso.

   res := ArrayEdit[1].text;
   res2 := ArrayEdit[2].Text;
   res3 := ArrayEdit[3].text;
2

Seu ArrayEdit é um array de Objetos do tipo TEdit então basta você acessa-lo na posição que terá um TEdit, ai é só acessar a propriedade Text do mesmo.

 for x := 1 to length(ArrayEdit) do
  begin
    ArrayEdit[x].text
  end;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .