Добавление в массив

[Шура]

Var
Mas: Array[1..6,1..5] of string;
begin
t:= Edit1.Text;
s:= 'АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЭЮЯУФХЦ ШЩ';
for i:= 1 to 6 do
for j:= 1 to 5 do
begin
Mas[i,j]:=copy();
Какой командой добавить в массив буквы из Edit1 и s. Мой код не работает, точнее последняя часть добавление в массив данных.

[MalexG]

А что именно вам нужно добавлять? Непонятно. Поясните.

[Mixasik]

Mas[i,j]:=Edit1.text - просто добавляет значение Edit в массив с заданными индексами...
Edit1.text - строка, массив - массив строк - все путем...

[vovk]

Если правильно понял то так

Mas[i,j]:=edit1.text[(i-1)*6+j];

заполнит массив буквами из Edit1 тоесть в Mas[1,1] попадёт 1 буква
Mas[1,2] вторая ... в Mas[2,1] 7-я буква из эдита (в смысле не буквы а ессно символы) Это нужно было?

[Шура]

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

Если правильно понял то так

Mas[i,j]:=edit1.text[(i-1)*6+j];

заполнит массив буквами из Edit1 тоесть в Mas[1,1] попадёт 1 буква
Mas[1,2] вторая ... в Mas[2,1] 7-я буква из эдита (в смысле не буквы а ессно символы) Это нужно было?

Почти так, только загвоздка в том, что в массив нужно добавить слово из эдита и к томуже данные, т.е буквы из строки s. Я не знаю как добавить в массив данные из двух разных источников. Твой код пайдет, но еще надо в массив добавить эти буквы АБВГД... Но при условии что из эдита слово будет на 1 месте, к примеру:
РОЖААБ
ВГДЕЖЗ...
Ну а потом в мемо я добавлю этот массив 6х5

[vovk]

s:= 'АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЭЮЯУФХЦШЩ';
mas[1,1]:=edit1.text;
for i:= 1 to 6 do
for j:= 1 to 5 do
if not ((i=1) and (j=1)) then
mas[i,j]:=s[(i-1)*5+j-1];

так?
обрати внимание умножать надо не на 6 а на 5 я перед этим ошибся

[Шура]

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

s:= 'АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЭЮЯУФХЦШЩ';
mas[1,1]:=edit1.text;
for i:= 1 to 6 do
for j:= 1 to 5 do
if not ((i=1) and (j=1)) then
mas[i,j]:=s[(i-1)*5+j-1];

так?
обрати внимание умножать надо не на 6 а на 5 я перед этим ошибся

Окей! Благодарю за внимание