Код:
Type
TMyTyps = record
integ : integer; // место_1
Move : boolean; // место_1
end;
- это переменная типа TMyTyps.
Т.е. эта переменная будет внутри типа.
Пример:
Код:
var MT:TMyTyps;
begin
mt.integ:=0;
mt.move:=true;
А второй пример:
Код:
Procedure proc1;
Procedure proc2;
Procedure proc3;
var
variable: array[1..50] of TMyTyps; // место_2
var1 : integer; // место_2
implementation
сдесь переменная пренадлежит определённой форме.
Пример:
Код:
procedure TForm1.OnClick(Sender:TObject);
begin
var1:=0;// или
variable[0].integ:=0;
variable[0].move:=true;
end;