Delphi Cannot Identify something alredy declared :/

[HelpMEDude]

Hi, I would need some help with my program I'm doing.

The problem is that when I try to compile/run my project it founds a problem that says:

[Error] Unit1.pas(44): Undeclared identifier: 'L31'

L31 is a label on form1. It is alredy declared as

Var
L31 : TLabel.

I using it in a procedure thats made by myself (its not done by dubbelclicking on an event on the object inspector)

The Procedure look like this:

Procedure Checkcrash;
Begin
IF L31.caption ='>Stone<' and bilplacering1 then CarCrashed;
IF L32.caption ='>Stone<' and bilplacering2 then CarCrashed;
IF L33.caption ='>Stone<' and bilplacering3 then CarCrashed;
IF CarCrashed Then Begin
Crashed.caption:='Crashed';
Timer1.enabled:=false;
end;
end; -- Carcrashed and bilplacering1/2/3 are booleans

Please help me!!!

 

[svanels]

try form1.L31.caption.

Steven van Els
SAvanEls@cq-link.sr

 

[DelphiAaron]

you only need the form1. if the procedure is not in the forms unit.

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[whosrdaddy]

make your Checkcrash procedure a method of the form. like this :

type
  TForm1 = class(TForm)
    L31 : TLabel;
    L32 : TLabel;
    ...
  private
    { Private declarations }
    CarCrashed : boolean;
    bilplacering1 : boolean;
    ...
    Procedure Checkcrash;
  end;


...

Procedure TForm1.Checkcrash;
Begin
  IF L31.caption ='>Stone<' and bilplacering1 then CarCrashed;
  IF L32.caption ='>Stone<' and bilplacering2 then CarCrashed;
  IF L33.caption ='>Stone<' and bilplacering3 then CarCrashed;
  IF CarCrashed Then Begin
       Crashed.caption:='Crashed';
       Timer1.enabled:=false;
  end;
end;    -- Carcrashed and bilplacering1/2/3 are booleans

cheers

--------------------------------------
What You See Is What You Get

 

[HelpMEDude]

Thank you so much!!!

 

[Nordlund]

Just a code correction:

IF L31.caption ='>Stone<' and bilplacering1 then CarCrashed;

Should be written in this way:
IF (L31.caption ='>Stone<') and bilplacering1 then CarCrashed;

//Nordlund

 

[whosrdaddy]

mea culpa, I just copy/pasted his code...

retreating



--------------------------------------
What You See Is What You Get