瀏覽代碼

UPD: Use tilde symbol as revision delimiter

Alexander Koblov 3 年之前
父節點
當前提交
8f581caf47
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/fmain.pas

+ 1 - 1
src/fmain.pas

@@ -1062,7 +1062,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
     end;
     end;
 
 
     if TryStrToInt(dcRevision, R) then
     if TryStrToInt(dcRevision, R) then
-      ARevision:= '.' + dcRevision
+      ARevision:= '~' + dcRevision
     else begin
     else begin
       ARevision:= EmptyStr;
       ARevision:= EmptyStr;
     end;
     end;