shuusei24105:IDを空欄にしてBanしたときのバグを修正(source by Heracules)

diff --dos -urN 24104/mainform.pas 24105/mainform.pas
--- 24104/mainform.pas	Mon Jan 27 15:18:10 2003
+++ 24105/mainform.pas	Mon Jan 27 15:29:58 2003
@@ -3615,6 +3615,8 @@
  t: Cardinal;
 begin
  if not running then exit;
+ if edit_bans_user.text = '' then exit;
+ if edit_ban_reason.Text = '' then edit_ban_reason.text:='no reason';
  t:=GetBanID(edit_ban_time);
  cmd_list.AddDoubleCmd(MSG_CLIENT_BANEX,0,edit_bans_user.Text+' '+IntToStr(t)+' '+edit_ban_reason.Text,'');
  cmd_list.AddDoubleCmd(MSG_CMD_LISTBANS,0,'','');