如何将字符串分配给整数？

Question

下面是代码：

procedure TForm1.Button1Click(Sender: TObject);
var j,r:integer; k:string;
begin
  k := Edit1.Text;

  if StrToInt(k) > 0 then 
    if StrToInt(k)<10 then
      r := StrToInt(k);
  if StrToInt(k) = 10 then
    r := 1;
  if StrToInt(k) > 10 then 
    if StrToInt(k) < 190 then
      j:=StrToInt(k) mod 10;
  r := j-1;

  ShowMessage('Na toj poziciji se nalazi: '+ IntToStr(r));
end;

我写k:=Edit1.Text时甚至不建议使用该选项。有人有解决办法吗？

Answer 1

您正在尝试将Editk.Text的字符串中设置的'k'声明为整数

使用StrToInt将Edit1.Text转换为整数，然后重试。顺便说一句消息：“不兼容的类型：'Integer'和'TCaption'”就是这个意思。不兼容。