For dentro de For

[Valdiney F. Lima 0]

Márcio,

 

Seguindo aquela dica que você me passou... Eu parei em um pequeno probleminha:

 

ZQuery1.Active := false;  ZQuery1.SQL.Clear();  sql01 := 'select *from tb_imovel_dependencias';  ZQuery1.SQL.Add( sql01 );  ZQuery1.Open;  ZQuery1.Active := true;  ZQuery1.First;  for y1:=1 to 4 do  begin	  for x1:=1 to ZQuery1.RecordCount do	  begin		CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);		ZQuery1.Next;	  end;  end;

 

Com esse código ai, eu só consegui imprimir o resultado do banco de dados na primeira coluna... Será que cabe uma ajudinha aí? ;)

 

Abraço

[Hugo Slepicka 0]

Você poderia explicar melhor o que você está tentando fazer???? http://forum.imasters.com.br/public/style_emoticons/default/natal_sad.gif

[Vinicius Callegaro 0]

Não seria:

 

for x1:=1 to ZQuery1.RecordCount dobegin  for y1:=1 to 4 do  begin	CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);	ZQuery1.Next;  end;end;

[Valdiney F. Lima 0]

Não seria:

 

for x1:=1 to ZQuery1.RecordCount dobegin  for y1:=1 to 4 do  begin	CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);	ZQuery1.Next;  end;end;

Bom Vinicius...

 

funcionou quase perfeitamente.

 

Veja como ficou os checkBox:

 

Repare que o banheiro repetiu, quando não deveria.

 

No banco de dados só existem 10 registros. Onde o Banheiro é o décimo e último registro.

 

O que ta errado?

[Hugo Slepicka 0]

teria como você postar essa procedure CheckBoxDependencia para que possamos avalia-la????no aguardo...

[Valdiney F. Lima 0]

teria como você postar essa procedure CheckBoxDependencia para que possamos avalia-la????no aguardo...

Claro... Segue abaixo:

procedure TfrmCadastrarImoveis.CheckBoxDependencia(rotulo: string; coluna, linha: integer);var	check: TCheckBox;begincheck:=TCheckBox.Create(Self);check.Parent := ScrollBox4;check.Caption := rotulo;check.Top:=(linha * 17) - 17;check.Width:=120;check.Left:=(coluna * 160) - 160;end;

[Hugo Slepicka 0]

for x1:=1 to ZQuery1.RecordCount dobegin  for y1:=1 to 4 do  begin	CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);	ZQuery1.Next;  end;end;

 

Tente isso aki...

 

i := 1;for x1:=1 to ZQuery1.RecordCount dobegin	CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,x1*i,x1);	i := i + 1;end;

[Vinicius Callegaro 0]

Teste assim:

 

y1 := 1;for x1:=1 to ZQuery1.RecordCount dobegin  CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);  { Caso chegar no limite de colunas, voltar para a primeira }  if (y1 = 4) then	y1 := 1  else	inc(y1);  { Próximo registro }  ZQuery1.Next;end;

[Valdiney F. Lima 0]

Teste assim:

 

y1 := 1;for x1:=1 to ZQuery1.RecordCount dobegin  CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);  { Caso chegar no limite de colunas, voltar para a primeira }  if (y1 = 4) then	y1 := 1  else	inc(y1);  { Próximo registro }  ZQuery1.Next;end;

Bom, assim os registros não repitiram... Mas a estrutura foi afetada... rsrsrs

 

Segue abaixo:

[Vinicius Callegaro 0]

x1 := 1;y1 := 1;ZQuery1.First;while not ZQuery1.EOF dobegin  CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);  { Caso chegar no limite de colunas, voltar para a primeira }  if (y1 = 4) then  begin	y1 := 1;	inc(x1);  end  else	inc(y1);  { Próximo registro }  ZQuery1.Next;end;

[Valdiney F. Lima 0]

x1 := 1;y1 := 1;ZQuery1.First;while not ZQuery1.EOF dobegin  CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value ,y1,x1);  { Caso chegar no limite de colunas, voltar para a primeira }  if (y1 = 4) then  begin	y1 := 1;	inc(x1);  end  else	inc(y1);  { Próximo registro }  ZQuery1.Next;end;

Perfeito!Valeu brother.:)

[Hugo Slepicka 0]

funfo???

 

 

se funfou então beleza...

 

flw aew!!!

 

 

Feliz Natal... http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[Vinicius Callegaro 0]

h0u h0u h0u http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[marcio.theis 3]

Opa... Cheguei um pouco atrasado no post... mas beleza que deu tudo certinho... B)

[Valdiney F. Lima 0]

Opa... Cheguei um pouco atrasado no post... mas beleza que deu tudo certinho... B)

heheh deu certinho sim.Mas ainda vão aparecer outras perguntinhas.. rsrsrs;)Abraço

[marcio.theis 3]

beleza... enquando tiver, pode ir postando...

[Hugo Slepicka 0]

Opa...

 

 

estamos aqui para isso!!!! http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif