QQ登录

只需要一步,快速开始

 注册地址  找回密码
12
返回列表 发新帖
楼主: 小菜菜同学
打印 上一主题 下一主题

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

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

1万

主题

49

听众

2万

积分

  • TA的每日心情
    奋斗
    2024-6-23 05:14
  • 签到天数: 1043 天

    [LV.10]以坛为家III

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

    群组万里江山

    群组sas讨论小组

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

    群组C 语言讨论组

    群组Matlab讨论组

    11#
    发表于 2005-4-29 14:48 |只看该作者
    |招呼Ta 关注Ta
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>1、1、1、1、% R" D" U( p+ Z5 Q
    //---------------------------------------------------------------------------</P><>#include &lt;vcl.h&gt;( m  D6 s; ~: T) m# Y( P
    #pragma hdrstop</P><>#include "Unit1.h"
    5 T2 C  o; D) v! R3 w) r- s//---------------------------------------------------------------------------/ `: r3 B, p1 p; K1 @, s2 l# o
    #pragma package(smart_init)
    $ C  W! b# l6 Z2 X* h#pragma resource "*.dfm"& [: ~) S/ g( [9 ^2 o
    TForm1 *Form1;
    ; p0 ?* Q+ j( i//---------------------------------------------------------------------------, u% b% s+ p$ L" T# z
    __fastcall TForm1::TForm1(TComponent* Owner)
    2 h  D7 r+ j$ J) S& O' R- `        : TForm(Owner)
    + U  a% X/ j% z- t* q, v2 B2 ^{
    $ F+ T' `) y9 l) F6 l9 D8 R}4 @: l% P6 H% T6 _1 l
    //---------------------------------------------------------------------------
    6 ]! N7 C- s* _" `class cla{
    - V- P- i4 D8 w: ]5 Fpublic:4 ]' x4 K  L% ~0 M# `; w
    int ox,oy;' j; N+ R% d9 i( z5 \
    };! r$ j0 x4 ?* |2 S5 J9 c" \) G
    cla *a=new cla;# J! W' U% q# M$ t, I; Q
    int x,y;
    & N9 o0 u$ F2 ~& z$ V8 Qvoid __fastcall TForm1::Image1MouseDown(TObject *Sender,
    - }& `  ]* d  v+ v6 o3 r9 p. ~      TMouseButton Button, TShiftState Shift, int X, int Y)3 f3 v0 {) k; e
    {
    8 S3 O2 I9 g* W9 b) O! I/ ]3 k if(Button=mbLeft){2 g5 W* i' k' h* p; S$ ^8 V
    a-&gt;ox=Image1-&gt;Left;( G7 E- f& F# g* C4 `& h* H
    a-&gt;oy=Image1-&gt;Top;
    ! \2 Z; S$ s) }x=X;
    6 b+ U  Y* X, V  W  D2 P  \2 Ty=Y;
      v: M6 d: V8 V( L  V}
    * h. N0 _0 z* N5 n}
    2 Q1 o, m. I0 X" m% l//---------------------------------------------------------------------------% @* O1 F2 [1 A' \9 n  p6 n
    void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
    6 v5 [5 n; D* Y! x1 d      int X, int Y)
    - F0 F, {; I4 o4 h' H  K{8 b, a# b3 N/ E' {
    if(Shift.Contains(ssLeft)){
    ; S) v1 _  l# j, EImage1-&gt;Left+=X-x;
    # \" v/ y. ], M1 DImage1-&gt;Top+=Y-y;0 P; P& s) J& Y
    }4 y5 m% e0 o8 H8 m* P: M; d/ O4 L$ Z
    }% q7 S% Y8 ?2 W
    //---------------------------------------------------------------------------/ v: n, a6 U. [; S+ m5 H0 t7 C
    void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,; y8 O5 `8 Z* }9 c- i# V3 R8 s
          TShiftState Shift, int X, int Y)
    0 i# C$ ~! p% ~! ?: Z{
    " r1 Z, \5 U! a5 z( s% Q if(Image1-&gt;Left&gt;Shape1-&gt;Left-20 &amp;&amp;' m* C' N1 R) x$ Z) ]- }
    Image1-&gt;Left&lt;Shape1-&gt;Left+Shape1-&gt;Width+5 |1 J& E: `+ K+ v$ W
    20&amp;&amp;Image1-&gt;Top&gt;Shape1-&gt;Top-20&amp;&amp;, ^7 T* M# K. B* W' p+ y$ G, s" O; c
    Image1-&gt;Top&lt;Shape1-&gt;Top+20+Shape1-&gt;Top){
    8 R- ~8 H$ L3 [* N8 i" f" HImage1-&gt;Top=Shape1-&gt;Top;
    6 x( k3 `( u5 `- WShape1-&gt;Visible=false;  h6 M, p( ~( T1 F' s) O, @- ?+ a8 f
    Image1-&gt;Left=Shape1-&gt;Left;
      q" O5 ?9 F& s4 T& R}else{
    7 }/ G: r9 }5 e7 {* {Image1-&gt;Left=a-&gt;ox;
    , v/ r; ]7 H) XImage1-&gt;Top=a-&gt;oy;' M6 G' x3 Z' H& \9 P6 y; d
    }
    / V( _0 |4 o% Q6 ]& y2 x3 _7 I}</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;5 I1 C; I4 h6 y: s7 i+ [7 M
    #pragma hdrstop</P><>#include "Unit1.h"
    2 _* X) X1 `. k//---------------------------------------------------------------------------' g9 r5 l) H( ^+ ]) ~" I
    #pragma package(smart_init)" t" Y* e+ ~8 g( Y
    #pragma resource "*.dfm"
    7 F3 w0 V0 _5 Y& lTForm1 *Form1;
    1 ?$ Z7 @9 a, r% A; E3 H//---------------------------------------------------------------------------
    ) ~* G) V" }" f* E5 t" G9 h7 N__fastcall TForm1::TForm1(TComponent* Owner)
    8 P' L+ ?: Z' n        : TForm(Owner)
    1 D. g. B# \8 I3 |{, u# W9 @2 g# F- \$ f) X) ^8 D: {
    }# m' Q7 q4 W1 P' \$ p2 |
    //---------------------------------------------------------------------------
    # O% g/ D. T  Mclass cla{* t- X$ u* C. j: F7 Q
    public:7 S+ Y0 l( F: m; A
    int ox,oy;( E0 F% d% h( c6 Y+ M8 t
    int get_x(){return ox;}
    - X0 f( t+ N5 G6 L3 m" cint get_y(){return oy;}8 C2 B& R; p$ s" [" U8 g5 D
    };
    3 M! ^% o0 Q7 q! G4 _cla *a=new cla;& _: e1 c8 A* X) l! f  S! s
    int x,y;
    / \7 t- x% {$ Z+ R! Z4 }void __fastcall TForm1::Image1MouseDown(TObject *Sender,) i2 Q$ p! }, Y, x/ o4 k: Q
          TMouseButton Button, TShiftState Shift, int X, int Y)0 B* a9 @% X( ^! _& B0 n# w, ?
    {6 Y, S7 E8 f8 x- X1 I# \# ?
    if(Button=mbLeft){7 g% a/ A( a- v9 q
    a-&gt;ox=Image1-&gt;Left;
      v3 d2 o: |' ~8 i: y' r# K1 y: pa-&gt;oy=Image1-&gt;Top;
    " q" v. j7 i  Xx=X;
    1 C/ n* S4 x- A3 |3 N1 cy=Y;( b+ w- p) T3 J  s- q
    }9 p, Z4 R# Q1 X) @
    }* U8 z% L( ]/ k$ ~
    //---------------------------------------------------------------------------
    & q. q: Z% ?; Yvoid __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
    % d# L6 X( f, G6 `      int X, int Y)
    7 i' y" n) T1 R; M{
    + L+ N/ D5 x: D6 ?  O: Pif(Shift.Contains(ssLeft)){
    ) ~! ^; t  i+ i3 F( ]Image1-&gt;Left+=X-x;% e3 N3 w4 W% P
    Image1-&gt;Top+=Y-y;
    2 N  q8 H7 a5 o9 r" V* K}8 Z4 M; Z, _5 b. k5 F* l
    }" w5 }' @$ K( a+ F( x  f# {% _: h
    //---------------------------------------------------------------------------
    , N* d+ D* L* P# p/ }, ?: B9 gvoid __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
    8 z" z( z; ]% U- y& C- r      TShiftState Shift, int X, int Y)) f8 V+ N" `# s) @- i1 l
    {; h+ G# R/ v$ s7 }0 b0 r! y7 L8 D
    int x1,y1;7 d, A6 |1 v2 r1 H- D- ^! e
    if(Image1-&gt;Left&gt;Shape1-&gt;Left-20 &amp;&amp;
    1 {; K) [& u, K2 C: q# m6 cImage1-&gt;Left&lt;Shape1-&gt;Left+Shape1-&gt;Width+
    * r+ T7 w4 {* p! {6 M+ {+ J2 i20&amp;&amp;Image1-&gt;Top&gt;Shape1-&gt;Top-20&amp;&amp;1 o# T- C8 V5 F9 I8 h: ?  {5 P2 h
    Image1-&gt;Top&lt;Shape1-&gt;Top+20+Shape1-&gt;Top){, v. h; x, \: E: X# C
    Image1-&gt;Top=Shape1-&gt;Top;
    4 n) W  m8 k+ A9 S$ m+ S0 nShape1-&gt;Visible=false;
    4 |' z1 n6 J' X. W( AImage1-&gt;Left=Shape1-&gt;Left;$ c0 Y' r+ k0 v7 j5 A0 ]0 ^
    }else{  y: w  f% u) |/ E" B; c; a
    x1=a-&gt;get_x();
    + n! b( k/ ^, l# p- m# Iy1=a-&gt;get_y();1 m$ Y8 a% O0 ~, S& D+ r, \$ h
    Image1-&gt;Left=x1;
    ( n% c- L1 W3 m. y" P  uImage1-&gt;Top=y1;
    3 L5 H7 g" N  X; H# i}" b9 D5 ?) D% ~7 R& E
    }</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;# e" T* Z. h/ r) [$ z/ e
    int x,y;/ S/ u8 V3 E9 P8 W5 v; U1 N4 J
    void __fastcall TForm1::Image1MouseDown(TObject *Sender,( a. M" {% e' x2 b4 d7 j
          TMouseButton Button, TShiftState Shift, int X, int Y)
    & m  q9 }5 F6 ]$ @/ \1 \& U; h$ a{- a3 L* ~* [$ U$ @- n4 ^( G5 L
    if(Button=mbLeft){
    - f3 l1 W' j" O) fox=Image1-&gt;Left;
    2 U$ H: [& H# o7 Z. x  qoy=Image1-&gt;Top;
    2 s" b' Z# J) @x=X;
    8 a1 c2 b6 ^/ t5 {) @y=Y;; V" t$ Q" w7 B2 a, ~4 I, \  R. @7 x& [
    }7 l$ d" w! T; b# E: }4 E! X9 N
    }& y/ D7 H7 b" M0 Q) U* \
    //---------------------------------------------------------------------------
      h0 u- r7 H1 ~7 [- l7 \) Uvoid __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
    . X' e6 t* r) g# t      TShiftState Shift, int X, int Y)& h/ ~/ K( F8 N/ ?. u
    {
    ' E2 j8 m. P6 O' B* @8 Z4 |' Q1 o; eint x1,y1;</P><>x1=ox;( b7 {) N' Q  {% [7 Z0 Y( Q* }1 ~
    y1=oy;
    $ H( @0 |* J. eShowMessage("ox="+IntToStr(x1) +"oy="+IntToStr(y1) );
    5 I* I4 Q6 L) u/ O}</P>
    回复

    使用道具 举报

    22

    主题

    2

    听众

    72

    积分

    升级  70.53%

    该用户从未签到

    新人进步奖

    <>重大发现:以下不是0。而加上if(Button=mbLeft){就为零了。病根找到了,但怎么回事呢?</P><>int ox,oy;+ u9 @4 e7 h  E" F( \
    void __fastcall TForm1::Image1MouseDown(TObject *Sender,
    6 b7 k" T/ F7 U3 F4 Z- V6 n      TMouseButton Button, TShiftState Shift, int X, int Y)9 _4 i) A4 [$ P
    {
    1 o+ p& x5 K/ N# A: vox=Image1-&gt;Left;: [) b& {- d, O! L: }/ p9 M
    oy=Image1-&gt;Top;' u# C) D7 i/ ]: U# v/ x8 H1 k
    }
    . T; n+ p9 D1 |" O( n8 b2 X//---------------------------------------------------------------------------" r4 p) ?9 u: ~! p
    void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,! R. R( Z0 d) C1 h( n
          TShiftState Shift, int X, int Y)% `- n& ?. c" C* i( ~
    {6 T) L; o7 R0 w- u. T
    ShowMessage("ox="+IntToStr(ox) +"oy="+IntToStr(oy) );
    8 K% V  x2 q  O}</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 实名认证       

    1万

    主题

    49

    听众

    2万

    积分

  • TA的每日心情
    奋斗
    2024-6-23 05:14
  • 签到天数: 1043 天

    [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><>6 B% J: s/ V6 Q; ^
    少校 的指导</P><>3、熟悉了全局变量的用法</P><>4、让我花1个小时想想4是什么,还有5....  (3、4个小时可不能白费呀......4是什么呢?伤脑筋呀)
    ! W* Y) q8 |# V . ?& Q( A) t& Y5 w" Y
    </P>
    回复

    使用道具 举报

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

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-9-2 11:14 , Processed in 0.355265 second(s), 93 queries .

    回顶部