, 18 2016 . 15:17
+
! Firemonkey, :
if FindResource(0, '1', PChar(RT_RCDATA)) <> 0 then rs_img:=TResourceStream.Create(0,'1',PChar(RT_RCDATA));
"1" , , :
for i:=1 to 5 do
begin
if FindResource(0, IntToStr(i), PChar(RT_RCDATA)) <> 0 then rs_img:=TResourceStream.Create(0, IntToStr(i),PChar(RT_RCDATA));
end;
, IntToStr(i) e PCha ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83284
