[artemavd]

Добрый день! Не полчается вставить циклом дату. Вот сейчас сделал такой код:

Код:

procedure TForm8.BitBtn8Click(Sender: TObject);
var
 i,k,j: integer;
begin
 i:=1;
 while Form8.StringGrid1.Cells[1,i] <> '' do
 begin
 Form8.Table_jur.Append;
  if Form8.Table_jur.Locate('Fam_jur;Imy_jur;Otche_jur',VarArrayOf([Form8.StringGrid1.Cells[1,i],
                                 Form8.StringGrid1.Cells[2,i],Form8.StringGrid1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then

 for k:=4 to Form8.StringGrid1.ColCount - 1 do
     Form8.Table_jur.Insert;
     Form8.Table_jur.FieldByName('Fam_jur').AsString:=Form8.StringGrid1.Cells[1,i];
     Form8.Table_jur.FieldByName('Imy_jur').AsString:=Form8.StringGrid1.Cells[2,i];
     Form8.Table_jur.FieldByName('Otche_jur').AsString:=Form8.StringGrid1.Cells[3,i];
     Form8.Table_jur.FieldByName('God_jur').AsInteger:=StrToInt(Form8.StringGrid1.Cells[4,29]);
     Form8.Table_jur.FieldByName('Chetvert').AsString:=Form8.StringGrid1.Cells[2,28];
     Form8.Table_jur.FieldByName('Pred_jur').AsString:=Form8.StringGrid1.Cells[2,29];
     Form8.Table_jur.FieldByName('Klass').AsString:=Form8.StringGrid1.Cells[4,28];
     Form8.Table_jur.FieldByName('Data').AsString:=Form8.StringGrid1.Cells[k,0];
     Form8.Table_jur.Post;
//     Form8.Table_jur.Refresh;
  Inc(i);
 end;
end;

Все данные заносятся, а дата нет. Чего я тут намудрил? В идеале, мне надо, чтобы в БД в таблице данные хранились в таком виде, в котором таблица представлена во вложении. . Как перелопатить мой код, чтобы добиться такого?