حمیدرضاصادقیان
چهارشنبه 25 اردیبهشت 1387, 17:05 عصر
سلام دوستان. من در یکی از فرمهام کد زیر رو در یک تابع نوشتم و مقدار رکورد مورد نظر رو که در یک یونیت اصلی تعریف شده رو پر می کنم.
While Not(Eof) do
begin
if fieldvalues['rdf']<1 then
Begin
Next;
Continue;
End
Else
Begin
sharh_rec_rize[stgFaFoRizRiz.row-1].rdf:=fieldvalues['rdf'];//recordset.Fields.item[0].value;
sharh_rec_rize[stgFaFoRizRiz.row].disk:=fieldvalues['disk1'];//recordset.Fields.item[2].value;
stgFa_frosh.cells[4,fieldvalues['rdf']-1]:='*';
stgFaFoRizRiz.cells[0,stgFaFoRizRiz.row]:=fieldvalues['Rdf'];
stgFaFoRizRiz.cells[1,stgFaFoRizRiz.row]:=fieldvalues['disk1'];
// If stgFaFoRizRiz.Row=stgFaFoRizRiz.RowCount-1 then
// stgFaFoRizRiz.RowCount:=stgFaFoRizRiz.RowCount+1;
stgFaFoRizRiz.row:=stgFaFoRizRiz.row+1;
End;
Next;
End;
وقتی که این فرم رو فقط باز میکنم و می بندم و کل برنامه رو میبندم بهم پیغام AV میده که آدرسش در Cpu رو در عکس زیر ضمیمه میکنم.
اینم وقتی رخ میده که کامل برنامه بسته شده.
اصلا چیزی باز نیست.
ولی وقتی اون دوخطی که در بالا مشخص کردم رو کامنت میکنم مشکلی نداره.
While Not(Eof) do
begin
if fieldvalues['rdf']<1 then
Begin
Next;
Continue;
End
Else
Begin
sharh_rec_rize[stgFaFoRizRiz.row-1].rdf:=fieldvalues['rdf'];//recordset.Fields.item[0].value;
sharh_rec_rize[stgFaFoRizRiz.row].disk:=fieldvalues['disk1'];//recordset.Fields.item[2].value;
stgFa_frosh.cells[4,fieldvalues['rdf']-1]:='*';
stgFaFoRizRiz.cells[0,stgFaFoRizRiz.row]:=fieldvalues['Rdf'];
stgFaFoRizRiz.cells[1,stgFaFoRizRiz.row]:=fieldvalues['disk1'];
// If stgFaFoRizRiz.Row=stgFaFoRizRiz.RowCount-1 then
// stgFaFoRizRiz.RowCount:=stgFaFoRizRiz.RowCount+1;
stgFaFoRizRiz.row:=stgFaFoRizRiz.row+1;
End;
Next;
End;
وقتی که این فرم رو فقط باز میکنم و می بندم و کل برنامه رو میبندم بهم پیغام AV میده که آدرسش در Cpu رو در عکس زیر ضمیمه میکنم.
اینم وقتی رخ میده که کامل برنامه بسته شده.
اصلا چیزی باز نیست.
ولی وقتی اون دوخطی که در بالا مشخص کردم رو کامنت میکنم مشکلی نداره.