Jump to content

Consulta CEP


Luciano Farias

Recommended Posts

  • 1 month later...
  • 7 months later...

Olá,

Eu uso o ACBrCEP

  if ACBrCEPMain.BuscarPorCEP(EdtCEP.Text) > 0 then
  begin
    EdtRua.Text := TrimLeft(ACBrCEPMain.Enderecos[0].Tipo_Logradouro) + ' ' + ACBrCEPMain.Enderecos[0].Logradouro;
    EdtComplemento.Text := ACBrCEPMain.Enderecos[0].Complemento;
    EdtBairro.Text := ACBrCEPMain.Enderecos[0].Bairro;
    EdtCidade.Text := ACBrCEPMain.Enderecos[0].Municipio;
    EdtUF.Text := ACBrCEPMain.Enderecos[0].UF;
  end
  else
  begin
    ShowMessage('CEP não localizado');
  end;
 

Link to comment
Share on other sites

  • 5 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...