ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
04.04.2009, 18:51
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Archangelus,незнаю, по идеи ошибки не должно быть. А пробывал перехватить событие? хотя бы чтобы ошибка не появлялась..
|
|
|
04.04.2009, 18:55
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от gashish_tema
пишу base64 кодировшик файлов, как заменить FileOpen FileRead чем то другим... одним словом у меня программа из за использования модуля sysutils прибавляет в весе.. как обойтись без него или можно выдрать эти функции из него и засунуть в код своей программы... Дайте лучший совет
если не хочешь лишнего гемора, упакуй UPX
|
|
|
|
04.04.2009, 19:42
|
|
Новичок
Регистрация: 18.03.2009
Сообщений: 5
Провел на форуме:
11685
Репутация:
0
|
|
Сообщение от KaZ@NoVa
можно взять и скажем использовать стандартную схему паскаля..
это я уже пробовал кодирует только один символ
|
|
|
|
04.04.2009, 21:03
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
Есть 2 формы .В главной крутится один поток из кода которого вызывается Form2.Show(); Естественно при этом 2я форма как только появляется то сразу виснет  Как это можно обойти?
ЗЫ:ShowWindow несовсем неподходит,потому как на форме надо перед её вызовом изменить свойства нескольких контролов.
Последний раз редактировалось _nic; 04.04.2009 в 21:10..
|
|
|
|
04.04.2009, 21:29
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
Провел на форуме:
78594
Репутация:
0
|
|
Сообщение от KaZ@NoVa
Archangelus,незнаю, по идеи ошибки не должно быть. А пробывал перехватить событие? хотя бы чтобы ошибка не появлялась..
Ничего не получается. Реально даже не знаю что сделать можно в этом случае
Пробовал настройки покапать - тоже результата нет
|
|
|
|
04.04.2009, 21:50
|
|
Новичок
Регистрация: 12.05.2008
Сообщений: 19
Провел на форуме:
28051
Репутация:
2
|
|
Пока ничего не вышло
Если честно, не вышло даже с алгоритмами типа try..
Вот, измененный код.. все то же самое, вроде бы.. только вот я сделал, чтобы бонусы чаще выпадали, так можно чаще проверить события с ними..
Так.. проверено, что stack overflow происходит, когда без
бонуса щит берешь бонус замедления времени.. странно..
пожалуйста, помогите мне.. у меня ничего не выходит с этим сделать.. я хочу нормально работать с DirectX.. но что-то идет не так..
Вот новая ссылка: Скачать |
|
|
|
05.04.2009, 04:18
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
Провел на форуме:
78594
Репутация:
0
|
|
Всё равно ничего не получается.. пробовал уже все по-очереди EmbeddedWB и WebBrowser использовал |
|
|
|
05.04.2009, 12:41
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
Провел на форуме:
3799424
Репутация:
479
|
|
PASCAL
Даны 2 натуральных числа. определить наибольший общий делитель и наименьшее общее кратное/
как сделать на циклах? (for )
|
|
|
|
05.04.2009, 13:18
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
#Wolf#
Наименьшее общее кратное
Код:
program nok;
var a,b,i,nd:integer;
begin
readln(a,b);
for i:=a*b downto 1 do begin
if (i mod a = 0) and (i mod b = 0) then nk:=i;
end;
write(nk);
end.
Наибольший общий делитель
Код:
program nod;
var a,b,i,nk:integer;
begin
readln(a,b);
for i:=1 to a*b do begin
if (a mod i = 0) and (b mod i = 0) then nd:=i;
end;
write(nd);
end.
|
|
|
|
05.04.2009, 13:59
|
|
Новичок
Регистрация: 14.06.2008
Сообщений: 29
Провел на форуме:
221810
Репутация:
3
|
|
Вопрос по delphi:
Подскажите пожалуйста как можно вывести на печать принтером текст из memo.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
