Dear all:       如下圖,左邊是我叫出顯示的圖形,右邊是我處理過的圖形(將右邊圖形的每個pixel值取出,再丟到另一個TBitmap對應的pixel值),結果右邊的圖形無法完整顯示,不知道哪邊是出問題了?我用小一點的圖沒問題,但是大一點的圖就會有這樣的問題,可以請大家幫我看一下程式哪裡錯了嗎?

 
 unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs;
const arcou = 500;
      maxp = 2;
type Tpixelrecord = record
     pixelC : array [0..maxp] of array [0..arcou] of array [0..arcou] of Longword;
end;
type TSelectpic = record
     Name         : string[100];
     SelectPic    : array [0..maxp] of TBitmap;
     SelectPic1   : array [0..maxp] of Timage;
     Pic          : array [0..maxp] of string;
     status       : array [0..maxp] of byte;
     //definel      : array [0..maxp] of string[str50];
     //definel      : array [0..maxp] of string;
     //define       : array [0..maxp] of array[0..5] of string[str10];
     //define       : array [0..maxp] of array[0..5] of string;
     definecoun   : array [0..maxp] of integer;
     picw         : array [0..maxp] of Longword;
     pich         : array [0..maxp] of Longword;
     totalp       : integer;
end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
  pixco:Tpixelrecord;
  Selpic:TSelectpic;
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin         if Openpicturedialog1.Execute then
     begin
         SelPic.SelectPic[0]:=TBitmap.Create;
         Selpic.SelectPic[0].LoadFromFile(OpenPictureDialog1.FileName);
         Selpic.Pic[0]:=OpenPictureDialog1.FileName;
         image1.Canvas.StretchDraw(Rect(0,0,image1.Width,image1.Height),
                                   Selpic.SelectPic[0]);             selpic.picw[0]:=selpic.SelectPic[0].Height;
         selpic.pich[0]:=selpic.selectPic[0].Width;             for i:=0 to selpic.picw[0] do
         begin
           for j:=0 to selpic.pich[0] do
           begin
               pixco.pixelC[0][i][j]:=selpic.SelectPic[0].Canvas.Pixels[i,j];
           end;
         end;
   end;
        // SelPic.SelectPic[picn].Free;    end;    procedure TForm1.Button2Click(Sender: TObject);
var j,k:integer;
begin
   selpic.SelectPic[1]:=Tbitmap.Create;
   selpic.SelectPic[1].Height:=selpic.SelectPic[0].Height;
   selpic.SelectPic[1].Width:=selpic.SelectPic[0].Width;
   for j:=0 to selpic.picw[0] do
   begin
       for k:=0 to selpic.pich[0] do
       begin
               selpic.SelectPic[1].Canvas.Pixels[j,k]:=pixco.pixelC[0][j][k];
       end;
   end;       image2.Canvas.StretchDraw(Rect(0,0,image1.width,image1.height),selpic.SelectPic[1]);
end;    end.
   

selpic.picw[0]:=selpic.SelectPic[0].Height; selpic.pich[0]:=selpic.selectPic[0].Width; 這兩行搞錯了