Armazenar valores em vetor

Delphi

12/09/2003

Eu tenho 10 edit´s na tela e um vetor declarado ´ Vet array [1..9] of real´
Queria que ao clicar em um botao ele carregasse esse vetor com os valores das edits.


Muito grato.
Att .
Marcelo.


Marcelototini

Marcelototini

Curtidas 0

Respostas

Rafael Heise

Rafael Heise

12/09/2003

Você pode fazer o seguinte..
na propriedade Tag dos edit´s dizer qual a posição do edit no vetor, e no OnClick do botão fazer o seguinte:
for cont := 0 to Form.ControlCount - 1 do
begin
  if Form.Controls[cont] is TEdit then
    try
      Vetor[Form.Controls[cont].Tag] := StrToFloat((Form.Controls[cont] as TEdit).Text);
    except
      Vetor[Form.Controls[cont].Tag] := 0;
    end;
end;


beleza ??
acho que isso vai resolver seu problema....
valeu...
mas seria bom fazer uns testes também do tipo, se existe aquela posição no vetor, se o valor da Tag está entre 1 e 9 sei lá.... algo do gênero...
(if Form.Controls[cont].Tag in [1..9] then)

abraços...


GOSTEI 0
POSTAR