Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

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-м. Тот более конкретен в объяснениях.


 
DeepProg   (2002-08-18 14:52) [5]


> KSergey ©

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


 
Роман Василенко   (2002-08-19 14:13) [6]

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


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;



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-78490
alxx
2002-10-13 13:39
2002.10.24
Переход фокуса


4-78720
Gulliver
2002-09-11 12:54
2002.10.24
Как отловить блокировку и разблокировку экрана


7-78692
abcjoeexyz
2002-08-16 16:02
2002.10.24
DeviceIOControl


3-78244
Uran
2002-10-02 11:13
2002.10.24
Редактирование таблицы


1-78499
msdn1
2002-10-13 18:03
2002.10.24
Richedit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский