아고~ 고수행님들 내좀 살리주이소
Timage를 동적으로 500 개를 생성할라카니까.
속도가 뚝~ 떨어져버리네예
늙은 초보라서인지 억수로 쌔빠지고 있습니더
다 같은 이미지인데 한방에 해결 할라카이 안되네예
이미지를 500개 불러올려니 시간이 걸리는건지 아니면
500개의 오브젝트를 만들려니 시간이 걸리는건지
바빠죽것는데 한수 갤마주이소.
<!--CodeS-->
   For j := 1 to 500 Do
       Begin
       coin := Timage.Create(Self);
       with coin do
          begin
          Parent := Frm_main;
          Name := 'Coin'+intTostr(V_coins);
          Width := 30;
          height := 30;
          Top := mtop+i;
          Left := mleft+i;
          Visible := True;
          Picture.LoadFromFile('..\image\cp.gif');
          end;
       V_coin := V_coin + 1;
       end;
<!--CodeS-->