Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   separar y comparar valores en un edit (https://www.clubdelphi.com/foros/showthread.php?t=57355)

jocey 12-06-2008 16:13:02

separar y comparar valores en un edit
 
hola a toda la familia del club, yo necesito entrar dos valores en un edit

ej: 98 - 100 , osea separados por el signo - , despues saber si un tercer valor X se encuentra entre 98 y 100, basandome en el ej, que puse....

por favor si no me hago entender me disculpan, me lo diden y lo arreglo.

saludos a todo Jocey

Caro 12-06-2008 16:32:47

Hola jocey, te pongo un ejemplo.

Código Delphi [-]
var
 num1, num2 : Integer;
 PosGuion, X : Integer;
begin
 X := 60 ;
 PosGuion := Pos('-', Edit1.Text);

 num1 := StrToInt(Trim(Copy(Edit1.Text, 1, PosGuion-1)));
 num2 := StrToInt(Trim(Copy(Edit1.Text, PosGuion+1, Length(Edit1.Text))));

 if (X>=num1) and (X<=num2) then
  showmessage('esta en medio');

Saluditos

jocey 12-06-2008 16:39:38

gracias caro
 
vi su ejemplo, muy bueno.... excelente.. muchas gracias, justo lo que necesitaba...

saludos


La franja horaria es GMT +2. Ahora son las 16:34:17.

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