Lazarus

Free Pascal => Beginners => Topic started by: JLWest on September 22, 2021, 06:10:12 am

Title: Enumerated Type problem(Solved)
Post by: JLWest on September 22, 2021, 06:10:12 am

I get an error on Line 12. unit1.pas(962,27) Error: Label used but not defined "ARGUMENTS"

ARGUMENTS is defined as the first enumerated type in headers.

I don't understand.

Help please

Code: Pascal  [Select][+][-]

1. Headers = ( Arguments, FunctionResult, Description,
2.               SeeAlso, TheLast, NilHearer );
3.  
4.  
5.  function TForm1.NextHeader( AHEADER : Headers; AARG,AFUNRESULT,ADESC,ASEE : Boolean ) : Headers;
6.    Var
7.    sHeader : Headers;
8.    NHeader : Headers = TheLast;
9.   begin
10.  
11.        for sHeader := Arguments to NilHeader do begin
12.  
13.          Arguments      : begin
14.                            if sHeader = AHeader then Continue;
15.                            if AARG then NHeader :=  FunctionResult;
16.                           end;
17.  
18.          FunctionResult : begin
19.                            if sHeader = AHeader then Continue;
20.                            if AFUNRESULT then NHeader :=  FunctionResult;
21.                           end;
22.  
23.          Description    : begin
24.                            if sHeader = AHeader then Continue;
25.                            if ADESC then NHeader :=  Description;
26.                           end;
27.  
28.          SeeAlso        : begin
29.                            if sHeader = AHeader then Continue;
30.                            if ASEE then NHeader :=  SeeAlso;
31.                           end;
32.  
33.          TheLast        : NHeader :=  TheLast;
34.  
35.          NilHeader      : NHeader :=  NilHeader;
36.  
37.        end;
38.         Result := NHeader;
39.    end;

Title: Re: Enumerated Type problem
Post by: af0815 on September 22, 2021, 07:12:15 am

It looks you have mixed the syntax of 'if' and ' case' statement.

https://wiki.freepascal.org/Case
https://wiki.freepascal.org/IF

Title: Re: Enumerated Type problem
Post by: JLWest on September 22, 2021, 07:38:06 am

Thanks but I still don't get it.

 The if's have nothing to do with case statement.

Title: Re: Enumerated Type problem
Post by: bytebites on September 22, 2021, 07:47:49 am

case missing

Code: Pascal  [Select][+][-]

1.        for sHeader := Arguments to NilHeader do begin
2.          case sheader of   //<--------
3.          Arguments      : begin

Title: Re: Enumerated Type problem
Post by: JLWest on September 22, 2021, 08:08:15 am

Yea, Thanks Got it.