Delphi7的，如何檢查的TImage存在的畫面

Question

標題是不好的，所以我會解釋：

嗨，我創建了4張圖片，其中的角色（遊戲角色，汽車）着眼於不同的方向，每當您按下方向鍵（看向上，向下看下來，左看左，右看右邊），這裏是代碼：

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
    Shift: TShiftState); 
    var path,dleft,dright,dtop,dbot:string; 
begin 
path:=paramstr(0); 
dleft:=extractfilepath(path)+'Images\Pacman_Left.bmp'; 
dright:=extractfilepath(path)+'Images\Pacman_Right.bmp'; 
dtop:=extractfilepath(path)+'Images\Pacman_Top.bmp'; 
dbot:=extractfilepath(path)+'Images\Pacman_Bot.bmp'; 

    case Key of 
    VK_UP: 
    begin 
     image6.Picture.LoadFromFile(dtop); 
     image6.Top := image6.Top - 10; 
     end; 
    VK_DOWN: 
     begin 
     image6.Picture.LoadFromFile(dbot); 
     image6.Top := image6.Top + 10; 
     end; 
    VK_LEFT: 
     begin 
     image6.Picture.LoadFromFile(dleft); 
     image6.Left := image6.Left - 10; 
     end; 
    VK_RIGHT: 
     begin 
     image6.Picture.LoadFromFile(dright); 
     image6.Left := image6.Left + 10; 
    end; 
    end; 
end; 

我認爲我使用的代碼是可怕的，因爲如果我按下了一個鍵而不是一次，它將重新加載圖像，並且只要我繼續按下相同的鍵，就會繼續這樣做，這樣浪費了內存。我能做些什麼呢？ 感謝

Answer 1

一些改良效果：首先加載全部圖像（在應用程序啓動，說）：

var 
    bmCarLeft, bmCarRight, bmCarUp, bmCarDown: TBitmap; 

... 

bmCarLeft := TBitmap.Create; 
bmCarLeft.LoadFromFile(dleft); 
... 

，然後你可以做

Image6.Picture.Assign(bmCarSomething) 

每次你需要改變它的時候

。

Answer 2

確實有很多方法可以做到這一點。
經典的方式：
一個圖片與您的項目（車）的所有狀態，並使用Canvas.CopyRect（）方法從一個到另一個繪製適當的圖像;
另一種方法：
將所有「精靈」加載到TImageList並使用TImageList.Draw（）方法。
依此類推。
主要思想：使用目標圖片的Canvas屬性並在其上繪製你想要的東西。

Answer 3

從長遠來看，改變管理圖像的方式是最好的，但在短期內，最簡單的解決方案是跟蹤當前加載哪個圖像，以便僅在實際需要時加載新圖像，例如：

type 
    eWhichImage = (imgUp, imgDown, imgLeft, imgRight); 

const 
    ImgFiles: array[eWhichImage] of string = (dtop, dbot, dleft, dright); 

procedure TMyForm.ImageNeeded(const Img: eWhichImage); 
begin 
    if image6.Tag <> Ord(Img) then 
    begin 
    image6.Picture.LoadFromFile(ImgFiles[Img]); 
    image6.Tag := Ord(Img); 
    end; 
end; 

。

case Key of 
    VK_UP: 
    begin 
    ImageNeeded(imgUp); 
    image6.Top := image6.Top - 10; 
    end; 
    VK_DOWN: 
    begin 
    ImageNeeded(imgDown); 
    image6.Top := image6.Top + 10; 
    end; 
    VK_LEFT: 
    begin 
    ImageNeeded(imgLeft); 
    image6.Left := image6.Left - 10; 
    end; 
    VK_RIGHT: 
    begin 
    ImageNeeded(imgRight); 
    image6.Left := image6.Left + 10; 
    end; 
end;