delphi - Iterating a panels controls results in an index out of bounds error. Why? -


i using delphi 7 (yes, hear guffaws). have tabbed notebook want controls appear in sequence prior control finished correctly. each page in notebook, have named sheet. , controls on sheet, use tag property determine whether visible @ each step. steps result in 1 new control showing, steps have many 5 controls popping view. thought iterate through controls on tab sheet that's in view , turn off tag greater current step value. on page in question, there appear 23 controls in all, labels in view, edit fields pop view , arrow-shaped buttons advancing when newly popped field gets changed. seemed simple enough, except kept generating index out of range errors. sequence shut down out detailed error message eurekalog, not opened should have been. 'resolved' issue plugging in check name of control knew last in list , quitting loop @ point. added test kounter.tag <> 0 avoid leaving submit , cancel buttons on in routes. ideas why kounter kept on past 23?

procedure tfrmmain.viztogglewtp; var   kounter: integer;   kontrol: tcontrol;   kontrolz: integer; begin   kontrolz := sheetprintouts.controlcount;   kounter := 1 kontrolz   begin     // avoid index error, check cancel button , exit @ point     if sheetprintouts.controls[kounter].name = 'btncancelwtp'       break;     if (sheetprintouts.controls[kounter]) tnxedit       begin         kontrol := tnxedit(sheetprintouts.controls[kounter]);         kontrol.visible := (kontrol.tag <= wtpstep);         end;     if (sheetprintouts.controls[kounter]) tjvshapedbutton       begin         kontrol := tjvshapedbutton(sheetprintouts.controls[kounter]);         kontrol.visible := ((kontrol.tag <= wtpstep) , (kontrol.tag <> 0));         end;     end; end;

you need replace

for kounter := 1 kontrolz

with

for kounter := 0 kontrolz-1

since controls array zero-based.

for instance, if there 3 controls, indexed 0, 1, 2 , not 1, 2, 3.


Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

javascript - jQuery show full size image on click -

pretty self explanatory not workking . i want display full image when user click on image... yes know there tons of plugins but i want keep simple. any idea ? css : .full { display: none; width: 500px; height: 500px; margin-left: 100px; margin-top: -300px; position: fixed; background-color: #f00; z-index: 6; } .thumbnail { width: 50px; height: 50px; } html: <img class="thumbnail" src="http://4.bp.blogspot.com/-uhbdp2esxng/txneptvi92i/aaaaaaaaaky/upfqis7zto0/s1600/rihanna-wallpaper.jpg"> jquery: $(document).ready(function() { $('.thumbnail').on('click', function() { var img = $('<img />',{src:this.src,'class':'full'}); $('.full').html(img).show(); console.log('done!'); }); }); try looking how jquery works. $(document).ready(function() { $('.thumbnail').on('click', function(...
Read more