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

[beegl]

Добдень! A вот ещё, подскажите простенький алгоритм, как сохранять позицию TrackBar в реестре (мин. 1, макс. 5 - пятизвездочная репутация, как в плеерах) не используя sqlite3.dll. Есть 140 GIF-"клипов/треков" - камасутры, и для каждой GIF-"картинки/трека" задавать пятизвездочную репутацию, как в плеерах))

Модератор: Последнее китайское предупреждение!

пока так сохраняю и загружаю:

procedure TKamasutraForm.Loads;
var
   RegIniFile:TRegIniFile;
begin
 RegIniFile:=TRegIniFile.Create('Software');
 RegIniFile.OpenKey('Kamasutra Tools',true);
 RegIniFile.OpenKey('Kamasutra Tools-Open',true);
 begin
 RegIniFile.ReadInteger('KamasutraForm','StarProgressPositionZx',StarProgress.Position);
 RegIniFile.Free;
end;
end;

procedure TKamasutraForm.Saves;
var
   RegIniFile:TRegIniFile;
begin
 RegIniFile:=TRegIniFile.Create('Software');
 RegIniFile.OpenKey('Kamasutra Tools',true);
 RegIniFile.OpenKey('Kamasutra Tools-Open',true);
 begin
 RegIniFile.WriteInteger('KamasutraForm','StarProgressPositionZx',StarProgress.Position);
 RegIniFile.Free;
end;
end;

а так листаю GIF-картинки: .. до каждого имени файла как-то надо присвоить StarProgress.Position - (мин. 1, макс. 5 - пятизвездочная репутация, как в плеерах)

procedure TKamasutraForm.NavigationButton1Click(Sender: TObject);
begin
TrackBarGIF.Position := TrackBarGIF.Position + 1;
if TrackBarGIF.Position >= 139 then
TrackBarGIF.Position := 1;
if FileExists(ExtractFilePath(Application.ExeName) + 'IMG\SEX' + IntToStr(TrackBarGIF.Position) +'.GIF') then
begin
DisplayGIF.Image.LoadFromFile(ExtractFilePath(Application.ExeName) +'IMG\SEX' + IntToStr(TrackBarGIF.Position) +'.GIF');
end; end;

[Iron Monk]

А чо не видос запостил?

[beegl]

Сообщение от Iron Monk

А чо не видос запостил?

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

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

может пропустить через массив

procedure TKamasutraForm.CoutStarGIF;
type
    MyType = record
    StarGIF: string[139];
  end;
var
  i: byte;
  m: array of MyType;
begin
  for i := 0 to 138 do // нумерация элементов начинается с нуля!
  begin
    SetLength(m, Length(m) + 1); // увеличение длины массива на 1
    m[i].StarGIF := inttostr(i);
//    n!
  end;
  SetLength(m, 0); // освобождение памяти
end;

[beegl]

один трекбар на 140 а второй 5, надо для каждой позиции 140-го трекбара сохранять 5-ти трекбарную оценку.

+ имя файла, а как бы его объединить не громоздким кодом Label1.Caption с условием

т.е. if Label1.Caption = 'GIF' then StarProgress.Position := 4;

- где Label1.Caption - имя файла

 StarProgress.Position := RegIniFile.ReadInteger('KamasutraForm', 'StarProgressPositionZx' + GifName, StarProgress.Position);

Или есть лучший алгоритм?)

[beegl]

как бы его сохранять для 140 файлов? .. что, делать 140 if then?

if Label1.Caption = 'SEX1.GIF' then
StarProgress.Position := RegIniFile.ReadInteger('KamasutraFo rm', 'StarProgressPositionZx', StarProgress.Position);
N if then

[Человек_Борща]

Есть 140 GIF-"клипов/треков" - камасутры, и для каждой GIF-"картинки/трека" задавать пятизвездочную репутацию, как в плеерах))

Вам не нужно делать IF ы и прочую фигню. А вас есть имя файла/отностиельный путь к файлу и его оценка. Записываете эту информацию и все, предварительно организовав поиск "есть ли в файле уже инфа с оценкой этого трека, если есть, то обновлять запись, иначе создать новую".

Напримере того же INI:

var
 ini, i, j .....
 begin
  ini := TiniFile.Create('TracksRatio.ini');
  if not RecordExists(ini, 'ПУТЬ К ФАЙЛУ', j) then //Напишите её сами. в обекте INI перебирает все секции TrackInfo и сравнивает имя файла, если находит, возвращает TRUE, и в переменную J вставляет номер
  begin
  j := ini.readInteger('main','total',0) + 1;
  ini.writeInteger('main','total',j); //обновлем счетчик для новой записи
  end;
  ini.writeString('TrackInfo_'+IntToStr(j),'File','ПУТЬ К ФАЙЛУ');
  ini.writeInteger('TrackInfo_'+IntToStr(j),'Ratio',ОЦЕНКА ВВИДЕ ЧИСЛА);
  
end;

[beegl]

Сообщение от Человек_Борща

if not RecordExists(ini, 'ПУТЬ К ФАЙЛУ', j) then

подскажите, какой модуль подключить для RecordExists (D7)?

[vlad1389]

beegl Комментарий к строке прочти ещё раз. В особенности первые три слова.

[beegl]

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

beegl Комментарий к строке прочти ещё раз. В особенности первые три слова.

тогда напишите нормальный пример, я ничего там не понимаю

[beegl]

Привет. Что-то не получается, не сохраняет. В чем ошибка?

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

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