Code: Select all
setMyName(pName: String) updating;
vars
pos: Integer;
src: String;
begin
pos := 1;
src := source;
src := pName & src[src.pos("(", pos):end];
name := pName;
source := src;
end;
Code: Select all
vars
k: Key;
cls: Class;
cc: CollClass;
begin
cc := MyCollClass;
cls := cc.getMemberType().Class;
foreach k in cc.getKeys() do
write k.keyName() & " " & cls.getProperty(k.keyName()).type.name;
endforeach;