大家来帮我一下,在线等待

Question

//随机取先手
if(!wplayers)
{
Random rdm1 = new Random(unchecked((int)DateTime.Now.Ticks));
if(rdm1.Next()%2==0)
player2 = true;
else 
player1 = true;
}
这是c#写的程序
能帮我改成delphi的吗?
尤其是这句Random rdm1 = new Random(unchecked((int)DateTime.Now.Ticks));

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 rdm1 :integer;
 wplayers:boolean;
 player2:boolean;
 player1:boolean;
 CC:STRING;
begin
  wplayers:=true; if  wplayers then
    begin
      DateTimeToString(CC,'HHMMSS',now());
      SHOWMESSAGE(CC);
rdm1:= Random(STRtoint(CC));
         showmessage(inttostr(rdm1));
if (rdm1 mod 2) = 0  then
begin
         player1:= true
        end
else
begin
         player2 := true;
        end;
end;    
    if Player2 then
    begin
      showmessage('Player2');
     end
    else
      showmessage('Player1');end;