Ver Mensaje Individual
  #4  
Antiguo 10-09-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Santiago.

No sé si cumplirá tus espectativas, pero una alternativa simple es usar un TComboBox, por ejemplo:
Código Delphi [-]
...
const
  HISTORIAL = 'C:\CARPETA\HISTORIAL.TXT';

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ComboBox1 do
  begin
    Clear;
    if FileExists(HISTORIAL) then
      Items.LoadFromFile(HISTORIAL);
    Sorted := True;
    Style  := csDropDown;
  end;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  with ComboBox1.Items do
  begin
    Add(ComboBox1.Text);
    SaveToFile(HISTORIAL);
  end;
end;
...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita