求，怎么将一元二次方程与二元一次方程封装在一个类中，并调用呢
unit Unit2;
interface
type
TMyClass = class
public
function Fc(s,a,b,c,d,x1,x2:Double):Double;
function Dc(a1,a2,b1,b2,c1,c2,x,y,d:Double):Double;
end;
implementation
function TMyClass.Fc(s,a,b,c,d,x1,x2:Double):Double;
begin
d:=b*b-(4*a*c);
s:=sqrt(d);
x1:=(-b+s)/(2*a);
x2:=(-b-s)/(2*a);
end;
function TMyClass.Dc(a1,a2,b1,b2,c1,c2,x,y,d:Double):Double;
begin
d:=(a1*b2)-(a2*b1);
x:=((c1*b2)-(c2*b1))/d;
y:=((a1*c2)-(a2*c1))/d;
end;
end.
这样对吗？

大兄弟学地信的嘛

哈哈哈哈哈哈哈哈哈啊哈哈 ，

就两个函数，有必要封装到对象里面去嘛！

不要弄那么复杂，直接调用最好。