¡Hola a todos!
Ohcan:
Espero que te haya funcionado la importante observación que hizo Hector.
Por otra parte, después de examinar el código fuente detecté dos bloques que pueden simplificarse:
En lugar de:
Código:
Foto := TPicture.Create;
Foto.LoadFromFile (Ruta);
Imagen.Picture := Foto;
Foto.Free;
creo que puedes poner simplemente:
Código:
Imagen.Picture.LoadFromFile (Ruta);
Y en lugar de:
Código:
if (UpperCase(ExtractFileExt(Ruta))='.GIF') or
(UpperCase(ExtractFileExt(Ruta))='.BMP') or
(UpperCase(ExtractFileExt(Ruta))='.JPG')then
podría sugerir el uso de la función
ghEnCadenas (unidad IGHCadenas.pas de
Interfaz GH 7) de la siguiente manera:
Código:
If ghEnCadenas (['.GIF', '.BMP', '.JPG'], ExtractFileExt (Ruta)) Then
La función ghEnCadenas devuelve True si la cadena indicada se encuentra dentro (
en) del arreglo dado, con la ventaja de que la comparación es insensible al tamañao (no importa si la extensión del archivo está en mayúsculas o en minúsculas).
Espero esto sea de utilidad, seguimos en contacto.
Al González
.