function Lagrange(x, y:ArrayDouble; N: integer; x1: Double): double;var I, J: Integer; a: Double;begin Result := 0; for i := 0 to N - 1 do begin a := 1; for J := 0 to N - 1 do begin……
未设置前效果,没有居中
居中代码
procedure TForm1.Stringgrid1DrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do
begin
...……