Solved

layout of code

Posted on 2011-02-14
3
385 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 36

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

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Delphi TcxGrid group footer summary 3 146
Help on project with Soap 10 43
find a node in VST 2 47
Reconfigure Delphi Install? 2 36
This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.

758 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now