Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.20;
Скачать: 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 вся ветка

Текущий архив: 2005.11.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
14-1130411016
TButton
2005-10-27 15:03
2005.11.20
влияет ли визуальный стиль вндовс ХР на загрузку процессора


3-1128085302
ZedeS
2005-09-30 17:01
2005.11.20
Быстая работа с большой базой


1-1130504570
alless
2005-10-28 17:02
2005.11.20
TmainMenu, Items.Caption


3-1129108339
msguns
2005-10-12 13:12
2005.11.20
ADO+Access. Как в параметре задать NULL


14-1130413226
Jeer
2005-10-27 15:40
2005.11.20
Самолет на Кремль