Cita:
Empezado por mrmanuel
La manera de hacerlo es la sigueinte:
..Logo:= Sacar_Logo_Fich_Ini;
..If logo <> '' then
.....Try
........Logo:= Ruta + '\' + Logo;
........Logo.Picture.LoadFromFole (Logo); //Justamente aqui, falla.
....Except
........Logo.Free;
...End;
..End;
Nota: Pongo los puntos para q sea mas legible el codigo.
Gracias
|
Viendo tu código, noto que usas Logo como si fuera un string pero al mismo tiempo como si fuera la variable tipo TImage. No se si sea así como en realidad lo estas usando o solo fue para ejemplificar, por lo pronto te pongo este ejemplo:
Código Delphi
[-]
var
Logo: TImage; LogoFileName: string;
begin
Logo := TImage.Create;
try
LogoFileName := GetFileNameFromIni;
if LogoFileName <> '' then
begin
Logo.Picture.LoadFromFile(LogoFileName);
QRLogo.Picture.Assign(Logo.Picture)
end
finally
Logo.Free
end
end;
Sobre formatear tu código, puedes usar las etiquetas
[ delphi ] [ /delphi ] (sin espacio entre los corchetes) y verás que no necesitas rellenar con puntos para identarlo. Para muestra, el código que te puse de ejemplo.
Saludos...