[Delphi] 문자열의 너비 구하기



uses Graphics;

Canvas.TextWidth(str);


ex)

if Canvas.TextWidth(Cells[5, J]) > 220 then
  RowHeights[J] := 16 * ((Canvas.TextWidth(Cells[5, J]) div 220) + 1);