主页 / 问题 / 607955
Accepted
I_CaR
Asked:2020-12-26 17:37:20 +0000 UTC2020-12-26 17:37:20 +0000 UTC

Case语句——如何实现第二条语句的触发。至少赋值运算符？

  • 772

假设有一个普通的操作员case

case a of
  1 : ShowMessage('a=1');
  2 : ShowMessage('a=2');
  3 : ShowMessage('a=3');
  4 : ShowMessage('a=4');
else ShowMessage('no');
end;

是否有可能实现这样的事情：

case a of
  1 : ShowMessage('a=1'); b:=10; 
  2 : ShowMessage('a=2'); b:=20;
  3 : ShowMessage('a=3'); b:=30;
  4 : ShowMessage('a=4'); b:=40;
else ShowMessage('no');
end;

这里有类似的东西，因为满足条件后a:=1;，需要给b变量赋值。

PS 或者你怎么能在不转换case为的情况下解决这里的情况if？

delphi

3 个回答

  1. Best Answer
    case a of
  1 : 
      begin
          ShowMessage('a=1'); 
          b:=10; 
      end;
  2 : 
      begin
          ShowMessage('a=2'); 
          b:=20;
      end;
  3 : 
      begin
         ShowMessage('a=3'); 
         b:=30;
      end;
  4 : 
      begin
         ShowMessage('a=4'); 
         b:=40;
      end;
  else ShowMessage('no');
end;
    • 4

  2. 对于上面的代码，根本就case不需要

    if a in [1..4] then begin
  ShowMessageFmt('a=%d', [a]);
  b := a * 10;
end else
  ShowMessage('no');
    • 4

  3. 另一个可能的（并且更短，如果有很多对）选项，如果你有一个声明的类型或值范围a，是使用一个常量数组：

    type
  TPresetType = record Text: string; Value: Integer; end;
const
  PRESETS: array [1..4] of TPresetType = (
    (Text: '=10'; Value: 10),
    (Text: '=20'; Value: 20),
    (Text: '=30'; Value: 30),
    (Text: '=40'; Value: 40)
  );
begin
  if a >= Low(PRESETS) and a <= High(PRESETS) then
  begin
    ShowMessage(PRESETS[a].Text);
    b := PRESETS[a].Value; 
  end else
    ShowMessage('no');
end;

    或几乎相同，但没有记录类型，有 2 个常量数组：

    const
  PRESET_TEXT: array [1..4] of string = ('=10', '=20', '=30', '=40');
  PRESET_VALUE: array [1..4] of Integer = (10, 20, 30, 40);
begin
  if a >= Low(PRESET_TEXT) and a <= High(PRESET_TEXT) then 
  begin
    ShowMessage(PRESET_TEXT[a]);
    b := PRESET_VALUE[a]; 
  end else
    ShowMessage('no');
end;

    这种解决方案的优点是什么——减少犯错的可能性：

    • 在 1 处列出所有选项和值
    • 如果您可以隔离变量的类型a（例如，a: TTextAlign;让我们写PRESET_TEXT: array [a] of string），那么在添加新值时，编译器将强制您完成所有值。
    • 0

相关问题