seleccionar elemendo de combobox y colocarlo en un edit

[ecfisa]

Hola Maxi915.

Cuando tengas dudas donde publicar tu consulta elige el foro Varios, este tema no tiene relación con Delphi/web.

hola gente, el titulo lo dice todo, estoy haciendo un trabajo en el que necesito que al mostrar un combobox y el usuario lo selecciona (ya sea con las flechas o mouse haciendo doble click) que ese dato seleccionado se carge en el edit1.

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with TcomboBox(Sender) do
   if ItemIndex <> -1 then
     Edit1.Text := Items[ItemIndex];
end;

En cuanto a tu otra consulta, te ruego que la realices en un nuevo hilo como pedimos en la guía de estilo. Y sí, es posible hacerlo con un ComboBox, pero haría falta saber como están delimitados (o diferenciados) los distintos datos para para así poder extraerlos.

Saludos.

[maxi915]

mi declaracion de tipos es:

Código Delphi [-]
empleados=record
                                id: string;
                                cod_postal:string;
                                 end;

               cod_postales=record
                               clave=integer;
                               ciudad:string;
                               end;

lo que necesito es que al ingresar codigos postales, si ese cod no existe, que me permita elejir uno de la lista, yo los estoy mostrando en combobox, en ese combobox muestro el archivo de postales.
En un renglon tengo: ciudad y codigo, necesito poder enviar lo que el usuario selecciona a un edit1, por ejemplo: enviar codigo a edit1 y ciudad a edit2, y asi se ahorraria de tener q escribirlo el usuario, haciendo click seria mas facil.
No se si se puede hacer esto con esta herramienta, estoy investigando como hacerlo con un stringgrid tambien, pero no encuentro nada.

estoy mostrando mi archivo de postales en el combobox , de esta forma:

Código Delphi [-]
 Reset(p);
    if filesize(p) <> 0
     then
       begin
        while not Eof(p) do
          begin
            read(p,Reg);
            if reg.borrado=False
            then
             begin
               lst1.AddItem('CODIGO POSTAL: ' + IntToStr(reg.clave) +
                         ' - CIUDAD: ' + reg.ciudad, lst1);
             end;
          end;
      end
     else
        showmessage('No hay códigos postales cargados');

espero haber sido correcto con la utilizacion de las etiquetas delphi. sino sepan disculpar

[maxi915]

Disculpen Estoy Usando Listbox!!! No Combobox, Perdon!

[Casimiro Noteví]

Te recuerdo, como ha indicado ecfisa, que leas nuestra guía de estilo, gracias.

[maxi915]

la lei. que hize mal?

[Casimiro Noteví]

Empezado por maxi915

la lei. que hize mal?

Pues no has debido de leerlo muy bien

NO ME GRITES QUE NO TE OIGO, o lo que es lo mismo, no escribas todo en mayúsculas

Si estás habituado a navegar por internet sabrás que si escribes en mayúsculas es equivalente a estar gritando en una conversación normal. Si lo haces para denotar urgencia, tranquilo, todos somos conscientes que los problemas que se proponen son urgentes. Por lo tanto escribe de manera correcta y en minúsculas, de esta manera evitaremos herir sensibilidades.

Además, una frase o párrafo escrito con letras mayúsculas es más cansado, lento y propenso a cometer errores de lectura que uno escrito en minúsculas.

Como has escrito todo en mayúsculas, el sistema lo ha filtrado y lo ha dejado así (mayúsculas/minúsculas): "Disculpen Estoy Usando Listbox!!! No Combobox, Perdon!"

[maxi915]

bua, no pense q fuera para tanto,disculpen.

no pued encontrar la solucion