a
Size: a a a
a
a
AK
AK
procedure test(out a:array of integer);
begin
a[1]:=$5555;
end;
var
arr: array of integer;
begin
SetLength(arr,$1234);
test(arr);
end.
AK
a
AI
AK
AK
AI
AI
AK
SB
procedure Test(const AStr: string);не компилится ни в FPC, ни в Delphi 7. То есть, содержимое строк защищено.
begin
AStr[1] := '1';
end;
K
procedure Test(const AStr: string);не компилится ни в FPC, ни в Delphi 7. То есть, содержимое строк защищено.
begin
AStr[1] := '1';
end;
K
SB
K
SB
M
SB