case ohne const

[Mathias]

Folgendes Beispiel verursacht folgenden Fehler:

Code: Alles auswählen

unit1.pas(42,6) Error: Constant Expression expected

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  a: byte = 0;
  b: byte = 1;
  c: byte = 2;

  w: byte;
begin
  w := b;
  case w of
    a: begin
      WriteLn(a);
    end;
    b: begin
      WriteLn(b);
    end;
    c: begin
      WriteLn(c);
    end;
  end;
end;

Kann man FPC irgendwie mit einem Compiler-Schalter überreden, das dies geht ?
Ansonsten muss man eine recht unübersichtliches if then Gewurstel machen.

[six1]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  a: byte = 0;
  b: byte = 1;
  c: byte = 2;

  w: byte;
begin
  w := b;
  //case w of
  //  a: begin
  //    WriteLn(a);
  //  end;
  //  b: begin
  //    WriteLn(b);
  //  end;
  //  c: begin
  //    WriteLn(c);
  //  end;
  //end;

  if w in [a] then
  begin
      WriteLn(a);
  end else
  if w in [b] then
  begin
      WriteLn(b);
  end else
  if w in [c] then
  begin
      WriteLn(c);
  end else
  begin
    WriteLn('Nothing');
  end;

end;

[fliegermichl]

In der FreePascal Dokumentation steht das u.a. explizit
They have to be constant expressions, i.e. known at compile-time.

[Mathias]

Danke
Dann muss ich es wohl oder übel mit if then machen.

[Winni]

Hi!

Nö, Du kannst a,b und c ja als const deklarieren.
Dann gehts.

Winni