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

[zxtyhy]

例如：“我的照片.bmp”
缩到：“我的照...”

用 Canvas.TextOut输出，整个的宽度是象素表示的，
例如在120象素中写入字符串，如果超出就截断字符串并用省略号代替后面的

记得好像有个API函数，请高手指教

[王集鹄]

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;

[do2008]

顶~~zswang(伴水清清)~