[XANDER2011]

Всем доброго времени суток! Помогите решить проблему:
Есть 2 формы - на одной заполненный грид, на второй грид и 2 datetimepicker для указания периода. По нажатию кнопки на форме №2 значение ячеек 12-го столбца грида формы №1 проверяется условием – если значение ячейки больше или равно значению пикера №1 и не больше значения пикера №2, то тогда вся строка переносится в грид №2. НО при нажатии на кнопку ничего не происходит.
Возможно в коде я «хомутнул», но никак не могу найти где именно…

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

var   Form18: TForm18;      t1,t3,x,y,temp,k,k1,k3,c,row: integer;      t2,t4,tempstr,f,f1,f2: string;      i, j: Integer; implementation ...... procedure TForm18.Button1Click(Sender: TObject); begin f:=datetostr(form18.DateTimePicker1.Date); f1:=datetostr(form18.DateTimePicker2.date); form18.sg1.RowCount:=2; for k:=2 to form4.sg1.RowCount do for k1:=12 to form18.sg1.RowCount do k3:=2; for k:=2 to form18.sg1.RowCount do //вариант проверки на соответствие №1 if form18.DateTimePicker1.Date=strtodate(form4.sg1.Cells[12,k])then if form18.DateTimePicker2.date=strtodate(form4.sg1.Cells[12,k]) then //вариант проверки на соответствие №2 {if datetostr(form18.DateTimePicker1.Date)>=form4.sg1.Cells[12,k] then if datetostr(form18.DateTimePicker2.date)<form4.sg1.Cells[12,k] then} //вариант проверки на соответствие №3 {if f>=form4.sg1.Cells[12,k] then if f1<form4.sg1.Cells[12,k] then} begin k3:=k3+1; for k1:=12 to form18.sg1.RowCount do begin //c:=1; form18.sg1.Cells[k1,k3]:=form4.sg1.Cells[k1,k]; end; form18.sg1.RowCount:=form18.sg1.RowCount+1; end;

Прошу помощи

[freedomman]

Код:

1 2 3 4 5 6 7

if ((form18.DateTimePicker1.Date)>=strtodate(form4.sg1.Cells[12,k]) and (form18.DateTimePicker2.Date<=strtodate(form4.sg1.Cells[12,k]))) then begin k3:=k3+1; for k1:=12 to form18.sg1.RowCount do begin //c:=1; form18.sg1.Cells[k1,k3]:=form4.sg1.Cells[k1,k]; end;

[XANDER2011]

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

Код:

пишет ошибку
[Error] Unit18.pas(77): Operator not applicable to this operand type

[freedomman]

не проверял но должно работать

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); var i ,r,j:integer; begin StringGrid2.RowCount:=2; r:=1; for i:=1 To StringGrid1.RowCount do begin] if (datetostr(StringGrid1.Cells[12,i])>=DateTimePicker1.date) and  (datetostr(StringGrid1.Cells[12,i])<=DateTimePicker1.date) then  begin for j:=0 to StringGrid2.ColCount do StringGrid2.Cells[j,r]:=StringGrid1.Cells[j,i]; inc(r); StringGrid2.RowCount:=StringGrid2.RowCount+1; end; end;

[XANDER2011]

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

не проверял но должно работать

Код:

вот немного поигрался с кодом - вот что получилось

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm18.Button1Click(Sender: TObject); begin form18.sg1.RowCount:=2; r:=1; for i:=1 To form4.sg1.RowCount do begin if (strtodate(form4.sg1.Cells[12,i])>=form18.DateTimePicker1.date) and  (strtodate(form4.sg1.Cells[12,i])<=form18.DateTimePicker2.date) then  begin for j:=0 to form4.sg1.ColCount do form18.sg1.Cells[j,r]:=form4.sg1.Cells[j,i]; inc(r); form18.sg1.RowCount:=form18.sg1.RowCount+1; end; end; end;

Спасибо за помощь!
Единственное НО - выкидывает окно с ошибкой - '' is not valid date - хотя я все пустые строки из первого грида убрал