Если я правильно понял ваш вопрос, вам нужно сделать приблизительно так (для
ПОЛУЧЕНИЯ данных):
|
|
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; | |