Показать сообщение отдельно
  #3  
Старый 28.01.2008, 20:23
Аватар для <<D>>
<<D>> <<D>> вне форума
Активный
 
Регистрация: 06.05.2007
Адрес: ГДЕ ТО В СОЛНЕЧНОЙ СИСТЕМЕ
Сообщения: 207
Репутация: 15
По умолчанию

Код:
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;
__________________
Кому я должен - всем прощаю!!!!
Ответить с цитированием