Передача типа Record в процедуру в качестве параметра процедуры

@serg55 · Регистрация: 15.08.2014

Author24 — интернет-сервис помощи студентам

Вот такой код не работает:

Delphi

TGraph = Record
      Graf_Flag : boolean;
      Priyom_Flag : boolean;
      Rec_Flag : Boolean;
    end;
 
Sin, Cos : TGraph;
 
FlagsSet(Sin,1,0,2);
 
procedure FlagsSet(Graf:TGraph; Priyom, Graf, Rec : integer);
begin
if (Priyom = 1) then Graf.Priyom_flag := true;
                            else  Graf.Priyom_flag := false;
.... далее остальные параметры
end;

А именно не хочет передавать запись Sin в качестве параметра Graf. Поэтому поля записи не меняют значение. Как правильно реализовать передачу записи в процедуру.

@mss · 10.03.2015, 09:14

procedure FlagsSet(var Graf:TGraph; ....

@serg55 · 10.03.2015, 09:34 **[ТС]**

mss, Спасибо. Этот вариант пробовал, компилятор ругался, но это я забыл еще в объявлении var дописать

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	10.03.2015, 09:14	2
	procedure FlagsSet(var Graf:TGraph; .... 0

@serg55 2 / 2 / 1 Регистрация: 15.08.2014 Сообщений: 170
	10.03.2015, 09:34 [ТС]	3
	mss, Спасибо. Этот вариант пробовал, компилятор ругался, но это я забыл еще в объявлении var дописать 0