请教各们高手关于字段长度的问题？ 帮我解决后一定重谢。

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  DBEdit.Width := Canvas.TextWidth(TDataSource(Sender).DataSet.FieldByName('<你的字段名>').DisplayText) + 4;
end;

解决方案 »

  1.   

    to：　zswang(伴水)(需要充充电)　能在我的程序中改吗？
      

  2.   

    tozswang(伴水)(需要充充电)　好象不行吗？
    在帮我考虑一下好吗？
      

  3.   

    to:zswang(伴水)(需要充充电)　我的程序很大的。好象没有设长度的
      

  4.   

    zswang(伴水)你在看我的信息吗？我好象没有设长度，现在怎么办？快帮我啊！老板在催我，如果今天不能解决，我不能按时下班，快帮一下好吗？本姑娘很感激的，谢谢。
      

  5.   

    zswang(伴水)请你把代码发到或[email protected]