ギコナビバージョンが実数で出るようになっていたので、整数で出すように変更

diff --git a/GikoSystem.pas b/GikoSystem.pas
index acffb8b..59cbf3d 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -365,7 +365,7 @@ end;
 function TGikoSys.GetUserAgent: string;
 begin
        if Dolib.Connected then begin
-               Result := Format('%s %s/%s%f%s', [
+               Result := Format('%s %s/%s%d%s', [
                                                                Dolib.UserAgent,
                                                                APP_NAME,
                                                                //MAJOR_VERSION,
@@ -374,7 +374,7 @@ begin
                                                                BETA_VERSION,
                                                                BETA_VERSION_BUILD]);
        end else begin
-               Result := Format('%s/%s %s/%s%f%s', [
+               Result := Format('%s/%s %s/%s%d%s', [
                                                                USER_AGENT,
                                                                Dolib.Version,
                                                                APP_NAME,