Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Convertir un valor a negativo (https://www.clubdelphi.com/foros/showthread.php?t=69935)

Delphitest 20-09-2010 16:29:47

Convertir un valor a negativo
 
Buenas tardes,

creo que voy a preguntar algo realmente básico, pero no se como hacerlo.

En un Edit espero que el usuario introduzca un valor que despues convierto con StrToInt para obtener un valor (ya que lo necesito para realizar una operacion aritmetica). Ese valor siempre es positivo.

Un vez tengo ese valor, lo meto en una variable llamada puntos

Puntos : = StrToInt(Edit1.text)

El caso es que necesito que ese valor vaya a parar a un campo de una tabla pero que siempre sea negativo, es decir que en el campo aparezca como -1 por ejemplo.

¿Existe alguna funcion que convierta el numero en negativo?

Muchas gracias por vuestra ayuda

Un saludo

ecfisa 20-09-2010 16:32:06

Hola.

Código Delphi [-]
   Puntos:= StrToInt(Edit1.Text) * -1;

Saludos.

liser 20-09-2010 16:32:26

Multiplicalo por -1

Puntos : = StrToInt(Edit1.text) *-1

roman 20-09-2010 16:35:53

También podemos sólo agregar el signo:

Código Delphi [-]
Puntos : = -StrToInt(Edit1.text);

// Saludos

coso 20-09-2010 18:26:03

hola,
Cita:

El caso es que necesito que ese valor vaya a parar a un campo de una tabla pero que siempre sea negativo
solo por puntualizar, si quieres que siempre sea negativo

Código Delphi [-]

num := -Abs(strtofloat(Edit1.text));

saludos

Delphitest 20-09-2010 22:08:04

Muchas Gracias por vuestra ayuda,

todas las soluciones me sirven.

La verdad es que ya había probado alguna de ellas pero tenía otro error al que no prestaba atención y al final de tantas vueltas que le daba me quedé en blanco.

Buenas noches


La franja horaria es GMT +2. Ahora son las 21:05:42.

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