小编use*_*441的帖子

可以将以下if语句转换为case语句吗？

if (Number >= 5) and (Number <= 10) then
  lblAnswer.Caption := 'in range'
else
  lblAnswer.Caption := 'out of range';

我的答案 :

是的,它可以

case (number >= 5) and (Number <= 10) of
  lblAnswer.Caption := 'in range';
  lblAnswer.Caption := 'out of range';
end;

它是否正确？

我应该如何将此循环转换为for循环？

const
  TheRightWord = 'hello';
  MaximumTries = 3;
var
  NTries : integer;
  AWord : string;
begin
  NTries := 1;
  AWord := ' ';
  while (AWord <> TheRightWord) and (NTries <= MaximumTries) do

我以为这就是答案:

for (AWord <> TheRightWord) and (NTries <= MaximumTries) do

我必须放在for原地while吗？或者是for i := 1 to 3 do吗？