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

[glGizma]

Где код спёр?

[dani92]

половину с головы половину с нэта)))

[dani92]

Сообщение от 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-шника один х..н не увидеть)

объясню по подробнее что мне нужно
1. пользователь сохраняет список будильников(иак их будем называть), сохраняет через save dialog
2. У будильников(строки в ListBox) есть настройки(время, путь к сигналу и т.д) которые сохраняются в ini файлах при закрытии программы
3. Нужно сохранить список будильников в другой файл(можно не ини) и при этом сохранить параметры будильника(время дату сигнал)

[glGizma]

Ты изначально изложил понятливо свою просьбу, повторяцо необязательно...

[dani92]

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

Ты изначально изложил понятливо свою просьбу, повторяцо необязательно...

ок, мне не понятно как сохранить эти параметры может путь к ини указать и потом его загружать при загрузки программы??

[glGizma]

нене, погоди.. я пишу, просто щас уеду в соседний город и там буду дописывать, я уже фак.написал

[dani92]

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

нене, погоди.. я пишу, просто щас уеду в соседний город и там буду дописывать, я уже фак.написал

ок спс, жду)

[glGizma]

Готова. Там уже под себя подредактируешь, твой код не стал трогать.

const
  AppName = 'glGizma';

var
  ini: Tinifile;
  savelist : String;
  ListItem : TListItem;

procedure LoadList;
var  List : TStringList;
     S : String;
     i:integer;
begin
     savelist := ExtractFilePath(Application.ExeName) + 'name.txt';
     if FileExists(savelist) then
          begin
          List := TStringList.Create;
          List.LoadFromFile(savelist);
          ListView1.Clear;
          for i := 0 to List.Count-1 do
               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];
                    SubItems.Delete(0);
                    end;
               end;
          List.Free;
          end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Caption := AppName;
  LoadList;
end;

procedure TForm1.Button1Click(Sender: TObject);
var S:TStringList;
    i:integer;
begin
  ListItem := form1.ListView1.Items.Add;
  ListItem.Caption := '';
  ListItem.SubItems.Add(LabeledEdit1.text);
  ListItem.SubItems.Add('nil');
  ListItem.SubItems.Add(LabeledEdit2.text);
  ListItem.SubItems.Add(LabeledEdit3.text);
  ListItem.SubItems.Add(LabeledEdit4.text);
  ListItem.SubItems.Add('nil');
  ListItem.SubItems.Add('nil');
     savelist:=ExtractFilePath(Application.ExeName)+'name.txt';
     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;
     Panel1.Visible := FALSE;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  LabeledEdit2.text:='';
  LabeledEdit2.text:=FormatDateTime('HH:NN:SS',now);
  Panel1.Visible := TRUE;
end;

procedure TForm1.N3Click(Sender: TObject);
var
  S:TStringList;
  i:integer;
begin
  if MessageBox(0,
  'Подтверждение текущего действия...'+#13#13+
  'ДА = удалить текущею запись!'+#13+
  'НЕТ = ошибочное действие!!!',
  Appname, +mb_YesNo +MB_ICONINFORMATION) = 6
  then ListView1.Items.Delete(ListView1.ItemIndex);

     savelist:=ExtractFilePath(Application.ExeName)+'name.txt';
     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;
end;

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If ListView1.Selected <> Nil then
   begin
    Label7.Caption := ListView1.Selected.SubItems[0];
    Label7.Hint    := ListView1.Selected.SubItems[0];
    Label8.Caption := ListView1.Selected.SubItems[1];
    Label8.Hint    := ListView1.Selected.SubItems[1];
    Label9.Caption := ListView1.Selected.SubItems[2];
    Label9.Hint    := ListView1.Selected.SubItems[2];
    Label10.Caption:= ListView1.Selected.SubItems[3];
    Label10.Hint   := ListView1.Selected.SubItems[3];
    Label11.Caption:= ListView1.Selected.SubItems[4];
    Label11.Hint   := ListView1.Selected.SubItems[4];
   end
  else
  //MessageBox(Handle,'Ни чего не выбрано!!!',AppName,MB_OK or MB_ICONASTERISK);
end;

end.

Исходник:

http://glGizma.narod.ru/download/seveini.rar

[glGizma]

Сделай ещё вот так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  N3.Enabled := FALSE;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  N3.Enabled  :=  (ListView1.ItemIndex > -1);
end;

[dani92]

всем спасибо, разобрался