Seguramente a muchos le ha pasado que al migrar una alicación VCL al nuevo framework FireMonkey de Delphi, se encontraron con que la siguiente línea de código no compila.
CurrentPath := ExtractFilePath(Application.ExeName);
Lo que pasa es que la propiedad ExeName para Application en el nuevo framework FireMonkey no existe.
Sin embargo, para solucionar este inconveniente debemos reemplazar Application.ExeName con ParamStr(0). Entonces la línea de código queda así:
CurrentPath := ExtractFilePath(ParamStr(0));
Nos vemos con el siguiente Tip.
No hay comentarios.:
Publicar un comentario