Crear Memo Temporal
 

Com puedo Crear un Memo ó X Componente en tiempo de Ejecución, ya lo intente con este ejemplo pero me marca error "Control hast No parent Window"
tengo el siguiente código;

Código Delphi [-]
var
Memo : TMemo;
i:byte;
begin
Memo := TMemo.Create(Self);//Ya lo intente con Nil y me lanza el mismo Error
for I := 0 to tArbol.Items.Count - 1 do
Memo.Lines.Add(tArbol.Items[i].Text);

El objetivo de crear un Memo temporal, es decir aprovechar la propiedad Lines para añadir el contenido a un Campo BLOB de una Tabla (FireBird 1.50)


Agradezco cualquier comentario.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 Memo : TMemo;
 begin
 Memo := TMemo.Create(Self);
 memo.Parent:=self;
 memo.Visible:=True;
 memo.Lines.Add('hola que tal');
 end;

Un Saludo.

Un Memo es un objeto visual, que no esta pensado para hacer lo que pretendes, para hacer eso existen otras clases no visuales como el TStringList, que esta pensada precisamente para hacer cosas como la que intentas, ademas de utilizar menos recursos:

Código Delphi [-]
var
Lista : TStringList;
i:byte;
begin
Lista := TSTringList.Create;
try
  for I := 0 to tArbol.Items.Count - 1 do begin
    Lista.Add(tArbol.Items[i].Text);
  end;
  ...
  ...
finally
  Lista.Free;  // Al final, destruimos la lista sino tendremos un memory leak
end;
end;

Además de lo que muy bien observa Mick, si lo único que quieres es guardar la estructura del árbol con los textos de los nodos, me parece que podrías ahorrarte el recorrer manualmente el árbol usando el método SaveToStream del TreeView y después el método LoadFromStream del campo BLOB.

// Saludos

oki
 

Muchas Gracias a Todos me Sirvieron mucho sus comentarios les debo otra.... Que tengan buen día.