Einzelnen Beitrag anzeigen

Benutzerbild von Aurelius
Aurelius

Registriert seit: 29. Jan 2007
Ort: Erfurt
753 Beiträge
 
Delphi 7 Personal
 
#27

Re: Klasse für sehr große Ini-Dateien + Unicode gesucht

  Alt 17. Jun 2008, 08:13
Ich hab mir das mal runtergeladen und getestet, funktionieren tut das auch einwandfrei. Allerdings möchte ich das nicht nutzen wenn es eine illegale Kopie ist. Allerdings sehen die Kommentare für mich nicht so aus...

Delphi-Quellcode:
{*****************************************************************************}
{                                                                             }
{    Tnt Delphi Unicode Controls                                              }
{                                                                             }
{    Portions created by Wild Hunter are                                      }
{    Copyright (c) 2003 Wild Hunter (raguotis@freemail.lt)                    }
{                                                                             }
{    Portions created by Stanley Xu are                                       }
{    Copyright (c) 1999-2006 Stanley Xu                                       }
{      ([url]http://gosurfbrowser.com/?go=supportFeedback&ln=en[/url])                   }
{                                                                             }
{    Portions created by Borland Software Corporation are                     }
{    Copyright (c) 1995-2001 Borland Software Corporation                     }
{                                                                             }
{*****************************************************************************}


{*****************************************************************************}
{                                                                             }
{    Tnt Delphi Unicode Controls                                              }
{      [url]http://www.tntware.com/delphicontrols/unicode/[/url]                         }
{        Extended TTntMemIniFile  (compatible with all versions)              }
{                                                                             }
{    Copyright (c) 1999-2007 Stanley Xu                                       }
{      [url]http://getgosurf.com/?go=supportFeedback&ln=en[/url]                         }
{                                                                             }
{*****************************************************************************}

{*****************************************************************************}
{                                                                             }
{  BACKGROUND:                                                                }
{    TTntMemIniFile buffers all changes to the INI file in memory. To write   }
{    the data from memory back to the associated INI file, call the           }
{    UpdateFile() method. However, the whole content of this INI file will    }
{    be overwritten. Even those sections that are not used. This will make    }
{    troubles, if two instances try to change the same file at the same       }
{    time, without some method of managing access the instances may well end  }
{    up overwriting each other's work.                                        }
{                                                                             }
{  IDEA:                                                                      }
{    TTntMemIniFileEx implementes a simple idea: To check the timestamp       }
{    before each operation. If the file is modified, TTntMemIniFileEx will    }
{    reload the file to keep the content updated.                             }
{                                                                             }
{  CONCLUSION:                                                                }
{    #  TTntMemIniFileEx and TTntMemIniFile are ideal for read-only access.   }
{       For instance: To read localization files, etc.                        }
{    #  To perform mass WriteString() operations, please use the following    }
{       code.                                                                 }
{             BeginUpdate();                                                  }
{             try                                                             }
{               for I := 0 to 10000 do                                        }
{                 WriteString(...);                                           }
{             finally;                                                        }
{               EndUpdate();                                                  }
{               UpdateFile;                                                   }
{             end;                                                            }
{                                                                             }
{*****************************************************************************}
Jonas
  Mit Zitat antworten Zitat