[UPDATE] DBReminder

23/11/2008 - 17:05 von Dietmar Vollmeier | Report spam
Servus allerseits!

Habe dem Include *DBReminer* einem Facelifting unterzogen und auch den
Code ein wenig geàndert.

Hauptànderungen waren:

* Im File "DBReminderFile" wird nur mehr das Datum der letzten
_empfohlenen_ Komprimierung gespeichert. Ausgehend davon, wird nach
dem einstellbaren Zeitintervall wieder eine Komprimierung
vorgeschlagen - also genau wie bisher.

* Die Pfadangabe zum "DBReminderFile" entfàllt.

Änderung in *OnStartup*
Der Name der Include hat sich geàndert auf "{$I _include_DBReminder}",
alles weitere ist gleich geblieben.

Download hier: http://4d.vollmeier.at/downloads/_include_DBReminder.zip

@ Raady: ZIP-Datei kannst du wieder genau so online stellen


Und hier noch der Quellcode des Includes

8<--[ _include_DBReminder.ds ]>8
{*******************************************************************************
* DBReminder 3.0.0 *
* OnStartup *
********************************************************************************

Autoren: Matija Krnic, Lars Biskupek, Alexander Sailer, Hermann Hippen,
Dietmar Vollmeier
Datum : 23.11.2008

Es wird beim öffnen von 40tude Dialog überprüft, wann die Datenbank das letzte
mal komprimiert worden ist und ob eine komprimierung erneut ansteht.
Der Zeitintervall ist frei wàhlbar und kann auch deaktiviert werden.
*******************************************************************************}

Function DBReminder : Boolean;

Var DBReminderDays : Integer;
DBReminderFile : String;
PDat : TStringList;

Begin
{}
{ Anwenderspezifische Einstellungen }
{}
// Nach wie vielen Tage möchtest du die Datenbank komprimieren lassen?
// 0 Deaktiviert die Funktion.
DBReminderDays := 7;
// Name des DBReminderFiles
DBReminderFile := 'dbreminder.dat';
{}
{ Ende der Einstellungen }
{}

{+-+}
{ + !!! Bitte ab hier nichts mehr àndern !!! + }
{ ++ }

If DBReminderDays = 0 Then Exit;

PDat := TStringList.Create;
Result := False;

With PDat Do
Begin
If FileExists(DBReminderFile) Then
LoadFromFile(DBReminderFile)
Else
Begin
Add(DateToStr(Date));
SaveToFile(DBReminderFile);
Exit;
End;
If (StrToDate(Strings[0]) <= Date - DBReminderDays) Then
Begin
Clear;
Add(DateToStr(Date));
SaveToFile(DBReminderFile);
Result := True;
End;
End;
PDat.Free;
End;
8<->8

und tschüss,
Didi
A: Weil es die Lesbarkeit des Textes verschlechtert.
F: Was ist an TOFU so schlimm?
A: TOFU
F: Was ist das größte Ärgernis im Usenet?
 

Lesen sie die antworten

#1 Hermann Hippen
23/11/2008 - 17:42 | Warnen spam
Hallo Dietmar,

Dietmar Vollmeier schrieb in d.c.s.4-d:


* Die Pfadangabe zum "DBReminderFile" entfàllt.



Eine Info zu relativen Pfadangaben solltest du vielleicht noch lesen:
http://4ds.siteboard.eu/f4t22-neu-basis-modul-include-23112008.html

unter 2.)

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø

Ähnliche fragen