[es] - pocetnicko pitanje

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
79.101.130.*

Profil

^{18.03.2009. u 09:39 - pre 183 meseci}

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

Mythbuster

Odgovor na temu

.:Marvin:.
Taurunum

Član broj: 36626
Poruke: 94
91.143.212.*

Profil

Re: pocetnicko pitanje

^{18.03.2009. u 11:41 - pre 183 meseci}

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.)

http://www.montaznekuce.rs

Odgovor na temu

Mythbuster
Darko Stojkovic
student
Beograd

Član broj: 204745
Poruke: 35
93.86.133.*

Profil

Re: pocetnicko pitanje

^{21.03.2009. u 12:42 - pre 183 meseci}

koristim datetimepicker...

Mythbuster

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.134.*

+6 Profil

Re: pocetnicko pitanje

^{21.03.2009. u 14:13 - pre 183 meseci}

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).

Odgovor na temu