OberonCore https://forum.oberoncore.ru/ |
|
B10: Мелкая ошибка в SqlDB.ReadPath https://forum.oberoncore.ru/viewtopic.php?f=116&t=2702 |
Страница 1 из 1 |
Автор: | Евгений Темиргалеев [ Пятница, 18 Июнь, 2010 21:19 ] |
Заголовок сообщения: | B10: Мелкая ошибка в SqlDB.ReadPath |
Пропущено =. Подсистема на Z начиналась - нарвался Цитата: PROCEDURE ReadPath (IN s: ARRAY OF CHAR; OUT t: ARRAY OF CHAR; VAR i: INTEGER; VAR ch: CHAR);
VAR j: INTEGER; BEGIN (* extract the designator that describes a global variable *) j := 0; IF (CAP(ch) >= "A") & (CAP(ch) <= "Z") THEN REPEAT t[j] := ch; INC(j); INC(i); ch := s[i] UNTIL (ch < "0") & (ch # ".") OR ("9" < ch) & (CAP(ch) < "A") OR ("Z" < CAP(ch)) & (ch # "_") OR (j = varLen) END; t[j] := 0X END ReadPath; |
Автор: | Иван Кузьмицкий [ Вторник, 19 Июнь, 2012 22:19 ] |
Заголовок сообщения: | Re: B10: Мелкая ошибка в SqlDB.ReadPath |
Тоже нарвался! |
Страница 1 из 1 | Часовой пояс: UTC + 3 часа |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |