Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
| procedure TForm1.FormCreate(Sender: TObject); var t,s:string; begin memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'db\check.txt'); //laad txt naar memo if memo1.Lines.Count > 0 then begin //is ie nie leeg? s:=memo1.Lines.Strings[1]; t :=copy(s,pos('datum=',s)+length('datum='),length('18-12-2002')); //copieer de datum delete(t,pos(' ',t),1); //haal spaties weg if (strtodate(formatdatetime('DD-MM-YYYY',now-40))) <= (strtodate(t)) then begin showmessage('a'); end; end; end; |
dat txt bestandje heeft de volgende inhoud:
code:
1
2
| id=1 datum=18-12-2002 id=2 datum=09-12-2002 |
Nu wil ik dus als de datum langer dan 40 dagen geleden is een bericht /actie uitvoeren.
dus bij memo1.lines.strings[0] zou hij niks moeten doen
want 40 dagen terug is 9-12-2002
en bij memo1.lines.strings[1] zou hij dus berichtje moeten geven.
maar op een of andere manier, geeft hij bij ze allebei een bericht?
[ Voor 27% gewijzigd door Dala op 18-01-2003 16:49 ]