delphi随机出题的符号问题
function Sign : char;
const Ssign : array[0..3] of char = ('+', '-', '*', '/');
begin
randomize;
result := Ssign[random(4)];
end;
procedure TForm1.Button1Click(Sender: TObject);
var i, j, k : integer;
begin
randomize;
edit3.SetFocus;
i := random(101) + 1;
edit1.Text := inttostr(i);
edit2.Text := inttostr(random(101-i) + 1);
label1.Caption := Sign;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
var Result, yes, wrong, count : integer;
str, i, j, k : string;
begin
i := edit1.text;
j := edit2.text;
k := edit3.text;
Result := strtoint(i) + (j);//这里的加号怎么写才能自动转换城随机生成的符号 再计算结果?
if key = #13 then
begin
if Result = strtoint(k) then
begin
listbox1.Items.Add(i + label1.Caption + j + '=' + k + '√');
end;
end;
end;
追问:这个是什么意思呢??不懂 能跟我解释下吗