エラーチェック強化

diff --git a/sakurasuite/IdSLPP20.pas b/sakurasuite/IdSLPP20.pas
index 40a230e..f6c53d5 100644 (file)
--- a/sakurasuite/IdSLPP20.pas
+++ b/sakurasuite/IdSLPP20.pas
@@ -326,6 +326,12 @@ begin
   FRecvData.Delete(0);
   FParam := FRecvData.Text;
 
+  //\82³\82ç\82É\82µ\82Â\82±\82­\83G\83\89\81[\83`\83F\83b\83N\82µ\82Ä\82Ý\82é
+  if Length(FParam) = 0 then begin
+    Result := false;
+    Exit;
+  end;
+
   Result := true;
   if command = 'broadcastMessage' then begin
     FEvent := etScript;