sobe declaración de variables de objeto

[r1d2m3]

Hola amigos, estoy en un problema y necesito de vuestra colaboración y conocimiento. Tengo una aplicación del tipo mdi y a partir de un formulario, lanzo otro en el cual asigno una serie de valores a unas variables mediante unas propiedades, el problema que tengo es que una vez que ya lancé el segundo formulario, al cual ya le pasé determinado valor mediante una propiedad, al volver a llamar de nuevo al segundo formulario desde otro form, el valor que tenía en mi variable del primer objeto creado, se vuelve a cero, y necesito que se mantenga este valor mientras esté activo mi segundo form. a continuación, pego unos extractos de código a los efectos de explicar mejor el problema:

Código Delphi [-]
//segundo form o form convocado
...
  published
    property IDCarpeta:Integer write SetIDCarpe;
    property IDGestor:Integer write SetIDGestor;

//este es mi segundo form, el que será convocado desde otros forms
//mediante estas propiedades, asigno en las siguientes variables, los valores
//que le estoy pasando desde el primer form.

implementation

var
  varIdCarpeta:Integer;
  varIdGestor:Integer;

Código Delphi [-]
//primer form o form que llama al segundo form
procedure TfrmCarpetas.btnEditorClick(Sender: TObject);
var
  vform : TformEdTextos;

begin
    vform:=TformEdTextos.Create(Self);
    vform.IDCarpeta:=20;
    vform.Show;
end;

//este es el código que uso para lanzar el segundo form, observar la línea //vform.idcarpeta:=20, aquí le paso mediante una propiedad, un valor al
//segundo form que necesito se mantenga mientras esté activo dicho form.

En otros lenguajes, se pueden definir cuales son las variables del objeto, de manera tal que al crear varios objetos, los mismos mantienen sus valores de variables, creo que por aquí pasa mi problema y no se como se hace esto con delphi. ¿existe esta forma de asignar variables en delphi?, es decir que solo sean para los objetos creados a partir de una clase?.

Espero me puedan ayudar, saludos y gracias por la lectura.

[DarkMan]

Creo que te refieres a que cada objeto creado tenga su propia instancia de variables, es decir, encapsular dichas variables dentro del objeto.

La declaración de un objeto va desde "type Objeto = class(TObject)" hasta "end;", contando con varias palabras reservadas "Private, Protected, Public y Published" que determinan bloques en los cuales se encapsulan variables, procedimientos o funciones.

Para ser más concreto en la explicación te expongo un ejemplo partiendo del código que tú has proporcionado y de deducciones mías:

Código Delphi [-]
 Type TObjeto = Class();
   Private
     Procedure SetIDCarpe(Valor: Integer);
     Procedure SetIDGestor(Valor: Integer);
     {private declarations}
   Protected
     {protected declarations}
   Public
     {public declarations}
   Published
    property IDCarpeta:Integer write SetIDCarpe;
    property IDGestor:Integer write SetIDGestor;
     {published declarations}
 end;

Supuse que SetIDCarpe y SetIDGestor hacen referencia a dos procedimientos que se encargan de almacenar el valor asignado a IDCarpeta e IDGestor respectivamente. El error tuyo viene a que (supongo) estás asignando dichos valores a estas variables globales que declaras en la Unidad:

Código Delphi [-]
var
  varIdCarpeta:Integer;
  varIdGestor:Integer;

Son variables globales (de una sola instancia), por lo que si creas dos formularios y manipulas una propiedad en uno, el valor de esta variable no se guardará para cada clase (excepto que sólo crees un formulario) y será el mismo para todas las clases creadas.

La solución está en incorporar dichas variables dentro de uno de los bloques que designan las palabras reservadas del objeto, por ejemplo:

Código Delphi [-]
...
    Public
      varIdCarpeta:Integer;
      varIdGestor:Integer;
     {public declarations}
...

De esta forma, cada vez que crees un objeto, se crearán instancias de dichas variables asociadas al objeto sin interferirse entre las distintas instancias de los formularios.

Espero que lo hayas entendido, es un poco complejo de explicar así de golpe si desconoces completamente su funcionamiento.

Un saludo.

[r1d2m3]

Gracias DarkMan, era justo la aclaración que necesitaba.