[ Mythbuster @ 18.03.2009. 09:39 ] @
1.kako da program sacuva po izlasku iz njega sve promene (konkretno meni treba da na datetimepicker-u ostane i po izlasku datum koji sam odredio, a ne onaj prvobitni...)
2.kako da namestim da program uporedjuje vreme (pretpostavljam da se koristi funkcija if)
Unapred hvala :D
[ .:Marvin:. @ 18.03.2009. 11:41 ] @
1. Snimis to stanje u neki fajl, ili u neku tabelu u bazi. tebi bi obican tekstualni fajl zavrsavao posao. Pri izlasku sa forme snimis, pri ponovnom ulasku ucitas.

2. Poredjenje moze da ide na razne nacine, za pocetak reci u cemu cuvas datum (edit box ili sl.)
[ Mythbuster @ 21.03.2009. 12:42 ] @
koristim datetimepicker...
[ bojan21 @ 21.03.2009. 14:13 ] @
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).