請教各位前輩, 我有0~9數字圖片,請問如何轉換圖檔呢 我試過LoadFromFile的方法,可是卻變成了方格 影像似乎是重疊了 我是用switch case 的方法,是不是我的方法不對 還是我程式是錯誤的 程式碼如下: case 1: int1->Picture->LoadFromFile("1.jpg"); case 2: int1->Picture->LoadFromFile("2.jpg"); case 3: int1->Picture->LoadFromFile("3.jpg"); case 4: int1->Picture->LoadFromFile("4.jpg"); case 5: int1->Picture->LoadFromFile("5.jpg"); 還有一個問題,若我連續播放圖形以重疊的方式,這樣是不是也有問題 有範例程式嗎?請大家幫我解答吧 PS.小妹學BCB不久而且並不會DELPHI

小弟有幾點建議 1 先把int1的屬性設autosize,可以排除假設您的圖太大而沒show出全部來的因素; 2 會不會重疊小弟用delphi測試確定delphi,timage loadfile不會重疊,但您可在程式執行case前先清空picture 在delphi是這麼作image1.picture:=nil; 要確定有沒重疊我是這麼作 以下： 把圖片用圖片修改的工具把大小都調整的不一樣大小 在由大的圖片到小的圖片漸次loadfilefrom(XXX)下來 在這之前int1的autosize要設true 若圖框有變的愈來愈小表示只有目前這 張圖在int1內,並沒有重疊的現象,反之則重疊了, 那就在case執行前用 image1.picture:=nil; 如以下所示：

image1.picture:=nil;
case i of
    1..5:image1.Picture.LoadFromFile('c:\a\a.jpg');
    6..10:image1.Picture.LoadFromFile('c:\a\b.jpg');
    11..15:image1.Picture.LoadFromFile('c:\a\c.jpg');
    16..20:image1.Picture.LoadFromFile('c:\a\d.jpg');
else
    showmessage('沒圖看 拍洗');
end;

3 連續播放給你一個拙作;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=null then
i:=0;
if ((i mod 4)=0) or ((i mod 4)=1)or((i mod 4)=2)or((i mod 4)=3)then
begin
if (i mod 4)=0 then
image1.Picture.LoadFromFile('c:\a\a.jpg');
if (i mod 4)=1 then
image1.Picture.LoadFromFile('c:\a\b.jpg');
if (i mod 4)=2 then
image1.Picture.LoadFromFile('c:\a\c.jpg');
if (i mod 4)=3 then
image1.Picture.LoadFromFile('c:\a\d.jpg');
end
else
begin
image1.Picture.LoadFromFile('c:\a\a.jpg');
i:=0;
end;
i:=i 1;
end;    procedure TForm1.BitBtn2Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;    end.

「堅持」從洗馬桶做起 Aric