[SOLVED]if construction probleme !!

[BSaidus]

Hello !!
I write this code :
// -----------------------------------------------
function fun1(const str: string): integer ;
begin
  Result := 1 ;
end;

and in an other function I did :
// ----------------------------------------------------
procedure ExecSQL();
var
  ret: integer ;
begin   
  if (ret:=fun1(BS_q1))=1 then
     Exit;    

end;
and it gives mes error message :
bsmusermanager.pas(298,10) Fatal: Syntax error, ")" expected but ":=" found
 
I've tried the following :
  if ((ret:=fun1(BS_q1))=1) then
     Exit;     
but the same error message is given.

only the construction :
 
   ret := fun(BS_q1);
   if ret = 1 then 
      Exit;

PS: I'm new comer from Delphi, and I don't know if free pascal allow sach construction for if.
Thanks

[minesadorada]

You just need to test the function result directly in the if..then statement.  No need for the variable.

Code: [Select]

procedure ExecSQL();
begin   
  if (fun1(BS_q1)=1) then
     Exit;   
end;

[BSaidus]

You just need to test the function result directly in the if..then statement.  No need for the variable.

Code: [Select]

procedure ExecSQL();
begin   
  if (fun1(BS_q1)=1) then
     Exit;   
end;

thnaks
So, it does'nt support the constructions as delphi ?

[typo]

Maybe you are referring to this:

Code: [Select]

procedure ExecSQL();
var
  ret: integer ;
begin
  if ret = (fun1(BS_q1) = 1) then
     Exit;
end;   


Code: [Select]

    ///-boolean expression---------///   
            //boolean expression//
 if ret =     (fun1(BS_q1) = 1)           then

See this:

Code: [Select]

var
  ret, a, b, c: integer ;
begin
  if a = (b = (c = (ret = (fun1(BS_q1) = 1)))) then
     Exit;
end;


[BSaidus]

Maybe you are referring to this:

Code: [Select]

procedure ExecSQL();
var
  ret: integer ;
begin
  if ret = (fun1(BS_q1) = 1) then
     Exit;
end;   


Code: [Select]

   ///-boolean expression---------///   
            //boolean expression//
 if ret =     (fun1(BS_q1) = 1)           then


No !
the return of fun1 must be put in the variable ret then will be tested against 1
 steps :
 

Code: [Select]

  ret = fun1(BS_q1);*
  if ret = 1 then
     Exit;
+ there is error of compatibility of datatypes.
your code just do not compiles.

[typo]

Code: [Select]

if ret = integer(fun1(BS_q1) = 1) then

or:

Code: [Select]

if boolean(ret) = (fun1(BS_q1) = 1) then


Code: [Select]

if a = integer(b = integer(c = integer(ret = integer(fun1(BS_q1) = 1)))) then


[BSaidus]

Yes after casting it works but it do not feet my needs
My goal is to retreave the return value of fun1() into the variable ret

Code: [Select]

ret := fun1(BS_q1) then do comparaison to 1

Code: [Select]

ret=1as we can do it in delphi

Code: [Select]

if (ret := fun1(BS_q1)) = 1 then
   ....
thanks !!

[Leledumbo]

Yes after casting it works but it do not feet my needs
My goal is to retreave the return value of fun1() into the variable ret

Code: [Select]

ret := fun1(BS_q1) then do comparaison to 1

Code: [Select]

ret=1as we can do it in delphi

Code: [Select]

if (ret := fun1(BS_q1)) = 1 then
   ....
thanks !!

which Delphi version are you using? I don't think Delphi allows that since assignment is always statement in Pascal, and Delphi implementation is no exception.

[typo]

I too have deep doubts about Delphi allowing this.

Perhaps bsaidus has misunderstood some boolean expression.

[BSaidus]

Excuuuuuuuuuuuuuuuuuuuuuse me please !!
I made a confusion from C to Delphi.
It's C that allow such construction.

Code: [Select]

#include <stdio.h>
#include <stdlib.h>

int fun1(const char * p)
{ return 1 ; }


int main(int argc, char *argv[]) {
int ret ;

if ((ret=fun1(NULL))==1)
{ printf("good %d", ret); }
system("pause");
return 0;
}
 

thakns !!

[Leledumbo]

Excuuuuuuuuuuuuuuuuuuuuuse me please !!
I made a confusion from C to Delphi.
It's C that allow such construction.

As expected. In C family of languages, assignment is expression, not a statement.