ComboBox.Items.IndexOf receber string

Question

Galera  como fa�o para aparecer o nome de uma string no meu ComboBoxtenho um  form que faz uma pesquisa pelo cep e armazena onome da rua, cidade e estadoo problema � que meu comboBox esta no stilo...

Ricardo Araujo · Answer

Bom dia Colega,
Fiz exemplo bem simples, acho que vai ajuda voc�.

Segue o c�digo abaixo;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Estado : string;
posicao : Integer;
begin
Estado := 'Tocantins';

posicao := ComboBox1.Items.IndexOf(Estado);

ComboBox1.ItemIndex := posicao;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Add('Rio de Janeiro');
ComboBox1.Items.Add('S�o paulo');
ComboBox1.Items.Add('Bahia');
ComboBox1.Items.Add('Tocantins' );
ComboBox1.Items.Add('Rio grande do Sul');
end;

end.

Este exemplo � bem simples e voc� pode adaptar na sua aplica��o, o exemplo est� funcionando blz.

Qualquer coisa me envie um feedback.

Jose Silva · Answer

rbbarreto obrigado pela ajuda vi o seu exemplo
e ele funcionaria perfeitamente se eu tivesse um
base de de dados local o problema � que eu busca essas informa��es
da internet do e armazeno o valor em Edit pelo que percebi
e tipo text e o meu combobox n�o aceita

edt_cidade.text:=lodados.Values['CIDADE']; // aqui vai de boa
cbbx_estado.ItemIndex := cbbx_estado.Items.IndexOfName(lodados.Values['UF']); mas aqui
n�o retorna nada
j� tentei jogar em uma vari�vel mas nada tambem
lembrando que meu combobox esta com estilo csOwnerDrawVariable
que � para limitar a quantidade de siglas
que o usu�rio ver

desde j� obrigado pela aten��o

Carlos Bernardo · Answer

Tenta ver qual o valor que est� a vari�vel estado...Showmessage(estado);o problema pode estar ai......

Nelson Santos · Answer

ganhe dinheiro com softwares 3D com Delphi 7//www.3dsistemas.com.br...

Jose Silva · Answer

Exatamamete
veja quando eu mudo o style da combobox para csDropDown
funciona blz
mas quando mudo o style para csOwnerDrawVariable
n�o recebe nada
o valor que a vari�vel estado recebe esta OK
ja tentei

estado:=lodados.Values['UF'];
cbbx_estado.ItemIndex := cbbx_estado.Items.IndexOfName(estado);
e tambem
estado:=lodados.Values['UF'];
cbbx_estado.ItemIndex := cbbx_estado.Items.IndexOfName(lodados.Values['UF']);

mas nada

Ricardo Araujo · Answer

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons;type  TForm1 = class(TForm)    Edit1: TEdit;    ComboBox1: TComboBox;    BitBtn1: TBitBtn;    BitBtn2: TBitBtn;    procedure BitBtn2Click(Sender: TObject);    procedure BitBtn1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn2Click(Sender: TObject);var  posicao : Integer;begin // cbbx_estado.ItemIndex := cbbx_estado.Items.IndexOfName(lodados.Values[UF]); mas aqui // para isto funcionar ter� que pegar o valor passado no edt_cidade // qualquer coisa me envio o seu exemplo que vejo porque esta dando errado. posicao := ComboBox1.Items.IndexOf(Edit1.Text); ComboBox1.ItemIndex := posicao;end;procedure TForm1.BitBtn1Click(Sender: TObject);begin  // neste edit1 vamos simular que estou recebendo conteudo na internet.  // que seria : edt_cidade.text:=lodados.Values[CIDADE];  Edit1.Text := SP;end;end....

F�rum ComboBox.Items.IndexOf receber string #480003