Delphi - Сохранить путь до картинки в Ini файл

[Максим_83]

Помогите допетрить мне как можно сохранить путь выбранной картинки в Ini файл для последующей загрузки её при запуске программы.

на форме есть popupmenu для загрузки картинки из вне

procedure TForm6.N1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('img\1.jpg');
end;

procedure TForm6.N2Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('img\2.jpg');
end;

procedure TForm6.N3Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('img\3.jpg');
end;

что позволяет мне сменить картинку на Image1 и других.
Так же в коде уже имеется код для сохранения координат Image1...50 в Ini файл.
Остаётся прописать грубо говоря одну строку для записи пути к выбранной мною картинки.
Застрял вот на этом куске кода

ini.WriteString('picture','image1',ExtractFilePath(ParamStr(0))+'путь к выбранной картинке');

[denisbrain]

Сообщение от Максим_83

Помогите допетрить мне как можно сохранить путь выбранной картинки в Ini файл для последующей загрузки её при запуске программы.

на форме есть popupmenu для загрузки картинки из вне

procedure TForm6.N1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('img\1.jpg');
end;

procedure TForm6.N2Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('img\2.jpg');
end;

procedure TForm6.N3Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('img\3.jpg');
end;

что позволяет мне сменить картинку на Image1 и других.
Так же в коде уже имеется код для сохранения координат Image1...50 в Ini файл.
Остаётся прописать грубо говоря одну строку для записи пути к выбранной мною картинки.
Застрял вот на этом куске кода

ini.WriteString('picture','image1',ExtractFilePath(ParamStr(0))+'путь к выбранной картинке');

я бы не парился с INI а написал бы что то вроде


пример двух функций для сохранения настроек в файл

Function SaveToFile(filename:string):integer;
var s:string;
    f:Textfile;
    begin
    with form1 do begin
    rewrite(f,filename);
    writeln(f,'base='+edit1.text);
    writeln(f,'login='+edit2.text);
    writeln(f,'pw='+edit3.text);
    closefile(f);
    end;
   end;

   Procedure LoadFromFileSetting(Filename:string);
   var f:TextFile;
       s:string;
       Fbody:TstringList;
   begin
    if FileExists(Filename) then begin
       Fbody:=TstringList.Create;
       Fbody.LoadFromFile(filename);
       with form1 do begin
        edit1.text:=Fbody.Values['base'];
        edit2.text:=Fbody.Values['login'];
        edit3.text:=Fbody.Values['pw'];
       end;
       Fbody.free;
// проверяем возможность подключения к БД 
       TestBase(form1.Edit1.Text,form1.Edit2.Text,form1.Edit3.Text);
    end;
  end;

[astecenko]

ini.WriteString('picture','image1','путь к выбранной картинке');

Возможно лучше оформить сохранение в ini и замену картинки одной процедуркой, что-нидь типа:

Procedure TForm6.ImgLoad (const ImgFileName:string);
begin
Image1.Picture.LoadFromFile(ImgFileName);
ini.WriteString('picture','image1',ImgFileName);
end;

Если ini используете только для загрузки и сохранения настроек при старте, завершении программы то возможно лучше использовать для неё тип TMemIniFie, только не забывайте делать UpdateFile при завершении программы.

[Максим_83]

Сообщение от astecenko

ini.WriteString('picture','image1','путь к выбранной картинке');

Возможно лучше оформить сохранение в ini и замену картинки одной процедуркой, что-нидь типа:

Procedure TForm6.ImgLoad (const ImgFileName:string);
begin
Image1.Picture.LoadFromFile(ImgFileName);
ini.WriteString('picture','image1',ImgFileName);
end;

Если ini используете только для загрузки и сохранения настроек при старте, завершении программы то возможно лучше использовать для неё тип TMemIniFie, только не забывайте делать UpdateFile при завершении программы.

Спасибо за направление на верную мыслю. Но обработал вот так

procedure TForm6.N53Click(Sender: TObject);
var
  ini: TIniFile;
  img: string;
begin
  img:='res\mnogo.jpg';
Image1.Picture.LoadFromFile(img);
Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'\beehive.ini');
ini.WriteString('picture','img',ExtractFilePath(ParamStr(0))+img);
ini.free;
end;

осталось разобраться в том как выдрать эту запись из Ini и при загрузке менялась картинка на нужную.

[[DisAssembleR]]

Легко. Только надо переменную img переместить в раздел глобальных.
Затем пишем такой код в onCreate у формы:

Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'\beehive.ini');
img := Ini.ReadString('picture','img',img);
Ini.free;