[Sick boy]

Hola,

Al, muchas gracias por las molestias que te has tomado y las extensas respuestas (por cierto, mi nombre es Ricardo).

Utilizo sobre todo TMDOQuery, muchos de ellos los creo y libero en tiempo de ejecucion. Tambien utilizo TMDODataset, aunque muchos menos.

Si no entiendo mal, lo de una variable que se incremente seria algo como

Código Delphi [-]
function valor_contador_cursor:string;
begin
  // CODIGO BY Lepe
  miLong := (miLong  + 1 )
  if miLong > high(int64) -1 then
    miLong := low(int64);
  result:=inttostr(miLong);
end;

Ahora una pregunta tonta, ¿donde declaro la variable miLong? En el private de TMDOSQL??

Y le pasamos el valor al cursor:

Código Delphi [-]
FCursor := Name + valor_contador_cursor;

Dejo Name porque no me molesta, y se puede utilizar sabiendo que el name corresponde a QSelect.

Si tu componente es un TMDODataSet, sería ejecutar algo como:

Código Delphi [-]

MDODataSet1.QSelect.Name := CadenaUnica;

Pero si es un TMDOQuery o TMDOTable, tendrás que usar el clásico truco de molde de tipo (type cast) para acceder a la propiedad QSelect, ya que en estas dos clases la propiedad permanece en ámbito protegido (no está redeclarada en la sección Public como en TMDODataSet):

Código Delphi [-]

Type
TMDOQueryAccess = Class (TMDOQuery);
...
Begin
TMDOQueryAccess (MDOQuery1).QSelect.Name := CadenaUnica;

Obviamente, esta acción debe ocurrir antes de que el método Prepare del objeto QSelect (TMDOSQL.Prepare) haga referencia a esa propiedad Name para formar el nombre del cursor.

Es justo a lo que me referia, gracias, no lo he probado, pero con esto se podría pasar un prefijo al cursor.

La rutina que esta en el timer realiza una encriptacion o desencriptacion de un string.

Código Delphi [-]
//encriptar datos
function encriptar(aStr: String; aKey: Integer): String;
begin
   Result:='';
   RandSeed:=aKey;
   for aKey:=1 to Length(aStr) do
       Result:=Result+Chr(Byte(aStr[aKey]) xor random(256));
end;

//desencriptar datos
function desencriptar(aStr: String; aKey: Integer): String;
begin
   Result:='';
   RandSeed:=aKey;
   for aKey:=1 to Length(aStr) do
       Result:=Result+Chr(Byte(aStr[aKey]) xor random(256));
end;

aKey es la "clave" para obtener los resultados, asi que siempre es la misma, con lo que el generador de numeros aleatorios se reinicia siempre (por lo que he entendido) con la misma secuencia de numeros.

A riesgo de parecer paranoico, si despues de utilizar estas funciones ejecuto un por ejemplo RandSeed(entero_no_repetido), donde "entero_no_repetido" haga honor a su nombre y sea distinto en cada ocasion.

La verdad, creo que lo mejor puede ser la idea de que el cursor sea un "contador" y olvidarse para siempre del tema de los numeros aleatorios.
Tener un error aleatorio que se propaga por todos los procedimientos de tu programa es una pesadilla. Si os preocupais por vuestros clientes y vuestro codigo no se lo deseo a nadie.