Fórum CehckListBox #378874

unit uMemoryItemCheckListBox;
interface
uses
 Forms,CheckLst,SysUtils,Classes;
Type
   ICheckBoxAux = Interface
   procedure ExecuteLoad();
   procedure ExecuteSave();
 End;

Type
 TCheckBoxAux = class(TInterfacedObject,ICheckBoxAux)
 private
   FCheckListBox:TCheckListBox;
   FLista:TStrings;
   FArq:String;
 public
   constructor create(cklb:TCheckListBox);reintroduce;
   Destructor Destroy;override;
   procedure ExecuteLoad();
   procedure ExecuteSave();
end;
 

implementation
uses
dialogs;
constructor TCheckBoxAux.create(cklb:TCheckListBox);
var
  I: Integer;
begin
 FCheckListBox:=cklb;
 FCheckListBox.Columns:=cklb.Items.Count;
 FLista:=TStringList.Create;
 FArq:=ExtractFilePath(application.ExeName)+'Estado.txt';
end;
destructor TCheckBoxAux.Destroy;
begin
  FLista.SaveToFile(FArq);
  Flista.free;
  inherited;
end;

procedure TCheckBoxAux.ExecuteLoad;
var
i:integer;
begin
 if FileExists(FArq) then
   begin
     Flista.LoadFromFile(FArq);
     for I := 0 to Flista.Count - 1 do
       try
          FCheckListBox.Checked[I]:=StrToBool(Flista.Strings[i]);
       except
           FCheckListBox.Checked[I]:=false;
       end;
   end;
end;
procedure TCheckBoxAux.ExecuteSave;
var
  I: Integer;
begin
  for I := 0 to  FCheckListBox.Items.Count  -1 DO
     try
        FLista.Strings[i]:=booltoStr(FCheckListBox.Checked[I]);
    except
         FLista.Add(booltoStr(FCheckListBox.Checked[I]));
     end;
end;
end.
 

    
procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    MyCheckBoxAux:ICheckBoxAux;

procedure TForm3.FormCreate(Sender: TObject);
begin
MyCheckBoxAux:=TCheckBoxAux.create(CheckListBox1);
MyCheckBoxAux.ExecuteLoad; //carregando as alteraçoes
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MyCheckBoxAux.ExecuteSave; //persistindo as alterações ....
end;