var i:integer; begin for i :=0 to 10 do begin form1.Canvas.TextOut(i,i 50,'def'); end; 我执行上面的程序后只显示最后一个，中间的那些怎么也能显示出来？

1.這個程式11次迴圈都有被執行 2.在座標上當落差很小時前一個被繪出的def會被後一個def蓋掉 3.必須加大座標差才行 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i :=0 to 10 do begin form1.Canvas.TextOut(i*10,i*10 50,'def'); end; 「堅持」從洗馬桶做起 Aric