Trabalhando com vetor
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 DE CADA edits e depois mostrasse em algum lugar.
Muito grato.
Att .
Marcelo.
Queria que ao clicar em um botao ele carregasse esse vetor com os valores DE CADA edits e depois mostrasse em algum lugar.
Muito grato.
Att .
Marcelo.
Marcelototini
Curtidas 0
Respostas
Nigro
12/09/2003
O seu vetor deve ser de 0..9 e onde você quer mostrar esses valores?
GOSTEI 0
Ricna
12/09/2003
Não sei p/q, mas pode ser isso:
procedure TForm1.Button1Click(Sender: TObject);
var
vetor:array[1..10]of real;
begin
vetor[1]:= strtofloat(edit1.text);
label1.caption:=floattostr(vetor[1]);
vetor[2]:= strtofloat(edit2.text);
label2.caption:=floattostr(vetor[2]);
...até 10
end;
procedure TForm1.Button1Click(Sender: TObject);
var
vetor:array[1..10]of real;
begin
vetor[1]:= strtofloat(edit1.text);
label1.caption:=floattostr(vetor[1]);
vetor[2]:= strtofloat(edit2.text);
label2.caption:=floattostr(vetor[2]);
...até 10
end;
GOSTEI 0