对stringgrid输入数据时，第一个数字不能为0，要怎么控制呢？在线等，急！谢谢了

Question

对stringgrid输入数据时，第一个数字不能为0，要怎么控制呢？还有一个问题是：dbgrid数据库控件，我现在要实现的要求是，如下dbgrid表（注：表的字段有货号，配码，件数，数量，总数）货号   配码   件数   总数
------------------------
T0051  456123   1     21
............................
...........................如果说当我要更改dbgrid里面的内容时,如果我把件数改为2时，对应的总数要变成42，如果把件数改为3时，总数为63,这样一直下去。这样要怎么实现呢？
我用的是adoquery,datasource,dbgrid 在线等，急！谢谢了

Answer 1

function DelZero(Str: String): String;
var S: String;
begin
  S := trim(Str);
  while Pos('0', S) = 1 do Delete(S,Pos('0',S),1);
  Result := S;
end;procedure TForm1.StringGrid1Exit(Sender: TObject);
begin
  StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := 
DelZero(StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]);
end;procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := 
DelZero(StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]);
end;