Вывод массива
Уважаемые подскажите почему у меня не выводится массив. Выводятся постояно одни 0.
В самом отчете поместил в датабэнд мемо, и в нем написал [element]. датабэнд пробовал крипеть и к frxuserdataset, и frxdataset, эффект одинаковый.
Помогите плз решить проблему!
procedure TForm1.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if comparetext(VarName, 'element') = 0 then Value := mas1[frmzpperiod.frxUserDataSet1.RecNo];
end;
procedure Tfrmzpperiod.BitBtn1Click(Sender: TObject);
var
i,j:integer;
begin
if (checkbox1.Checked) then
begin
frxuserdataset1.RangeEnd:=reCount;
frxuserdataset1.RangeEndCount:=(form1.Sborwikitable.Recordcount);
form1.Sborwikitable.First;
for j:=1 to form1.Sborwikitable.RecordCount do begin
form1.zakaztable.First;
for i:=1 to form1.zakaztable.RecordCount do begin
Edit1.Text:=form1.zakaztableSborwiki.AsString;
Edit2.Text:=form1.SborwikitableFamiliya.AsString;
if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil then
begin
form1.zakaztable.Edit;
form1.zakaztable.FieldByName('Da_net').Asstring:=inttostr(1);
form1.zakaztable.post;
kolvosborok:=kolvosborok+1;
end
else
begin
form1.zakaztable.Edit;
form1.zakaztable.FieldByName('Da_net').Asstring:=inttostr(0);
form1.zakaztable.post;
end;
form1.zakaztable.Next;
end;
mas1[j]:=kolvosborok;
form1.Sborwikitable.Next;
kolvosborok:=0;
end;
form1.frxReport1.LoadFromFile('reports\zp_vse.fr3');
form1.frxReport1.ShowReport;
end;
В самом отчете поместил в датабэнд мемо, и в нем написал [element]. датабэнд пробовал крипеть и к frxuserdataset, и frxdataset, эффект одинаковый.
Помогите плз решить проблему!
Комментарии