Re: [delphi-br] array em muitos Tedits..

Gabriel Filho Thu, 16 Feb 2006 04:51:00 -0800

var
  v: array[1..50] of real;
 nome: String;
 i:integer;
{$R *.dfm}
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   For i:=1 to 50 do
   begin
      ((Components.FindComponent('Edit'+inttostr(i))) as TEdit).Text:=0;
   end;
....
 ....
   else
 begin
   For i:=1 to 50 do
   begin
     v[i]:= StrToFloat (((Components.FindComponent('Edit'+inttostr(i))) as
TEdit).Text);
   end;



Tenta assim...
Obs.: não testei;


Em 16/02/06, clodoaldo tonial <[EMAIL PROTECTED]> escreveu:
>
> 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 >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>


[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

Re: [delphi-br] array em muitos Tedits..

Responder a