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;
Ansonsten muss man eine recht unübersichtliches if then Gewurstel machen.