Modificar variables de una aplicación desde una DLL

[[basti]]

No dices que tipo de variable es, dependiendo del tipo se haría de una manera u otra, es distinto si es un integer, un string o un objeto.

[Albano]

Entonces es posible?
Son de tipo integer las dos...

[[seoane]]

¿Como estas pasando el parámetro? por valor o por referencia. Si lo estas haciendo por referencia no debería de haber ningún problema.

Tu función debería ser algo así:

Código Delphi [-]
function Tufuncion(var parametro1: integer; var parametro2: integer): integer;

[Albano]

Aqui esta el código, asi lo tengo en mi DLL...

Código Delphi [-]
//Esta función recibe la tecla presionada y el texto escrito en un edit y verifica
//que lo que se esta tratando de escribir sea valido para un valor numerico con
//dos decimales
Function EditNumerico(Cadena: string; Tecla: char; Punto: boolean; decimales: integer): boolean; stdcall;
begin
  if (length(cadena) = 0) and (tecla = #8) then result := false
  else
  begin
    if not (tecla in ['0'..'9', '.', #8]) then result := false
    else
    begin
      if (tecla = '.') and (punto = true) then result := false
      else
      begin
        if not(tecla = #8) and (decimales = 2) then result := false
        else
        begin
          result := true;
          if (tecla = #8) and (cadena[length(cadena)] = '.') then punto := false;
          if (tecla = #8) and (decimales > 0) then dec(decimales);
        end;
      end;
    end;
  end;
end;

Me marca lo siguiente:

[Hint] cadenas.dpr(258): H2077 Value assigned to 'decimales' never used
[Hint] cadenas.dpr(257): H2077 Value assigned to 'Punto' never used

[roman]

Y, ¿cuáles son los valores que quieres modificar? No veo ningún var, como te indicó seoane. Y esos hints no creo que se deban al código que aquí pones puesto que no se ve ninguna asignación a esas variables.

// Saludos

[Albano]

Código Delphi [-]
          if (tecla = #8) and (cadena[length(cadena)] = '.') then punto := false;
          if (tecla = #8) and (decimales > 0) then dec(decimales);

Ahi estan las asignaciones.
Entonces
1.- ¿al ponerle var ya es como utilizar las variables que tengo en mi aplicación?
2.- ¿en ese momento ya se modifican tambien las variables en la aplicacion no solo en la DLL?

Ah, una variable es boolean y la otra integer, como podrán ver .

[roman]

Empezado por Albano

Ahi estan las asignaciones

Ya, ya. Se ve que de compilador me muero de hambre

Pues sí, al no haber var, lo que asignas a esas variables se queda en el procedimiento y no se usa para nada, de ahí el hint.

Cuando usas var en el parámetro, el valor que le asignes dentro del procedimiento, se preserva al término de este. Entonces, al usar

Código Delphi [-]
EditNumerico(Cadena, Tecla, Punto, decimales);

Siendo Cadena y Punto las variables globales declaradas en tu aplicación, el valor debe reflejarse, siempre y cuando uses var.

// Saludos