samprp
شنبه 17 مرداد 1388, 14:38 عصر
با عرض سلام
این کدها تو فرم اول هستند:
interface
...
ttype
Ta=(f1, f2, f3);
TRecA= record
id:Integer;
aa: Ta;
end;
var
Form1: TForm1;
RecA1:TRecA;
A1:Ta;
و تو فرم دوم این کد ها نوشته شدن:
interface
...
var
Form2: TForm2;
RecA2:TRecA;
a2:Ta;
implementation
uses Unit1;
procedure TForm2.FormCreate(Sender: TObject);
var
RecA3:TRecA;
a3:Ta;
begin
end;
تو فرم دوم کد های قرمز شده خطا می گیرن ولی کدهای آبی بدون خطا اجرا می شن.
خیلی جستجو کردم ولی فایده ای نداشت.
دوستان مشکل چیه؟
این کدها تو فرم اول هستند:
interface
...
ttype
Ta=(f1, f2, f3);
TRecA= record
id:Integer;
aa: Ta;
end;
var
Form1: TForm1;
RecA1:TRecA;
A1:Ta;
و تو فرم دوم این کد ها نوشته شدن:
interface
...
var
Form2: TForm2;
RecA2:TRecA;
a2:Ta;
implementation
uses Unit1;
procedure TForm2.FormCreate(Sender: TObject);
var
RecA3:TRecA;
a3:Ta;
begin
end;
تو فرم دوم کد های قرمز شده خطا می گیرن ولی کدهای آبی بدون خطا اجرا می شن.
خیلی جستجو کردم ولی فایده ای نداشت.
دوستان مشکل چیه؟