Freepascal: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Keine Bearbeitungszusammenfassung |
|||
| Zeile 17: | Zeile 17: | ||
<code> | <code> | ||
param | param | ||
MomentTimeout : ANFiXDate; | |||
c,i,r : integer; | |||
begin | begin | ||
// all zu alte Einträge löschen | // all zu alte Einträge löschen | ||
MomentTimeout := DatePlus(DateGet, -10); | MomentTimeout := DatePlus(DateGet, -10); | ||
| Zeile 35: | Zeile 35: | ||
Log('INFO: ' + 'gebe ' + inttostr(i) + | Log('INFO: ' + 'gebe ' + inttostr(i) + | ||
' Dateieinträge frei, da sie älter als 10 Tage sind'); | ' Dateieinträge frei, da sie älter als 10 Tage sind'); | ||
end; | end; | ||
<code> | <code> | ||
Version vom 28. Mai 2014, 10:46 Uhr
Freepascal oder fpc ist ein freier Pascal / Delphi(tm) Compiler. Der Entwicklungsstand kann mit Turbo Pascal(tm) 7.0 erweitert um aktuelle Delphi(tm) Sprachelemente verglichen werden. OrgaMon verwendet Freepascal für die Linux-Server-Seite des OrgaMon in den Projekten keepcon und domadd.
Installation
Für OpenSuse sollten ausschliesslich für diese Plattform compilierte Pakete verwendet werden. Das 64-Bit Paket von Sourceforge wird nicht laufen! Also besser hier:
https://build.opensuse.org/package/show?package=fpc&project=devel%3Alanguages%3Apascal
Installation 2
zypper ar http://download.opensuse.org/repositories/devel:/languages:/pascal/openSUSE_Factory/devel:languages:pascal.repo zypper install fpc
Spracherweiterungen
"param" anstelle von "var"
param
MomentTimeout : ANFiXDate;
c,i,r : integer;
begin
// all zu alte Einträge löschen
MomentTimeout := DatePlus(DateGet, -10);
i := 0;
c := colOf('MOMENT');
for r := RowCount downto 1 do
if (StrToIntDef(readCell(r, c), 0) < MomentTimeout) then
begin
del(r);
inc(i);
end;
if (i > 0) then
Log('INFO: ' + 'gebe ' + inttostr(i) +
' Dateieinträge frei, da sie älter als 10 Tage sind');
end;