请问怎样随机生成1和-1？

[sunlin20011978]

请问怎样随机生成1和-1？
即：
var
I:integer;

I:=rand(1,-1);

[chechy]

简单，
j : Double;

j := Random(1);
if (j >= 0.5) then
I := 1
else
I := -1;

[王集鹄]

Random(2); //0|1

2 * Random(2) - 1;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := IntToStr(2 * Random(2) - 1);
end;

[goomoo]

这么简单的问题，怎么都是四颗星的抢着答啊。 :D

[ZyxIp]

风。