seleccionar elemendo de combobox y colocarlo en un edit

[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

[ecfisa]

Hola.

Un modo de lograr lo que buscas de manera bastante sencilla es usando un array dinámico:

Código Delphi [-]
...
implementation

const
   CFILENAME = 'CODPOST.DAT'; // Aquí ruta y nombre de tu archivo

type
  TCodPost = record
    clave  : Integer;
    ciudad : string[50];
  end;
  TFileCodPost = file of TCodPost;
  TVecCodPost  = array of TCodPost;

var
  FCodPost : TFileCodPost;
  VCodPost : TVecCodPost;

// Cargar arreglo y TStrings con los registros del archivo
procedure GetCodPost(var F: TFileCodPost; var V: TVecCodPost; TS: TStrings);
var
  CP : TCodPost;
begin
  Reset(F);
  while not eof(FCodPost) do
  begin
    Read(F, CP);
    SetLength(V, Length(V)+1);
    VCodPost[Length(V)-1].clave  := CP.clave;
    VCodPost[Length(V)-1].ciudad := CP.ciudad;
    TS.Add('CODIGO POSTAL: ' + FormatFloat('0000', CP.clave) +
           ' - CIUDAD: ' + CP.ciudad);
  end;
  CloseFile(F);
end;

// Comenzar
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Se supone que el archivo de nombre CFILENAME ya ha sido creado 
  AssignFile(FCodPost, CFILENAME);
  GetCodPost(FCodPost, VCodPost, ListBox1.Items);
end;

// Mostrar en Edit1 y Edit2 datos de la selección
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with ListBox1 do
    if ItemIndex <> 0 then
    begin
      Edit1.Text := FormatFloat('0000', VCodPost[ItemIndex].clave);
      Edit2.Text := VCodPost[ItemIndex].ciudad;
    end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SetLength(VCodPost, 0);
  VCodPost := nil;
end;

También podes usar TStrings o manipular la cadena de caracteres del ListBox, ...
Lamentablemente al usar un record, no se puede aprovechar el método Items.AddObject (TStrings) del ListBox.

Saludos.

[Casimiro Noteví]

Empezado por maxi915

bua, no pense q fuera para tanto,disculpen.
no pued encontrar la solucion

Tiene la importancia que se le quiera dar, aunque eso es así en todos los sitios de internet, no sólo en clubdelphi.
Además demuestra que no has leído la guia de estilo.

[TOPX]

Empezado por Casimiro Notevi

Además demuestra que no has leído la guia de estilo.

Por esto, opino que, resultaría mejor que los moderadores pidieran "cumplir la guía de estilo" en lugar de "leer la guía de estilo".

-

[Casimiro Noteví]

Empezado por TOPX

Por esto, opino que, resultaría mejor que los moderadores pidieran "cumplir la guía de estilo" en lugar de "leer la guía de estilo".-

..........