Control de versiones

[mamcx]

Eso viene incluido en Delphi desde tiempos inmemoriables.

En la pestaña de Build, hay una parte donde dices que la version es la 1,0,0,0 y el build. Luego donde dice incrementar automaticamente el build y ya.

[[Waldo]]

Empezado por mamcx

Eso viene incluido en Delphi desde tiempos inmemoriables.

En la pestaña de Build, hay una parte donde dices que la version es la 1,0,0,0 y el build. Luego donde dice incrementar automaticamente el build y ya.

es correcto pero como obtengo esa informacion en tiempo de ejecucion?

[mamcx]

http://delphi.about.com/cs/adptips20...ltip0701_4.htm

[MAXIUM]

Project -> Options... -> Version Info -> Auto-increment build number.

Código Delphi [-]
// Obtiene la versión de la aplicación actualmente instalada.
Function GetAppVersion: String;
Var
    Size, Size2: DWord;
    Pt, Pt2: Pointer;
Begin
     Size:= GetFileVersionInfoSize(PChar (ParamStr (0)), Size2);
     If Size > 0 then
     Begin
          GetMem(Pt, Size);
          Try
             GetFileVersionInfo(PChar (ParamStr (0)), 0, Size, Pt);
             VerQueryValue(Pt, '\', Pt2, Size2);
             With TVSFixedFileInfo(Pt2^) do
             Begin
                  Result:=
                  IntToStr (HiWord(dwFileVersionMS)) + '.' +
                  IntToStr (LoWord(dwFileVersionMS)) + '.' +
                  IntToStr (HiWord(dwFileVersionLS)) + '.' +
                  IntToStr (LoWord(dwFileVersionLS));
             End;
          Finally
                 FreeMem(Pt);
          End;
     End;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Muestra el número de versión de esta apliación en la barra de títulos.
     Form1.Caption:= 'Club Delphi v' +  GetAppVersion;
     Application.Title:= Form1.Caption;
end;

http://es.wikipedia.org/wiki/Fases_d...lo_de_software
http://es.wikipedia.org/wiki/Software

[[Waldo]]

Ok, muchas gracias, lo curioso de todo es que nunca le he dado a build al propyecto no se ni pa que sirve, jejeje

[MAXIUM]

El build, se utiliza cuando tienes una versión a la cual no le haces ningún "cambio", sino más bien depuración.

Es decir, imagina que tienes una aplicación a la cual optimizas una parte del código. Esa parte del código optimizado, se llama build...

v1.2.4.524

El 1º dígito, representa la versión, si haces un programa mejor partiendo de cero, la versión pasa a 2.

El 2º dígito, es cuando a la versión actual se le hacen cambios o modificaciones mayores. A cada cambio mayor, le aumentas 1.

El 3º dígito, es cuando haces cambios menores.

El último dígito es el build, en este caso, se ha compilado y depurado 524 veces.

[jafera]

Buenas de nuevo.

Yo tambien estoy interesado en esta funcion, pero una vez coloco el codigo en el form que quiero que me lo muestre, me da este error

[Error] About.pas(35): Undeclared identifier: 'GetAppVersion'

Asi es como lo llamo y toda la funcion esta declarada en el oncreate del DataModul

Código Delphi [-]
 
F_AboutBox.Version.Caption:= 'Gestio de Rebuts versió' +  GetAppVersion;

Que me puede haber quedado en el tintero? Algo en uses?.

No le veo la salida

Gracias

Josep

[[Waldo]]

Empezado por MAXIUM

El build, se utiliza cuando tienes una versión a la cual no le haces ningún "cambio", sino más bien depuración.

Es decir, imagina que tienes una aplicación a la cual optimizas una parte del código. Esa parte del código optimizado, se llama build...

v1.2.4.524

El 1º dígito, representa la versión, si haces un programa mejor partiendo de cero, la versión pasa a 2.

El 2º dígito, es cuando a la versión actual se le hacen cambios o modificaciones mayores. A cada cambio mayor, le aumentas 1.

El 3º dígito, es cuando haces cambios menores.

El último dígito es el build, en este caso, se ha compilado y depurado 524 veces.

Gracias, mas que claro, aunque cambiar de version no creo, que weva empezar todo desde cero, creo que mi sistema no pasara del 1 jajaja gracias