★★奉劝Nicrosoft，DeD不要摆阔，有本事，把我的问题搞定★★

Question

唉，不要再用问题考我了这两天总有人要我回答问题！好像我回答不出，他们就取得了某种胜利一样你们去胜利吧我不是vb通，我也不是xx通，我什么都不通，我是菜鸟

Answer 1

DEAK
双方好不容易压住了火气，请不要继续挑衅。Nicrosoft(奈软)　
建议你不要在回复此类问题

Answer 2

我的问题是“怎样把Nicrosoft”从这里赶出去，希望Nicrosoft能解决。

Answer 3

Nicrosoft(奈软)：你的态度好象很无奈。
走自己的路，随别人怎么说吧。taolei：
你算什么，
csdn算你的吗？
凭什么把人家赶出去，

Answer 4

litangel:
所以才是我无法解决的问题呀，如果csdn是我管，早把他踢出了。无论Nicrosoft说的对错，都不该说那些伤人的话，要懂得尊重别人。这已经超出了技术范围，所以此类贴子就不该没完没了的出现。你查一查Nicrosoft这几天在这里发了多少个攻击人的贴子就知道了。我再强调一下：不是技术上的对错问题，是做人问题。说话时要考虑尊重别人。

Answer 5

taolei：
好象咱俩也要争论起来了，Nicrosoft的话的确伤人，这点绝对是他不对，
他的贴子我也看了，
"井底这蛙"，"货色"
挺伤人的，
他道歉了，我看就算了，"说话时要考虑尊重别人。"
这一点我绝对同意，
不管是高手还是菜鸟，
尊重是起码的，我用的是vbscript，也用delphi，
关于工具，我就不想说了，
我也常来CSDN，
大家共同学习，一起进步吧，
这是我最大的心愿。

Answer 6

deak:
你的问题用delphi可以实现。
用VB我不会。

Answer 7

to litangel:在delphi里是用什么方法实现的，用api函数吗？

Answer 8

deak:
我去给你找找书，呵呵，
不用api函数的，
但又没有直接画圆的例子，
可以用line来画，
例子如下：procedure TImage.AngleArc(x, y, radius: Integer; start, sweep: Single);
var
 nx, ny: Real;
 i: Integer;
 ox, oy: Real;
 ds: Real;
 Step: Integer;
 _start: Real;
begin
 if sweep>360 then
  sweep := 360; ox := cos(start/180*PI)*radius;
 oy := -sin(start/180*PI)*radius;
 Step := Round(Sweep);
 if Step<radius then
  Step := radius;
 ds := sweep / Step;
 _start := start;
 for i:=1 to Step do
 begin
  nx := cos(_start/180*PI)*radius;
  ny := -sin(_start/180*PI)*radius;
  Line(Round(ox)+x, Round(oy)+y, Round(nx)+x, Round(ny)+y);
  ox := nx;
  oy := ny;
  _start := _start + ds;
 end;
end;

Answer 9

zzy198(小周)：
谢。
呵呵，看到不公平的事，我就想说，
直肠子，没办法。