Mi programa no responde mientras trabaja
Hola:
Puse una sección de código que está entre un "repeat" y un "until". Cuando se ejecuta funciona bien pero el programa no responde durante este lapso y la ventana se desdibuja si la muevo, cuando termina de ejecutarse ese código sigue funcionando normalmente. (uso Win98)
¿Como evito eso?
¿Serviría poner esa parte de código un otro unit ?
Saludos
-------------Codigo (por si les sirve verlo)---------------
Repeat
// suma 1 al offset de inicio
intNumeroArchivo:= (intNumeroArchivo) + 1;
strNumeroArchivoTmp:= IntToStr(intNumeroArchivo);
// agrega ceros segun el largo de la cadena para formar el nombre de archivo
if Length(strNumeroArchivoTmp)= 1 then
strNumeroArchivo:= '000000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 2 then
strNumeroArchivo:= '000000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 3 then
strNumeroArchivo:= '0000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 4 then
strNumeroArchivo:= '000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 5 then
strNumeroArchivo:= '00' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 6 then
strNumeroArchivo:= '0' + strNumeroArchivoTmp;
// terminamos de armar el nombre del archivo destino
strArchivoDestino:= (EdtFileNameDestino.Text) + (strNumeroArchivo) + '.exe';
copyfile(Pchar (EdtFileNameOrigen.Text), PChar (strArchivoDestino), true);
AssignFile(archivo,(strArchivoDestino));
Reset(archivo);
Seek(Archivo,(intNumeroArchivo));
Write(Archivo,bytcero);
CloseFile(Archivo);
until
intNumeroArchivo = intNumeroFinal;
|