Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Valdiney F. Lima

Minha Unit ta com um erro de violação... bla bla bla...

Por , em Delphi

Recommended Posts

Valdiney F. Lima    0

Valdiney F. Lima
Postado

Abaixo segue o código de uma Unit que fazer a leitura em meu banco de dados e retorna os resultados na tela para alteração.

Quando eu executo ela da primeira vez tudo funciona perfeitamente. Quanto eu vou na Grid e chamo para exibir um outro registro diferente, da um erro:

 

Access violation at address 00000000. Read of address 00000000.

 

O que pode ser?

 

Abraços

 

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;	TabSheet2: TTabSheet;	ScrollBox1: TScrollBox;	Image13: TImage;	ZQuery1: TZQuery;	BitBtn1: TBitBtn;	DataSource1: TDataSource;	ZQuery2: TZQuery;	ZQuery3: TZQuery;	DataSource2: TDataSource;	Panel2: TPanel;	GroupBox1: TGroupBox;	OpenDlg: TOpenDialog;	GroupBox2: TGroupBox;	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, marcado: integer);  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;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, marcado: integer);var	check: TRadioButton;begincheck:=TRadioButton.Create(Self);check.Parent := ScrollBox2;check.Caption := rotulo;if marcado = 1 then  check.Checked := trueelse  check.Checked := false;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;  frmCadastrarImoveis := 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 o cadastro?','Cadastro 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...';					  frmCadastrarImoveis.Repaint;					  // Gravando no banco					  ZQuery1.Active := false;					  ZQuery1.SQL.Clear;					  sql := 'INSERT INTO tb_imovel values ("","'+id_tb_cliente+'","'+tipo_cliente+'","'+em_destaque+'","'+tipo_de_imovel+'","'+imovel_de_alto_padrao+'","'+destaque_da_semana+'","'+codigo_de_referencia+'","'+edificio+'","'+numero_de_pavimentos+'","'+pavimentos_do_imovel+'","'+numero_de_imoveis_por_pavimento+'","'+endereco+'","'+numero+'","'+bairro+'","'+cidade+'","'+cep+'","'+estado+'","'+entre_rua_1a+'","'+entre_rua_1b+'","'+entre_rua_2a+'","'+entre_rua_2b+'","'+ponto_de_referencia+'","'+linhas_urbanas+'","'+finalidadeVenda+'","'+finalidadeLocacao+'","'+finalidadeLocacaoTemporada+'","'+situacao_do_imovel+'","'+situacao_finaceira+'","'+area_total+'","'+medida_area_total+'","'+area_construida+'","'+medida_area_construida+'","'+dados_do_imovel+'","'+valor+'","'+valor_condominio+'","'+iptu+'","'+IntToStr(numero_de_quartos)+'","'+IntToStr(numero_de_suites_simples)+'","';					  sql := sql + ''+IntToStr(numero_de_suites_master)+'","'+IntToStr(total_de_quartos)+'","'+vagas_na_garagem+'","'+vaga_coberta+'","'+dependencias_do_imovel+'","'+observacoes+'","'+numero_de_banheiro+'","'+url_destaque+'","0")';					  ZQuery1.SQL.Add( sql );					  ZQuery1.ExecSQL;					  ///// Pegando o ID do ultimo registro /////					  ZQuery1.Active := false;					  ZQuery1.SQL.Clear;					  sql := 'select id from tb_imovel order by id desc';					  ZQuery1.SQL.Add( sql );					  ZQuery1.Open;					  idRetorno := ZQuery1.FieldByName('id').Value;					  Label40.Visible := false;					  frmCadastrarImoveis.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);					///////////////////////					// Enviando as FOTOS //					///////////////////////				   { Verifica se o array não esta vazio }				   // FOTOS \\				   If (Length(arrayFotos)) > 0 then				   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/fotos');					  ProgressBar1.Visible := true;					  Label40.Visible := true;					  try					   for i := 0 to (Length(arrayFotos) - 1) do					   begin						  guardaNome := '';						  guardaNome := geraNome(35);						  if arrayFotos[i] <> '' then						  begin							Label40.Caption := arrayFotos[i];							frmCadastrarImoveis.Repaint;														IdFTP1.Put(arrayFotos[i], guardaNome + '.jpg');						  end;					   end;					  except						on E: Exception do						begin						  MessageDlg('[Fotos] Erro ao enviar as imagens!', mtError, [mbOK], 0);						  exit;						end;					  end;					finally					  Label40.Visible := false;										  ProgressBar1.Visible := false;					  IdFTP1.Disconnect;					end;					   if conecta(true) then					   begin					   //////////////////////////////////////////////////////////////					   ///  Insere os dados das Fotos e Mapas no banco de dados   ///					   //////////////////////////////////////////////////////////////					  Label40.Visible := true;					  Label40.Caption := 'Gravando os dados...';					  frmCadastrarImoveis.Repaint;					   for i := 0 to (Length(arrayBancoFotos) - 1) do					   begin						 ZQuery1.Active := false;						 ZQuery1.SQL.Clear;						 ZQuery1.SQL.Add( 'insert into tb_imovel_foto values ("","'+ IntToStr(idRetorno) +'","'+ arrayBancoFotos[i] +'")' );						 ZQuery1.ExecSQL;					   end;					  Label40.Visible := false;					  frmCadastrarImoveis.Repaint;					   end else begin					   ShowMessage('Código do erro: CS-021'+#13+'Não foi possível conectar ao servidor.');					   end;					end;// Fim da verificação do array				   // MAPAS \\				   If (Length(arrayMapas)) > 0 then				   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/mapas');					  ProgressBar1.Visible := true;					  Label40.Visible := true;					  try					   for i := 0 to (Length(arrayMapas) - 1) do					   begin						  guardaNome := '';						  guardaNome := geraNome(35);						  if arrayMapas[i] <> '' then						  begin							Label40.Caption := arrayMapas[i];							frmCadastrarImoveis.Repaint;							IdFTP1.Put(arrayMapas[i], guardaNome + '.jpg');						  end;					   end;					  except						on E: Exception do						begin						  MessageDlg('[Mapas] Erro ao enviar as imagens!', mtError, [mbOK], 0);						  exit;						end;					  end;					finally					  Label40.Visible := false;					 					  ProgressBar1.Visible := false;					  IdFTP1.Disconnect;					end;					   if conecta(true) then					   begin					   //////////////////////////////////////////////////////////////					   ///  Insere os dados das Fotos e Mapas no banco de dados   ///					   //////////////////////////////////////////////////////////////					  Label40.Visible := true;					  Label40.Caption := 'Gravando os dados...';					  frmCadastrarImoveis.Repaint;					   for i := 0 to (Length(arrayBancoMapas) - 1) do					   begin						 ZQuery1.Active := false;						 ZQuery1.SQL.Clear;						 ZQuery1.SQL.Add( 'insert into tb_imovel_mapa values ("","'+ IntToStr(idRetorno) +'","'+ arrayBancoMapas[i] +'")' );						 ZQuery1.ExecSQL;					   end;					  Label40.Visible := false;					  frmCadastrarImoveis.Repaint;					   end else begin					   ShowMessage('Código do erro: CS-022'+#13+'Não foi possível conectar ao servidor.');					   end;					end;// Fim da verificação do array					showmessage('Cadastro concluído com sucesso!'+#13+#13+'O formulário será fechado.');					frmCadastrarImoveis.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, marcado, x, i, l1, marcado2, marcado3 : integer;	sql01, sql02, dep, aux1: string;	concluido: boolean;begin  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 := 1;	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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Valdiney F. Lima    0

