如题
解决方案 »
- 一个奇怪的结构体函数调用的问题
- 如何用代码改打印方向
- fastreport自动折行时,如何能加大该行的高度?
- 哈哈哈哈....人生快乐莫过于找到一条路...
- 像在SQLServer中的case..when..then..End语句在Access中怎么用?
- 判断字符串是否??????
- 拖动Panel改变大小时,当Panel增大到一定程度时就不能再变大了,如何让它可以无限变大?
- 形参传回实参的问题
- 那里有Delphi下载啊?
- 組件消息高手進!在DELPHI中用PERFORM從一個組件類的事件代碼中傳自定義的消息到它的OWNER(如果是FORM),如何在該FORM的消息處理方法的代碼
- 出售Delphi6.0+ADO+SQL2000源码
- 谁能告诉我 INTERBASE的连接问题 明天 我再送分给好汉们
procedure TForm1.Button1Click(Sender: TObject);
var
x,y : real;
i : integer;
begin
for i:=0 to 1000 do begin
x:=i/10-50;
y:=(x*x+2*x+1)/10 ;
if i=0 then
form1.Canvas.PenPos := Point(Round(120+X),Round(288-y))
else
form1.Canvas.LineTo(Round(120+X),Round(288-y));
end;
end;