1. Cuvaje datuma u tekstualnoj datoteci i ponovno ucitavanje tog datuma pri pokretanju programa:
Code:
//ova funkcija cuva datum u tekstualnoj datoteci 'datum.txt'
//koja se nalazi u istom direktorijumu kao i program
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var s: string; t: TextFile;
begin
s:= DateToStr(DateTimePicker1.Date);
assignFile(t, 'datum.txt');
rewrite(t);
WriteLn(t, s);
CloseFile(t);
end;
//ova funkcija pri kreiranju forme ucitava datum iz tekstualne datoteke
//i postavlja taj datum u TDateTimePicker-u (kod mene je to DateTimePicker1)
procedure TForm1.FormCreate(Sender: TObject);
var s: string; t: TextFile;
begin
assignFile(t, 'datum.txt');
reset(t);
ReadLn(t, s);
CloseFile(t);
DateTimePicker1.Date:= StrToDate(s);
end;
A sto se tice poredjenja, ako ti se npr. datum sa kojim poredis nalazi u Edit polju:
Code:
if Edit1.Text = DateToStr(DateTimePicker1.Date) then
begin
//ovde ide ono sto radis ako su datumi isti
end;
U svakom slucaju, pozoves funkciju DateToStr i njen rezultat poredis sa stringom u kojem ti se nalazi datum (bilo to edit polje, label ili nesto drugo).