-----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de clodoaldo tonial Enviada em: quinta-feira, 16 de fevereiro de 2006 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] array em muitos Tedits.. Ola bom dia. Voce pode utilizar um for no Components[] do tipo TEdit e adicionar o valor em um TString ou TStringList. Atenc. Elazar 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:r eal; 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 >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!. _______________________________________________________ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com -- <<<<< 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
