Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Pass pointers as parameters.

Posted on 2002-04-02
2
Medium Priority
?
155 Views
Last Modified: 2010-04-04
Hi again experts!

I want to make a function which executes an SQL sentence on any existing TQuery component. I'm attempting to pass a pointer to the TQuery object as a parameter, but the compiler gives me an error at the function prototype:
"Identifier expected but '^' found".
Here is the code:

type
 TServeis = class(TObject)
 private
  { Private declarations }
  prova: ^TQuery; //this line compiles correctly
 public
  function BDEToStringList(Sentencia,Camp: String;var Llista: TStringList): Boolean;
  function Cerca(Sentencia,Camp: String):Variant;
  function ManipulaQ(Sentencia: TStrings;PQ: ^Integer):Integer; //error
  function ConsultaQ(Sentencia: TStrings;PQ: ^TQuery):Integer; //error
 end;

Any ideas are welcome! Thank you!
0
Comment
Question by:Kurtis
2 Comments
 
LVL 27

Accepted Solution

by:
kretzschmar earned 300 total points
ID: 6913554
as every tobject is a pointer to itself,
you don't need the ^-sign

type
TServeis = class(TObject)
private
 { Private declarations }
 prova: TQuery; //this line compiles correctly
public
 function BDEToStringList(Sentencia,Camp: String;var Llista: TStringList): Boolean;
 function Cerca(Sentencia,Camp: String):Variant;
 function ManipulaQ(Sentencia: TStrings;PQ: ^Integer):Integer; //don't know for what this may be
 function ConsultaQ(Sentencia: TStrings;PQ:  TQuery):Integer; //error
end;

meikl ;-)
0
 

Author Comment

by:Kurtis
ID: 6913587
It was pretty simple.
Thanks kretzschmar!
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

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

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Are you ready to place your question in front of subject-matter experts for more timely responses? With the release of Priority Question, Premium Members, Team Accounts and Qualified Experts can now identify the emergent level of their issue, signal…
Suggested Courses

972 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