请选择 进入手机版 | 继续访问电脑版

QQ登录

只需要一步,快速开始

 注册地址  找回密码
12
返回列表 发新帖
楼主: 小菜菜同学

我的bcb怎么在函数外声明的变量,在函数内无法存储

[复制链接]
字体大小: 正常 放大
ilikenba 实名认证       

2634

主题

47

听众

1万

积分

  • TA的每日心情
    奋斗
    2024-3-29 05:10
  • 签到天数: 996 天

    [LV.10]以坛为家III

    社区QQ达人 新人进步奖 优秀斑竹奖 发帖功臣

    群组万里江山

    群组sas讨论小组

    群组长盛证券理财有限公司

    群组C 语言讨论组

    群组Matlab讨论组

    发表于 2005-4-29 14:48 |显示全部楼层
    |招呼Ta 关注Ta
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>1、1、1、1、0 `$ i) z) V3 r% Y. M/ C6 w" _
    //---------------------------------------------------------------------------</P><>#include &lt;vcl.h&gt;! X( Q5 q/ Z8 K; ^
    #pragma hdrstop</P><>#include "Unit1.h"# P$ u6 T: w, K; l2 W& u5 S* I
    //---------------------------------------------------------------------------! I7 p. ]' ~3 B: A3 x, e
    #pragma package(smart_init)" n5 j* R2 j  W9 ?
    #pragma resource "*.dfm": }9 j: c, R. L
    TForm1 *Form1;6 ?1 M: W, N! k1 D% y, d- S
    //---------------------------------------------------------------------------5 O6 I6 u7 N* {0 t& P
    __fastcall TForm1::TForm1(TComponent* Owner)0 x2 a- F& r/ T# z5 F- U
            : TForm(Owner)' |3 C; r7 A) K. W8 u
    {. o- J6 p# j7 J1 u( R- o4 h
    }" c7 p5 C/ u0 M- X
    //---------------------------------------------------------------------------
    4 J2 o: Y' t8 P0 Cclass cla{3 M# e7 ]6 x" }: S7 ~8 c6 u
    public:
    / {. n6 F* ?3 ^) J3 L. [int ox,oy;
    4 r3 z: [5 l! ]0 L};. A4 e6 m& ]9 X5 Y4 b6 _
    cla *a=new cla;/ E. M3 J( h9 d: A$ ~( k1 O: I  l
    int x,y;1 {) B( q9 u; C/ T. i0 v
    void __fastcall TForm1::Image1MouseDown(TObject *Sender,7 F+ ^9 o  ]$ j, |' ^
          TMouseButton Button, TShiftState Shift, int X, int Y)
    ; R& i2 ?7 j, ~+ t9 n: V{: Z$ x7 H& f9 c
    if(Button=mbLeft){3 c- a8 Q; |) |2 E
    a-&gt;ox=Image1-&gt;Left;% |: X( a9 R) {5 I0 y$ k0 W% G4 {
    a-&gt;oy=Image1-&gt;Top;
    ( W  }( B0 \. U8 {' Yx=X;
    ' P- Z7 P) v3 M8 q: W0 F. Dy=Y;
    ( A- @& L+ Q9 n0 a) d}* f- `' [8 B& [# \
    }) A; z+ t; \) [5 K- ^
    //---------------------------------------------------------------------------4 f' H* R0 B9 f$ H; l+ O7 i/ B
    void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,7 _. V# y/ v% M- f
          int X, int Y)- a) Y4 j2 H( ^( N4 y
    {4 @+ a: q+ ^5 [, M
    if(Shift.Contains(ssLeft)){
    8 E' c+ n) y- D1 P  lImage1-&gt;Left+=X-x;( u& V$ q, V4 w! f  s; n3 R  r+ _
    Image1-&gt;Top+=Y-y;
    ( D" Y. J7 W0 h" S1 z- `}
    9 Q% ~9 X; j3 V2 f) u- y; j}# G1 g& c: B2 K! D: [6 s5 n6 O/ P
    //---------------------------------------------------------------------------
    % F# ]# `' ]3 I. L9 T4 U! \6 O- Bvoid __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
    ; [( u& J4 K6 l( |/ X      TShiftState Shift, int X, int Y)
    : y# C& d, G5 x* q8 R) d{
    , y) `7 D$ y  Y if(Image1-&gt;Left&gt;Shape1-&gt;Left-20 &amp;&amp;# a9 m" [1 F  P* V6 H: |$ {
    Image1-&gt;Left&lt;Shape1-&gt;Left+Shape1-&gt;Width+  q, x& Q# U" Z4 h2 t  B7 ~
    20&amp;&amp;Image1-&gt;Top&gt;Shape1-&gt;Top-20&amp;&amp;
    ' V$ F; h( H! x! O! ]/ ^" f$ p' ^ Image1-&gt;Top&lt;Shape1-&gt;Top+20+Shape1-&gt;Top){
    & Q6 x2 b# r6 T3 F  bImage1-&gt;Top=Shape1-&gt;Top;( U0 Y1 p; l" K; k+ W3 {
    Shape1-&gt;Visible=false;
    4 c& j2 R7 a3 s' mImage1-&gt;Left=Shape1-&gt;Left;5 e2 I3 B( h% }1 O7 s
    }else{
    ) |& K% X4 H+ f, P" ?" fImage1-&gt;Left=a-&gt;ox;
    ( q5 C9 i8 M; p8 f, |* N, R# mImage1-&gt;Top=a-&gt;oy;
    - ^% y& g: Z% ]' t% d. ?}, p8 Y% M. V, G3 E/ v/ E+ }
    }</P><>2、2、2、2、2、2、2、2、2、、2、2、2、2、2、、2、2、2、2、2、2、2、2、2//---------------------------------------------------------------------------</P><>#include &lt;vcl.h&gt;) h# y) X! h$ Y- A5 v) a( q
    #pragma hdrstop</P><>#include "Unit1.h"( H; B0 K; r6 q9 X
    //---------------------------------------------------------------------------4 k' R; |3 p! E; b' L
    #pragma package(smart_init), G6 ~2 H4 ~+ A* y) F; E; Q6 `
    #pragma resource "*.dfm"7 [# v4 N4 ~5 W3 y5 q
    TForm1 *Form1;( h. K. v8 W) r7 s
    //---------------------------------------------------------------------------
    3 B/ r- w; T3 V" B" z5 n__fastcall TForm1::TForm1(TComponent* Owner)9 @' U1 n7 u2 I
            : TForm(Owner)
    8 |; v/ A0 ]0 Y$ \( e{
    6 G! I6 E& v; l}: R! t% H: r, g$ b) I; N
    //---------------------------------------------------------------------------
    0 ]7 G* z- ]( I( J- i& Gclass cla{$ a5 J" y3 Y/ X/ I- t4 o5 {- M
    public:; M/ c1 ~$ ]& t, {
    int ox,oy;! B8 p1 G5 ^3 a
    int get_x(){return ox;}
    4 L& X) w( a8 g/ c4 a# Y0 W# d5 M# ^int get_y(){return oy;}! z/ X  [3 I" G) ^: g9 b
    };: l. k7 b3 b, e7 [1 [! q. i2 M: l) N  M
    cla *a=new cla;
    ( y6 `1 e: |, D3 F( @int x,y;
    2 H6 m4 w2 s0 j" lvoid __fastcall TForm1::Image1MouseDown(TObject *Sender,
    . O& o, I( S, d. @' Q- B      TMouseButton Button, TShiftState Shift, int X, int Y)
    ! U2 v. U+ Z5 D+ K% |* M6 w{2 r4 g( O% f) Z, p1 g
    if(Button=mbLeft){# k( T  v, p# [' z0 F
    a-&gt;ox=Image1-&gt;Left;1 e, o$ _  Q; w8 n9 e, h
    a-&gt;oy=Image1-&gt;Top;
    2 s6 u5 E& M# z) V  b5 Yx=X;, W' v7 S! _) D+ ^% K
    y=Y;
    " W  t5 O& {2 U! k}
    4 _9 ^( w, ]1 [: y" J5 n}! t; D  d7 V( [
    //---------------------------------------------------------------------------6 T2 [% z: K) {' j6 a$ U
    void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,& t! c5 D: t& h- d
          int X, int Y)
    9 F( K- R  x$ ]# S( p: v{
    8 l, x# q. L" ]. G; W) Wif(Shift.Contains(ssLeft)){
    9 M8 _# [/ v) l" ZImage1-&gt;Left+=X-x;
    + ]8 x$ C& V, j4 `* HImage1-&gt;Top+=Y-y;
    ) C+ v2 m% k" f, n" W" h}
    4 q: N% f. {, b/ ]0 r1 H$ `6 `}
    0 [/ T' h% B5 k+ |, j//---------------------------------------------------------------------------
    7 \/ D& @4 U) q+ Qvoid __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,& @0 S+ N2 @3 w4 z4 l& r, T4 C
          TShiftState Shift, int X, int Y)
    # ]6 [; x4 G8 W, q0 m  M! e{
    / S$ |! {% g  Iint x1,y1;
    - y! L3 \& T' R. D1 e+ d$ {+ S% T if(Image1-&gt;Left&gt;Shape1-&gt;Left-20 &amp;&amp;
    1 D( K4 v$ }' j# V6 s, ^+ P% l9 GImage1-&gt;Left&lt;Shape1-&gt;Left+Shape1-&gt;Width+
    ( g% O2 i. R/ y; Q) ^7 H" C20&amp;&amp;Image1-&gt;Top&gt;Shape1-&gt;Top-20&amp;&amp;8 h+ B9 _5 c" }! F* |  {7 \5 k
    Image1-&gt;Top&lt;Shape1-&gt;Top+20+Shape1-&gt;Top){- h' \- q) A; X; N4 M% {, Q
    Image1-&gt;Top=Shape1-&gt;Top;4 l1 q# R( Z/ d9 F
    Shape1-&gt;Visible=false;
    # i1 D0 m. F+ ^) q3 f6 pImage1-&gt;Left=Shape1-&gt;Left;1 W  M" R3 m  h
    }else{$ V- L6 E. W+ J9 g5 y+ _
    x1=a-&gt;get_x();
    / f3 U6 ^, \+ x8 ^1 my1=a-&gt;get_y();
    ! }7 N9 C  q1 E7 b9 ?) O% RImage1-&gt;Left=x1;
    ( [. n7 {% J9 s2 EImage1-&gt;Top=y1;' c6 A* P! I% Y/ p2 d
    }
    , R/ ?# J' X: ?9 Q! m}</P>
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>总提示[C++ Warning] Unit1.cpp(28): W8060 Possibly incorrect assignment</P><>定位在 if(Button=mbLeft){</P>
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>简化成这样:还是都等于零,我要吐了[em06]</P><>int ox,oy;- e6 f) K0 f4 U. m8 v
    int x,y;6 o9 j* `, X, f& K& \+ S
    void __fastcall TForm1::Image1MouseDown(TObject *Sender,
    4 U0 y  Y3 Y) d$ @! v4 I" v3 k      TMouseButton Button, TShiftState Shift, int X, int Y)
    * U& R2 q& W4 t, J# Q{
    % o. p+ |) I7 L5 ?8 N- [: c, ] if(Button=mbLeft){8 z9 `3 e& T$ E* I3 m- `
    ox=Image1-&gt;Left;  v! o' `, L- ^
    oy=Image1-&gt;Top;
    2 k5 F7 H1 {4 h, ^  o. \x=X;- k" ^+ |0 c; M/ r" E) I
    y=Y;
    ; L7 Y, F0 g  Q}! a+ N  g2 v  m; S
    }2 h& `: v. a0 [' y; v
    //---------------------------------------------------------------------------$ O" G: r9 \/ `( g9 G+ b
    void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
    $ v9 z( ~' I/ _! W      TShiftState Shift, int X, int Y)
    5 i' _4 _, o/ V7 [) R  J{
    ; @; ?5 o6 e4 M" `7 {7 z" \int x1,y1;</P><>x1=ox;
    & m- f+ \7 c  sy1=oy;
    : |5 t4 o7 ^* b6 y' aShowMessage("ox="+IntToStr(x1) +"oy="+IntToStr(y1) );
    * y  w3 n9 I2 ?4 W( `% F% c5 Q}</P>
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>重大发现:以下不是0。而加上if(Button=mbLeft){就为零了。病根找到了,但怎么回事呢?</P><>int ox,oy;! {" t4 F+ B5 W7 p; x
    void __fastcall TForm1::Image1MouseDown(TObject *Sender,0 {9 o+ A  T$ W8 L. g" L5 u9 K0 ~
          TMouseButton Button, TShiftState Shift, int X, int Y)" W) ?+ O% |" h. u, o) @+ V
    {7 V# [# P$ s6 }6 y- \+ l
    ox=Image1-&gt;Left;5 ?( ~7 C3 J$ x* w; R
    oy=Image1-&gt;Top;
    " I/ u" b* j9 ], i- |}/ L0 B  L  _4 [
    //---------------------------------------------------------------------------$ f2 m) {7 l1 T: \  ]3 a
    void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,! N2 @/ {9 x- J8 b: g' P: |* ]  N0 m
          TShiftState Shift, int X, int Y)' |0 u9 {- T& s' z* T. _9 F
    {' X: p( F" Y0 o5 ^, O0 F. Q
    ShowMessage("ox="+IntToStr(ox) +"oy="+IntToStr(oy) );
    : @' C9 p5 c# I. \: E}</P>
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>对,去掉mousedown中的if(Button=mbLeft){}就实现了拖动图片到图形中的功能了。</P><>总算喘口气。但if(Button=mbLeft){}没什么毛病呀?</P><>刚写到这,一看书,我恨不得打我自己一巴掌!</P><>应该是if(Button==mbLeft){}。</P><>[em06][em06]</P><>这种错误BCB6怎么不拦住我呀!?</P><>让各位见笑了</P>[em04][em04]
    回复

    使用道具 举报

    ilikenba 实名认证       

    2634

    主题

    47

    听众

    1万

    积分

  • TA的每日心情
    奋斗
    2024-3-29 05:10
  • 签到天数: 996 天

    [LV.10]以坛为家III

    社区QQ达人 新人进步奖 优秀斑竹奖 发帖功臣

    群组万里江山

    群组sas讨论小组

    群组长盛证券理财有限公司

    群组C 语言讨论组

    群组Matlab讨论组

    <>晕!判断是否相等要用两个等号!</P><>呵呵!我回答的晚了!BCB的编译器的错误检查不严,你可以通过设置加强!</P>
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>不过,几乎废了3、4个小时,还算有点收获。写出来大家是新手的共勉。就是知道:</P><>1、怎么一步一步找错误了</P><>2、知道了怎么恢复默认设置——谢谢</P><><TABLE cellSpacing=0 cellPadding=4 width="100%"><TR><TD glow(color=#9898BA,strength=2)" vAlign=center width=*><FONT color=#000066><B>ilikenba</B></FONT> </TD><TD vAlign=center width=25></TD><TD vAlign=center width=16></TD></TR></TABLE></P><>, T+ m# L1 Q0 T% A6 f
    少校 的指导</P><>3、熟悉了全局变量的用法</P><>4、让我花1个小时想想4是什么,还有5....  (3、4个小时可不能白费呀......4是什么呢?伤脑筋呀)
    7 r4 y+ W7 h, n 2 \, f. @3 d1 `- F5 E' G, X
    </P>
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2024-3-29 13:32 , Processed in 0.670732 second(s), 92 queries .

    回顶部