[Carmelo Cash]

Hola Foro.
Tengo que usar StringList y no puedo asignar un campo tipo Memo.
al intentar guardar este tipo de campo de da error access violation address.
con lo otros tipos de campos va bién.


Otro tema acá mismo. ¿Donde puedo conseguir info sobre las StrList (Ordenar, filtrar, borrar, etc, etc? y/o algún ejemplo de trabajar las strlist como registros.

Gracias..

A continuación el código que escribí y que no anda el TMemo.

Código Delphi [-]
type

     tElemento = class(Tobject)
    Familia: string;
        Tipo: string;
        Valor1: integer;
        Observaciones: TMemo;

  end;

  tColeccion = class(tComponent)
    Lista: tStringList;
  private
    function GetCount: integer;
    function GetObjects(j: integer): tElemento;
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
      property Count: integer read GetCount;
      property Objects[j:integer]: tElemento read GetObjects;
  end;

...
...

procedure TForm1.Button1Click(Sender: TObject);
var
oElemento:  tElemento;
begin
  oElemento := tElemento.Create;
  oElemento.Familia := edtClave.Text;
  oElemento.Tipo := edtTipo.Text;
  oElemento.Valor1 := StrtoIntDef(edtValor.Text,0);

  showmessage('pasará?');
  oElemento.Observaciones.Lines.:=MemoObservaciones.Lines;   // << acá no anda !!!!
  showmessage('pasó');

  ListaBase.Lista.AddObject(oElemento.Familia+oElemento.Tipo,oElemento.Observaciones);
  Button2Click(Sender);
end;