数学建模社区-数学中国

标题: 我的bcb怎么在函数外声明的变量，在函数内无法存储 [打印本页]

作者: 小菜菜同学 时间: 2005-4-29 10:23
标题: 我的bcb怎么在函数外声明的变量，在函数内无法存储
<

>我的bcb6怎么在函数外声明的变量，在函数内无法存储。也就是在一个函数中存后，无法在另一个函数中提取。若提取，则和没存一样等于零。
<

>是我的BCB的设置问题吗？
<

>如下中的ox,oy
<

>int ox,oy;
int x,y;
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y)
{ox=Image1->Left;
oy=Image1->Top;
x=X;
y=Y;
}
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
 int X, int Y)
{
Image1->Left+=X-x;
Image1->Top+=Y-y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
 TShiftState Shift, int X, int Y)
{
if(Image1->Left>Shape1->Left-20 &&
Image1->Left<Shape1->Left+Shape1->Width+
20&&Image1->Top>Shape1->Top-20&&
Image1->Top<Shape1->Top+20+Shape1->Top){
Image1->Top=Shape1->Top;
Shape1->Visible=false;
Image1->Left=Shape1->Left;
}else{
Image1->Left=ox;
Image1->Top=oy;
}
}
<

>最后ox、oy竟然都等于0。在mousedown中怎么没存上呢？

作者: ilikenba 时间: 2005-4-29 10:44
<

>道理上应该是全局变量，不会存不上的！是不是本身Image1->Left和Image1->Top的值就是0

作者: 小菜菜同学 时间: 2005-4-29 10:59
<

>谢谢ilikenba的回答，<

>不过Image1->Left和Image1->Top的值不是0，是不是我的BCB设置的问题？[em06]

作者: ilikenba 时间: 2005-4-29 11:43
我这里测试没有问题，应该是你的设置的问题！我这里都是默认的设置没有问题！

作者: 小菜菜同学 时间: 2005-4-29 11:58
怎么能恢复成默认设置呢？[em02]

作者: ilikenba 时间: 2005-4-29 12:04
<

>project->option左下角有一个default的复选框！选中后点击确定！

作者: 小菜菜同学 时间: 2005-4-29 12:17
<

>我恢复默认了，但还不行，我的全文是这样的，麻烦大侠再看一下：[em04][em04]<

