菜鸟的三个问题,谢谢!

Question

1,在数据库里，怎么样更改字段名!
2,
error!
[Hint] Unit1.pas(143): Value assigned to 'sf' never used
这句话是什么意思
3,
还有i:=table1.fieldbyname('bh').AsInteger ;
打到table1.后面的fieldbyname没有,我用光标键找了一下,这是怎么回事

Answer 1

2 sf 虽然定义了,但是没有地方用过
3 因为i是整数，table1出提示的时候它是根据前面数据的类型相关的

Answer 2

to  citytramper(从开始到现在) ，没有地方用过，这句话不懂，怎么用过
请各位大虾帮帮忙好吗!拜托!!!!

Answer 3

打个比方，有个函数。function AddInt(const aI1, aI2: Integer): Integer;
var
  J: Integer;
begin
  J := aI1;
  Result := aI1 + aI2;
end;上面的例子就是这样，aI1赋值给J，但是J一直都没有使用。所以编译器告诉你的代码中有
一个地方做了无用的赋值。在优化的情况下，J := aI1;这一句会被优化掉的。如果整个
函数每个出现使用J的地方都是无用赋值的话，那么编译器甚至不会为J分配内存，因为你实际没有使用它。对于这种情况，编译器只是提醒你，你可能有些遗漏的地方，当然这只是可能。一般的，这些
忽略这些提示不会对程序的语义造成损害。但是，作为一种良好的习惯，尽量不要出现没有使用的变量，也不要做无用的赋值。
ok，捡分

Answer 4

刚刚没说清楚，我的意思是说,在dbedit1中输入数,再按button控件,在tdbGrid里增加.
运行时，总是在i:=table1.fieldbyname('bh').AsInteger ;显示错了
error!  key violation (键坏了)procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
table1.Last ;
i:=table1.fieldbyname('bh').AsInteger ;
table1.Append;
table1.edit;
dbedit1.Text :=inttostr(i+1);
end;

Answer 5

你可能是不是数据库没有被打开
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if table1.active then
begin
  table1.Last ;
  i:=table1.fieldbyname('bh').AsInteger ;
  table1.Append;
  table1.edit;
  dbedit1.Text :=inttostr(i+1);
end;
end;