Сохранение списка Listbox в ini

[dani92]

Здравствуйте, эксперты!
Дело вот в чем: есть список будильников, которые имеют параметры, сохраняющиеся в ини файле. Нужно сохранить этот список в файл, сохраняя при этом настройки каждого будильника
Принимаются любые предложения

[glGizma]

Скинть хоть будильник.

[Mad_Cat]

uses ...inifiles;
//..................
var
  Ini: Tinifile;
begin
 
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
  Ini.Writestring('Будильник1','название параметра',значение);
 //.....................
Ini.Writestring('Будильник2','название параметра',значение);
//.........{и т.д.}
  Ini.Free;
end;

[glGizma]

Вот готовы пример:

var  List : TStringList; // load
     S : String;
     i:integer;
     Checked : Boolean;
begin
     savelist := ExtractFilePath(Application.ExeName) + 'DateTimeCloK.ini';
     if FileExists(savelist) then
          begin
          List := TStringList.Create;
          List.LoadFromFile(savelist); // First load the file
          ListView1.Clear; // Clear the view
          for i := 0 to List.Count-1 do // Add all loaded items to the list
               begin
               S := List[i];
               with ListView1.Items.Add do
                    begin
                    if (length(S) > 0) and (S[1] in ['0','1']) then
                         begin
                         Checked := (S[1] = '1');
                         S := copy(S,2,length(S));
                         end;
                    SubItems.CommaText := S;
                    Caption := SubItems[0]; // Set the caption to the first subitem
                    SubItems.Delete(0); // Remove the caption
                    end;
               end;
          List.Free;
          end;

var
  S:TStringList; // save
  i:integer;
begin
     savelist:=ExtractFilePath(Application.ExeName)+'DateTimeCloK.ini';
     S := TStringList.Create;
     for i := 0 to ListView1.Items.Count-1 do
          begin
          S.Add(IfThen(ListView1.Items[i].Checked,'1','0') + '"' +
               ListView1.Items[i].Caption +'",' +
               ListView1.Items[i].SubItems.CommaText)
          end;
     S.SaveToFile(savelist);
     S.Free;

Не()много поправишь и норм...

[Mad_Cat]

glGizma а вы уверены что ini-шник (в его общем понимании) получится в результате вашего кода

[glGizma]

Вообще-то Я знаю!!!

Кидай код будильника, всё напишим...

[dani92]

код настройки и код главного окна

[glGizma]

Ты чё думаешь, у тя апупенский исходник будильника??? Я могу тебе свой кинуть, но ты же, хочешь свой, а я смогу помочь его подлатать, ну судя по твоему раскладу, ты хочешь его сам собрать. Вопрос: зачем обращаешься за помощью?? Хочешь авторские права захапать, валяй, мне лично не нужен будильник. Игрушка на первое время, потом ты про него забудешь!

[Mad_Cat]

var
  S:TStringList; // save
  i:integer;
begin
     savelist:=ExtractFilePath(Application.ExeName)+'DateTimeCloK.ini';
     S := TStringList.Create;
     for i := 0 to ListView1.Items.Count-1 do
          begin
          S.Add(IfThen(ListView1.Items[i].Checked,'1','0') + '"' +
               ListView1.Items[i].Caption +'",' +
               ListView1.Items[i].SubItems.CommaText)
          end;
     S.SaveToFile(savelist);
     S.Free;

весь этот код заменяется 2-мя строками

savelist:=ExtractFilePath(Application.ExeName)+'DateTimeCloK.ini';
listbox1.Items.SaveToFile(savefile);

но нормального ini-шника один х..н не увидеть)

[dani92]

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

Ты чё думаешь, у тя апупенский исходник будильника??? Я могу тебе свой кинуть, но ты же, хочешь свой, а я смогу помочь его подлатать, ну судя по твоему раскладу, ты хочешь его сам собрать. Вопрос: зачем обращаешься за помощью?? Хочешь авторские права захапать, валяй, мне лично не нужен будильник. Игрушка на первое время, потом ты про него забудешь!

братан поверь я о нем не забуду, он не будет использоваться как будильник, у программы другое предназначение, авторство тут ни причем, я тебе кинул кода 2 форм, как ты и просил