Como Gerar Todos apartamentos de um bloco automaticamante

[Paulo Sergio Maia 0]

Bom Dia, o problema e o seguinte, por exemplo um bloco de apartamentos tem 4 andares com 4 aprtamentos por andar como fazer para que quando eu clicar em botão ele gere todos os apartamentos deste bloco com seus devidos numero exemplo: 101,102,103,104,201,202,203,204, e assim por diante ate chegar au ultimo andar

[itepi 0]

x := 1
for I := 1 to andares do
begin
  for J := 1 to apartamentoPorAndar do
  begin
    Apartamentos[x] := (I * 100) + J;
    Inc[x];
  end;
end;

Onde :

x - variavel auxiliar para adicionar os numero dos apartamentos em um vetor ou em algum outro lugar;

andares - variavel com a quantidade de andares do predio

apartamentoPorAndar - váriavel com a quantidade de apartamento por andar do predio

Apartamentos - vetor para armazenar os número dos apartamentos

 

como vetor tem que ser pré-definido, você pode utilizar um TObjectList ou algum outro tipo de lista, ou jogar o valor em um Memo, ou algum outro lugar que você precisar.

 

Espero ter ajudado, qualquer coisa posta ai!