内联变量在 TMS Web Core 中不起作用

Question

当我尝试使用内联变量时，我会得到一个

Syntax error

。这是我的代码：

procedure TfrmMain.btnSignInClick(Sender: TObject);
begin
  var UserEmail := edtEmail.Text;
  var UserPassword := edtPassword.Text;
  var UserRememberMe := tglRememberMe.Checked;

  SignIn(UserEmail, UserPassword);
end;

Syntax error

发生在这条线上：

var UserEmail := edtEmail.Text;

。

更改内联变量以指定类型也不起作用：

procedure TfrmMain.btnSignInClick(Sender: TObject);
begin
  var UserEmail: String := edtEmail.Text;
  var UserPassword: String := edtPassword.Text;
  var UserRememberMe: Boolean := tglRememberMe.Checked;

  SignIn(UserEmail, UserPassword);
end;

---

这是有效的 Delphi 代码，可以在 VCL 和 FMX 中工作，但它似乎在 TMS Web Core 中不起作用。为什么？我做错了什么？

Answer 1

根据TMS支持中心上的帖子，将Object Pascal代码编译为JavaScript代码的pas2js编译器目前不支持内联变量。

所以你必须使用老式的方式来声明变量：

procedure TfrmMain.btnSignInClick(Sender: TObject);
var
  UserEmail: String;
  UserPassword: String;
  UserRememberMe: Boolean;
begin
  UserEmail := edtEmail.Text;
  UserPassword := edtPassword.Text;
  UserRememberMe := tglRememberMe.Checked;

  SignIn(UserEmail, UserPassword);
end;