Control de versiones

[[Waldo]]

jajajaj bueno bueno, eso es muy bueno e interesante. pero de momento no me quiero complicar tanto la vida con eso. lo unico que necesito es. como una especie de contador de ejecuciones


cuando copilo que genere una version y cuando lo haga de nuevo uno mas y asi susesivamente, havia pensado en usar un contador almacenado en el ini, pero ciertamente dodne esta el sistema no se actualiza ese ini cuando estoy en programacion ya que son carpetas independientes al de programa en funcion al programa de diseño.

[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.