sambaの設定で、全角数字を許可。

数字以外で再度入力を促すように修正。

diff --git a/Editor.pas b/Editor.pas
index 277264e..66a6635 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -2193,6 +2193,7 @@ var
        i : Integer;
 begin
        if InputQuery('Samba24\90Ý\92è\92l\8dX\90V', '\90V\82µ\82¢\90Ý\92è\92l\82ð\93ü\97Í\82µ\82Ä\82­\82¾\82³\82¢', input) then begin
+        input := ZenToHan(input);
                if GikoSys.IsNumeric(input) then begin
                        UpdateSamba(FHost, StrToInt(input));
                        //\91S\82Ä\82Ì\83t\83H\81[\83\80\82©\82ç\81A\93¯\82¶\83z\83X\83g\82Ì\83G\83f\83B\83^\82É\93Ç\82Ý\8d\9e\82Ý\8ew\8e¦
@@ -2203,9 +2204,9 @@ begin
                                        end;
                                end;
                        end;
-
                end else begin
                        ShowMessage('\90\94\92l\82ð\93ü\97Í\82µ\82Ä\82­\82¾\82³\82¢');
+                       UpdateSambaActionExecute(Sender);
                end;
        end;
 end;