Unit1.pas（72）：预期为'END'，但找到了'ELSE'

Question

begin
  D:=StrToFloat(Edit1.Text);
if (Edit1.Text <= '3' ) And (Edit2.Text >= '1') and (Edit3.Text = '1' ) then
  begin
  Edit4.Text := '6,3' ;
  Edit5.Text := '11-12';
  Edit6.Text := '60';
  Edit7.Text := '100';
  end
else
  begin
  if(Edit1.Text <= '3' ) And (Edit2.Text >= '1') and (Edit3.Text = '2' ) then
  Edit4.Text := '3,2' ;
  Edit5.Text := '9-10';
  Edit6.Text := '25';
  Edit7.Text := '40'
  end
else
  begin
  if(Edit1.Text <= '3' ) And (Edit2.Text >= '1') and (Edit3.Text = '3' ) then
  Edit4.Text := '1,6' ;
  Edit5.Text := '8-9';
  Edit6.Text := '25';
  Edit7.Text := '40';
  end
end;

我在识别if else Delphi 7语句的问题时遇到了一些麻烦[错误] Unit1.pas（73）：“；”正常，但'BEGIN'发现错误。

Answer 1

您的代码有不匹配的begin..end对。修复缩进，您会更清楚地看到这一点：

begin
  D:=StrToFloat(Edit1.Text);
  if (Edit1.Text <= '3' ) And (Edit2.Text >= '1') and (Edit3.Text = '1' ) then
  begin
    Edit4.Text := '6,3' ;
    Edit5.Text := '11-12';
    Edit6.Text := '60';
    Edit7.Text := '100';
  end
  else
  begin
    if (Edit1.Text <= '3' ) And (Edit2.Text >= '1') and (Edit3.Text = '2' ) then
      Edit4.Text := '3,2';
    Edit5.Text := '9-10';
    Edit6.Text := '25';
    Edit7.Text := '40'
  end
  else
  begin
    if(Edit1.Text <= '3' ) And (Edit2.Text >= '1') and (Edit3.Text = '3' ) then
      Edit4.Text := '1,6' ;
    Edit5.Text := '8-9';
    Edit6.Text := '25';
    Edit7.Text := '40';
  end

您有错误的if..else..else序列。

我猜你是想做更多类似的事情：

begin
  D := StrToFloat(Edit1.Text);
  if (Edit1.Text <= '3') And (Edit2.Text >= '1') and (Edit3.Text = '1') then
  begin
    Edit4.Text := '6,3' ;
    Edit5.Text := '11-12';
    Edit6.Text := '60';
    Edit7.Text := '100';
  end
  else if (Edit1.Text <= '3') And (Edit2.Text >= '1') and (Edit3.Text = '2') then
  begin
    Edit4.Text := '3,2';
    Edit5.Text := '9-10';
    Edit6.Text := '25';
    Edit7.Text := '40'
  end
  else if (Edit1.Text <= '3' ) And (Edit2.Text >= '1') and (Edit3.Text = '3') then
  begin
    Edit4.Text := '1,6' ;
    Edit5.Text := '8-9';
    Edit6.Text := '25';
    Edit7.Text := '40';
  end
  ...

可以简化一些以删除多余的比较：

begin
  D := StrToFloat(Edit1.Text);
  if (Edit1.Text <= '3') And (Edit2.Text >= '1') then
  begin
    if (Edit3.Text = '1') then
    begin
      Edit4.Text := '6,3' ;
      Edit5.Text := '11-12';
      Edit6.Text := '60';
      Edit7.Text := '100';
    end
    else if (Edit3.Text = '2') then
    begin
      Edit4.Text := '3,2';
      Edit5.Text := '9-10';
      Edit6.Text := '25';
      Edit7.Text := '40'
    end
    else if (Edit3.Text = '3') then
    begin
      Edit4.Text := '1,6' ;
      Edit5.Text := '8-9';
      Edit6.Text := '25';
      Edit7.Text := '40';
    end
    ...
  end
  ...

[另外，请注意，您不能使用<=和>=之类的运算符来比较字符串，就好像它们是数字一样。您必须先将字符串值转换为数字值。您似乎已经通过使用StrToFloat()意识到了这一点，但是此后您将忽略该值。尝试这样的事情：

begin
  D1 := StrToFloat(Edit1.Text);
  D2 := StrToFloat(Edit2.Text);
  D3 := StrToFloat(Edit3.Text); 
  if (D1 <= 3) And (D2 >= 1) then
  begin
    if (D3 = 1) then
    begin
      Edit4.Text := '6,3' ;
      Edit5.Text := '11-12';
      Edit6.Text := '60';
      Edit7.Text := '100';
    end
    else if (D3 = 2) then
    begin
      Edit4.Text := '3,2';
      Edit5.Text := '9-10';
      Edit6.Text := '25';
      Edit7.Text := '40'
    end
    else if (D3 = 3) then
    begin
      Edit4.Text := '1,6' ;
      Edit5.Text := '8-9';
      Edit6.Text := '25';
      Edit7.Text := '40';
    end
    ...
  end
  ...