Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   volver un TEdit.Text un valor? (https://www.clubdelphi.com/foros/showthread.php?t=62565)

Ðαяισš 02-01-2009 04:17:31

volver un TEdit.Text un valor?
 
Hola De nuevo...

ahora se me presenta este problema,

con el proyecto ya mencionado antes...

deseo ponerle un value que va en byte que provenga de un Edit.Text

aqui el code.

Código Delphi [-]
procedure TForm.Timer1Timer(Sender: TObject);
begin
    WriteByte($400001, $90);
end;

//pero el problema ocurre aqui!
//porque deseo que el value lo agarre de un TEdit que tendra su valor Hexadecimal en su ".text" 
//ejemplo:

procedure TForm.Timer1Timer(Sender: TObject);
begin
    WriteByte($400001, Edit1.Text);
end;

se supone que el Edit1.Text tendra un valor Hexadecimal En (byte > $21)

pero al hacer ello me suelta error.. hay alguna manera de que agarre el valor de un Edit1.Text sin errores?

Nota: Disculpen lo fastidioso que he sido... pero obviamente deseo aprender... y pues lo que se lo pongo en practica y lo que no lo aprendo... en tutoriales... y lo que no entiendo en tutoriales os pido el favor de ayudarme.. :)

Gracias, Saludos.

DarkMan 02-01-2009 05:03:34

Ya te vale. Te respondí la solución en un hilo anterior.
Código Delphi [-]
procedure TForm.Timer1Timer(Sender: TObject);
begin
    WriteByte($400001, StrToInt('$' + Edit1.Text));
end;

Ðαяισš 02-01-2009 05:06:17

Disculpas.
 
Cita:

Empezado por DarkMan (Mensaje 332880)
Ya te vale. Te respondí la solución en un hilo anterior.
Código Delphi [-]
procedure TForm.Timer1Timer(Sender: TObject);
begin
    WriteByte($400001, StrToInt('$' + Edit1.Text));
end;

Jaja.. perdona.. no me di cuenta.

De todas formas Gracias por recordarmelo ;)


La franja horaria es GMT +2. Ahora son las 07:40:00.

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