如何换算文本的显示宽度？

[rzg]

我在Dbgrid中想通过函数自动的调整每列的宽度，使之能够完整的显示出来
，但是怎么能够得到字符串的长度（我用：length(Str) ）和dbgrid 的Column[i].Width 之间转换啊？请高手帮助。在线等待！

[netlib]

dbgrid.textwidth(str);

[墨梅无痕]

使用Canvas.TextWidth和Canvas.TextHeight就可以得到准确的长度和宽度。

[GDU]

同意楼上

[surfguy]

if length(Str) > dbgrid .Column[i].Width then
dbgrid .Column[i].Width :=length(str);

[rzg]

谢谢！！！