如何实现将长字符串缩短到一定长度，其后用...补充？

Question

例如：“我的照片.bmp”
缩到：“我的照...”用 Canvas.TextOut输出，整个的宽度是象素表示的，
例如在120象素中写入字符串，如果超出就截断字符串并用省略号代替后面的记得好像有个API函数，请高手指教

Answer 1

var
  S: string;
  vRect: TRect;
begin
  S := '你的照片.bmp';
  vRect.Left := 0;
  vRect.Top := 0;
  vRect.Right := vRect.Left + 50;
  vRect.Bottom := vRect.Top + 25;
  DrawText(Canvas.Handle, PChar(S), Length(S), vRect, DT_END_ELLIPSIS);
end;