>int ox,oy;
int x,y;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button=mbLeft){
ox=Image1->Left;
oy=Image1->Top;
x=X;
y=Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
 int X, int Y)
{
if(Shift.Contains(ssLeft)){
Image1->Left+=X-x;
Image1->Top+=Y-y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
 TShiftState Shift, int X, int Y)
{
if(Image1->Left>Shape1->Left-20 &&
Image1->Left<Shape1->Left+Shape1->Width+
20&&Image1->Top>Shape1->Top-20&&
Image1->Top<Shape1->Top+20+Shape1->Top){
Image1->Top=Shape1->Top;
Shape1->Visible=false;
Image1->Left=Shape1->Left;
}else{
Image1->Left=ox;
Image1->Top=oy;
}
}

作者: 小菜菜同学 时间: 2005-4-29 12:27
<

>而且我要是定义 extern int ox,oy;<

>[Linker Error] Unresolved external '_ox' referenced from D:\PROGRAM FILES\BORLAND\CBUILDER6\BIN\UNIT1.OBJ<

>会有这样的错误信息

作者: ilikenba 时间: 2005-4-29 12:33
<DIV class=quote>以下是引用小菜菜同学在2005-4-29 12:27:12的发言：

<

>而且我要是定义 extern int ox,oy;
<

>[Linker Error] Unresolved external '_ox' referenced from D:\PROGRAM FILES\BORLAND\CBUILDER6\BIN\UNIT1.OBJ
<

>会有这样的错误信息</DIV>
<

>当然了，这是声明ox是外部变量，而不是定义！

作者: 小菜菜同学 时间: 2005-4-29 12:38
那还有什么方法使它变成全局变量吗？

作者: ilikenba 时间: 2005-4-29 14:48
你不如把这些变量放到一个类的成员里面！

作者: 小菜菜同学 时间: 2005-4-29 15:24
<

>1、1、1、1、
//---------------------------------------------------------------------------<

>#include <vcl.h>
#pragma hdrstop<

>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class cla{
public:
int ox,oy;
};
cla *a=new cla;
int x,y;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button=mbLeft){
a->ox=Image1->Left;
a->oy=Image1->Top;
x=X;
y=Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
 int X, int Y)
{
if(Shift.Contains(ssLeft)){
Image1->Left+=X-x;
Image1->Top+=Y-y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
 TShiftState Shift, int X, int Y)
{
if(Image1->Left>Shape1->Left-20 &&
Image1->Left<Shape1->Left+Shape1->Width+
20&&Image1->Top>Shape1->Top-20&&
Image1->Top<Shape1->Top+20+Shape1->Top){
Image1->Top=Shape1->Top;
Shape1->Visible=false;
Image1->Left=Shape1->Left;
}else{
Image1->Left=a->ox;
Image1->Top=a->oy;
}
}<

>2、2、2、2、2、2、2、2、2、、2、2、2、2、2、、2、2、2、2、2、2、2、2、2//---------------------------------------------------------------------------<

>#include <vcl.h>
#pragma hdrstop<

>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class cla{
public:
int ox,oy;
int get_x(){return ox;}
int get_y(){return oy;}
};
cla *a=new cla;
int x,y;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button=mbLeft){
a->ox=Image1->Left;
a->oy=Image1->Top;
x=X;
y=Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
 int X, int Y)
{
if(Shift.Contains(ssLeft)){
Image1->Left+=X-x;
Image1->Top+=Y-y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
 TShiftState Shift, int X, int Y)
{
int x1,y1;
if(Image1->Left>Shape1->Left-20 &&
Image1->Left<Shape1->Left+Shape1->Width+
20&&Image1->Top>Shape1->Top-20&&
Image1->Top<Shape1->Top+20+Shape1->Top){
Image1->Top=Shape1->Top;
Shape1->Visible=false;
Image1->Left=Shape1->Left;
}else{
x1=a->get_x();
y1=a->get_y();
Image1->Left=x1;
Image1->Top=y1;
}
}

作者: 小菜菜同学 时间: 2005-4-29 15:27
<

>以上两种都不行，<

>我在没有mousemove\down\up时<

>全局变量好使

作者: 小菜菜同学 时间: 2005-4-29 15:28
<

>总提示[C++ Warning] Unit1.cpp(28): W8060 Possibly incorrect assignment<

>定位在 if(Button=mbLeft){

作者: 小菜菜同学 时间: 2005-4-29 15:35
<

>简化成这样：还是都等于零，我要吐了[em06]<

>x1=ox;
y1=oy;
ShowMessage("ox="+IntToStr(x1) +"oy="+IntToStr(y1) );
}

作者: 小菜菜同学 时间: 2005-4-29 15:42
<

>重大发现：以下不是0。而加上if(Button=mbLeft){就为零了。病根找到了，但怎么回事呢？<

>int ox,oy;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ox=Image1->Left;
oy=Image1->Top;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
ShowMessage("ox="+IntToStr(ox) +"oy="+IntToStr(oy) );
}

作者: 小菜菜同学 时间: 2005-4-29 15:54
<

>对，去掉mousedown中的if(Button=mbLeft){}就实现了拖动图片到图形中的功能了。<

>总算喘口气。但if(Button=mbLeft){}没什么毛病呀？<

>刚写到这，一看书，我恨不得打我自己一巴掌！<

>应该是if(Button==mbLeft){}。<

>[em06][em06]<

>这种错误BCB6怎么不拦住我呀！？<

>让各位见笑了[em04][em04]

作者: ilikenba 时间: 2005-4-29 16:02
<

>晕！判断是否相等要用两个等号！<

>呵呵！我回答的晚了！BCB的编译器的错误检查不严，你可以通过设置加强！

作者: 小菜菜同学 时间: 2005-4-29 16:09
<

>不过，几乎废了3、4个小时，还算有点收获。写出来大家是新手的共勉。就是知道：<

>1、怎么一步一步找错误了<

>2、知道了怎么恢复默认设置——谢谢<

><TABLE cellSpacing=0 cellPadding=4 width="100%"><TR><TD glow(color=#9898BA,strength=2)" vAlign=center width=*>ilikenba </TD><TD vAlign=center width=25></TD><TD vAlign=center width=16></TD></TR></TABLE><

>
少校的指导<

>3、熟悉了全局变量的用法<

>4、让我花1个小时想想4是什么，还有5.... （3、4个小时可不能白费呀......4是什么呢？伤脑筋呀）

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)