Sending/Passing local variable from one procedure to another in Delphi 7? -

-

how can send/passing local variable in procedure procedure in delphi?

procedure tform1.button1click(sender: tobject); var a,b:integer; c: array [o..3] smallint; begin   a:=1;   b:=2; end;

i want send 1 or more local variable(a,b,c) has value procedure use them there like:

procedure tform1.button2click(sender: tobject); var   d:integer; begin   d:=a*b; end;

i want send 1 or more local variable(a,b,c) has value procedure use them there.

this shows misunderstanding lifetime of local variables. local variables have scope duration of function owns them. since 2 event handlers have disjoint lifetimes, local variables never in existence simultaneously.

so when "that has value", mistaken. local variables exist when button1click executing not exist when button2click executing.

you'd need variables members of class rather local variables. way variables' lifetimes span separate execution of event handlers.

type   tform1 = class(tform)   ....   private     a,b:integer;     // etc.   end; .... procedure tform1.button1click(sender: tobject); begin   a:=1;   b:=2; end;  procedure tform1.button2click(sender: tobject); var   d:integer; begin   d:=a*b; end;

Comments

Post a Comment

Popular posts from this blog

Perl - how to grep a block of text from a file -

-
it can in xml or text format. how in general grep block of text in perl? <track type="ws"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>0</locationindex> <propertyindex>0</propertyindex> </range> </track> <track type="ps" id="1"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>1</locationindex> <propertyindex>1</propertyindex> </range> </track> i want grep type="ps" , till </range> . one solution open file, read line line , match block. open(fh, "file.txt"); foreach $line (<fh>) { if ($line =~ m/type="cc"(.*?)<\/range>/) { print $1; } } but there more optimal solution without reading file line l
Read more

delphi - How to remove all the grips on a coolbar if I have several coolbands? -

-
Image
if set mycoolbar.fixedorder true,only grip on first band hidden. well,if use delphi 7 create vcl forms application,then put coolbar on , create 3 coolbans hold other controls,only grip , top coolbands can hidden setting mycoolbar.fixedorder:=true. i've uploaded picture make things clear. you got fixedorder property wrong. fixed property not allow bands rearranged if set true . setting property of coolbar true keep user changing bands order @ runtime, user can still move , resize bands. can give advice can do, actual solution problem, well, have wait answer. my advice use 3 coolbars in row , setting "fixedorder" property true , bandborderstyle bsnone . way grip hidden on of them. about property, it's not bug of ide, actual preference of property.
Read more

javascript - Animating array of divs; only the final element is modified -

-
this baffling me @ moment. i'm experienced programmer looking throw bit of surprise fiancee on countdown page our wedding. desired effect simulated confetti falling behind main page. setup follows: i have array of divs in javascript. each div absolutely positioned on page. have interval set updates every 50 or milliseconds. on each tick, run loop on array of divs, , calculations , update positions. problem problem having, however, though can see divs created, stored array, , modified (in case, each has slight randomized rotation) during initialization phase, once tick update position starts, div stored in whatever last slot of array gets position updated. tried hard-coding each div index testing purposes, strictly last element update position. upon printing current "left" , "top" style values each div before , after calculations shows value has been changed, no visible change noticeable. here's basic code: javascript var container;
Read more