Guardar la ruta...
Publicado por Martin (33 intervenciones) el 10/12/2004 17:36:22
Buenos dias a todos, y muchas gracias por la ayuda que nos brindan a los nuevos en delphi como yo... leyendo las dudas contestadas pude realizar mi primer configuracion desde un archivo.Ini con exito... solo que exigiendole un poquito mas al .Ini, deseaba guardar en el la ruta de una imagen para poderla configurar desde afuera... no se si me explico, pero aqui les muestro el código que no mke funciono ( tampoco el del estilo de letra por la incopatibilidad de tipos de dato...
Gracias de antemano ...
var
Config: TIniFile;
begin
Config.WriteString ('Estilo de Letra', 'Etiqueta', Label1.Font.Style);
Config.WriteString ('Imagen', 'Ruta', Image1.Picture.GetNamePath);
Config.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Config: TIniFile;
begin
Label1.Font.Style:= Config.ReadString ('Estilo de Letra', 'Etiqueta', 'fsBold');
Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Configuracion.ini'):= Config.ReadString ('Imagen', 'Ruta', 'c:\Imagen\Imagen.jpg');
Config.Free;
end;
end.
Gracias de antemano ...
var
Config: TIniFile;
begin
Config.WriteString ('Estilo de Letra', 'Etiqueta', Label1.Font.Style);
Config.WriteString ('Imagen', 'Ruta', Image1.Picture.GetNamePath);
Config.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Config: TIniFile;
begin
Label1.Font.Style:= Config.ReadString ('Estilo de Letra', 'Etiqueta', 'fsBold');
Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Configuracion.ini'):= Config.ReadString ('Imagen', 'Ruta', 'c:\Imagen\Imagen.jpg');
Config.Free;
end;
end.
Valora esta pregunta


0