Fatal Error

← →
DeepProg © (2002-08-16 19:32) [0]

Что в программе может вызвать ошибку KERNEL32.DLL или ошибку с именем самого приложения (т.е. если приложение называется Project1, то сообщение будет следующего характера:
Программа Project1 вызвала ошибку PROJECT1.EXE, ну и дальше как всегда...)?

← →
Роман Василенко © (2002-08-17 11:41) [1]

(A.S. Что такое post?)

Знаешь... Слишком обобщенный вопрос.

Может, ты:
1. неправильно DLL цепляешь;
2. где-то лезешь в чужую память (ну, корявый pointer там...)
3. Дважды делаешь free для экземпляра какого-нибудь класса
4. Не делаешь Create для экземпляра какого-нибудь класса, но уже пытаешься его использовать.
5. Пользуешься корявыми компонентами третьих разработчиков.
и т.д.

В общем, опиши подробнее, Вадим Андреевич.

← →
DeepProg © (2002-08-17 19:44) [2]

Ошибка возникает после обработки кода, аналогичного, тому, что вы, Роман, найдет на форуме Main, вопрос "Максимальный, да не тот..." ответ от TTCustomDelphiMaster © (15.08.02 17:32).

← →
KSergey © (2002-08-18 07:04) [3]

> DeepProg © (17.08.02 19:44)

Аналогичного - да не такого... Может вы там сменили одну строчку, из-за которой все и полезло.. Что же теперь - искать для вас этот топик, догадываться что же там аналогично и т.д.? Это кому-то надо?!

← →
Lola © (2002-08-18 14:16) [4]

ME и ХР как партизаны молчат о причинах ошибки. У них на все один ответ. Попробуй на 98-м. Тот более конкретен в объяснениях.

> KSergey ©

Мой код абсолютно аналогичен - буква в букву.
2 All
Ошибка возникает после обработки вышеупомянутого кода, но теперь я уверен, что сам код чист. Думаю никому больше не стоит отвлекаться на эту тему, буду искать сам.

Если так попробовать?..

function _MaxValue2(const Data: array of Double; const Max1 : Double): Double; var I: Integer; begin if length(data)<1 then exit; Result := Data[0]; for I := 0 to length(Data) - 1 do if (Result < Data[I]) and (Data[I] < Max1) then Result := Data[I]; end;

Fatal Error Найти похожие ветки