Hi dizzy,
fast
Delphi-Quellcode:
type
TBaseClass =
class(TObject);
//In BaseClass.pas deklariert
.
.
end;
TDerived =
class(TBaseClass);
//In DerivedClass.pas deklariert
.
.
end;
TMyArray1 =
array of TBaseClass;
// Vorsicht: Ist deklariert in der Unit in welcher die Funktion "Foo" vorkommt, in Unit1.pas
TMyArray2 =
array of TDerived;
// Ist deklariert in der Unit in der die Funktion "Foo" aufgerufen wird, also in Unit2.pas
end;
.
.
// In Unit1.pas
procedure Foo(
var v: TMyArray1);
begin
.
.
end;
// In Unit2.pas
procuedre TuWas;
var
arr: TMyArray2;
begin
SetLength(arr, 1);
Foo(arr);
end;
uses-Klausel von Unit1.pas:
BaseClass.pas
uses-Klausel von Unit2.pas:
DerivedClass.pas
Unit1.pas
Ich schätze mal das geht so nicht, oder?
Mit freundlichen Grüßen,
Thomas Tschofenig