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; showmessage('pasó');
ListaBase.Lista.AddObject(oElemento.Familia+oElemento.Tipo,oElemento.Observaciones);
Button2Click(Sender);
end;