Problema ao marcar um RadioButton em tempo de execução

[Valdiney F. Lima 0]

Eu tenho o seguinte procedimento que cria um RadioButton em tempo de execução:

procedure TfrmEditarImovel.RadioButtonTipo(rotulo: string; id, coluna, linha: integer; marcado: boolean);var	check: TRadioButton;begincheck:=TRadioButton.Create(Self);check.Parent := ScrollBox2;check.Caption := rotulo;if marcado then  check.Checked := marcado;check.Tag := id;check.Top:=(linha * 17) - 17;check.Width:=120;check.Left:=(coluna * 160) - 160;end;

O procedimento acima depende de dois resultados que esta em duas tabelas distintas.

 

 

Tabela 1:

 

Campos:

id - descricao

1 - apartamento

2 - casa

3 - terreno

4 - galpão

 

 

 

Na tabela 2, tem um campo que preenchido com TRUE e FALSE.

 

A operação funciona assim. A medida que vai criando os RadioButton para visualização é feita uma pesquisa paralela onde verifica se na tabela 2 existe algum RadioButton marcado como TRUE, se sim, é enviado como parametro no procedimento onde ele muda a propriedade do RadioButton para RadionButton.Checked := True; para que ele fique marcado.

 

exemplo:

 

RadioButtonTipo( ZQuery1.FieldByName('descricao').Value, ZQuery1.FieldByName('id').Value, y1, x1, TRUE);

O ultimo parametro define se o RadioButton será marcado na criação dele.

 

Mas como na tabela 1 tem vários registro e consequentimente ele cria varios Radios, fica sempre com o ultimo marcado.

 

 

O eu estou errando?

[marcio.theis 3]

É que é permitido somente um RadioButton marcado dentro do seu Parent, no caso se colocar CheckBox irá poder marcar quantos quiser...

[Valdiney F. Lima 0]

É que é permitido somente um RadioButton marcado dentro do seu Parent, no caso se colocar CheckBox irá poder marcar quantos quiser...

Mas é isso que eu quero mesmo. Apenas um!Mas imagine o seguinte a seguinte lista de RadioButton:1 casa2 apartamento3 terreno4 escritorio5 galpaoDai na pesquisa, o sistema acha o apartamento e tenta marcar... Porém vai indo ele passa por todos e deixa o ultimo marcado, mesmo nao estando ele no banco de dados.

[marcio.theis 3]

Mas da forma que você esta chamando a procedure você sempre esta passando para o parametro MARCADO como True...

[Valdiney F. Lima 0]

Mas da forma que você esta chamando a procedure você sempre esta passando para o parametro MARCADO como True...

Estou mandando a UNIT completa pra você dar uma olhada.

 

unit uEditarImovel;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs, Spin, DB,  ZAbstractRODataset, ZAbstractDataset, ZDataset, Mask, DBCtrls,  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, Gauges;type  TfrmEditarImovel = class(TForm)	Panel1: TPanel;	Shape1: TShape;	PageControl1: TPageControl;	TabSheet1: TTabSheet;	Image13: TImage;	ZQuery1: TZQuery;	BitBtn1: TBitBtn;	DataSource1: TDataSource;	ZQuery2: TZQuery;	ZQuery3: TZQuery;	DataSource2: TDataSource;	Panel2: TPanel;	OpenDlg: TOpenDialog;	IdFTP1: TIdFTP;	ProgressBar1: TProgressBar;	ScrollBox3: TScrollBox;	Label4: TLabel;	Label5: TLabel;	Label6: TLabel;	Label7: TLabel;	Label8: TLabel;	Label9: TLabel;	Label10: TLabel;	Label11: TLabel;	Label12: TLabel;	Label13: TLabel;	Label14: TLabel;	Label15: TLabel;	Label16: TLabel;	Label17: TLabel;	Label18: TLabel;	Label19: TLabel;	Label20: TLabel;	Shape2: TShape;	Label21: TLabel;	Label22: TLabel;	Label23: TLabel;	Label24: TLabel;	Label25: TLabel;	Label26: TLabel;	Shape3: TShape;	Label27: TLabel;	Shape4: TShape;	Label28: TLabel;	Shape5: TShape;	Label29: TLabel;	Shape6: TShape;	Label30: TLabel;	Label31: TLabel;	Label32: TLabel;	Label33: TLabel;	Label34: TLabel;	Label35: TLabel;	Label36: TLabel;	Label37: TLabel;	Label38: TLabel;	Label39: TLabel;	Label1: TLabel;	CheckBox1: TCheckBox;	CheckBox2: TCheckBox;	CheckBox3: TCheckBox;	Edit1: TEdit;	Edit2: TEdit;	Edit3: TEdit;	Edit4: TEdit;	Edit5: TEdit;	Edit6: TEdit;	Edit8: TEdit;	Edit9: TEdit;	Edit10: TEdit;	Edit11: TEdit;	Edit12: TEdit;	Edit13: TEdit;	CheckBox4: TCheckBox;	UpDown1: TUpDown;	Edit14: TEdit;	Edit15: TEdit;	Edit16: TEdit;	Edit17: TEdit;	UpDown2: TUpDown;	UpDown3: TUpDown;	UpDown4: TUpDown;	CheckBox5: TCheckBox;	Edit18: TEdit;	UpDown5: TUpDown;	RadioButton1: TRadioButton;	RadioButton2: TRadioButton;	RadioButton3: TRadioButton;	ScrollBox5: TScrollBox;	ComboBox6: TComboBox;	ComboBox7: TComboBox;	Edit19: TEdit;	ComboBox8: TComboBox;	Edit20: TEdit;	ComboBox9: TComboBox;	Edit21: TEdit;	Edit22: TEdit;	Edit23: TEdit;	Memo1: TMemo;	Edit24: TEdit;	Edit25: TEdit;	UpDown6: TUpDown;	UpDown7: TUpDown;	Edit26: TEdit;	UpDown8: TUpDown;	MaskEdit1: TMaskEdit;	Edit7: TEdit;	ScrollBox4: TScrollBox;	ScrollBox2: TScrollBox;	Edit29: TEdit;	Label40: TLabel;	ZQuery4: TZQuery;	procedure FormClose(Sender: TObject; var Action: TCloseAction);	procedure BitBtn1Click(Sender: TObject);	procedure CheckBox5Click(Sender: TObject);	procedure CheckBox3Click(Sender: TObject);	procedure Button1Click(Sender: TObject);	procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;	  const AWorkCount: Integer);	procedure IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;	  const AWorkCountMax: Integer);  private	{ Private declarations }	procedure CheckBoxDependencia(rotulo: string; id, coluna, linha, marcado2: integer);	procedure CheckBoxDetalhes (rotulo: string; id, coluna, linha: integer);	procedure RadioButtonTipo(rotulo: string; id, coluna, linha: integer; marcado: boolean);  public	{ Public declarations }	procedure Carrega(codImovel: integer);  end;var  frmEditarImovel: TfrmEditarImovel;  arrayFotos : Array of String;  arrayMapas : Array of String;  arrayBancoFotos : Array of String;  arrayBancoMapas : Array of String;  bytesToTransfer: integer;  codAtualiza: integer;implementationuses uSobre, uConexao, uPrincipal, uMd5, uBancoDeDados, uCadastrarImoveis;{$R *.dfm}procedure TfrmEditarImovel.CheckBoxDependencia(rotulo: string; id, coluna, linha, marcado2: integer);var	check: TCheckBox;begincheck:=TCheckBox.Create(Self);check.Parent := ScrollBox4;check.Caption := rotulo;if marcado2 = 1 then  check.Checked := true;check.Tag := id;check.Top:=(linha * 17) - 17;check.Width:=120;check.Left:=(coluna * 160) - 160;end;procedure TfrmEditarImovel.CheckBoxDetalhes(rotulo: string; id, coluna, linha: integer);var	check: TCheckBox;begincheck:=TCheckBox.Create(Self);check.Parent := ScrollBox5;check.Caption := rotulo;check.Tag := id;check.Top:=(linha * 17) - 17;check.Width:=120;check.Left:=(coluna * 160) - 160;end;procedure TfrmEditarImovel.RadioButtonTipo(rotulo: string; id, coluna, linha: integer; marcado: boolean);var	check: TRadioButton;begincheck:=TRadioButton.Create(Self);check.Parent := ScrollBox2;check.Caption := rotulo;if marcado then  check.Checked := marcado;check.Tag := id;check.Top:=(linha * 17) - 17;check.Width:=120;check.Left:=(coluna * 160) - 160;end;procedure TfrmEditarImovel.FormClose(Sender: TObject;  var Action: TCloseAction);begin  Action   := caFree;  frmEditarImovel := nil;end;function splitstr(valor, caracter: string; index: integer): string;varanterior,i,contador:integer;begincontador:=0;for i:=0 to length(valor) dobegin  if valor[i]=caracter then  begin  if (contador = index-1) then  begin  result:=copy(valor,anterior+1,i-anterior-1);  exit;  end;  anterior:=i;  inc(contador,1);  end;  if i=length(valor) then  begin  result:=copy(valor,anterior+1,i-anterior);  exit;  end;  if index=1 then  begin  result:=copy(valor,0,pos(caracter,valor)-1);  exit;  end;end;end;function geraNome(aQuant: integer): string;var  i: integer;const  str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';begin  for i:= 1 to aQuant do  begin	Randomize;	Result := Result + str[Random(Length(str))+1];  end;end;procedure TfrmEditarImovel.BitBtn1Click(Sender: TObject);var  x0, x1, x2, i, a, b, contadorFoto, idRetorno: integer;  sql, sqlFoto, guardaNome : string;  diretorio : string;  id_tb_cliente, tipo_cliente, em_destaque, tipo_de_imovel: string;  imovel_de_alto_padrao, destaque_da_semana, codigo_de_referencia: string;  edificio, numero_de_pavimentos, pavimentos_do_imovel: string;  numero_de_imoveis_por_pavimento, endereco, numero, bairro: string;  cidade, cep, estado, entre_rua_1a, entre_rua_1b, entre_rua_2a: string;  entre_rua_2b, ponto_de_referencia, linhas_urbanas, finalidadeVenda: string;  finalidadeLocacao, finalidadeLocacaoTemporada, situacao_do_imovel: string;  situacao_finaceira, area_total, medida_area_total, area_construida: string;  medida_area_construida, dados_do_imovel, valor, valor_condominio: string;  iptu: string;  total_de_quartos, numero_de_quartos, numero_de_suites_simples, numero_de_suites_master: integer;  vagas_na_garagem, vaga_coberta, dependencias_do_imovel, observacoes, numero_de_banheiro, url_destaque: string;begin for x0 := 0 to ComponentCount - 1 do if Components[x0].ClassType = TRadioButton then  if TRadioButton(Components[x0]).Parent = ScrollBox2 then	if TRadioButton(Components[x0]).Checked then	begin	 tipo_de_imovel := IntToStr(TRadioButton(Components[x0]).Tag);	 if tipo_de_imovel = '' then	 begin	  ShowMessage('Selecione um tipo de imóvel.');	  ScrollBox3.VertScrollBar.Position := 0;	  Label1.Font.Color := clRed;	 end else begin	  Label1.Font.Color := clBlack;	if Edit3.Text = '' then	begin	  PageControl1.ActivePage := TabSheet1;	  showmessage('Digite o endereço do imóvel.');	  ScrollBox3.VertScrollBar.Position := 0;	  Label9.Font.Color := clRed;	  Edit3.SetFocus;	end else begin	  Label9.Font.Color := clBlack;	  if Edit4.Text = '' then	  begin		PageControl1.ActivePage := TabSheet1;		showmessage('Digite o número do endereço do imóvel.');		ScrollBox3.VertScrollBar.Position := 0;		Label10.Font.Color := clRed;		Edit4.SetFocus;	  end else begin		Label10.Font.Color := clBlack;		if Edit5.Text = '' then		begin		  PageControl1.ActivePage := TabSheet1;		  showmessage('Digite o bairro do imóvel.');		  ScrollBox3.VertScrollBar.Position := 0;		  Label11.Font.Color := clRed;		  Edit5.SetFocus;		end else begin		  Label11.Font.Color := clBlack;		  if Edit6.Text = '' then		  begin			PageControl1.ActivePage := TabSheet1;			showmessage('Digite o nome da cidade.');			ScrollBox3.VertScrollBar.Position := 0;			Label12.Font.Color := clRed;			Edit6.SetFocus;		  end else begin			Label12.Font.Color := clBlack;			if (CheckBox3.Checked) and (Edit7.Text = '') then			begin			  PageControl1.ActivePage := TabSheet1;			  showmessage('Digite o endereco(URL) eletrônico do lançamento.');			  ScrollBox3.VertScrollBar.Position := 0;			  Label39.Font.Color := clRed;			  Edit7.SetFocus;			end else begin			  Label39.Font.Color := clBlack;			  if Edit29.Text = '' then			  begin			  PageControl1.ActivePage := TabSheet1;			  showmessage('Selecione o estado.');			  ScrollBox3.VertScrollBar.Position := 0;			  Label14.Font.Color := clRed;			  Edit29.Setfocus;			  end else begin			  Label14.Font.Color := clBlack;			  if (not RadioButton1.Checked) AND (not RadioButton2.Checked) AND (not RadioButton3.Checked) then			  begin				PageControl1.ActivePage := TabSheet1;				showmessage('Você deve selecionar uma finalidade.');				ScrollBox3.VertScrollBar.Position := 604;				Label28.Font.Color := clRed;			  end else begin				Label28.Font.Color := clBlack;			  if Edit21.Text = '' then			  begin				PageControl1.ActivePage := TabSheet1;				showmessage('Você deve digitar um valor.');				ScrollBox3.VertScrollBar.Position := 855;				Label35.Font.Color := clRed;				Edit21.SetFocus;				exit;			  end else begin				Label35.Font.Color := clBlack;				  { Gravando os dados }				  // Grava o ID do usuario conectado				  id_tb_cliente := frmPrincipal.idUsuario;				  // Grava o tipo de usuario				  tipo_cliente := frmPrincipal.tipoDePessoa;				  // Em Destaque				  if CheckBox1.Checked then				  begin					em_destaque := 'ON';				  end else begin					em_destaque := '';				  end;				  // Imovel de alto padrao				  if CheckBox2.Checked then				  begin					imovel_de_alto_padrao := 'ON';				  end else begin					imovel_de_alto_padrao := '';				  end;				  // Lançamento				  if CheckBox3.Checked then				  begin					url_destaque := Edit7.Text;				  end else begin					url_destaque := '';				  end;				  // Codigo de referencia				  codigo_de_referencia := Edit1.Text;				  // Edificil				  edificio := Edit2.Text;				  // Numero de andares				  numero_de_pavimentos := Edit24.Text;				  // Andar do imovel				  pavimentos_do_imovel := Edit25.Text;				  // Numero de imoveis por andar				  numero_de_imoveis_por_pavimento := Edit26.Text;				  // Endereço				  endereco := Edit3.Text;				  // numero				  numero := Edit4.Text;				  // bairro				  bairro := Edit5.Text;				  // cidade				  cidade := Edit6.Text;				  // CEP				  cep := MaskEdit1.Text;				  // Estado				  estado := Edit29.Text;				  // Entre ruas 1a				  entre_rua_1a := Edit8.Text;				  // Entre ruas 1b				  entre_rua_1b := Edit9.Text;				  // Entre ruas 2a				  entre_rua_2a := Edit10.Text;				  // Entre ruas 2b				  entre_rua_2b := Edit11.Text;				  // ponto de referencia				  ponto_de_referencia := Edit12.Text;				  // Linhas urbanas				  linhas_urbanas := Edit13.Text;				  // Dependencias do imovel				  dependencias_do_imovel := '';				  for x1:=0 to ComponentCount - 1 do				  if Components[x1].ClassType = TCheckBox then				  if TCheckBox(Components[x1]).Parent = ScrollBox4 then				  if TCheckBox(Components[x1]).Checked then					begin					if dependencias_do_imovel <> '' then						dependencias_do_imovel := dependencias_do_imovel + ';';					dependencias_do_imovel := dependencias_do_imovel + IntToStr(TCheckBox(Components[x1]).Tag);					end;				  // Numero de quartos				  numero_de_quartos := StrToInt(Edit14.Text);				  // Numero de suites simples				  numero_de_suites_simples := StrToInt(Edit15.Text);				  // Numero de suites master				  numero_de_suites_master := StrToInt(Edit16.Text);				  // Total de quartos				  total_de_quartos := numero_de_quartos + numero_de_suites_simples + numero_de_suites_master;				  // Vagas na garagem				  vagas_na_garagem := Edit17.Text;				  // Vaga coberta				  if CheckBox4.Checked then				  begin				   vaga_coberta := 'ON';				  end else begin				   vaga_coberta := '';				  end;				  // banheiro				  if CheckBox5.Checked then				  begin					numero_de_banheiro := Edit18.Text;				  end else begin					numero_de_banheiro := '0';				  end;				  // finalidade Venda				  if RadioButton1.Checked then				  begin					finalidadeVenda := 'ON';				  end else begin					finalidadeVenda := '';				  end;				  // finalidade Locação				  if RadioButton2.Checked then				  begin					finalidadeLocacao := 'ON';				  end else begin					finalidadeLocacao := '';				  end;				  // finalidade Locação Temporada				  if RadioButton2.Checked then				  begin					finalidadeLocacaoTemporada := 'ON';				  end else begin					finalidadeLocacaoTemporada := '';				  end;				  // Detalhes do Imovel				  dados_do_imovel := '';				  for x2:=0 to ComponentCount - 1 do				  if Components[x2].ClassType = TCheckBox then				  if TCheckBox(Components[x2]).Parent = ScrollBox5 then				  if TCheckBox(Components[x2]).Checked then					begin					if dados_do_imovel <> '' then						dados_do_imovel := dados_do_imovel + ';';					dados_do_imovel := dados_do_imovel + IntToStr(TCheckBox(Components[x2]).Tag);					end;				  // Situação do Imovel				  if ComboBox6.Text = '' then				  begin					situacao_do_imovel := '';				  end else begin					situacao_do_imovel := ComboBox6.Text;				  end;				  // Situação financeira				  if ComboBox7.Text = '' then				  begin					situacao_finaceira := '';				  end else begin					situacao_finaceira := ComboBox7.Text;				  end;				  // área total				  area_total := Edit19.Text;				  // tipo media total				  medida_area_total := ComboBox8.Text;				  // Area construida				  area_construida := Edit20.Text;				  // medida area contruida				  medida_area_construida := ComboBox9.Text;				  // Valor				  valor := Edit21.Text;				  // valor do condominio				  valor_condominio := Edit22.Text;				  // valor do iptu				  iptu := Edit23.Text;				  // observações				  observacoes := Memo1.Text;				  Panel2.Visible := true;				  end;				  if Application.MessageBox('Deseja continuar com a alteração do cadastro?','Alteração de imóvel',mb_iconquestion+mb_yesno+mb_defbutton1) = idyes then				  begin					if conecta(true) then					begin					try					  Label40.Visible := true;					  Label40.Caption := 'Gravando os dados...';					  frmEditarImovel.Repaint;					  // Gravando no banco					  ZQuery1.Active := false;					  ZQuery1.SQL.Clear;					  sql := 'UPDATE tb_imovel SET em_destaque="'+em_destaque+'", tipo_de_imovel="'+tipo_de_imovel+'", imovel_de_alto_padrao="'+imovel_de_alto_padrao+'", destaque_da_semana="'+destaque_da_semana+'", codigo_de_referencia="'+codigo_de_referencia+'", edificio="'+edificio+'", numero_de_pavimentos="'+numero_de_pavimentos+'", pavimentos_do_imovel="'+pavimentos_do_imovel+'", numero_de_imoveis_por_pavimento="'+numero_de_imoveis_por_pavimento+'", endereco="'+endereco+'", numero="'+numero+'", bairro="'+bairro+'", cidade="'+cidade+'", cep="'+cep+'", estado="'+estado+'", entre_rua_1a="'+entre_rua_1a+'", entre_rua_1b="'+entre_rua_1b+'", entre_rua_2a="'+entre_rua_2a+'", entre_rua_2b="'+entre_rua_2b+'", ponto_de_referencia="'+ponto_de_referencia+'", linhas_urbanas="'+linhas_urbanas+'", finalidadeVenda="'+finalidadeVenda+'", finalidadeLocacao="'+finalidadeLocacao+'", finalidadeLocacaoTemporada="'+finalidadeLocacaoTemporada+'", ';					  sql := sql + 'situacao_do_imovel="'+situacao_do_imovel+'", situacao_finaceira="'+situacao_finaceira+'", area_total="'+area_total+'", medida_area_total="'+medida_area_total+'", area_construida="'+area_construida+'", medida_area_construida="'+medida_area_construida+'", dados_do_imovel="'+dados_do_imovel+'", valor="'+valor+'", valor_condominio="'+valor_condominio+'", iptu="'+iptu+'", numero_de_quartos="'+IntToStr(numero_de_quartos)+'", numero_de_suites_simples="'+IntToStr(numero_de_suites_simples)+'", numero_de_suites_master="'+IntToStr(numero_de_suites_master)+'", total_de_quartos="'+IntToStr(total_de_quartos)+'", vagas_na_garagem="'+vagas_na_garagem+'", vaga_coberta="'+vaga_coberta+'", dependencias_do_imovel="'+dependencias_do_imovel+'", observacoes="'+observacoes+'", numero_de_banheiro="'+numero_de_banheiro+'", url_destaque="'+url_destaque+'", alugado="0" ';					  sql := sql + 'WHERE (id="'+IntToStr(codAtualiza)+'")';					  ZQuery1.SQL.Add( sql );					  ZQuery1.Open;					  Label40.Visible := false;					  frmEditarImovel.Repaint;					except					  ShowMessage('Código do erro: SQL-001'+#13+'Não foi possível executar a instrução SQL.');					end;					end else begin					   ShowMessage('Código do erro: CS-020'+#13+'Não foi possível conectar ao servidor.');					end;					conecta(false);					ShowMessage('O registro foi alterado com sucesso!');					frmEditarImovel.Close;				  end;				end;			  end;			end;		  end;		end;	  end;	 end;   end; end;end;procedure TfrmEditarImovel.CheckBox5Click(Sender: TObject);begin  if CheckBox5.Checked then  begin	Edit18.Enabled := true;	UpDown5.Enabled := true;	Label27.Enabled := true;  end else begin	Edit18.Enabled := false;	UpDown5.Enabled := false;	Label27.Enabled := false;	Edit18.Text := '0';  end;end;procedure TfrmEditarImovel.Carrega(codImovel: integer);var	x1, x2, y1, y2, pulo, x, i, l1, marcado2, marcado3 : integer;	sql01, sql02, dep, aux1: string;	concluido, marcado: boolean;begin  codAtualiza := codImovel;  PageControl1.ActivePage := TabSheet1;  ScrollBox3.VertScrollBar.Position := 0;  // Conecta ao servidor  frmPrincipal.Processando(TRUE);  if conecta(True) then  begin  ZQuery4.Active := false;  ZQuery4.SQL.Clear();  sql02 := 'SELECT *FROM tb_imovel WHERE id='+IntToStr(codImovel);  ZQuery4.SQL.Add(sql02);  ZQuery4.Open;  frmEditarImovel.Caption := 'Editar Imóvel [ Ref.: '+ZQuery4.FieldByName('codigo_de_referencia').AsString+']';  // Em Destaque  if ZQuery4.FieldByName('em_destaque').AsString = 'ON' then	CheckBox1.Checked := TRUE  else	CheckBox1.Checked := FALSE;  // Imovel de Alto Padrão  if ZQuery4.FieldByName('imovel_de_alto_padrao').AsString = 'ON' then	CheckBox2.Checked := TRUE  else	CheckBox2.Checked := FALSE;  Edit1.Text := ZQuery4.FieldByName('codigo_de_referencia').AsString;  Edit2.Text := ZQuery4.FieldByName('edificio').AsString;  Edit24.Text := ZQuery4.FieldByName('numero_de_pavimentos').AsString;  Edit25.Text := ZQuery4.FieldByName('pavimentos_do_imovel').AsString;  Edit26.Text := ZQuery4.FieldByName('numero_de_imoveis_por_pavimento').AsString;  Edit3.Text := ZQuery4.FieldByName('endereco').AsString;  Edit4.Text := ZQuery4.FieldByName('numero').AsString;  Edit5.Text := ZQuery4.FieldByName('bairro').AsString;  Edit6.Text := ZQuery4.FieldByName('cidade').AsString;  MaskEdit1.Text := ZQuery4.FieldByName('cep').AsString;  Edit29.Text := ZQuery4.FieldByName('estado').AsString;  Edit8.Text := ZQuery4.FieldByName('entre_rua_1a').AsString;  Edit9.Text := ZQuery4.FieldByName('entre_rua_1b').AsString;  Edit10.Text := ZQuery4.FieldByName('entre_rua_2a').AsString;  Edit11.Text := ZQuery4.FieldByName('entre_rua_2b').AsString;  Edit12.Text := ZQuery4.FieldByName('ponto_de_referencia').AsString;  Edit13.Text := ZQuery4.FieldByName('linhas_urbanas').AsString;  Edit14.Text := ZQuery4.FieldByName('numero_de_quartos').AsString;  Edit15.Text := ZQuery4.FieldByName('numero_de_suites_simples').AsString;  Edit16.Text := ZQuery4.FieldByName('numero_de_suites_master').AsString;  Edit17.Text := ZQuery4.FieldByName('vagas_na_garagem').AsString;  if ZQuery4.FieldByName('vaga_coberta').AsString = 'ON' then	CheckBox4.Checked := TRUE  else	CheckBox4.Checked := FALSE;  if ZQuery4.FieldByName('numero_de_banheiro').AsInteger > 0 then  begin	CheckBox5.Enabled := true;	CheckBox5.Checked := true;	Edit18.Enabled	:= true;	UpDown5.Enabled   := true;	Label27.Enabled   := true;	Edit18.Text	   := IntToStr( ZQuery4.FieldByName('numero_de_banheiro').AsInteger );  end;  //////////////////////////  //	Tipo de imóvel	//  //////////////////////////  ZQuery1.Active := false;  ZQuery1.SQL.Clear();  sql01 := 'select *from tb_imovel_tipo';  ZQuery1.SQL.Add( sql01 );  ZQuery1.Open;  x1 := 1;  y1 := 1;  ZQuery1.First;  while not ZQuery1.EOF do  begin	if ZQuery1.FieldByName('id').Value = ZQuery4.FieldByName('tipo_de_imovel').Value then	  marcado := true;	  RadioButtonTipo( ZQuery1.FieldByName('descricao').Value, ZQuery1.FieldByName('id').Value, y1, x1, marcado);	if (y1 = 3) then	begin	  y1 := 1;	  inc(x1);	end else begin	inc(y1);	end;	ZQuery1.Next;  end; // fim do while  // Dependencia  // preenchendo as dependencias do imovel  ZQuery1.Active := false;  ZQuery1.SQL.Clear();  sql01 := 'select *from tb_imovel_dependencias';  ZQuery1.SQL.Add( sql01 );  ZQuery1.Open;  ZQuery1.Active := true;  x1 := 1;  y1 := 1;  ZQuery1.First;  dep := ZQuery4.FieldByName('dependencias_do_imovel').AsString;  while not ZQuery1.EOF do  begin	if dep <> '' then	begin	  l1 := 1;	  for i:=1 to length( dep ) do	  begin		if dep[i] = ';' then		begin		  Delete(aux1,Pos(';',aux1),1);		  if aux1 <> '' then			if ZQuery1.FieldByName('id').Value = aux1 then			  marcado2 := 1;		  aux1 := '';		  inc(l1);		end else begin		  aux1 := aux1 + dep[i];		end;	  end;	end;	CheckBoxDependencia( ZQuery1.FieldByName('descricao').Value, ZQuery1.FieldByName('id').Value, y1, x1, marcado2);	if (y1 = 4) then	begin	  y1 := 1;	  inc(x1);	end else begin	inc(y1);	end;	ZQuery1.Next;  end; // fim do while  if ZQuery4.FieldByName('finalidadeVenda').AsString = 'ON' then	RadioButton1.Checked := true;  if ZQuery4.FieldByName('finalidadeLocacao').AsString = 'ON' then	RadioButton2.Checked := true;  if ZQuery4.FieldByName('finalidadeLocacaoTemporada').AsString = 'ON' then	RadioButton3.Checked := true;  if ZQuery4.FieldByName('situacao_do_imovel').AsString = 'Ocupado' then	 Combobox6.ItemIndex := 1;  if ZQuery4.FieldByName('situacao_do_imovel').AsString = 'Desocupado' then	 Combobox6.ItemIndex := 2;  if ZQuery4.FieldByName('situacao_finaceira').AsString = 'Quitado' then	 Combobox7.ItemIndex := 2;  if ZQuery4.FieldByName('situacao_finaceira').AsString = 'Financiado' then	 Combobox7.ItemIndex := 1;  Edit19.Text := ZQuery4.FieldByName('area_total').AsString;  Edit20.Text := ZQuery4.FieldByName('area_construida').AsString;  if ZQuery4.FieldByName('medida_area_total').AsString = 'M²' then	 Combobox8.ItemIndex := 0;  if ZQuery4.FieldByName('medida_area_total').AsString = 'Km²' then	 Combobox8.ItemIndex := 1;  if ZQuery4.FieldByName('medida_area_total').AsString = 'Hectares' then	 Combobox8.ItemIndex := 2;  if ZQuery4.FieldByName('medida_area_total').AsString = 'Alqueires' then	 Combobox8.ItemIndex := 3;  if ZQuery4.FieldByName('medida_area_construida').AsString = 'M²' then	 Combobox9.ItemIndex := 0;  if ZQuery4.FieldByName('medida_area_construida').AsString = 'Km²' then	 Combobox9.ItemIndex := 1;  if ZQuery4.FieldByName('medida_area_construida').AsString = 'Hectares' then	 Combobox9.ItemIndex := 2;  if ZQuery4.FieldByName('medida_area_construida').AsString = 'Alqueires' then	 Combobox9.ItemIndex := 3;  Edit21.Text := ZQuery4.FieldByName('valor').Value;  Edit22.Text := ZQuery4.FieldByName('valor_condominio').Value;  Edit23.Text := ZQuery4.FieldByName('iptu').Value;  Memo1.Text  := ZQuery4.FieldByName('observacoes').Value;	   // Detalhes  ZQuery1.Active := false;  ZQuery1.SQL.Clear();  sql01 := 'select *from tb_imovel_dados';  ZQuery1.SQL.Add( sql01 );  ZQuery1.Open;  ZQuery1.Active := true;  x1 := 1;  y1 := 1;  ZQuery1.First;  while not ZQuery1.EOF do  begin	CheckBoxDetalhes( ZQuery1.FieldByName('descricao').Value, ZQuery1.FieldByName('id').Value, y1, x1);	if (y1 = 4) then	begin	  y1 := 1;	  inc(x1);	end else begin	inc(y1);	end;	ZQuery1.Next;  end; // fim do while  end;  conecta(false);  frmPrincipal.Processando(FALSE);  end;procedure TfrmEditarImovel.CheckBox3Click(Sender: TObject);begin  if CheckBox3.Checked then  begin	Label39.Visible := true;	Edit7.Visible := true;  end else begin	Label39.Visible := false;	Edit7.Visible := false;  end;end;Procedure Inserir_Foto (Nome_Foto : String);Begin  //Incrementa o Array...  SetLength(arrayFotos,(Length(arrayFotos)+1));  //Assimila o valor do nome da foto ao array...  arrayFotos[(Length(arrayFotos) -1)] := Nome_Foto;End;Procedure Inserir_Mapa (Nome_Mapa : String);Begin  //Incrementa o Array...  SetLength(arrayMapas,(Length(arrayMapas)+1));  //Assimila o valor do nome da foto ao array...  arrayMapas[(Length(arrayMapas) -1)] := Nome_Mapa;End;procedure TfrmEditarImovel.Button1Click(Sender: TObject);var  i	 : Integer;begin  try	IdFTP1.Host	 := 'www.londriimoveis.com.br';	IdFTP1.Username := 'roni';	IdFTP1.Password := 'rcf123';	if IdFTP1.Connected then	begin	  IdFTP1.Disconnect;	end else begin	  IdFTP1.Connect();	end;	IdFTP1.ChangeDir('/public_html/admin_admin/diney/fotos');	ProgressBar1.Visible := true;	try	If (Length(arrayFotos)) > 0 then	begin	 //para i = 0 até o tamanho do array - 1...	 for i := 0 to (Length(arrayFotos) - 1) do	 begin		IdFTP1.Put(arrayFotos[i], 'novas-'+ IntToStr(i) +'.jpg');	 end;	end;	except	  on E: Exception do	  begin		MessageDlg('Erro ao enviar as imagens!', mtError, [mbOK], 0);		exit;	  end;	end;  finally	ProgressBar1.Visible := false;	IdFTP1.Disconnect;  end;end;procedure TfrmEditarImovel.IdFTP1Work(Sender: TObject;  AWorkMode: TWorkMode; const AWorkCount: Integer);begin  //incrementa o ProgressBar  ProgressBar1.Position := AWorkCount;end;procedure TfrmEditarImovel.IdFTP1WorkBegin(Sender: TObject;  AWorkMode: TWorkMode; const AWorkCountMax: Integer);begin  ProgressBar1.Position := 0;  if AWorkCountMax > 0 then	ProgressBar1.Max := AWorkCountMax  else	ProgressBar1.Max := bytesToTransfer;end;end.

 

Esta aí... Localize o procedimento [ procedure TfrmEditarImovel.Carrega(codImovel: integer); ]

 

Nele tem um while que executa a checagem que verifica se vai enviar TRUE ou FALSE

[Valdiney F. Lima 0]

Assim é o certo:

 

if ZQuery1.FieldByName('id').AsInteger = StrToInt(ZQuery4.FieldByName('tipo_de_imovel').AsString) then	  marcado := true	else	  marcado := false;

[marcio.theis 3]

Seguinte, no caso onde a variável marcado é setada como TRUE depois ela nunca volta a ser false, no caso na linha

 

if ZQuery1.FieldByName('id').Value = ZQuery4.FieldByName('tipo_de_imovel').Value then	  marcado := true;

Teria de fazer:

 

marcado := False;	if ZQuery1.FieldByName('id').Value = ZQuery4.FieldByName('tipo_de_imovel').Value then	  marcado := true;

Ou seja, setar sempre antes como false a variável, caso não entre na validação.