of byte;
function add(const a: arrb): arrb;
begin
SetLength(parrb(@a)^, 30);
end;
var
v: arrb;
begin
SetLength(v, 3);
WriteLn(Length(v));
add(v);
WriteLn(Length(v));
readln;
end.
Как вы считаете:
1. Этот код что-нибудь нарушает?
2. Какой должен быть вывод второго WriteLn? (3/30/0/1/random)?
?
Всё, дошло старый v перестаёт существовать...
а нефиг читерить
А в Delphi 7, кстати, не так! 😝 Там как-то по другому всё происходит...
Обсуждают сегодня