Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизПоможете чайнику? Найти похожие ветки
← →
[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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c