whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1548)

Database (90)
Files (137)
Forms (107)
Graphic (116)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Math (76)
Misc (127)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (268)
VCL (243)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

40 Visitors Online


 
...automatically save / load user settings?
Autor: Andreas Rumsch
Homepage: http://www.ardesign.ch
[ Print tip ]  

Tip Rating (6):  
     


private
  procedure 
SaveConfig(fn: string);
  procedure LoadConfig(fn: string);
end;

implementation

{....}

procedure TForm1.SaveConfig(fn: string);   // fn: Filename where to save the stream
{
 Saves all TWinControl-descendants of all Pages of a PageControl in a stream
 can easy be used to save userdefined Options
 Place a new control to the PageControl and it will be saved to the stream, without
 any additional codeline

 Speichert alle Abkömmlinge von TWinControl auf allen Seiten eines PageControls
 in ein File
 Erleichtert das Speichern von benutzerdefinierten Optionen
 Einfach ein neues Control auf das PageControl setzen und es wird ohne zusätzlichen
 Code gespeichert
}
    
var
      
Stream: TFileStream;
      i, j: Integer;
      ObjName: string[255];
    begin
      
Stream := TFileStream.Create(fn, fmCreate);
      try
        
Stream.Position := 0;
        // Walk throug every Control on every Page of a PageControl
        // Alle Controls auf allen Pages eines PageControls durchlaufen
        
for j := 0 to PageControl.PageCount - 1 do
        begin
          for 
i := 0 to PageControl.Pages[j].ControlCount - 1 do
          begin
            if 
PageControl.Pages[j].Controls[i] is TWinControl then
            begin
              
// If the control is a descendant of TWinControl, then save it in the
              // stream incl. name and length
              // Wenn das Control von TWinControl abstammt, dann mit Namen und Länge
              // in den Stream speichern
              
ObjName := PageControl.Pages[j].Controls[i].Name;
              Stream.WriteBuffer(ObjName, Length(ObjName) + 1);
              Stream.WriteComponent(PageControl.Pages[j].Controls[i]);
            end;
          end;
        end;
      finally
        
Stream.Free;
      end;
    end;

    procedure TForm1.LoadConfig(fn: string);  // fn: Filename from where to load the stream
      // Loads the controls back from the stream
      // Lädt aus dem gespeicherten Stream den Zustand der Controls zurück
    
var 
      
Stream: TFileStream;
      ObjName: string[255];
      ObjNameLen: Byte;
      i, j: Integer;
    begin
      
Stream := TFileStream.Create(fn, fmOpenRead or fmShareDenyNone);
      try
        
Stream.Position := 0;
        // walk through the stream
        // durch den ganzen Stream gehen
        
while Stream.Position do
        begin
          try
            
// get objectname
            // Objektname holen
            
Stream.Read(ObjName[0], 1);
            ObjNameLen := Byte(ObjName[0]);
            Stream.Read(ObjName[1], ObjNameLen);
          finally
          end
;
          // Search the control on the PageControl
          // Das Control auf dem PageControl suchen
          
for j := 0 to PageControl.PageCount - 1 do
          begin
            for 
i := 0 to PageControl.Pages[j].ControlCount - 1 do
            begin
              if 
PageControl.Pages[j].Controls[i] is TWinControl then
              begin
                if 
ObjName = PageControl.Pages[j].Controls[i].Name then
                begin
                  try
                    if 
PageControl.Pages[j].Controls[i] is TCheckbox then
                      
// TCheckbox has to be set to False
                      // TCheckbox muss zuerst auf False gesetzt werden
                      
(PageControl.Pages[j].Controls[i] as TCheckbox).Checked := False;
                    // load control
                    // Control laden
                    
Stream.ReadComponent(PageControl.Pages[j].Controls[i]);
                  finally
                  end
;
                end;
              end;
            end;
          end;
        end;
      finally
        
Stream.Free;
      end;
    end;


    { Save}
    
procedure TForm1.Button2Click(Sender: TObject);
    begin
      
SaveConfig('pagecontrol.dat');
    end;

    { Load}
    
procedure TForm1.Button1Click(Sender: TObject);
    begin
      
LoadConfig('pagecontrol.dat');
    end;


 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners