« 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
Headers = ( Arguments, FunctionResult, Description,
SeeAlso, TheLast, NilHearer );
function TForm1.NextHeader( AHEADER : Headers; AARG,AFUNRESULT,ADESC,ASEE : Boolean ) : Headers;
Var
sHeader : Headers;
NHeader : Headers = TheLast;
begin
for sHeader := Arguments to NilHeader do begin
Arguments : begin
if sHeader = AHeader then Continue;
if AARG then NHeader := FunctionResult;
end;
FunctionResult : begin
if sHeader = AHeader then Continue;
if AFUNRESULT then NHeader := FunctionResult;
end;
Description : begin
if sHeader = AHeader then Continue;
if ADESC then NHeader := Description;
end;
SeeAlso : begin
if sHeader = AHeader then Continue;
if ASEE then NHeader := SeeAlso;
end;
TheLast : NHeader := TheLast;
NilHeader : NHeader := NilHeader;
end;
Result := NHeader;
end;
« Last Edit: September 22, 2021, 08:08:36 am by JLWest »
Logged
FPC 3.2.0, Lazarus IDE v2.0.4
Windows 10 Pro 32-GB
Intel i7 770K CPU 4.2GHz 32702MB Ram
GeForce GTX 1080 Graphics - 8 Gig
4.1 TB