Bom dia a todos, estou com um problema meio que "cavernoso", tenho que fazer a
leitura das strings de pelo menos 50 edits para posterior utlização destes
valores, entaum fiz o seguinte:
var
v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,v17,v18,v19,v20:real;
v21,v22,v23,v24,v25,v26,v27,v28,v29,v30,v31,v32,v33,v34,v35,v36,v37,v38:real;
v39,v40,v41,v42,v43,v44,v45,v46,v47,v48,v49,v50:real;
v51,v52,v53,v54,v55:real;
nome: String;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := '0';
Edit2.Text := '0';
...
Edit50.Text := '0';
....
....
else
begin
v1 := StrToFloat (edit1.text);
v2 := StrToFloat (edit2.text);
v3 := StrToFloat (edit3.text);
v4 := StrToFloat (edit4.text);
.....
Imagina que tenha uma forma de naum ter que declarar tantas variáveis
simplificando meu source, usando um array para leitura dos Edits, isto é
possível???
se fosse como faria? alguém pode me passar um exemplo ou me explicar como
devo proceder, obrigado a todos que puderem contribuir com meu aprendizado.
Seja livre - Evite pirataria use software livre -
Clodoaldo Tonial - icq:162167716 - msn:[EMAIL PROTECTED]
---------------------------------
Yahoo! Acesso Grátis
Internet rápida e grátis. Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
