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;
소스는 이런데 뭐가 문제죠?
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 를 사용했더니 되는것 같은데 다른 에러가....