Если я правильно понял ваш вопрос, вам нужно сделать приблизительно так (для ПОЛУЧЕНИЯ данных):
Memos := TStringList.Create; Memos.Assign(Table1Memo); yourvariable_0 := Memos[0]; yourvariable_1 := Memos[1]; ......................... yourvariable_n := Memos[n]; Memos.Free; |
или так (для УСТАНОВКИ данных):
Memos := TStringList.Create; Memos.Add(yourvariable_0); Memos.Add(yourvariable_1); .......................... Memos.Add(yourvariable_n); Table1Memo.Assign(Memos); Memos.Free; |
[001325]