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 17: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 17:32:06

Hola.

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

Saludos.

liser 20-09-2010 17:32:26

Multiplicalo por -1

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

roman 20-09-2010 17:35:53

También podemos sólo agregar el signo:

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

// Saludos

coso 20-09-2010 19: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 23: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 20:56:09.

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