小编Art*_*dio的帖子

拥有每月一次的意向，我想创建一个带有日期行的动物园意向，并以每天的意向进行如下操作：

dailyserie<- as.numeric(1:365)
x.Date <- as.Date("2003-01-01") + c(1:365) - 1
Zooserie <- zoo(dailyserie, x.Date)

我每月有1974年至1989年的意甲联赛，上面又有几个月的时间怎么办？

谢谢！

我在下面有这个函数使用ComponetCount,当我在另一个Form中使用这个函数时,它在Form1中,在Form1中使用Form2,它带来了Form1而不是Form2的Componetes数量,我该如何解决这个问题问题？遵循功能:

function Form1.getgridId(KeyField: String): string;
var
  i: Integer;
  id: string;

begin

  for i := 0 to ComponentCount -1 do
  begin
    if Components[i] is TCustomDBGrid then
    id:= TCustomDBGrid(Components[i]).DataSource.DataSet.FieldByName(KeyField).AsString;
  end;
  Result := id;

end;

ANS(在我的具体案例中) - 在所有人的帮助下:

function getgridId(KeyField: String): string;
var
  i: Integer;
  id: string;
begin
  for i := 0 to Screen.ActiveForm.ComponentCount -1 do
  begin
    if Screen.ActiveForm.Components[i] is TCustomDBGrid then
      id := TCustomDBGrid(Screen.ActiveForm.Components[i]).DataSource.DataSet.FieldByName(KeyField).AsString;
  end;
  Result := id;

end;