Использование библиотек в Delphi

[maxionans]

Все равно возвращется 0, либо то, что я указал до вызова этого метода(((

А как 0 возвращается? Как результат выполнения функции или как значение Count?

[Konstantin_V]

Это не может быть связано, что в примере массив объявляется как long?

[Konstantin_V]

Сообщение от maxionans

А как 0 возвращается? Как результат выполнения функции или как значение Count?

как результат
и если я инициализирую массив значениями до вызова функции, то в результате я получаю их же...

[maxionans]

Ну так результат функции объявлен как HRESULT и 0 в данном случае это S_OK, т.е. функция была выполнена успешно. Похоже, проблемы и не было вовсе

[Konstantin_V]

и если я инициализирую массив значениями до вызова функции, то в результате я получаю их же...

[maxionans]

Хм, а после первого вызова Count <> 0?

[Konstantin_V]

и после второго <> 0

[maxionans]

ну тогда показывайте код, у меня догадки вслепую кончились

[Konstantin_V]

Могу только свой код показать)))
procedure TfrmParent.ApplyFilter(ADataSet: TpFIBDataSet);
type
TArray = array[0..(MaxInt div SizeOf(Integer)) - 1] of Integer;
PArray = ^TArray;
var
ConditionGlobalFilter: TCondition;
ConditionEnable: Boolean;
Filter: TFilters;
FilterActive: Integer;
ValuesCount: Integer;
PValues: PArray;
i: Integer;
begin
ADataSet.CancelConditions;
try
try
ConditionGlobalFilter := ADataSet.Conditions.FindCondition(G lobalFilterName);
except
ConditionGlobalFilter := nil;
end;
if ConditionGlobalFilter <> nil then
begin
ConditionEnable := False;
GlobalFilter.Connect;
try
for Filter := Low(TFilters) to High(TFilters) do
begin
if Filter in fActiveFilter then
begin
GlobalFilter.Is_Active(Ord(Filter), FilterActive);
if FilterActive <> 0 then
begin
ConditionEnable := True;
ValuesCount := 0;
PValues := nil;
GlobalFilter.Get_Values(Ord(Filter) , Integer(PValues), &ValuesCount);
if ValuesCount > 0 then
PValues := AllocMem(ValuesCount * SizeOf(Longint))
else
PValues := nil;
try
if Assigned(PValues) then
GlobalFilter.Get_Values(Ord(Filter) , Integer(PValues), &ValuesCount);
for i := 0 to ValuesCount - 1 do
begin
ShowMessage(IntToStr(PValues^[i]));
//*/
end;
finally
FreeMem(PValues);
end;
end;
end;
end;
finally
GlobalFilter.Disconnect;
ConditionGlobalFilter.Enabled := ConditionEnable;
end;
end;
finally
ADataSet.ApplyConditions;
end;
end;

[maxionans]

Integer(PValues) <- так в данном случае делать нельзя. Попробуйте заменить на PValues^[ 0 ].