Скачать: CL | DM;

Не сделать элементарную вещь ...   Найти похожие ветки 

← →
StasStas   (2005-11-04 00:03) [0]

Уважаемы профессионалы Delphi.

Нужна помощь !
Внизу пример исходного текста программы.
Как прочесть массив данных указанной ниже экспортной функцией.
Как не пытаюсь пишет неверные типы  и тому подобное ....
Понимаю для вас это азы , для меня тупик

------------------------------------------------------------------------------------------------------------------------ --------------------------------
{структура}

PConGroup = ^TConGroup;
TConGroup = record
  group                 : array [0..15] of char;  // group name
  enable                : integer;                // enable group
  timeout               : integer;                // trade confirmation timeout (seconds)
end;
PAConGroup = ^TAConGroup;
TAConGroup = array [0..0] of TConGroup;

{функция}
{total - количество прочтения записей , если 0 то все}
function  CfgRequestGroup(total:pinteger):PAConGroup;           stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var
conf  : TConGroup;
kol:pinteger;
begin

 ZeroMemory(@conf,SizeOf(conf));
 
 {необходимо прочитать массив данных из функции CfgRequestGroup , отдельно каждый элемент что бы дернуть можно было}
 {делал так
 conf:=CfgRequestGroup(@kol);
 компилятор выругался и послал подальше , как сделать ?????
 }

end;

------------------------------------------------------------------------------------------------------------------------ --------------------------------

---

← →
palva ©   (2005-11-04 00:20) [1]

> компилятор выругался и послал подальше
Это он не выругался а попытался по-английски тебе помочь.
Может быть так надо?

var
kol:integer;
pkol:pinteger;
...
begin
...
pkol := @kol;
conf:=CfgRequestGroup(pkol);


---

← →
злобная танька   (2005-11-04 00:29) [2]

неее... он крышечку пропустил после функции..

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c