Delphi

[Delphin]

> Poradil by mi nekdo, jak vytvorit univerzalni proceduru pro praci s vice
> komponentami stejneho typu?
> Mam nekolik komponent (SG1..SG10) typu TStringGrid a chtel bych se vsemi
> provest stejnou operaci (naplnit Cells).
> Ve smycce ji nemuzu volat s parametry typu TStringGrid, ale treba
> integer (1 pro SG1, atd).

procedure DoSomething(const StringGridArray:array of TStringGrid);
var i:integer;
begin
 for i:=Low(StringGridArray) to High(StringGridArray) do 
StringGridArray[i].Cells[0,0]:="bla bla";
end;


DoSomething([StringGrid1,StringGrid2,StringGrid3,StringGrid4,StringGrid5]);