Solved

Function

Posted on 2000-04-03
6
153 Views
Last Modified: 2010-04-04
I am writeing a function that returns a boolean(true,false) and It doesnt seem to let me call a function from within the function, how can I do this?
0
Comment
Question by:nafa2221
  • 5
6 Comments
 
LVL 17

Expert Comment

by:inthe
ID: 2681130
i havent tested this but it should work declare the functions globally so instead of calling
somefunction();
you can call
tform1.somefunction();

example:

  private
    function1(s : string);
    function2(t : tdatetime);  
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.function1(s : string);string;
begin
showmessage(s);
end;

function TForm1.function2(t:string);string;
begin
showmessage(t);
tform1.function2('here is function1 called in function2');
end;

if it dont work pates your 2 functions here  so we can look at.
0
 

Author Comment

by:nafa2221
ID: 2681170
MatchedWindow:=TForm1.FindWindowThatContainSubString(AOWindows,'Welcome'); <-- Thay gives me the error undeclared indentifier...help!
0
 
LVL 17

Expert Comment

by:inthe
ID: 2681223
erm please ignore above code it is gibberish(real bad)

here is a tested example of what i mean:
   
   
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function function1(s : string):string;
    function function2(t : string):string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.function1(s : string):string;
begin
showmessage(s);
end;

function TForm1.function2(t : string):string;
begin
showmessage(t);
function1('here is function1 in function2');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Function2('function2');
end;

end.

0
Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

 
LVL 17

Expert Comment

by:inthe
ID: 2681241
oh i didnt see your posting.

what is this?

MatchedWindow:=TForm1.FindWindowThatContainSubString(AOWindows,'Welcome'); <-- Thay gives me the error undeclared indentifier...help!

that tells me nothing..
have you made this function yourself?
is it delared globally?
if so i would need see your full function to understand the error.
and show you where to put the code in your unit.
i presume your calling it on a button click or something ..?
please take a look at the second posting of mine and i think you will see what to do.


0
 
LVL 17

Accepted Solution

by:
inthe earned 50 total points
ID: 2681331
well i guess it is procedure your using not function but it is same principal..
 
this will work if you declare globally :
your procedure and a boolean var.

private
    { Private declarations }
procedure FindWindowThatContainSubString
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MatchedWindow : Boolean;

implementation

procedure FindWindowThatContainSubString(blah,blah);
begin
blah blah
end;

procedure Tform1.Button1Click(sender : tobject);
begin
MatchedWindow:=FindWindowThatContainSubString(AOWindows,'Welcome');  
end;



0
 
LVL 17

Expert Comment

by:inthe
ID: 2681734
hi nafa,
having read some of your questions do you think this may help you:
i also use aol sometiomes so i could check the classnames to get this function.
mm.. i see your after the
"welcome , Barry" Window ..
what do you intend to do with this window when you have it?
maybe i can help more ..


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Procedure FindAolWindow;
var
AolMainWnd,AolMdi,AolWelcomeWnd : hwnd;
s : array [0..255]of char;
begin
  AolMainWnd:= FindWindow('AOL Frame25',nil);
  if AolMainWnd <> 0 then begin
  AolMdi := FindWindowEx(AolMainWnd,0,'MDIClient',nil);
  if AolMdi <> 0 then begin
  AolWelcomeWnd  := FindWindowEx(AolMdi,0,'AOL Child',nil);
  if AolWelcomeWnd <>0 then
  begin
  getwindowtext(AolWelcomeWnd,s,255);
  if pos('Welcome',s) <> 0 then
    begin
  showmessage('Connected ')
    end
  else
   if pos('Goodbye',s) <> 0 then
     begin
  showmessage('Not Connected' );
    end
   else showmessage('Error..Aol running but Welcome/Goodbye Window not found');
   end;
 end;
 end
 else showmessage('Aol not running');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 FindAolWindow;
end;

end.
0

Featured Post

NAS Cloud Backup Strategies

This article explains backup scenarios when using network storage. We review the so-called “3-2-1 strategy” and summarize the methods you can use to send NAS data to the cloud

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Delphi XE10, DigitalPersona Fingerprint reader and MySQL 6 267
delphi prevent click fast 2 219
error 1.1 400 Bad request idhttp delphi 18 88
CheckListBox usage 3 59
A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
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…
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 …
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

777 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