Valdiney F. Lima
Postado

Onde esta o fonte do Grid que chama a tela ?

o procedimento ClickDinamico qeu faz a chamada.O código segue abaixo:
unit uPesquisar;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, XPMan, DB, ZAbstractRODataset,  ZAbstractDataset, ZDataset, ZConnection, GIFImage, ComCtrls;type  TfrmPesquisar = class(TForm)	Button1: TButton;	ScrollBox1: TScrollBox;	XPManifest1: TXPManifest;	ZQuery1: TZQuery;	Image1: TImage;	Bevel1: TBevel;	Image2: TImage;	Image3: TImage;	GroupBox2: TGroupBox;	Label4: TLabel;	Edit1: TEdit;	Edit2: TEdit;	Label5: TLabel;	Edit3: TEdit;	Label6: TLabel;	GroupBox3: TGroupBox;	RadioButton1: TRadioButton;	RadioButton2: TRadioButton;	GroupBox4: TGroupBox;	GroupBox1: TGroupBox;	Image4: TImage;	Image5: TImage;	Edit4: TEdit;	UpDown1: TUpDown;	Edit5: TEdit;	UpDown2: TUpDown;	Label1: TLabel;	Edit6: TEdit;	GroupBox5: TGroupBox;	Label2: TLabel;	Label3: TLabel;	Panel1: TPanel;	Shape1: TShape;	Image6: TImage;	Label7: TLabel;	Label8: TLabel;	Image7: TImage;	Image8: TImage;	Image9: TImage;	Button3: TButton;	RadioButton3: TRadioButton;	Edit7: TEdit;	Edit8: TEdit;	RadioButton4: TRadioButton;	RadioButton5: TRadioButton;	RadioButton6: TRadioButton;	RadioButton7: TRadioButton;	procedure Button1Click(Sender: TObject);	procedure FormClose(Sender: TObject; var Action: TCloseAction);	procedure Button2Click(Sender: TObject);	procedure Image7Click(Sender: TObject);	procedure Image8Click(Sender: TObject);	procedure Image9Click(Sender: TObject);	procedure Button3Click(Sender: TObject);  private	{ Private declarations }  public	{ Public declarations }	procedure Panel(rotulo, txt1, txt2, txt3, txt4, txt5, txt6, txt8: string; txt9: real; id, linha, cor, alugado, finalidade: integer);	procedure ClickDinamico(Sender: TObject);  end;var  frmPesquisar: TfrmPesquisar;implementationuses uBancoDeDados, uConexao, uPrincipal, uOpcoesPesquisa,  uVisualizaImovel, uCadastrarImoveis, uEditarImovel;{$R *.dfm}procedure TfrmPesquisar.ClickDinamico(Sender: TObject);var id: integer;begin  if not assigned( frmEditarImovel ) then  begin	frmEditarImovel := TfrmEditarImovel.Create(application);	frmEditarImovel.Carrega( (Sender as TImage).Tag );	frmEditarImovel.Show;	{	frmVisualizaImovel := TfrmVisualizaImovel.Create(application);	frmVisualizaImovel.CarregaImagens((Sender as TImage).Tag);	frmVisualizaImovel.Show;	}  end else begin	frmEditarImovel.Close;	frmEditarImovel.Carrega( (Sender as TImage).Tag );	frmEditarImovel.Show;	{	frmVisualizaImovel.Close;	frmVisualizaImovel := TfrmVisualizaImovel.Create(application);	frmVisualizaImovel.CarregaImagens((Sender as TImage).Tag);	frmVisualizaImovel.Show;	}  end;end;procedure TfrmPesquisar.Panel(rotulo, txt1, txt2, txt3, txt4, txt5, txt6, txt8: string; txt9: real; id, linha, cor, alugado, finalidade: integer);var	Panel: TPanel;	CheckBox: TCheckBox;	Texto1,Texto2,Texto3,Texto4,Texto5,Texto6,Texto7,Texto8,Texto9: TLabel;	Image, Image1: TImage;beginPanel:=TPanel.Create(Self);Panel.Parent := ScrollBox1;Panel.Top := (linha * 41) - 41;Panel.Width := 856;Panel.ParentColor := true;Panel.ParentBackground := true;Panel.BevelOuter := bvNone;Panel.ShowHint := true;Panel.Caption := Panel.Name;Panel.Tag := id;// CheckBox de marcaçãoCheckBox:=TCheckBox.Create(Self);CheckBox.Parent  := Panel;CheckBox.Tag	 := id;CheckBox.Top	 := 3;CheckBox.Left	:= 5;CheckBox.Width   := 15;// Cria a imagem de definiçõa de finalidade: ALUGEL, VENDA, ou LOCAÇÃO POR TEMPORADA{1 - finalidadeVenda2 - finalidadeLocacao3 - finalidadeLocacaoTemporada}Image := TImage.Create(Self);Image.Parent := Panel;Image.Top	 := 21;Image.Left	:= 5;Image.AutoSize := true;if finalidade = 1 thenbegin  Image.Picture.LoadFromFile('c:\LiGi\imagens\bit_venda.bmp');  Image.Hint := 'Venda';  Image.ShowHint := true;end;if finalidade = 2 thenbegin  Image.Picture.LoadFromFile('c:\LiGi\imagens\bit_aluguel.bmp');  Image.Hint := 'Aluguel';  Image.ShowHint := true;end;if finalidade = 3 thenbegin  Image.Picture.LoadFromFile('c:\LiGi\imagens\bit_temporada.bmp');  Image.Hint := 'Locação por Temporada';  Image.ShowHint := true;end;Image1 := TImage.Create(Self);Image1.Parent := Panel;Image1.Tag	:= id;Image1.Top	 := 5;Image1.Left	:= 24;Image1.AutoSize := true;Image1.Picture.LoadFromFile('c:\LiGi\imagens\ico_tela.bmp');Image1.ShowHint := true;Image1.Hint := 'Abrir';Image1.OnClick := ClickDinamico;// Tipo de imovelTexto8		  := TLabel.Create(Self);Texto8.Caption  := txt8;Texto8.Left	 := 60;Texto8.Top	  := 5;Texto8.Parent   := Panel;// Valor do imovelTexto9		  := TLabel.Create(Self);Texto9.Caption  := FloatToStrf(txt9,ffCurrency,12,2);Texto9.Left	 := 60;Texto9.Top	  := 20;Texto9.Parent   := Panel;// ReferenciaTexto3			:= TLabel.Create(Self);Texto3.Caption	:= txt3;Texto3.Left	   := 767;Texto3.Top		:= 13;Texto3.Hint	   := 'Referência';Texto3.ShowHint   := true;Texto3.Parent	 := Panel;// Cidade - EstadoTexto2		  := TLabel.Create(Self);Texto2.Caption  := txt2;Texto2.Left	 := 243;Texto2.Top	  := 20;Texto2.Parent   := Panel;// EndereçoTexto1		  := TLabel.Create(Self);Texto1.Caption  := txt1;Texto1.Left	 := 243;Texto1.Top	  := 5;Texto1.Parent   := Panel;// GaragemTexto4		  := TLabel.Create(Self);Texto4.Caption  := txt4;Texto4.Left	 := 690;Texto4.Top	  := 13;Texto4.Hint	 := 'Garagem';Texto4.ShowHint := true;Texto4.Parent   := Panel;// DormitoriosTexto5		  := TLabel.Create(Self);Texto5.Caption  := txt5;Texto5.Left	 := 708;Texto5.Top	  := 13;Texto5.Hint	 := 'Dormitório';Texto5.ShowHint := true;Texto5.Parent   := Panel;// FotosTexto6		  := TLabel.Create(Self);Texto6.Caption  := txt6;Texto6.Left	 := 725;Texto6.Top	  := 13;Texto6.Hint	 := 'Foto';Texto6.ShowHint := true;Texto6.Parent   := Panel;// StatusTexto7		  := TLabel.Create(Self);if alugado = 0 thenbegin  Texto7.Caption	:= 'Desocupado';  Texto7.Font.Color := clGreen;  Texto7.Font.Style := [fsBold];end else begin  Texto7.Caption	:= 'Ocupado';  Texto7.Font.Color := clRed;end;Texto7.Left	 := 600;Texto7.Top	  := 13;Texto7.Parent   := Panel;if cor = 0 then  Panel.Color := $00EEEEEEelse  Panel.Color := clWhite;Panel.ParentColor := false;Panel.ParentBackground := false;Panel.Ctl3D := false;end;procedure TfrmPesquisar.Button1Click(Sender: TObject);varx,i,id,c,l,garagem,dormitorio,fotos,alugado,finalidade: integer;endereco, numero, bairro, cidade, estado: string;valor: real;sql, where, where_finalidade, where_garagem, where_dormitorio, where_valor: string;campo_rua, campo_bairro, campo_cidade, campo_referencia: string;campo_valor_inicial, campo_valor_final, campo_garagem, campo_dormitorio: integer;beginfrmPrincipal.Processando(TRUE);frmPesquisar.Caption := 'Pesquisa ';for x:=Self.ComponentCount - 1 downto 0 do  if Self.Components[x].GetParentComponent = ScrollBox1 then	  Self.Components[x].Destroy;if conecta(true) thenbegin  ZQuery1.Active := false;  ZQuery1.SQL.Clear;  where			:= '';  where_finalidade := '';  where_garagem	:= '';  where_dormitorio := '';  if RadioButton1.Checked then	where := 'and (alugado = "1") ';  if RadioButton2.Checked then	where := 'and (alugado = "0") ';  if RadioButton3.Checked then	where := 'and (alugado = "0" or alugado = "1") ';  if RadioButton4.Checked then	where_finalidade := 'and (finalidadeVenda = "ON") ';  if RadioButton5.Checked then	where_finalidade := 'and (finalidadeLocacao = "ON") ';  if RadioButton6.Checked then	where_finalidade := 'and (finalidadeLocacaoTemporada = "ON") ';  if RadioButton7.Checked then	where_finalidade := 'and (finalidadeVenda = "ON" or finalidadeLocacao = "ON" or finalidadeLocacaoTemporada = "ON") ';  if Edit4.Text <> '0' then	where_garagem := 'and (vagas_na_garagem = "'+Edit4.Text+'") ';  if Edit5.Text <> '0' then	where_dormitorio := 'and (total_de_quartos = "'+Edit5.Text+'") ';  if (Length(Edit7.Text) <> 0) and (Length(Edit8.Text) <> 0) then	where_valor := 'and (valor >= "'+Edit7.Text+'" and valor <= "'+Edit8.Text+'")';  if (Length(Edit7.Text) <> 0) and (Length(Edit8.Text) = 0) then	where_valor := 'and (valor = "'+Edit7.Text+'")';  sql :=	   'SELECT tb_imovel.id, tb_imovel.cidade, tb_imovel.finalidadeVenda, tb_imovel.finalidadeLocacao, tb_imovel.finalidadeLocacaoTemporada, tb_imovel.codigo_de_referencia, tb_imovel.valor, tb_imovel.estado, tb_imovel.cidade, tb_imovel.endereco,';  sql := sql + 'tb_imovel.numero, tb_imovel.bairro, tb_imovel.cidade, tb_imovel.vagas_na_garagem, tb_imovel.total_de_quartos, tb_imovel.alugado, tb_imovel_tipo.descricao as tipo_de_imovel ';  sql := sql + 'FROM tb_imovel, tb_imovel_tipo ';  sql := sql + 'WHERE (tb_imovel.id_tb_cliente = '+ frmPrincipal.idUsuario +') and (tb_imovel.tipo_de_imovel = tb_imovel_tipo.id) and (tb_imovel.endereco like "%'+Edit1.Text+'%") and (tb_imovel.bairro like "%'+Edit2.Text+'%") and (tb_imovel.cidade like "%'+Edit3.Text+'%") and (tb_imovel.codigo_de_referencia like "%'+Edit6.Text+'%") '+ where + where_finalidade + where_garagem + where_dormitorio + where_valor;  ZQuery1.SQL.Add( sql );  ZQuery1.Open;  ZQuery1.First;  if ZQuery1.RecordCount = 0 then	frmPesquisar.Caption := 'Pesquisa ' + ' [ Nenhum registro foi encontrado ]';  if ZQuery1.RecordCount = 1 then	frmPesquisar.Caption := 'Pesquisa ' + ' [ '+ IntToStr( ZQuery1.RecordCount ) +' registro encontrado ]';  if ZQuery1.RecordCount >= 2 then	frmPesquisar.Caption := 'Pesquisa ' + ' [ '+ IntToStr( ZQuery1.RecordCount ) +' registros encontrados ]';  l := 1;  c := 0;  while not ZQuery1.Eof do  begin	if c = 0 then	  c := 1	else	  c := 0;	id		  := ZQuery1.FieldByName('id').AsInteger;	cidade	  := ZQuery1.FieldByName('cidade').AsString;	estado	  := ZQuery1.FieldByName('estado').AsString;	endereco	:= ZQuery1.FieldByName('endereco').AsString;	numero	  := ZQuery1.FieldByName('numero').AsString;	bairro	  := ZQuery1.FieldByName('bairro').AsString;	cidade	  := ZQuery1.FieldByName('cidade').AsString;	garagem	 := ZQuery1.FieldByName('vagas_na_garagem').AsInteger;	dormitorio  := ZQuery1.FieldByName('total_de_quartos').AsInteger;	alugado	 := ZQuery1.FieldByName('alugado').AsInteger;	valor	   := ZQuery1.FieldByName('valor').Value;	if ZQuery1.FieldByName('finalidadeVenda').Value = 'ON' then	  finalidade := 1;	if ZQuery1.FieldByName('finalidadeLocacao').Value = 'ON' then	  finalidade := 2;	if ZQuery1.FieldByName('finalidadeLocacaoTemporada').Value = 'ON' then	  finalidade := 3;	Panel('Nome', endereco+', '+numero+' - '+bairro, cidade+' / '+estado, ZQuery1.FieldByName('codigo_de_referencia').Value, IntToStr(garagem), IntToStr(dormitorio), '0', ZQuery1.FieldByName('tipo_de_imovel').AsString, valor, id, l, c, alugado, finalidade);	l := l + 1;	ScrollBox1.Repaint;  ZQuery1.Next;  end;end;  frmPrincipal.Processando(FALSE);conecta(false);end;procedure TfrmPesquisar.FormClose(Sender: TObject;  var Action: TCloseAction);begin  Action   := caFree;  frmPesquisar := nil;end;procedure TfrmPesquisar.Button2Click(Sender: TObject);varmarcado: string;x2: integer;begin   for x2:=0 to ComponentCount - 1 do   if Components[x2].ClassType = TCheckBox then   if TCheckBox(Components[x2]).Checked then   begin	 marcado := marcado + IntToStr(TCheckBox(Components[x2]).Tag);   end;   ShowMessage( marcado );end;procedure TfrmPesquisar.Image7Click(Sender: TObject);begin  Edit1.Text := '';  Edit1.SetFocus;end;procedure TfrmPesquisar.Image8Click(Sender: TObject);begin  Edit2.Text := '';  Edit2.SetFocus;end;procedure TfrmPesquisar.Image9Click(Sender: TObject);begin  Edit3.Text := '';  Edit3.SetFocus;end;procedure TfrmPesquisar.Button3Click(Sender: TObject);begin  if not assigned( frmOpcoesPesquisa ) then  begin	frmOpcoesPesquisa := TfrmOpcoesPesquisa.Create(application);	frmOpcoesPesquisa.Show;  end else begin	frmOpcoesPesquisa.BringToFront;  end;end;end.
Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Valdiney F. Lima    0

