Копирование текста из мемо в запись

[Viburn]

Мне надо скопировать текст из мемо в запись и потом снова из записи в мемо. Компилируется но выкидывает access violation при копировании в запись.

type TElement = record
    info:Tstrings;

var Element : array[1..120] of TElement;

procedure TForm1.BSaveClick(Sender: TObject);
var rec:integer;
begin
Rec:=strtoint(Numrec.Text);
Element[rec].info.assign(memo1.Lines);
end;

procedure TForm1.NumrecKeyPress(Sender: TObject; var Key: Char);
var rec : integer;
begin
 if Key = #13 then
  begin
  rec:= strtoint(NumRec.Text);
    NumRec.Text:=inttostr(rec); 
    Memo1.Text:=Element[rec].info.Text;
  end;

[Аватар]

Прежде чем в срингс чего-то загонять его создать нужно

[Viburn]

Добавил

Element[rec].info:=Tstrings.Create;

Выкидывает абстракт эррор.

[Аватар]

Выкидывает абстракт эррор.

И правильно делает. Нечего объект из абстрактного класса создавать

Element[rec].info:=TStringList.Create;

[Viburn]

Вроде копирует но обратно не вставляет

Element[n].info:=TStringList.Create;
Memo1.Text:=Element[n].info.Text;

[northener]

Сообщение от Viburn

Вроде копирует но обратно не вставляет

Element[n].info:=TStringList.Create;
Memo1.Text:=Element[n].info.Text;

Так откуда же в свежесозданном StringList'е что-то возьмется?