Chr(Ord(...))

← →
Agent[007] © (2003-11-16 12:20) [0]

В чем ошибка(не синтаксическая, а во время выполнения)?

for i := 1 to Length(s) do CodedS[i] := Chr(Ord(s[i]) - 50);

← →
Думкин © (2003-11-16 12:23) [1]

Это тебя надо спросить: "А какая у тебя ошибка?".
А переменные какаие, а.... ну в таком духе, в таком разрезе.

← →
MBo © (2003-11-16 12:30) [2]

Не слишком ли смелое предположение, что Ord(s[i]) - 50 всегда >0?

← →
Fenik © (2003-11-16 12:33) [3]

for i := 1 to Length(s) do CodedS[i] := Chr(Max(Ord(s[i]) - 50, 0));

← →
Думкин © (2003-11-16 12:36) [4]

> [3] Fenik © (16.11.03 12:33)

А есть уверенность, что CodedS[length(s)] - допустимо?

← →
Fenik © (2003-11-16 12:37) [5]

>Думкин © (16.11.03 12:36) [4]

Да.

← →
Fenik © (2003-11-16 12:38) [6]

Ой. Нет!

← →
Fenik © (2003-11-16 12:40) [7]

>Думкин © (16.11.03 12:36) [4]
>А есть уверенность, что CodedS[length(s)] - допустимо?

Тогда так:

if Length(s) <= Length(CodedS) then
for i := 1 to Length(s) do CodedS[i] := Chr(Max(Ord(s[i]) - 50, 0));

← →
MBo © (2003-11-16 12:41) [8]

Да и SetLength для CodedS не помешает сделать вначале...

← →
Думкин © (2003-11-16 12:41) [9]

> [7] Fenik © (16.11.03 12:40)

Этот все медиумные игры, будем автора ждать.

← →
Agent[007] © (2003-11-16 13:25) [10]

Вот автор...
THANKS tо MBo... (BIG thanks)
Нехватало SetLength... Все время забываю, что строки, как и массивы надо наделять размерами...

PS: BIG THANKS...

PPS: Это НЕ сарказм...

Плохо у меня с телепатией :))

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

Chr(Ord(...)) Найти похожие ветки