[Kepler]

Здравствуйте. Задался глупым вопросом: каким образом можно передать поле записи через параметр процедуры/функции?

На примере:

Код:

type
  TM = record
    A:integer;
    B:integer;
    C:integer;
  end;
var
  Form1: TForm1;
  M:TM;

implementation

procedure GAVGAV( ??? );
begin
  M.X:=5; 
end;
...

Под X должно быть поле записи, которое передается через параметр процедуры GAVGAV.
Долго думал, но так и не придумал. Подскажите пожалуйста.

[angvelem]

Код:

procedure GAVGAV(var M:TM);
begin
  M.X:=5; 
end;

...

  GAVGAV(M);

хотя какой в этом смысл, когда М - глобальная переменная.
Никакого поля Х, там быть не может.

[Kepler]

Нет, дело в том, что мне нужно чтобы в сторонней процедуре я мог набрать нечто вроде

Код:

   GAVGAV(A,5);  // При этом к M.A добавлялось, к примеру, 5 
   GAVGAV(B,2);  // При этом к M.B добавлялось 2

Мне не понятно как можно научить понимать процедуру что производить действия надо именно с полем A, B или С. При этом мне надо, чтобы A,B или С передавалось через какую-то переменную, чтобы в GAVGAV можно было написать что-то вроде

Код:

procedure(X:??;Num:integer);
begin
   M.X := M.X+ Num;
end;

[angvelem]

Немного не так:

Код:

procedure(var X : Integer; Num : Integer);
begin
   X := X + Num;
end;
...
   GAVGAV(M.A, 5);  // При этом к M.A добавлялось, к примеру, 5 
   GAVGAV(M.B, 2);  // При этом к M.B добавлялось 2

или

Код:

function(X : Integer; Num : Integer) : Integer;
begin
   Result := X + Num;
end;
...
   M.A := GAVGAV(M.A, 5);  // При этом к M.A добавлялось, к примеру, 5 
   M.B := GAVGAV(M.B, 2);  // При этом к M.B добавлялось 2

[Kepler]

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

[angvelem]

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

Я не могу войти в поле записи, как это предлагаете вы, когда у меня массив, а не один record.

Конечно можешь.

[ALexandr555]

Код:

var
m:array[0..9] of TM;
...
procedure(var X : Integer; Num : Integer);
begin
   X := X + Num;
end;
...
GAVGAV(m[1].A, 5); 

разве нет?

[Kepler]

Это разумеется. Не могу зайти по другой причине.
У меня есть процедура, которая сравнивает и сортирует N элементов с k-й позиции в массиве. Но теперь у меня массив из записей с кучей полей. Процедура должна проводить операции сравнения и сортировки для указанного поля, перемещая тем самым элементы массива.

Если указывать номер ячейки массива, то получится жуткое усложнение программы, из-за особенностей процедуры, да и придется очень многое переделывать.

Проще говоря было:

Код:

if B[locB] < C[locC] then ...

Надо:

Код:

if B[locB].X < C[locC].X then ...

[angvelem]

Это не жуткое усложнение, это непродуманный алгоритм. Отсюда и все проблемы. Лучше пока не поздно, просчитать все варианты обращения к массиву и изменить сейчас, чем потом бороться с ветряными мельницами.

[icWasya]

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

Код:

type
  TM = record
    case boolean of
      true:( 
          A:integer;
          B:integer;
          C:integer;
          );
     false:(X:array[0..2] of integer;)
  end;

прочитайте про case внутри record