bonsai
2014-08-12 16:55:42
Is it correct there's no way to do multiple inheritance in lape?
Like:
This way is fine
Like:
program obj;
type
Tbase1 = record
base1i: integer;
end;
Tbase2 = record
base2i: integer;
end;
Tobj = record(Tbase1)(Tbase2)
obji: integer;
end;
var
o: Tobj;
begin
o.base1i := 22;
o.base2i := 44;
o.obji := 66;
writeln(o);
end. This way is fine
program obj;
type
Tbase1 = record
base1i: integer;
end;
Tbase2 = record(Tbase1)
base2i: integer;
end;
Tobj = record(Tbase2)
obji: integer;
end;
var
o: Tobj;
begin
o.base1i := 22;
o.base2i := 44;
o.obji := 66;
writeln(o);
end.