Also beim laden bin ich jetzt soweit, aber häng an der entscheidenden Stelle:
Delphi-Quellcode:
function GetSet(AZahl : integer):TMyTypes;
var
mytest : TMyTyp;
cnt,i,lzahl : integer;
begin
cnt:=0;
repeat
inc(cnt);
until Round(Power(cnt,2))> AZahl;
lzahl:=AZahl;
Result:=[];
for i:= Pred(cnt) downto 1 do
if Round(Power(i,2)) <= lZahl then
begin
lzahl:=lzahl-Round(Power(i,2));
Result:= (Result or TMyTyp(i));
end;
if lzahl = 1 then
Result:= Result or TMyTyp(0);
end;
ich habe eben das Result und möchte einen Teil davon setzen. wie mache ich das?
OR und + gehen beide nicht. Muss was anderes her?