Home Explore Help
Sign In
pascal
/
PascalCoin
2
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Format NodeVersion

PascalCoin 6 years ago
parent
fce0af6151
commit
22dc4d738a
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      src/core/UNode.pas

+ 1 - 1
src/core/UNode.pas
View File 

@@ -781,7 +781,7 @@ end;
 
 
 class function TNode.NodeVersion: AnsiString;
 
 begin
 
-  Result := CT_ClientAppVersion{$IFDEF LINUX}+'l'{$ELSE}+'w'{$ENDIF}{$IFDEF FPC}{$IFDEF LCL}+'L'{$ELSE}+'F'{$ENDIF}{$ENDIF}{$IFDEF FPC}{$IFDEF CPU32}+'32b'{$ELSE}+'64b'{$ENDIF}{$ELSE}{$IFDEF CPU32BITS}+'32b'{$ELSE}+'64b'{$ENDIF}{$ENDIF};
 
+  Result := CT_ClientAppVersion{$IFDEF LINUX}+'L'{$ELSE}+'W'{$ENDIF}{$IFDEF FPC}{$IFDEF LCL}+'l'{$ELSE}+'f'{$ENDIF}{$ENDIF}{$IFDEF FPC}{$IFDEF CPU32}+'32b'{$ELSE}+'64b'{$ENDIF}{$ELSE}{$IFDEF CPU32BITS}+'32b'{$ELSE}+'64b'{$ENDIF}{$ENDIF};
 
 end;
 
 
 procedure TNode.Notification(AComponent: TComponent; Operation: TOperation);