|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.02.2014, 23:16 | #51 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
Насчет слева направо и справа налево, наверное - порядок байтов. В смысле три условия? "if (a = 1) and (b = 2) and (c = 3) then"?
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
01.02.2014, 23:45 | #52 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
02.02.2014, 01:48 | #53 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Цитата:
Условия да именно так, только к сожалению там не( a=1) , а :A02B, 2C29, 2141 все значения в Hex я их и так и эдак, четно, не выполняется условие, не пойму почему? ставлю if stream. read(a,2) = $A02B then Begin Label1.Caption:=' свеча'; if stream. read(a,2)=$2c29 then и.т.д И переводил в десятичное, думал может не видит, подставлял десятичное значение, переменную вводил integer, с массива пробывал, считывать считывает и выводит значения в ячейках, а условие не в какую.... там в одной прошиве на одну модель разные могут быть приблуды, из за этого в прошиве может быть одно, второе и третье значение, на какую паподёш!. Последний раз редактировалось Семён-2014@; 02.02.2014 в 01:51. |
|
02.02.2014, 02:24 | #54 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Цитата:
Это я с начало долго запрягаю, зато потом .... Сегодня к стате от Вашего коллеги упрёк услышал, они буксуют по одной линейки, ему прогу заказали, но там мудрено всё, не зная адресов и алгоритма , всё бестолку будет сидят уже 2 неделю Я правда с ней месяца два возился , но расшифровал... В общем я ему возьми и скажи , мозг напрячь чуток и всё там просто, учится не хочешь просто ... столько нецензурной брани услышал ....( а ведь 2 недели назад всё разжевал им). Пришлось всё до молекул разъяснять... Так что не обижайтесь Аватар и BDA так бывает когда начинаешь что то новое. Эдак так пойдёт,точно программиста из меня сделаете, не одна книжка столько не даст. Чую всё больше мне нравится , а опыт дело наживное.А Вы говорите учится не хочу и мозг не включаю, просто путаюсь ещё в этим терминах и синтаксис, в голове каша. Но я стараюсь. |
|
02.02.2014, 02:29 | #55 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
Так что ли?
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
02.02.2014, 12:47 | #56 |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Точно , один , в один BDA , только выводит либо неизвестная, либо прошивка 1. Причём case, тоже ставил, за место if, но результат выводит только один, на всех позициях. Хотя закидываю все три разных по очереди и в редакторе проверяю, какую только что из 3 загрузил.
Последний раз редактировалось Семён-2014@; 02.02.2014 в 12:49. Причина: дописать |
02.02.2014, 14:10 | #57 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
Цитата:
Код:
|
|
02.02.2014, 15:05 | #58 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Так в D и читайте stream.Read(D,2);
До этого указать с какой позиции читать stream.Position:=адрес И следующее вообще не нужно Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
02.02.2014, 20:34 | #59 |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
В том то и песня что читал в stream.Read (D,2), сразу, потом вернул, при любых комбинациях, либо пропускает все и выводит не известно( если типа нет ничего из предложенного), либо на первой позиции, причём неправильно и опять не сдвинуть.... Я как ввёл переменную D, сразу и отработал вариант, причём и с word и с Bayte, не помогло. Помойму уже все комбинации отработал, не пойму что ей не нравится?...
|
02.02.2014, 21:10 | #60 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
1) Я не очень понял Ваше последнее сообщение.
2) Аватар Вам говорит вот об этом месте: Код:
3) Добавьте вывод считанного значения, чтобы было, что анализировать. Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
file->HEX HEX->BIN | kakawkin | Общие вопросы Delphi | 1 | 25.04.2012 01:02 |
перевод чисел из hex в bin. ASM. | crashmanx | Помощь студентам | 0 | 25.12.2011 21:35 |
Нужно реализовать программу на Дельфи | Aizada | Помощь студентам | 1 | 16.05.2011 21:45 |
Перевод BIN -> HEX | Piar | Помощь студентам | 2 | 20.05.2009 15:44 |