FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#5
|
|||
|
|||
Te he hecho caso y he provado pero me da un error de win.
Supongo q es por no hacer el create SA, no? Lo he comentado mas abajo. Si es eso , donde lo creo? type PMyList = ^AList; AList = record SA: TStringList; end; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MyList: TList; ARecord: PMyList; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin MyList := TList.Create; try New(ARecord); ARecord^.SA.Add('1'); // El error empieza aqui ARecord^.SA.Add('2'); ARecord^.SA.Add('3'); ARecord^.SA.Add('4'); ARecord^.SA.Add('5'); MyList.Add(ARecord); New(ARecord); ARecord^.SA.Add('11'); ARecord^.SA.Add('12'); ARecord^.SA.Add('13'); ARecord^.SA.Add('14'); ARecord^.SA.Add('15'); MyList.Add(ARecord); finally MyList.Free; end; end; end. |
|
|
|