Ver Mensaje Individual
  #13  
Antiguo 12-09-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Reputación: 21
santiago14 Va por buen camino
Cita:
Empezado por santiago14 Ver Mensaje
Una pregunta. Si quiero decidir yo mismo el nombre del archivo de texto en el cual voy a guardar la lista ¿Cómo hago?
Por ejemplo que quiera tener un archivo de texto para cada combo, y tengo dos combo's.
Saludos.
Bueno, hice esto...
Código Delphi [-]
TComboBox = class(StdCtrls.TComboBox)
  private
    FHistory: String;
...
  public
    property History : String read FHistory write SetHistory;

...

procedure TComboBox.SetHistory(const Value: String);
var
  FS : TFileStream;
begin
  FHistory := Value;
  if not FileExists(History) then
  begin
    FS := TFileStream.Create(FHistory, fmCreate);
    FS.Free;
  end;
  Self.StoredItems.LoadFromFile(FHistory);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.History:='Mi_historial.txt';
end;

Ahora puedo poner el nombre del .txt que yo quiera, y además, cada combo podría tener un archivo de texto particular.
Gracias.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita