 |
|
04.04.2009, 18:51
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
С нами:
9394886
Репутация:
1467
|
|
Archangelus,незнаю, по идеи ошибки не должно быть. А пробывал перехватить событие? хотя бы чтобы ошибка не появлялась..
|
|
|
04.04.2009, 18:55
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами:
9365528
Репутация:
425
|
|
Сообщение от gashish_tema
пишу base64 кодировшик файлов, как заменить FileOpen FileRead чем то другим... одним словом у меня программа из за использования модуля sysutils прибавляет в весе.. как обойтись без него или можно выдрать эти функции из него и засунуть в код своей программы... Дайте лучший совет
если не хочешь лишнего гемора, упакуй UPX
|
|
|
|
04.04.2009, 19:42
|
|
Новичок
Регистрация: 18.03.2009
Сообщений: 5
С нами:
9026990
Репутация:
0
|
|
Сообщение от KaZ@NoVa
можно взять и скажем использовать стандартную схему паскаля..
это я уже пробовал кодирует только один символ
|
|
|
|
04.04.2009, 21:03
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
С нами:
10535289
Репутация:
107
|
|
Есть 2 формы .В главной крутится один поток из кода которого вызывается Form2.Show(); Естественно при этом 2я форма как только появляется то сразу виснет  Как это можно обойти?
ЗЫ:ShowWindow несовсем неподходит,потому как на форме надо перед её вызовом изменить свойства нескольких контролов.
Последний раз редактировалось _nic; 04.04.2009 в 21:10..
|
|
|
|
04.04.2009, 21:29
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
С нами:
9473694
Репутация:
0
|
|
Сообщение от KaZ@NoVa
Archangelus,незнаю, по идеи ошибки не должно быть. А пробывал перехватить событие? хотя бы чтобы ошибка не появлялась..
Ничего не получается. Реально даже не знаю что сделать можно в этом случае
Пробовал настройки покапать - тоже результата нет
|
|
|
|
04.04.2009, 21:50
|
|
Новичок
Регистрация: 12.05.2008
Сообщений: 19
С нами:
9472418
Репутация:
2
|
|
Пока ничего не вышло
Если честно, не вышло даже с алгоритмами типа try..
Вот, измененный код.. все то же самое, вроде бы.. только вот я сделал, чтобы бонусы чаще выпадали, так можно чаще проверить события с ними..
Так.. проверено, что stack overflow происходит, когда без
бонуса щит берешь бонус замедления времени.. странно..
пожалуйста, помогите мне.. у меня ничего не выходит с этим сделать.. я хочу нормально работать с DirectX.. но что-то идет не так..
Вот новая ссылка: Скачать |
|
|
|
05.04.2009, 04:18
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
С нами:
9473694
Репутация:
0
|
|
Всё равно ничего не получается.. пробовал уже все по-очереди EmbeddedWB и WebBrowser использовал |
|
|
|
05.04.2009, 12:41
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
С нами:
9540826
Репутация:
479
|
|
PASCAL
Даны 2 натуральных числа. определить наибольший общий делитель и наименьшее общее кратное/
как сделать на циклах? (for )
|
|
|
|
05.04.2009, 13:18
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
С нами:
10255414
Репутация:
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
С нами:
9425824
Репутация:
3
|
|
Вопрос по delphi:
Подскажите пожалуйста как можно вывести на печать принтером текст из memo.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
