Buscar por:

Tipos de array

Código

{Um array é uma coleção ordenada de elementos do mesmo tipo de dados, que faz uso de um índice para dar acesso aos items da coleção. Arrays são úteis em diversas situações. Como o índice permite acesso direto aos elementos da lista, arrays fornecem um poderoso mecanismo para se organizar dados. O exemplo a seguir mostra como declarar uma array : }

Procedure Tform1.Button1Click (Sender: Tobject) ; 

var 

  Dias_de_Semana: array[1..7] of String ; 

var 

  DiaNo: Integer; 

  DiadaSemana: String; 

begin 

  {Inicializa o array com nomes dos dias da semana } 

Dias_de_Semana [1] := 'Domingo' ; 

Dias_de_Semana [2] := 'Segunda-feira' ; 

Dias_de_Semana [3] := 'Terça-feira' ; 

Dias_de_Semana [4] := 'Quarta-feira' ; 

Dias_de_Semana [5] := 'Quinta-feira' ; 

Dias_de_Semana [6] := 'Sexta-feira' ; 

Dias_de_Semana [7] := 'Sábado' ; 

DiaNo :=DayOfWeek (Date) ; {Retorna o número correspondente ao dia da semana da data atual} 

ShowMessage(' Hoje é ' + Dias_de_Semana [DiaNo] ) ; 

  Uso do comando FOR

 { O comando For deve ser usado sempre que se souber com antecedência quantas vezes o laço deverá ser executado. Como ilustração vamos resolver o seguinte problema :

No rock encontram-se quatro garotas (Juliana, Natália, Carolina e Adriana) e quatro rapazes (Guilherme, Neto, Leonardo e Eduardo). Pede-se : quantos - e quais - pares podem ser formados com essa turma ?   

Para resolver:

Crie uma nova Aplicação (File | New Application)

Acrescente um ListBox

Acrescente um Button

Dê dois cliques sobre o Button e acrescente o código :}

procedure TForm1.Button1Click(Sender: TObject); 

var 

  ElasList : array[1..4] of String [10] ; 

  ElesList : array[1..4] of String[10]; 

i , j : integer; 

begin 

  ElasList[1] := 'Juliana' ; 

  ElasList[2] := 'Natália' ; 

  ElasList[3] := 'Carolina' ; 

  ElasList[4] := 'Adriana' ; 

  ElesList[1] := 'Guilherme' ; 

  ElesList[2] := 'Neto' ; 

  ElesList[3] := 'Leonardo' ; 

  ElesList[4] := 'Eduardo' ; 

 for i:=1 to 4 do 

  for j:=1 to 4 do 

  ListBox1.Items.Add(ElasList[i] + ' '+ElesList[j]); 

end; 

end.