Solved

layout of code

Posted on 2011-02-14
3
387 Views
Last Modified: 2012-05-11
Hi,

can someone set this code out for me below so it works.

  if UpperCase(form1.adotable2.Fields[N].AsString) = UpperCase('12 Month)
+ UpperCase(form1.adotable2.Fields[j].AsString) = UpperCase('Sale ok') then
      inc(twelve1);
0
Comment
Question by:iplay
  • 2
3 Comments
 
LVL 37

Accepted Solution

by:
Geert Gruwez earned 500 total points
ID: 34891794
are you doing this in a procedure of form1 ?
then do not use form1 !

and otherwise pass the adotable as a parameter to the procedure

if SameText(AdoTable2.Fields[N].AsString, '12 Month') and
  SameText(AdoTable2.Fields[j].AsString, 'Sale ok') then
  inc(twelve1);
0
 

Author Comment

by:iplay
ID: 34891812
No im doing this on form 13

0
 

Author Closing Comment

by:iplay
ID: 34891868
Thanks, works fine, cheers
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question