Unit1:
Ruft Prozedure testing aus Unit2 auf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
testing(ADODatasetObjekt);
end;
Unit2:
Delphi-Quellcode:
procedure testing(QuellSource : TADODataset);
begin
QuellSource.EIGENSCHAFT := IRGENDWAS;
QuellSource.METHODE();
end;
So einfach geht das.