Было плохое настроение, попробовал поострить...

← →
Mystic (2002-03-21 16:14) [0]

Дневник начинающего Delphi-ниста.
================================

Ошибка Access violation. Было некорректное освобождение памяти.
Пофиксена - перестал освобождать память в том месте, где она возникала.

Ошибка Access violation. Откуда вылазит - непонятно.

Access violation. Просто не дает жить. Закоментировал все
освобождение памяти по всей программе. Радикально, перекрыв
MemoryMenager.FreeMem. Пока работает.

Как округлить внииз адрес до границы страницы? Совсем голова не варит!

Нашел нужную функцию - VirtualQuery!

Дошли наконец руки и из блоков, которые я накопировал, составил
процедуры. Из 27Кб файл стал 5Кб. Приятно смотреть. Исчезло пару
глюков.

Ошибка Windows. Знаю, что Windows - ошибка. Но зачем об этом
кричать???

Лазил, исправлял - не работает. синий экран и моя прога убита.

Лазил по ASM - коду. Вылетаю на квадратном корне.

Запускал под NT. Работает. Думал над вариантом решения проблемы -
выпуск версии только под NT.

Ошибку исправил!!!!!!!!!!!!!
Вместо
try
Result := Sqrt(x);
............................
except
Result := 0
end;
Написал
try
if x>0
then Result := Sqrt(x)
else raise Exception.Create("Test");
............................
except
Result := 0
end;

Писал письмо Биллу с требованием возместить моральный ущерб.
Половина смволов в диапазоне от Char($21) до Char($30).

Вспомнил, что Windows нелицензирована. Обидно, блин.

Осваиваю Delphi 6.

Delphi 6 - rulezzzzzzzzzzzzzzzzzz. Новый проект - только под Delphi 6.

External error L1030. Думаю, где я намудрил.

Думаю, где я намудрил.

Думаю, где я намудрил.

Коментирую участки кода.

Коментирую участки кода.

Ура! Докоментировался до
type
TTest = (esRRR, esTTT=10);
TOne = class(TPersistent)
private
FX: TTest
published
property X: TTest read FX write FX
end;

Грабли.

Закинул нафиг проект, пишу письмо в Inprise.

Вот черт, Delphi тоже воровнная.

Переделывал всю логику, что зависела от TTest.

Раскоментирую код

Раскоментирую код

Нашел закоментированных три функции с одинаковым названием.
Бьюсь над дилеммой - какой из трех вриантов рабочий

Все три работают правильно.

Нашел. Оказывается ни одна из них не работает правильно.
Пишу четвертый вариант.

Опять вылезло Access violation. Проверил. MemoryMenager.FreMem
по прежнему перекрыт.

Каждую строчку программы обношу конструкциями try .. except.

Нашел ошибку - вместо MyObj := TMyObj.Create написал MyObj.Create.

Кинула девушка. Говорит, что мужской силы у меня хватает на четверых,
но хоть бы слово когда сказал по-русски. Ну я и сказал.

Готовил кары. Остановился на самой страшной - форматирование
винчестера.

Писал вирус. Затерроризировал всех вопросами, как отрубить клаву,
мышку монитор, юзера. Как скрыть прорамму, как

Небольшая ошибка в программе. Зато, как выяснилось, в процедуре
форматирования винта ошибок не оказалось.

Восстанавливал систему.

Восстанавливал вирус.

Самый злобный в мире вирус готов!

Вспоминаю, кто был моя девушка.

По-моему, у нее даже компьютера дома нет.

Точно нет. Если бы был, я бы запомнил характеристики. Облом.

Чтобы вирус не пропал даром - отослал его Диме.

Дописал в ruslang.doc восемь ругательств, которые услышал от Димы.

Продал вирус Касперскому.

← →
EAlexander (2002-03-21 16:40) [1]

← →
evgeg (2002-03-21 21:31) [2]

ЗдОрово! :)

← →
VuDZ (2002-03-22 08:53) [3]

> Нашел закоментированных три функции с одинаковым названием.
> Бьюсь над дилеммой - какой из трех вриантов рабочий
>
> Все три работают правильно.
>
> Нашел. Оказывается ни одна из них не работает правильно.
>
> Пишу четвертый вариант.

мда.... знакомая ситуёвина...
:>

Было плохое настроение, попробовал поострить... Найти похожие ветки