FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Duda con condicion if then.......???
Saludos, estoy haciendo un pequeño control con tarjeta magnetica donde capturo un numero que viene en la tarjeta, desde un inicio asigno una imagen a un control timage,al pasar la tarjeta y hacer la comparacion de la numeracion con la que tengo en el if me despliega una imagen si es correcto el numero y despues quiero que se regrese a la imagen predefinida como de inicio, el detalle es que trato de usar un sleep() para detener un par de segundos en lo que me despliega la imagen y al finalizar tratar de montar de nuevo la imagen predefinida, pero no logro que haga esa accion ya que solo me despliega la imagen predefinida, se detiene los segundos indicados por el sleep() pero nunca miro la imagen que es validada, no se si me explique lo suficiente, alguien tiene alguna idea, este es el codigo:
procedure TForm2.Edit1Change(Sender: TObject); var a,b,c,d,e,f,g,h :string; begin if (length(edit1.Text)) > 23 then begin a:=edit1.text[1]; b:=edit1.text[2]; c:=edit1.text[3]; d:=edit1.text[4]; e:=edit1.text[5]; f:=edit1.text[6]; g:=edit1.text[7]; h:=edit1.text[8]; nombre:= b+c+d+e+f+g; if nombre='000800' then{condicion de prueba} begin image2.Picture.loadfromfile('C:\foto.bmp'); sleep(1500); image2.Picture.loadfromfile('C:\fotoinicial.bmp'); edit1.Text:=' '; end; end; end; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Condición en un InnoSetup | sargento elias | Varios | 0 | 14-11-2008 13:21:33 |
condición de query | Dantael | SQL | 3 | 06-06-2007 05:44:37 |
filtrado por condicion | aanil | OOP | 3 | 03-08-2006 19:13:22 |
condicion en un edit !! | romansiux | Varios | 5 | 10-04-2005 02:25:40 |
condicion IF | haffo | Varios | 11 | 06-11-2003 22:36:04 |
|