[Kepler]

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

На примере:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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]

Код:

1 2 3 4 5 6 7 8

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

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

[Kepler]

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

Код:

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

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

Код:

1 2 3 4

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

[angvelem]

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

Код:

1 2 3 4 5 6 7

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

или

Код:

1 2 3 4 5 6 7

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]

Код:

1 2 3 4 5 6 7 8 9

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-й позиции в массиве. Но теперь у меня массив из записей с кучей полей. Процедура должна проводить операции сравнения и сортировки для указанного поля, перемещая тем самым элементы массива.

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

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

Код:

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

Надо:

Код:

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

[angvelem]

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

[icWasya]

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

Код:

1 2 3 4 5 6 7 8 9 10

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

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