[Oleg]

Объясните пожалуйста какая разницу между обьявлением переменных в месте_1 и месте_2 ?

Код:

  Type
    TMyTyps = record
      integ  : integer;   // место_1
      Move : boolean;     // место_1
    end;

Procedure proc1;
Procedure proc2;
Procedure proc3;
var
  variable: array[1..50] of TMyTyps;   // место_2
  var1 : integer;                      // место_2

implementation

И если можете расскажите пожалуйста о том как правильно работать с объявлением типа, свойствами и использованием .

[Rokuell]

TMyTyps - это запись - позволяет собрать в кучу несколько переменных, напр чтобы передавать в параметрах фукции и т.п

Ещё в record есть условное описание, тоже иногда очень удобно.

[<<D>>]

Код:

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;

[Oleg]

Спасибо всем, стало немного понятнее

[zip000]

Сообщение от <<D>>

А второй пример:

Код:

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;

Товарисч, причем здесь форма??? Не форме, а ЮНИТУ!!!! Не путайте.

[Aristarh Dark]

Начнем с того что переменная это поименованная область памяти (не будем вдаваться в подробности длинны этой области, и ее видимости из других форм/юнитов/библиотек).

Код:

var
  a:integer;
  b:char;

так выделяется память под две переменные определенного типа, имя типа однозначно говорит компилятору сколько памяти надо выделить.

Код:

  Type
    TMyTyps = record
      integ  : integer;
      Move : boolean;
    end;

а так объявляется новый, пользовательский, тип данных. Память при этом не выделяется, но вот так:

Код:

  var
    somevar:TMyTyps;

можно выделить память которая будет сообветствовать по длине и по структуре типу TMyTyps описанному выше.

[<<D>>]

Сообщение от zip000

Товарисч, причем здесь форма??? Не форме, а ЮНИТУ!!!! Не путайте.

Млин...извиняюсь конечно, Перепутал!!!

[Rokuell]

Насчёт памяти:
Внутри записи допустимо указывать несколько форм её представления, и описываются все эти формы "в стиле" оператора case (это только правило описания, способ нужного представления, понятный компилятору и разработчику, а не реальный машинный код).

Например программисту требуется использовать два типа данных: одну запись с полями:

Код:

Name : string[50];
Num: integer;
X:integer;

а другую - с полями:

Код:

a: integer;
b: char;
X:integer;

При этом программист точно знает, что он не будет применять эти группы полей одновременно друг с другом. Тогда вместо описания двух новых типов программист может описать один, только разделив внутреннюю структуру записи на две:

Код:

type TMyType = record
        X:integer;
        case boolean of
        true: (Name: string[50]; Num: integer);
        false: (a: integer; b: char);
        end;  

Подобная оригинальная запись расшифровывается следующим образом: Слово case говорит, что далее следует несколько форм представления типа (записи) TMyType. Сколько? Это определяется следующим за ключевым словом case типом Boolean ( в данном случае, т.к Boolean имеет всего два значения, мы можем указать всего две формы представления, написав другой тип, напр byte можно больше: 5, 10, хоть все 256 )
Далее в круглых скобках приводятся варианты внутренней структуры.
Закрывает описание case не собственное ключевое слово end, а слово end, завершающее описание всей записи
Обращатся к полям записи в тексте программы можно как обычно.
Данное описание используется ещё с первых версий программы для экономии памяти, т.к для всех представлений выделяется одна общая область памати (равная облатси памяти, требуемой для самого большого представления)

Конечно, одновременно обращатся к полям из разных описаний не следует: ведь создаются подобные раздельные описания как раз исходя из того, что совместно использоваться они не будут.

Но есть ещё один способ применения условного описания. Т.к в памати для представлений отводиться одна общяя область, то можно например орагизовать доступ к отдельным байтам переменной, напр. Integer имеет длину 4 байта, тогда:

Код:

type TMyType = record
        case byte of
        1: (I:integer);
        2: (bs: array [1..SizeOf(integer)] of byte);
        end;

var A:TMyType;
begin
A.I := '1568237'; // число типа integer
A.bs[1] // значения первого байта
A.bs[4] // значение последнего байта и т.п
...

[Oleg]

Всем ещё раз спасибо за разяснение