Замена столбцов в StringGrid

[nulyjarden]

Доброго времени суток

Делая программу, столкнулся с проблемой.
На форме есть два StringGrida, нужно что бы столбцы из SG1 записывались в SG2 по ключу.Например в первом есть
1 2 3 4
1 2 3 4
1 2 3 4
1 2 3 4
Нужно что бы по введенному ключу столбцы записывались в SG2.
например ключ "3214", тогда SG2 будет выглядеть так:
3 2 1 4
3 2 1 4
3 2 1 4
3 2 1 4

Вот мой набросок по замене столбцов, но я не могу сделать проверку по
ключу, так как ключи могут быть разными.

for k:=0 to StrnGrd1.RowCount-1 do
   StrnGrd1.Rows[k].Exchange(0,5);

[Serge_Bliznykov]

1) как задаётся ключ (строка? Массив значений? структура?)
2) ключ при создании контролируется на корректность?!
Ну, что в ключе: a) не может быть повторов! б) все столбцы имеются.


мне кажется, это какой-то известный вид шифрации.. Винижера?

p.s. если до вечера не разберётесь - я помогу с реализацией.
Только ответьте на вопросы, приведённые выше...

[nulyjarden]

Ключ задается в Edit, строкой естественно.
Проверки на корректность пока нет, но должен состоять из 7 цифр, повторятся цифры не могут.
Это шифрования методом простой перестановки по ключу.

б) все столбцы имеются.

столбцы могут быть не заполнены до конца.


_____________________________
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

[nulyjarden]

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

p.s. если до вечера не разберётесь - я помогу с реализацией.
Только ответьте на вопросы, приведённые выше...

Вот появилась идея, я сделал для случая, если ключ может состоять из 7 цифр и в него могу входить только цифры "1234567".
Сравнивать символы ключа с символами строки '1234567'

begin
  st1:= '1234567';
  for n:= 1 to 7 do begin
    for m:= 1 to 7 do
      if edt1.Text[n]= St1[m] then begin
   for k:=0 to StrnGrd1.RowCount-1 do
   lbl3.Caption:= IntToStr(n);
   lbl4.Caption:= IntToStr(m);
   StrnGrd1.Rows[k].Exchange(m,n);
  End;
  End;
  end;

Идея мне кажется правильной, но я слаб в Delphi и не могу это правильно написать.