Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   uso de macros (https://www.clubdelphi.com/foros/showthread.php?t=57866)

luis vazquez 30-06-2008 19:51:01

uso de macros
 
buenas tengo una pregunta. ¿algien podria decirme como ago para ejecutar en dephis el comando de clipper &? explico en clipper yo colocaba &variable y si dentro de la variable avia una suma o resta el me mostrava el resultado,

codigo clipper

valor:=5
suma:='2+valor'
@ 10,10 say &suma

en la pantalla en la linea 10 columna 10 me mostrava 7 osea el resultado,
como puedo hacer en delphis algo asi que me muestre el resultado de la operacion que tenga adentro una variable??
help ayuda auxilio POR FAVOR, de ante mano muchas gracias ya que siempre que he pedido ayuda la he conseguido, aqui se son ciertas las palabras de la Biblia que dicen "Pedid y se os dara" dijo el señor.

santus 30-06-2008 20:07:27

Lo muestras en donde quieras.

Supongamos que tienes un Label, entonces deberías hacer algo como esto:

Código Delphi [-]
procedure button1Click(Sender:TObjet)
var
  resultado: integer;
begin

  resultado := 1+5;

  label1.caption:= IntToStr(resultado);


end;

sino en un edit:

Código Delphi [-]
  edit1.text := IntToStr(resultado);

o como un simple mensajito en la pantalla:

Código Delphi [-]
  showmessage(IntToStr(resultado));

y así en todos los lugares que quieras.

Saludos.

luis vazquez 30-06-2008 20:40:08

creo que no me explique
 
la idea es que en una variable se guarde otras variables que a su ves tomaran valores en diferentes momentos y ella deveria ir cabiando sin probllemas.

el comando & en clipper permite ejecutar el valor que se encuentra dentro de la variable como si lo estubieras escribiendo directamente

ejemplo

n1:=1
a1:=5

// la variable total es de tipo caracter
total:='n1+a1'

al ejecutar el comando &total motrara la el resultado de la suma '6' , los valores de n1 y a1 los puedo tomar de archivos o de cualquier optro lugar no son numero fijos.

eduarcol 30-06-2008 21:14:56

Eso que dices creo que se llama MetaVariables, yo lo vi en FoxPro y la verdad no lo he hechado de menos en Delphi, si explicas que quieres hacer de pronto encontraremos alternativas para ti

JoseFco 30-06-2008 21:22:30

Hola amigos.

Código:


@ 10,10 say &suma

La ultima vez que mire algo asi fue dejame ver....mmm creo que en el año 1986.:D

luis vazquez 30-06-2008 21:23:47

explico mi problema otra ves
 
la idea es yo tengo un sistema de nomina en clipper las formulas de calculo de la niomina estan guardadas en un archivo, ya que algunas empresas cambian las formulas segun su conveniencia por esta rason no puedo tener los calculos fijos dentro del sistema, asi que por medio del comando & de clipper en un archivo guardo las formulas y el sistema las toma de alli `para ejecutarlas, una formula tiopo es asi = "xsueldo*15" donde xsueldo es el valor del sueldo del trabajador que esta calculando en ese momento el sistema, cada trabajdor tiene sueldo diferente, otra formula seria "xsueldo*((12/365)*0,004)*xlunes" donde XLUNES es la cantidad de lunes que tiene un mes, esto es para el calculo del seguro social que varia segun la cantidad de lunes que tiene el mes y recuerdo que XSUELDO es el valor que se toma del archivo de personal. si hay alguna forma de hacer esto en delphis agradeceria me lo indicaran, gracias

santus 30-06-2008 21:32:28

Cita:

Empezado por luis vazquez (Mensaje 297298)
la idea es que en una variable se guarde otras variables que a su ves tomaran valores en diferentes momentos y ella deveria ir cabiando sin probllemas.

el comando & en clipper permite ejecutar el valor que se encuentra dentro de la variable como si lo estubieras escribiendo directamente

ejemplo

n1:=1
a1:=5

// la variable total es de tipo caracter
total:='n1+a1'

al ejecutar el comando &total motrara la el resultado de la suma '6' , los valores de n1 y a1 los puedo tomar de archivos o de cualquier optro lugar no son numero fijos.

no entiendo lo de fox. Pero puedes hacer tambien sumas de cualquier tipo, desde cualquier valor, en donde n1 y a1 los puedes tomar en donde quieras:

Código Delphi [-]
var
  n1,a1:integer;
begin


  a1:=StrToInt(edit1.text);
  n1:=StrToInt(edit2.text);

  ShowMessage(IntToStr(a1+n1));

end;

Supongo que esto es lo que buscas. Sino como dice [eduarcol] necesitas explicar más que quieres hacer.

Muchos saludos, y espero haberte sido de ayuda!.

xEsk 30-06-2008 21:44:06

santus en el mensaje que hay justo delante del tuyo, explica mejor a lo que se refiere, :P Porqué, la verdad, el primer mensaje no me aclaró nada, pero este último si xD

Saludos.

xEsk 30-06-2008 21:47:36

A lo que el tema se refiere, de forma nativa no se puede realizar lo que buscas...

A lo mejor, con algún componente calculadora en la que puedas definir constantes propias, y te evalúe expresiones matemáticas, quizás puedas solucionarlo... :P

Aquí quizás puedas encontrar algo que te sea útil.


Saludos

eduarcol 30-06-2008 21:48:57

Aqui Roman nos dice que no se puede y porque.

Pero tambien te da soluciones.


La franja horaria es GMT +2. Ahora son las 21:39:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi