ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
25.05.2010, 15:16
|
|
Новичок
Регистрация: 24.01.2010
Сообщений: 21
Провел на форуме:
36432
Репутация:
0
|
|
Привет всем. Вопрос простой. Мне надо декомпилировать Дельфиновскую екзешку. Какой программой это лучше всего сделать. Если невозможно декомпилоровать, то хотя бы дизассемблировать. Однако чем ЛУЧШЕ ВСЕГО
|
|
|
25.05.2010, 21:12
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
подскажите как вывести в Label количество "оборотов" таймера
|
|
|
|
25.05.2010, 22:51
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357
Репутация:
6
|
|
onTimer
label.caption := IntToStr(timercount);
inc(timercount); ?
|
|
|
|
25.05.2010, 23:45
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
Сообщение от miako
onTimer
label.caption := IntToStr(timercount);
inc(timercount); ?
пробовал, не помогло...
|
|
|
|
26.05.2010, 00:32
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
Провел на форуме:
520157
Репутация:
35
|
|
Сообщение от Radical Edward
Привет всем. Вопрос простой. Мне надо декомпилировать Дельфиновскую екзешку. Какой программой это лучше всего сделать. Если невозможно декомпилоровать, то хотя бы дизассемблировать. Однако чем ЛУЧШЕ ВСЕГО
Поиграйся вот этим IDR (Interactive Delphi Reconstructor) -декомпилятор исполняемых файлов (EXE) и динамических библиотек (DLL), написанных на языке Delphi скачать
|
|
|
|
26.05.2010, 00:34
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Сообщение от heretic1990
подскажите как вывести в Label количество "оборотов" таймера
тоесть вывести сколько осталось пройти таймеру до 0 ?
|
|
|
|
26.05.2010, 07:31
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
Сообщение от 090808
тоесть вывести сколько осталось пройти таймеру до 0 ?
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
|
|
|
|
26.05.2010, 17:32
|
|
Постоянный
Регистрация: 02.11.2009
Сообщений: 341
Провел на форуме:
599124
Репутация:
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
Провел на форуме:
828081
Репутация:
84
|
|
for i:= 1 to 5 do
У тебя i идет от 1 до 5. В этом интервале только 2 четных числа - 2 и 4
И пишешь что надо произведение, а сам сумму считаешь
|
|
|
|
26.05.2010, 18:20
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Да, и еще не понятно, для чего здесь:
Код:
write('n=');
readln(n);
Ты ведь n нигде не используешь.
Также нужно присвоить начальное значение переменной s. |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
