Поможете чайнику?

← →
[Genius] (2002-02-16 10:55) [0]

Вопрос у меня такой:
программа у меня делает raise exception и при этом вылетает окно, которое информирует меня об этом, а как мне сделать, чтобы оно не вылетало?

← →
Набережных С. (2002-02-16 11:51) [1]

Имеется в виду отключить сообщения отладчика?
Tools|Debugger Options|Language Exceptions|Stop on Delphi Exceptions

← →
Igor_ © (2002-02-16 12:23) [2]

Можно запихать код, который вызывает исключение в
try
Те процедуры которые вызывают исключение
except
Что делать, если исключение возникло (можно ничего не делать
как ты хочешь)
end;

← →
Anatoly Podgoretsky © (2002-02-16 13:32) [3]

Поставить "//" перед raise exception

← →
[Genius] (2002-02-17 08:09) [4]

хм... не помогает... все равно в самом приложении вылазиет "Invalid pointer operation"... это у меня из=за dll, хотя что там может быть такого...
вот вам мой код dll найдите ошибку:

library dll; uses sysutils,Classes; function checka(indexx:integer):string;stdcall; begin case indexx of 0:result:="comp"; 1:result:="IBM"; 3:result:="proc"; 4:result:="mother"; 5:result:="videocard"; 6:result:="sound"; 7:result:="oper"; 8:result:="hard"; 9:result:="cd"; 10:result:="cdr"; 11:result:="dvd"; 14:result:="monitor"; 15:result:="TFT"; 16:result:="printer"; 17:result:="akustic"; 18:result:="VFX"; 20:result:="klav"; 21:result:="scan"; 22:result:="photo"; 23:result:="mouse"; 24:result:="digit"; 26:result:="momed"; 28:result:="notebook"; 27:result:="palm"; end; end; function kolvo(indexx:integer):integer;stdcall; begin case indexx of 0:result:=3; 1:result:=3; 3:result:=3; 4:result:=2; 5:result:=1; 6:result:=1; 7:result:=1; 8:result:=2; 9:result:=0; 10:result:=3; 11:result:=1; 14:result:=3; 15:result:=2; 16:result:=5; 17:result:=1; 18:result:=1; 20:result:=2; 21:result:=1; 22:result:=3; 23:result:=2; 24:result:=0; 26:result:=4; 28:result:=8; 27:result:=6; end; end; exports kolvo,checka; end.

← →
Mbo © (2002-02-17 11:10) [5]

в списке uses первым поставь sharemem

← →
[Genius] (2002-02-17 12:51) [6]

не помогает... :(

← →
[Genius] (2002-02-18 10:13) [7]

мастера? вы где?

В списке uses и библиотеки, и проекта первым поставь sharemem и перекомпилируй все! [блин]

> найдите ошибку

Вот она:

function checka(indexx: integer): string;

Когда Вы сказали "New... DLL", Delphi выдала Вам заготовку кода с длинным-длинным комментарием. Для чего? Для того, чтобы Вы удалили его, даже не прочитав?

См. ShareMem.

Поможете чайнику? Найти похожие ветки