可変数個のparameterを渡すには？

解決

what 2006-11-14 01:07:04 No: 23899

可変数個のchartを保存するに際して、
SavetoBM('chart1,chart2,chart3');
SavetoBM('chart4,chart5');
などと記述していますが、強引さに不満があります。
定法を教えて下さい。

procedure TForm1.SavetoBM(ChartList:string);
var STL:TStringList;
    CH:TChart;
    i:integer;
begin
  STL:=TStringList.Create;
  STL.clear;
  STL.CommaText:=ChartList;
  for i:=0 to STL.Count-1 do begin
    CH:=findcomponent(STL[i]) as TChart;
    CH.SaveToBitmapFile(Caption+inttostr(i)+'.BMP')
  end;
  STL.free;
end;

通りすがり 2006-11-14 01:40:06 No: 23900

procedure TForm1.SaveToBM(const ChartList: array of TChart);
var
  i: Integer;
begin
  for i:=Low(ChartList) to High(ChartList) do
    ChartList[i].SaveToBitmapFile(ChartList[i].Name+'.BMP');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SaveToBM([Chart1,Chart2,Chart3]);
// SaveToBM([Chart4,Chart5]);
end;
定法かどうかは知りませんです。はい。

what 2006-11-14 01:47:14 No: 23901

エレガントさに感服しました。
ありがとうございました。