Why doesn't the "case of" statement work with strings?
lazarus / 43-Android

----------------------------------------------------------------------
shyub · 2021-04-06 10:45

"case of" is very handy for parsing, but gives an error in LAMW.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TAndroidModule1.jButton1Click(Sender: TObject);var  S: String;begin 
if jRadioButton1.Checked then S:='One';  if jRadioButton2.Checked then
S:='Two';  if jRadioButton3.Checked then S:='Three';  if
jRadioButton4.Checked then S:='Four';  case S of LAMW    'One':
jEditText1.Text:='1';    'Two': jEditText1.Text:='2';    'Three':
jEditText1.Text:='3';    'Four': jEditText1.Text:='4';  end;end;
Can you fix this?

----------------------------------------------------------------------
MarkMLl · 2021-04-06 11:14

It's your code, /you/ fix it:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i   case S
of    'One': jEditText1.Text:='1';    'Two': jEditText1.Text:='2';   
'Three': jEditText1.Text:='3';    'Four': jEditText1.Text:='4';  end; 
MarkMLl

----------------------------------------------------------------------
shyub · 2021-04-06 11:25

No, it does not work.
"LAMW" I accidentally added after checking.

----------------------------------------------------------------------
shyub · 2021-04-06 11:32

Here is the source code

----------------------------------------------------------------------
rsu333 · 2021-04-06 11:38

I think you can avoid case ;
suppose jbutton1click
  jradiobutton[n].visible:=true;
 -------------------------------------------------------
jbutton[n]click
jedittext1.text:=[N]

----------------------------------------------------------------------
MarkMLl · 2021-04-06 11:45

Although having got rid of the obvious problem it's still an
interesting question.

MarkMLl

----------------------------------------------------------------------
shyub · 2021-04-06 11:58

I ran into this problem when porting code from Windows. The code
converts the dxf-file to coordinates for subsequent rendering.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i function
DxfToLin(SF: String): Boolean;var  n: Integer=0;  S: String; 
flagParam: boolean=true;   Xmin, Ymin: Single;begin  Result:=true; 
Setlength(Mlin, 0);  SL:=TStringList.Create;  SL.LoadFromFile(SF);  
DXF.Deg:=true;   DXF.k:=1;   while n<SL.Count do begin   
S:=DelProbel(n);    if S='Конец' then begin      SL.Free;     
Result:=true;      exit;    end;    if flagParam then begin       case
S of        '$ANGDIR': begin           n:=n+1;         
S:=DelProbel(n);          if S='1' then DXF.Deg:=false;         end; 
     '$INSUNITS': begin           n:=n+1;          S:=DelProbel(n);  
      case S of            '1': DXF.k:=25.4;              '2':
DXF.k:=304.8;            '4': DXF.k:=1;                '5': DXF.k:=10;
              else begin              SL.Free;             
Result:=true;              exit;            end;          end;       
end;        'ENTITIES': begin           flagParam:=false;        end; 
    end;    end else begin       case S of        'POINT': begin     
    if DxfPOINT(n) then begin            SL.Free;           
Result:=true;            exit;          end;        end;       
'LINE': begin           if DxfLINE(n) then begin            SL.Free; 
         Result:=true;            exit;          end;        end;    
  'LWPOLYLINE': begin           if DxfLWPOLYLINE(n) then begin       
   SL.Free;            Result:=true;            exit;          end;  
    end;        'CIRCLE': begin           if DxfCIRCLE(n) then begin 
         SL.Free;            Result:=true;            exit;         
end;        end;        'ARC': begin           if DxfARC(n) then
begin            SL.Free;            Result:=true;            exit;  
      end;        end;        'ELLIPSE': begin           if
DxfELLIPSE(n) then begin            SL.Free;            Result:=true; 
          exit;          end;        end;        'SPLINE': begin     
    if DxfSPLINE(n) then begin            SL.Free;           
Result:=true;            exit;          end;        end;       
'OBJECTS': n:=SL.Count; .      end;    end;  end;  SL.Free; 
SeareSort();   Xmin:=Mlin[0].X;  Ymin:=Mlin[0].Y;  for n:=0 to
High(Mlin) do begin     if Mlin[n].X<=Xmin then Xmin:=Mlin[n].X;    if
Mlin[n].Y<=Ymin then Ymin:=Mlin[n].Y;  end;  Det.S:=SF;   Det.maxX:=0;
Det.maxY:=0;   Det.nVer:=Length(Mlin);   Det.nLin:=0;   for n:=0 to
High(Mlin) do begin     Mlin[n].X:=Mlin[n].X-Xmin;   
Mlin[n].Y:=Mlin[n].Y-Ymin;    if Det.maxX<Mlin[n].X then
Det.maxX:=Mlin[n].X;    if Det.maxY<Mlin[n].Y then
Det.maxY:=Mlin[n].Y;  end;  Result:=false;end;

----------------------------------------------------------------------
WooBean · 2021-04-06 12:03

Hi,

your code was prepared with source lines length of 1024 characters (I
looked only near "case of" line 51). Use normal Lazarus editor and
keep lines reasonably long (<130 characters).

Code highligting suggested thad something [invisible characters but
not white spaces] were detected at line 51 and then code completion
failed at lines with string literals.

 
Problem is not related to "case of" with string selector.

----------------------------------------------------------------------
shyub · 2021-04-06 13:03

WooBean, I tried to set the string size and 10 and 255 characters. Did
not help.
There is source code above, you can check.

----------------------------------------------------------------------
wp · 2021-04-06 13:12

AFAIK case of string works only in mode objfpc.  Is the unit set up
for that?

----------------------------------------------------------------------
WooBean · 2021-04-06 13:16

I ment that IDE editor allows quite long lines of source code (Lazarus
has 1024 characters/columns) and something at not shown part of the
source editor window must be wrong.

It may be related to file importing. I recall my own old problems with
Delphi when using source blocks from C++ origins.

[Edited]
wp - hit the problem
{$mode objfpc}{$H+}

----------------------------------------------------------------------
shyub · 2021-04-06 13:20

The problem can be solved something like this:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Name=(One,
Two, Three, Four); var  AndroidModule1:
TAndroidModule1; implementation  {$R *.lfm}   { TAndroidModule1
} procedure TAndroidModule1.jButton1Click(Sender: TObject);var  S:
Name; // String;begin  if jRadioButton1.Checked then S:=One;  if
jRadioButton2.Checked then S:=Two;  if jRadioButton3.Checked then
S:=Three;  if jRadioButton4.Checked then S:=Four;  case S of    One:
jEditText1.Text:='1';    Two: jEditText1.Text:='2';    Three:
jEditText1.Text:='3';    Four: jEditText1.Text:='4';  end;end;
But now the new problem is how to bind String and Name ...