Вниз
Скачать: CL | DM;

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: Это НЕ сарказм...


← →
Fenik ©   (2003-11-16 15:36) [11]

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


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


> [11] Fenik © (16.11.03 15:36)

Вот, вот - и меня обнес Сенксом. Больше ему не отвечаю. :-((


← →
Anatoly Podgoretsky ©   (2003-11-16 17:02) [13]

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


← →
Fenik ©   (2003-11-16 18:35) [14]

>Anatoly Podgoretsky © (16.11.03 17:02) [13]

Пойду медитировать :-)))



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c
1-89945
Вованчик
2003-11-18 08:31
2003.11.27
MainMenu


6-90024
Oleg_
2003-09-29 18:25
2003.11.27
Нажатия клавиш на webbroser


7-90144
Term
2003-09-17 09:51
2003.11.27
Мне нужно написать номеронабератель, установил


1-89855
Боян Георгиев
2003-11-16 14:33
2003.11.27
Функция Read для стрингов


1-89924
snake1977
2003-11-18 10:58
2003.11.27
Debuger




   Наверх