zdravim
preco toto nefunguje?
dakujem
program Project1;
type superType = record
foo: integer;
end;
var
bar: superType;
procedure plusone(a: superType);
begin
a.foo := a.foo + 1;
end;
begin
bar.foo := 1;
plusone(bar);
writeln(bar.foo);
readln;
end.
ocakavany vystup 2 ale je ...
Založil Marek; 4 názory, poslední 1. 3. 2015 – nevyřešeno
Založil Marek; 4 názory, poslední 1. 3. 2015 – nevyřešeno