Не сделать элементарную вещь ...

← →
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]

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

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