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.