Спасибо заранее
var
MainForm: TMainForm;
CurrentFrame : TFrame;if Assigned(CurrentFrame) then FreeAndNil(CurrentFrame);
CurrentFrame := TOtgruzkaViewFrame.Create(MainForm);
MainForm.UpdateFrame(Sender);Private
MainForm: TMainForm;
CurrentFrame : TFrame;CurrentFrame.adotable1.appendprocedure AppendData;
begin
adotable1.append;
end;Хоть и больше писать, зато принципы ООП (инкапсуляция) поддержаны. Да и потом, при внесении изменений в логику, вам не придется искать все места в коде программы, где было такое, а просто заменить в одном лишь месте и везде уже работает.TMainForm = classs(TForm)
....
private
CurrentFrame : TFrame;
...
end;
//// далее где-то в коде главной формы
begin
...
if Assigned(CurrentFrame) then begin
if CurrentFrame is TFrame1 then
(CurrentFrame is TFrame1).AppendData; // ну или (CurrentFrame is TFrame1).adotable1.append;
...
if CurrentFrame is TAnotherFrame then
(CurrentFrame is TAnotherFrame).AppendData;
...
end;
...
end;if assigned(CurrentFrame) then
recCount:= TOtgruzkaViewFrame(CurrentFrame).adotable1.recordcount;