Ver Mensaje Individual
  #5  
Antiguo 15-10-2007
Esau Esau is offline
Miembro
 
Registrado: may 2003
Ubicación: Canto Rey
Posts: 140
Reputación: 22
Esau Va por buen camino
intento hacer Esto

Saludos Amigos:
Intento hacer esto , no se si es una buena idea. ¿ Uds que opinan ?
creo un componente derivandolo de TComponent
Código Delphi [-]
  TPrueba = class(TComponent)
    public
      FFilas : Integer;
      FColumnas : Integer;
      FMatrix : Array of Array of Double;
      Dato : Integer;
      Constructor Crear(Filas, Columnas : Integer);
      Destructor Destroy; Override;
      procedure Cargar(AString : TStrings);
     ..... //mas propiedades y Eventos
  End;

// luego al momento de crear el Objeto efectuo esto

procedure TForm4.Button1Click(Sender: TObject);
var
  Prueba: TPrueba;
  T : TFileStream;
begin
 Prueba := TPrueba.Create(Nil);
 Prueba.Crear(2,50); //Aqui es donde le digo que el objeto cree una matriz de numero reales de 2 *50 el procedimiento se encarga de llenar la matriz con datos aleatorios solo de prueba
 Prueba.Dato := 5; // un dato extra 
 Prueba.Cargar(ListBox1.Items); //muestro el contenido de la matriz en un listbox
 T := TFileStream.Create('C:\compo.ehv',fmCreate);
 T.WriteComponent(Prueba);
 T.Free;
 Prueba.Destroy;
end;

La idea es crear el Componente con una matriz de Numeros reales (n * m) y poder guardarlos en un archivo...
Posteriormente poder leerlos, pero cuando habro el Archivo solo aparece la clase (TPrueba) con unos Simbolos mas, pero no veo la matriz por ningun lado.
quizas estoy pasando por alto algo importante al momento de guardar el componente, pero me gustaria que le den una mirada a mi codigo para despejar mis dudas..
otra Pregunta: ¿Puedo guardar dentro un archivo un componente que contenga mas objetos y no necesariamente derivados de TComponent?

Saludos y gracias de Antemano...
Responder Con Cita