Witam
Poniższy obraz ułatwi wyjaśnienie.
Mam główną formę "FormA", która zawiera procedurę przeszukującą węzły (wpisy) w VirtualListView.
//FormA
public
procedure Szukaj(const VST: TVirtualStringTree; const Edit: TEdit; Data: TTreeData);
Mam też formy podrzędne, Form1...Form4, z których to wywołuję przeszukiwanie, np.: w Form1 (każda forma podrzędna ma swój rekord odnoszący się do VirtualStringTree) odwołuję się do procedury z FormA, która to po parametrach ma szukać w VST_1 (VirtualStringTree) z rekordem z formy Form1.
PTreeData1 = ^TTreeData1;
TTreeData1 = record
//...
end;
//wywołanie szukania
var
Data: TTreeData1;
begin
FormA.Szukaj(VST_1, Edit_1, Data);
end;
Problem w tym, że nie mogę odwołać się do TTreeData, skoro każda forma (unit) ma swój rekord, a nie chce ustalać procedury szukającej dla każdej formy z osobna.
Jak to rozwiązać ?