獲取指定字符的寬度

https://www.cnblogs.com/gaodu2003/archive/2009/06/12/1502242.html

方法一：
var
  CharX, CharY: Integer;
with Canvas do
  begin
  Font.Name := '宋體';
  Size := 9;
  CharX := TextExtent('字符串').cx;    //字符串寬度，單位爲像素
  CharY := TextExtent('字符串').cy;    //字符高度，單位爲像素
end;

方法二：
var
  s: TSize;
with Canvas do
  begin
  Font.Name := '宋體';
  Size := 9;
  s := TextExtent('字符串');
  ShowMessage(Format('字寬：%d 字高：%d', [s.cx, s.cy]);
end;