|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Вставка даты циклом
Добрый день! Не полчается вставить циклом дату. Вот сейчас сделал такой код:
Код:
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; |
#2
|
||||
|
||||
Ну, а где begin-end в цикле? как- то так должно быть, насколько я понял...
Код:
for k:=4 to Form8.StringGrid1.ColCount - 1 do begin Form8.Table_jur.Insert; ... inc(i); end; Последний раз редактировалось TOJluK, 03.08.2009 в 17:36. |
#3
|
||||
|
||||
Вот, я переделал код на такой:
Код:
procedure TForm8.BitBtn8Click(Sender: TObject); var i,k,j: integer; begin if Form8.Table_jur.Locate('Fam_jur;Imy_jur;Otche_jur',VarArrayOf([Form8.StringGrid1.Cells[1,j], Form8.StringGrid1.Cells[2,j],Form8.StringGrid1.Cells[3,j]]), [loCaseInsensitive,loPartialKey]) = False then for i:=4 to Form8.StringGrid1.ColCount - 1 do for j:=1 to 25 do if Form8.StringGrid1.Cells[0,j] <> '' then if Form8.StringGrid1.Cells[1,j] <> '' then if Form8.StringGrid1.Cells[2,j] <> '' then if Form8.StringGrid1.Cells[3,j] <> '' then if Form8.StringGrid1.Cells[i,0] <> '' then begin Form8.Table_jur.Insert; Form8.Table_jur.FieldByName('Data').AsString:=Form8.StringGrid1.Cells[i,0]; Form8.Table_jur.FieldByName('Fam_jur').AsString:=Form8.StringGrid1.Cells[1,j]; Form8.Table_jur.FieldByName('Imy_jur').AsString:=Form8.StringGrid1.Cells[2,j]; Form8.Table_jur.FieldByName('Otche_jur').AsString:=Form8.StringGrid1.Cells[3,j]; Form8.Table_jur.Post; end; |