에러 메세지

project project2.exe raised exception class EVariantError with message 'Invalid variant type conversion',process stopped.Use Step of Run to continue.



DBgrid 사용해서 출력하는데여~~ 실행은 되는데 데이터 입력해서 실행시키면 위의 메세지가 뜨거든여~~ 고수님 부탁합니당...........



Form2 코딩부분

procedure TForm1.Button1Click(Sender: TObject);

var avr:Real;

begin

with table1 do

begin

try

first;

while not EOF do

begin

edit;

avr:=fieldbyname('g-edps').value + fieldbyname('g-lang(1)').value

+ fieldbyname('g-base').value + fieldbyname('g-archi').value

+ fieldbyname('g-os').value + fieldbyname('g-eng').value;

avr:=avr/6.0;

fieldbyname('g-avr').value:=formatfloat('0.00',avr);

updateRecord;

post;

next;

end;

except

cancel;

raise;

end;

end;

form2.show;

end;