пятизвездочная репутация, как в плеерах

[Serge_Bliznykov]

скорее всего - сохраняет, но читать надо по другому!
Что такое TrackBarGIF.Position ?

[beegl]

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

скорее всего - сохраняет, но читать надо по другому!
Что такое TrackBarGIF.Position ?

139 GIF-картинок

[koljsch]

ini.ReadInteger('StarProgressDef', 'StarProgress1', StarProgress.Position);

Так третий же параметр принимает значение по умолчанию.
Нужно так:

StarProgress.Position:=ini.ReadInteger('StarProgressDef', 'StarProgress1', 1);

[beegl]

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

Нужно так:

StarProgress.Position:=ini.ReadInteger('StarProgressDef', 'StarProgress1', 1);

не сохраняет

//Load star
procedure TKamasutraForm.IntertelecomLoadStar;
begin
//IntertelecomLoad;
   ini := TiniFile.Create(ExtractFilePath(ParamStr(0)) + 'SaveStar.ini');
   if TrackBarGIF.Position = 1 then
   begin
   StarProgress.Position := ini.ReadInteger('StarProgressDef', 'StarProgress1', StarProgress.Position); end else
   if TrackBarGIF.Position = 2 then
   begin
   StarProgress.Position := ini.ReadInteger('StarProgressDef', 'StarProgress2', StarProgress.Position);
   if TrackBarGIF.Position = 3 then
   begin
   StarProgress.Position := ini.ReadInteger('StarProgressDef', 'StarProgress3', StarProgress.Position); end else
   if TrackBarGIF.Position = 4 then
   begin
   StarProgress.Position := ini.ReadInteger('StarProgressDef', 'StarProgress4', StarProgress.Position); end else
   if TrackBarGIF.Position = 5 then
   begin
   StarProgress.Position := ini.ReadInteger('StarProgressDef', 'StarProgress5', StarProgress.Position); end else
   if TrackBarGIF.Position = 6 then
   begin
   StarProgress.Position := ini.ReadInteger('StarProgressDef', 'StarProgress6', StarProgress.Position); end;
   ini.Destroy;
end; end;

[TaLadno]

beegl, ты хоть читай что тебе пишут. koljsch все правильно написал

Наверное придется на пальцах обьяснять:

procedure TForm1.Button1Click(Sender: TObject);
var Ini: TIniFile;
begin
  Ini := TIniFile.Create('Ini.ini');
  try
    Ini.WriteInteger('Section', 'Indent', TrackBar1.Position); // << Сохраняем, Карл! WriteInteger, Карл!
    {В секцию Section запишется поле Indent с значением TrackBar1.Position}
  finally
    ini.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Ini: TIniFile;
begin
  Ini := TIniFile.Create('Ini.ini');
  try
    TrackBar1.Position := Ini.ReadInteger('Section', 'Indent', TrackBar1.Min); // << Читаем, Карл! ReadInteger, Карл!
    {
    В поле TrackBar1.Position будет прочитано значение из секции Section поля Indent 
    ( если по какой либо причине прочитать не удастся - вернется дефолтное значение, 
     которое передано третим параметром, т.е. TrackBar1.Min)
    }
  finally
    ini.Free;
  end;
end;

[beegl]

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

Наверное придется объяснять:

если 2-й гиф выберу, как записать, так?

procedure TForm1.Button1Click(Sender: TObject);
var Ini: TIniFile;
begin
  Ini := TIniFile.Create('Ini.ini');
  try
    Ini.WriteInteger('Section', 'Indent', TrackBar1.Position); 
    Ini.WriteInteger('Section', 'Indent2', TrackBar1.Position);
  finally
    ini.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Ini: TIniFile;
begin
  Ini := TIniFile.Create('Ini.ini');
  try
    TrackBar1.Position := Ini.ReadInteger('Section', 'Indent', TrackBar1.Min);
    TrackBar1.Position := Ini.ReadInteger('Section', 'Indent2', TrackBar1.Min);
  finally
    ini.Free;
  end;
end;

[TaLadno]

А давай-ка ты щас прокомментируешь подробно каждую строку
бо есть ощущение, что ты не понимаешь, что пишешь

а потом будем разбирать, чего и как

[beegl]

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

ты не понимаешь, что пишешьк

procedure TForm1.Button1Click(Sender: TObject);
var Ini: TIniFile;
begin
  Ini := TIniFile.Create('Ini.ini');
  try
    Ini.WriteInteger('Section', 'Indent', TrackBar1.Position); // сохраняет настройки позиции трек-бара
    Ini.WriteInteger('Section', 'Indent2', TrackBar1.Position);// сохраняет настройки позиции трек-бара
  finally
    ini.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Ini: TIniFile;
begin
  Ini := TIniFile.Create('Ini.ini');
  try
    TrackBar1.Position := Ini.ReadInteger('Section', 'Indent', TrackBar1.Min);// загружает настройки позиции трек-бара
    TrackBar1.Position := Ini.ReadInteger('Section', 'Indent2', TrackBar1.Min);// загружает настройки позиции трек-бара
  finally
    ini.Free;
  end;
end;

[koljsch]

TrackBar1.Position := Ini.ReadInteger('Section', 'Indent', TrackBar1.Min);// загружает настройки позиции трек-бара
TrackBar1.Position := Ini.ReadInteger('Section', 'Indent2', TrackBar1.Min);// загружает настройки позиции трек-бара

Зачем два раза подгружать данные в TrackBar1.Position?
И что не работает после этого кода?

[beegl]

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

обзор приложения, в описании ссылка на скачивание:

обзор программы на ютуб

ничеси!!! более 7 тыс. просмотров!!!!

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

Зачем два раза подгружать данные в TrackBar1.Position?
И что не работает после этого кода?

не сохраняет, если есть св. время, посмотрите код