Q&A

  • invalid variant type conversion error??
procedure TForm2.research;

var

T_charge: integer;

begin

T_charge := 0;



Table1.First;

while table1.Eof <> true do

begin

T_charge := T_charge + table1['UseCharge']; // 혹시 여기가?

table1.Next;

end;

statictext2.Caption := intTostr(T_charge); // 아님 여기가?

end;



소스는 이런데 뭐가 문제죠?

3  COMMENTS
  • Profile
    김종환 1999.10.11 04:15
    procedure TForm2.research;

    var

    T_charge: integer;

    begin

    T_charge := 0;



    Table1.First;

    while table1.Eof <> true do

    begin

    T_charge := T_charge + table1['UseCharge'].Asinteger; // 혹시 여기가?

    table1.Next;

    end;

    statictext2.Caption := intTostr(T_charge); // 아님 여기가?

    end;





    asinteger 를 사용했더니 되는것 같은데 다른 에러가....

  • Profile
    김종환 1999.10.11 04:42
    혼자 난리가 아니네요...



    procedure TForm2.research;

    var

    T_charge: integer;

    begin

    T_charge := 0;



    Table1.First;

    while table1.Eof <> true do

    begin

    T_charge := T_charge + table1.fieldbyname('UseCharge').Asinteger; //여기

    table1.Next;

    end;

    statictext2.Caption := intTostr(T_charge);

    end;



    문제는 FieldByName 이었네요... 혼자서 뭐하자는건지..
  • Profile
    오기주 1999.10.11 20:18
    table1['fieldname'] 이런 형태와 table1.FieldByName('fieldname')

    이런 형태의 차이점은요..

    앞에거는 null 값이 들어 왔을때 에러가 난다는거죠..

    ^^;;;





    김종환 wrote:

    > 혼자 난리가 아니네요...

    >

    > procedure TForm2.research;

    > var

    > T_charge: integer;

    > begin

    > T_charge := 0;

    >

    > Table1.First;

    > while table1.Eof <> true do

    > begin

    > T_charge := T_charge + table1.fieldbyname('UseCharge').Asinteger; //여기

    > table1.Next;

    > end;

    > statictext2.Caption := intTostr(T_charge);

    > end;

    >

    > 문제는 FieldByName 이었네요... 혼자서 뭐하자는건지..