 |
|

25.05.2010, 15:16
|
|
Новичок
Регистрация: 24.01.2010
Сообщений: 21
С нами:
8576424
Репутация:
0
|
|
Привет всем. Вопрос простой. Мне надо декомпилировать Дельфиновскую екзешку. Какой программой это лучше всего сделать. Если невозможно декомпилоровать, то хотя бы дизассемблировать. Однако чем ЛУЧШЕ ВСЕГО
|
|
|

25.05.2010, 21:12
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
подскажите как вывести в Label количество "оборотов" таймера
|
|
|

25.05.2010, 22:51
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
С нами:
8582520
Репутация:
6
|
|
onTimer
label.caption := IntToStr(timercount);
inc(timercount); ?
|
|
|

25.05.2010, 23:45
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
Сообщение от miako
onTimer
label.caption := IntToStr(timercount);
inc(timercount); ?
пробовал, не помогло...
|
|
|

26.05.2010, 00:32
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
С нами:
8854881
Репутация:
35
|
|
Сообщение от Radical Edward
Привет всем. Вопрос простой. Мне надо декомпилировать Дельфиновскую екзешку. Какой программой это лучше всего сделать. Если невозможно декомпилоровать, то хотя бы дизассемблировать. Однако чем ЛУЧШЕ ВСЕГО
Поиграйся вот этим IDR (Interactive Delphi Reconstructor) -декомпилятор исполняемых файлов (EXE) и динамических библиотек (DLL), написанных на языке Delphi скачать
|
|
|

26.05.2010, 00:34
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
Сообщение от heretic1990
подскажите как вывести в Label количество "оборотов" таймера
тоесть вывести сколько осталось пройти таймеру до 0 ?
|
|
|

26.05.2010, 07:31
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
Сообщение от 090808
тоесть вывести сколько осталось пройти таймеру до 0 ?
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
|
|
|

26.05.2010, 17:32
|
|
Постоянный
Регистрация: 02.11.2009
Сообщений: 341
С нами:
8696259
Репутация:
65
|
|
Нужно вывести произведение первых 5 чётных чисел
Паскаль =)
"Program 10;
var i,n,s: Integer;
begin
write ('n=');
readln (n);
for i:= 1 to 5 do
if i mod 2 =0 then s:= s+i;
writeln ('Сумма чётных чисел от 1 до ',5,' равна ',s);
end."
Где тут ошибки ? =)
|
|
|

26.05.2010, 18:12
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
for i:= 1 to 5 do
У тебя i идет от 1 до 5. В этом интервале только 2 четных числа - 2 и 4
И пишешь что надо произведение, а сам сумму считаешь
|
|
|

26.05.2010, 18:20
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
С нами:
9162683
Репутация:
175
|
|
Да, и еще не понятно, для чего здесь:
Код:
write('n=');
readln(n);
Ты ведь n нигде не используешь.
Также нужно присвоить начальное значение переменной s.
|
|
|
|
 |
|
|
Здесь присутствуют: 9 (пользователей: 0 , гостей: 9)
|
|
|
|