會出現下面這個問題，但是同樣"軟體"、"程式"，同學不會出現下面這個問題
可以幫我解決一下嗎
謝謝......

請把您的程式片斷或全部列出, 如果很多, 可上傳專案檔。
不然, 一個 Access Violation 的視窗，不可能有人可以協助您解決的，
只知道您的程式可能指標亂指, 元件亂用, 寫到不該寫的位址。
在 IDE 內設 Debug 模式 rebuild 後, 再執行, 大部分的 Access Violation 會
停在您有問題的程式碼上。

------
http://www.ViewMove.com

補上程式碼~!(此程式碼是 灰階圖64*64大小 轉傅立葉)
謝謝你的幫忙
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include <math.h><br /> #include "Unit1.h"
#define PI 3.14159
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
float FR[64][64],FI[64][64],H[64][64],H1,D,g=0;
float Re=0,Im=0,I_Re=0,I_Im=0;
int r=0,c=0,u=0,v=0;
float temp=0,var=0;
int n;
float offset,f0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//開檔---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenPictureDialog1->Execute())
{
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
}
//Fourier---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Image2->Width = Image1->Width;
Image2->Height = Image1->Height;
for(u=0;uWidth;u )
{
for(v=0;vHeight;v )
{
for(r=0;r<64;r )
{
for(c=0;c<64;c )
{
g = GetGValue(Image1->Canvas->Pixels[r][c]);
var = 2*PI/64*(u*r v*c);
temp = pow(-1,r c);
Re = g * temp * cos(var);
Im = g * temp * sin(var);
}
}
Re = Re/64;
Im = Im/64;
FR[63-u][63-v] = Re;
FI[63-u][63-v] = Im;
g = sqrt(pow(Re,2) pow(Im,2));
if(g>255) g = 255;
if(g<0) g = 0;
Image2->Canvas->Pixels[u][v] = (TColor)RGB(g,g,g);
}
}
}

編輯記錄

以程式看來，只要 uvImage1->Width, Image1->Height 都是 64，
應該就不會有 Access Violation 了。

作 FFT 可以 include complex.h 使用 complex Template 如
<textarea cols="60" rows="10" class="cpp" name="code"> complex A=complex( 1.0, 0.0))); complex Wn=complex( sin(PI/(double)stepN2), -cos(PI/(double)stepN2)); // 複數給值 Wn = Wn * Wn A * A; // 複數運算 float absWn=abs(Wn); // 複數絕對值 </textarea>

------
http://www.ViewMove.com

dllee站務副站長：
您好~!
我大概知道錯在哪裡，就是....
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Image2->Width = Image1->Width;
Image2->Height = Image1->Height;
for(u=0;uWidth;u )
{
for(v=0;vHeight;v )
{
for(r=0;r<64;r )
{
for(c=0;c<64;c )
--------------------------以下省略-----------------------
並非都是64....
自己設的Image1是80*80的大小
所以會發生錯誤

謝謝你的提醒....
====================================
再請問你學習的方面
如果要學BCB，有沒有推薦的書和網站呢?
小弟略懂C/C ，BCB語法很多不懂。