Valdiney F. Lima
Postado

Mesmo rodando por F9 ? Pelo visto o problema de erro de acesso a memória seria de algo já criado...

pode até ser Márcio... Esse é o procedimento que chama a tela. Mas neste procedimento eu verifico se a tela esta aberta, caso sim, ela é fechada e criada novamente. Tem algo errado nisso?

 

procedure TfrmPesquisar.ClickDinamico(Sender: TObject);varid: integer;begin  if not assigned( frmEditarImovel ) then  begin	frmEditarImovel := TfrmEditarImovel.Create(application);	frmEditarImovel.Carrega( (Sender as TImage).Tag );	frmEditarImovel.Show;  end else begin	frmEditarImovel.Close;	frmEditarImovel.Carrega( (Sender as TImage).Tag );	frmEditarImovel.Show;  end;end;
Ou eu deveria usar outro método para fechar e não o .Close?

 

Abraço

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcio.theis    3

marcio.theis
Postado

Faz um teste desta forma:

 

procedure TfrmPesquisar.ClickDinamico(Sender: TObject);var	id: integer;beginif frmEditarImovel <> nil then	frmEditarImovel.Closeelse	frmEditarImovel:=TfrmEditarImovel.Create(application);frmEditarImovel.Carrega( (Sender as TImage).Tag );frmEditarImovel.Show;end;

