else ifs werden übersprungen

[shmia]

Ich würde mal sagen die beste Lösung ist die von Dax:

Delphi-Quellcode:

funtion VersionID(Major, Minor, Release, Build: Word): Int64; 
begin 
  Result := Int64(Major) shl 48 or Int64(Minor) shl 32 or Release shl 16 or Build; 
end;

Kurz, knackig und effizient.