Pass object/component to procedure

[Researching]

Need to
pass object to procedure or method and
get it processed by certain operations.


Module_1:
uses Module_2
Procedure SendRecordsToTable(
                          ListOfRecords:array of Records;
                          Table:TStringGrid );
begin
   for i=0 to sizeOf (ListOfRecords)-1 do
       for j=0 to sizeOf(ListOfRecords[j]-1) do begin
                vRow:= i+1;
                vCol := j+1;
                StringToStringGrid
                        (StringGrid, vCol,vRow, ListOfRecords[j]-1 )
Module_2:
procedure StringToStringGrid (StringGrid, vCol, vRow, string)
// this will write the string to StrGrid cells.

Actually need to put records from array or list to StringGrid
But different stringGrid in different Cases.
Actually StringGrid will be located on different Pages of Page Control.
TForm1.PageControl1 ...

Array of Records -> procedure -> StringGrid.

And StringGrid is
StrGr1
StrGr2
StrGr3
etc.

[cdbc]

Hi
Something like this:

Code: Pascal  [Select][+][-]

1. function bcGridSetRowText(aGrid: TStringGrid;aRow: ptrint;RowCells: array of string): ptrint;
2. var
3.   I,Cnt: ptrint;
4.   function min(a,b: ptrint): ptrint; begin if a <= b then Result:= a else Result:= b; end;
5. begin
6.   Cnt:= min(aGrid.ColCount,Length(RowCells));
7.   if Cnt = 0 then exit(-1);
8.   if aRow = -1 then begin { add a row }
9.     aRow:= aGrid.RowCount;
10.     aGrid.RowCount:= aGrid.RowCount + 1;
11.   end;
12.   if aRow < aGrid.RowCount then for I:= 0 to Cnt -1 do
13.     Grid.Cells[I,aRow]:= RowCells[I];
14.   Result:= aRow;
15. end;
16.  

Hth
Regards Benny

[Researching]

Not yet clear how it works...
Input data:

object/component: Form1.StringGrid1
Record to fill in
entity = Record
    PKey:integer; //will require IntToStr(entity.PKey)
    Name : string;
    address:string
   end;

Result:

new row in StringGrid.

And the main question is still:

The syntax of how to pass and receive parameters:
from the calling procedure_A (iterating the array of records)
in the call of procedure_B
and receive in the called procedure_B (filling data in StringGrid)

for example:

var
TRecordMy = Record
    PKey:integer; //will require IntToStr(entity.PKey)
    Name : string;
    address:string
   end;
.............................
proc_A ();
begin
proc_B(form1.StringGrid1, myArray[n])
end;


Proc_B(aGrid: TStringGrid; aRecord: TRecordMy)

[TRon]

To keep it in the spirit of cdbc's answer:

Code: Pascal  [Select][+][-]

1. type TMyArray = array of TRecordMy;
2.  
3. procedure proc(SG: TStringGrid; Items: TMyArray);
4. var
5.   Item     : TRecordMy;
6.   rowindex : integer;
7.   RowCells : Array of string;
8. begin
9.   Rowindex := 1;
10.   for item in items do
11.   begin
12.     RowCells := [Item.PKey.ToString, Item.Name, Item.address];
13.     bcGridSetRowText(SG, Rowindex, RowCells);
14.     inc(rowindex);
15.   end;
16. end;
17.  
18.