Compartilhar este post

Link para o post
Compartilhar em outros sites

bdexterholland    0

bdexterholland
Postado

Ao invés de rodar pelo F9, roda pelo F7, ele vai rodar o program linha a linha, assim, você vê em qual linha dá access violation... (você precisará apertar várias vezes e no princíprio ele vai até o end de cada unit)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Valdiney F. Lima    0

Valdiney F. Lima
Postado

Faz um teste desta forma:

procedure TfrmPesquisar.ClickDinamico(Sender: TObject);var	id: integer;beginif frmEditarImovel <> nil then	frmEditarImovel.Closeelse	frmEditarImovel:=TfrmEditarImovel.Create(application);frmEditarImovel.Carrega( (Sender as TImage).Tag );frmEditarImovel.Show;end;
Tentei da forma que você passou e mesmo assim o erro ocorreu!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Valdiney F. Lima    0

Valdiney F. Lima
Postado

Realmente teria de rodar passo-a-passo e pegar onde é gerado a exception.

Achei o Erro Márcio.

 

Analizando o que você tinha dito, que o erro pode esta sendo ocorrido por ja existir uma tela aberta eu logo pensei no evento Close do form. Acabei achando o erro exatamente nele.

 

ERRO

procedure TfrmEditarImovel.FormClose(Sender: TObject;  var Action: TCloseAction);begin  Action   := caFree;  frmCadastrarImoveis := nil;end;
Como eu estava com pressa, eu coloquei o nome de outro formulário pra fechar e nao o mesmo. Por isso ele sempre dava o erro, pois o outro código tentava fechar esse form e nao fechava ele propriamente dito.

 

Mas valeu pela atenção de todos!

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Delphi
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito