Fórum funçao para fatorial... #167365

procedure TForm1.Button1Click(Sender: TObject); 
var 
  A: array[1..5] of Integer; 
  n,I: Integer; 
begin 
  A[1] := StrToInt(Edit1.Text); 
  A[2] := StrToInt(Edit2.Text); 
  A[3] := StrToInt(Edit3.Text); 
  A[4] := StrToInt(Edit4.Text); 
  A[5] := StrToInt(Edit5.Text); 
  n := A[I]; // neste ponto I vale zero, por isso não há resultado
  Label2.Caption := IntToStr(fatorial(n)); 
  Edit1.SetFocus; 
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
  A: array[1..5] of Integer; 
  n,I: Integer; 
begin 
  A[1] := StrToInt(Edit1.Text); 
  A[2] := StrToInt(Edit2.Text); 
  A[3] := StrToInt(Edit3.Text); 
  A[4] := StrToInt(Edit4.Text); 
  A[5] := StrToInt(Edit5.Text); 

  for I := Low(A) to High(A) do
  begin
     n := A[I]; // agora I varia de 1 a 5
     // a seguir, cada Label (Label1, Label2, ...) mostra o fatorial de cada elemento do vetor
     TLabel(FindComponent(Format(´Label¬d´, [I]))).Caption := IntToStr(fatorial(n)); 
  end;
  Edit1.SetFocus; 
end;