Fibplus и двумерные массивы

[bazanin]

Здравствуйте столкнулся с проблемой записи 2х мерного массива(variant) в бд interbase:

procedure TForm5.Button2Click(Sender: TObject);
var
i,j:integer;
s:string;
begin
mayar:=VarArrayCreate([0,10,0,10], varinteger);
for i:=0 to 10 do
 for j:=0 to 10 do
 if StringGrid1.Cells[i,j]='' then
  mayar[i,j]:=0
 else
  mayar[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
 pFIBQuery1.Close;
 pFIBQuery1.SQL.Clear;
 s:= 'INSERT INTO FASE2D (MYARRAY,FIO) VALUES (:myarray,:FIO );';
 pFIBQuery1.SQL.Add(s);
 pFIBQuery1.Params[0].Asvariant:=mayar;
 pFIBQuery1.Params[1].AsString:=edit1.Text;
 pFIBQuery1.Prepare;
 pFIBQuery1.ExecQuery;
end;

запись проходит но!

0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0

хотя проверяя массив там все что введено в stringgrid



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) что Вы за нули привели? это содержимое таблицы FASE2D ? тогда почему оно в виде матрицы?

2) выложите исходники проекта - иначе гадать можно до бесконечности!
(ну, например, забываете коммит сделать)

3) Вы не забыли, что в StringGrid1.Cells указывается сначала номер СТОЛБЦА, а потом номер строки?

[bazanin]

Нули это содержание поля myarray. Вот в чем вся и загвоздка, это поле массив [0..10,0..10]

[bazanin]

Все заработало через dataset

pFIBTransaction1.StartTransaction;
   pFIBDataSet1.Insert;
   pFIBDataSet1.FBN('поле массив').Value:=mayar;
   pFIBDataSet1.FBN('текст').asstring:=edit1.Text;
   pFIBDataSet1.Prepare;
   pFIBDataSet1.Post;
  pFIBTransaction1.Commit;
  pFIBDataSet1.Close;