Спасибо большое за пример!
нашел ошибку:
Цитата:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit1; // добавленный юнит
type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
D: Type1; // множно использовать здесь
{ Public declarations }
end;
var
Form2: TForm2;
K: Type1; // здесь
implementation
uses unit1; // неверное добавление юнита!
{$R *.dfm}
|
объясните пожалуйста разницу, чтобы в будущем не путаться