[Skainet]

Помогиде в данном методе. Нужно шифровать цифры только цифрами.

[Konrad]

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

Помогиде в данном методе. Нужно шифровать цифры только цифрами.

0-3
1-4
2-5
3-6
4-7
....
да?

В чем именно возникли трудности?
В запуске Делфи или в добавлении формы?

[Skainet]

трудность в том что я незнаю как это сделать

[lmikle]

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

трудность в том что я незнаю как это сделать

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

[ChinYan]

Способа два. Первый - самый простой, но не гибкий. Делается что-то вроде этого:

Код:

case nNumber of
0: nResult:=3;
1: nResult:=4;
....
end;

И так далее.
Но здесь сдвиг нельзя сделать сдвиг на произвольное значение - все уже "забито"

Другой способ - сделать круговой переход по массиву на некоторое число шагов то есть при достижении конца программа будет переходить в начало. Что-то вроде

Код:

nResul:= nNumber+ nDelta;
if nResult >=10 then
 nResu;t:=nResult-10;

И если результат превысит или достигнет 10, то он вернутся в начало. При сдвиге в 10 получится то же число
С расшифровкой, надеюсь, сам разберешься

P.S. Сообщение № 333