definição de variaveis

[guilhermerayol]

E ai fiz esse programinha ai mas so funciona 2 vezes e trava, da pra falar o que pode ser? aproveitando tenho aqui 100 tabelas onde devo realizar em cada uma delas uma pesquisa é possivel criar um array de objetos e ir passando de uma para uma? tambem criei o seguinte vetor

vet:=array[1..20] of integer; queria criar um array com vetores tipo vet

vetor2( v1,v2,v3,v4,v5) do tipo vet;f obrigado ai pela atenção

[rockzilla2109]

Quanto a seu programa travando, pode ser que tenha entrado em algum loop (while, for) e esteja esperando alguma condição não tratada no programa. Para isso seria melhor você postar a parte do código que está com problemas para poder analisar...

Segundo, quanto a um array de componentes, é possível sim, eu já coloquei um monte de TImages na tela e com este código inseri todos em uma array para facilitar o uso:

//------------------------------------------------------------------------------
//          Form Create
//------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
Var
 i,j,k: integer;
 Pictures: array [1..5, 1..20] of Timage;
begin
 j := 1;
 k := 1;
 {carrega todos os Images da tela para a matriz "pictures"}
 for i:=0 to Form1.ComponentCount -1 do
 begin
  if(Form1.Components[i] is TImage)then
  begin
   pictures[j,k]:= TImage(Form1.Components[i]);
   if(k <= 19)then
    inc(k)
   else
   begin
    k:= 1;
    inc(j);
   end;
  end;
 end;
end;

{Para utilizar a array de componentes, é do mesmo jeito como se fosse um TImage normal :  
   Pictures[1,1].Canvas.Brush.Color:= clYellow;
   Pictures[1,1].Canvas.Rectangle(0,0,32,32);}

Quanto à arrays de arrays como você quer usar, um modo simples seria você usar "record":

  {antes de implementation, declare:}
  type TVetores = record
            V1: array [1..10] of integer;
            V2: array [1..10] of real;
            V3: array [1..10] of string;
  end;

  {agora só falta alocar uma variável para utilizar esta record:}
  Var 
     MeusVetores: TVetores;
  begin
     MeusVetores.V1[1]:= 1234;
     MeusVetores.V2[1]:= 12.34;
     MeusVetores.V3[1]:= '1234';
  end;