Ako ti taj DBEdit nije neophodan, pokušaj da vežeš to date polje za DBDateTimePicker
ili sličnu komponentu koja služi za te stvari ,radi bezbednog prikazivanja/unosa.
Ako to ne odgovara,pokušaj sa f-jama za formatiranje datuma/vremena FormatDateTime
ili stringova FormatString-vidi help, nešto će već upaliti.

Kod datuma je uvek problem u formatu zapisa. Kako postoje neodredjenosti tipa 01/02/07
gde se ništa ne zna (ni šta je dan ni šta je mesec ni šta je godina), moraš da pomogneš
tako što ćeš dodelu prilagoditi izrazu sa LEVE strane.

Prouči BCB Help za funkciju StrToDate().

Videćeš da postoje dve globalne promenljive koje eventualno možeš upotrebiti:

DateSeparator
ShortDateFormat

Dakle možeš, po ugledu na njihov postojeći format napraviti pomoćni string (na osnovu DBEdit->Text)
koji se uklapa u njega, i to poslati izrazu sa leve strane.

Takođe, te globalne promenljive (DateSeparator i ShortDateFormat) možeš i promeniti i sam zadati
format, pa mu kasnije opet proslediti formatizovan pomoćni string. Ovo je korisno i zbog raznih ispisa
na ekran.

Ja ipak najviše volim da dodelu datuma vršim preko TDateTime klase, koja ima dve korisne metode
za tu svrhu:

EncodeDate()
DecodeTime()

Ali svakako, sam ćeš morati da kažeš šta je godina, mesec, dan:

// Ovde sam parsuj DBEdit->Text i dodeli vrednosti
(ne pada mi na pamet funkcija koda to eventualno sama radi, možda postoji?, ako neko zna neka kaže):

int Godina = 2007;
int Mesec = 4;
int Dan = 1;

TDateTime DT;
DT = EncodeDate( Godina, Mesec, Dan );

ADOTable2->Append();
ADOTable2->FieldByName("kopija datuma")->AsDateTime = DT;
ADOTable2->Post();

Postoji i alternativa, da petljaš sa Regional Setings, ali to ne savetujem, jer svako na svojoj mašini
ima pravo da koristi onakav format koji želi.

Neka me ispravi neko ako gresim ...

TimeSeparator, DateSeparator i ShortDateFormat (a bogami i Long) se citaju iz regional setting-a kada se aplikacija startuje ...

ima par nacina:

1. Podesis DisplayFormat i Mask za taj DBEdit na vrednosti koje tebi odgovaraju, isto to stavis i u ShortDateFormat
i neces imati problema prilikom konverzije stringa u datum

2. Napravis mask na osnovu ShortDateFormat-a pa ce korisnik morati da unosi datum onako kako je to u regional settings-ima predvidjeno

3. Koristis DBEdit->Field->Value ili DBEdit->Field->AsDateTime (ukoliko je u prvu tabelu uspesno postovano, vrednost polja ce vec
sadrzati odgovarajuci datum)

@X Files

Nije valjda da uvek TDateTime parsiras, enkodiras i dekodiras?

Stvar je u tome da ne postoji nijedan razlog da se datumi prikazuju/unose preko običnog
dbedita: korisniku se mora dodatno objašnjavati u kom formatu se unose.Da li dd/mm/yy ili
mm/dd/yy ili mm-dd-yy ili dd/apr/yyyy i sl. Sa DBDateTimePicker-om se može ručno unositi datum
(kao u editu) ili birati iz kalendara,a ne mora biti direktno povezan sa dataset-om preko
FieldName.
Znači ovo štedi mnogo živaca:

Da, ali one nisu ReadOnly. A Regional Settings postavke nekada nisu ono što korisnik želi. Ovo se naročito
odnosi na DecimaSeparator-e, koji mogu da naprave puno problema ko ne zna o čemu se radi. Po meni, ako
postoji potreba, najbolje ih je predefinisiati u programu i tako omogućiti da bez obzira na Regional Settingse,
ispisi datuma u pojedinim data kontrolama budu onako kako je zamišljeno.

Ne uvek, nisam se možda najbolje izrazio.
Ako se radi o bazama podataka i DataAware kontrolama, onda koristim sledeće (s obzirom da ne postoji
standardna TDBDateTimePicker ili samo TDBDateTime):

- TDBEdit (sa podešenim DisplayFormat u property-jima samog polja neke tabele (ne Mask!), a ne sećam se
zašto sam odustao od MakEdit-a u samom TDBEdit polju. Siguran sam da je bio neki praktičan interfejs korisnički
razlog - a možda sam i loše podesio taj Mask, ko zna...)

- TButton (koji poziva TDateTimePicker, i sinhronizovan je sa TDBEdit poljem)

[att_img]

Dalje, upis u bazu više ne pravi probleme jer transfer ide preko TDateTime objekata.

Što se dekodiranja/enkodiranja tiče.

Programi koje radim nisu uvek DB bazirani, datumi koje odnekud čitam i negde upisujem nisu uvek pod mojom
kontrolom. Poslednji slučaj sam imao u čitanju nekih stranih LOG-ova gde sam morao da implementiram celu logiku
koja otkriva u kom formatu je datum upisan, da bih ja dalje mogao da ispravno odreagujem. Tada sam se uverio
da mi je najčistija situacija da datum dovedem u stanje TDateTime objekta, pa otuda i EncodeDate i DecodeDate.

Sad kad malo bolje razmislim, bilo bi idealno da postoji (možda i postoji?) neka funkcija tipa:
DecodeFormatedDate( AnsiString FORMAT, AnsiString STRING, int Godina, int Mesec, int Dan );
...kojom bi se verovatno sve nedoumice rešavale. Ovo nije teško ni napraviti ako je nema.

P.S.
Evo sad videh da Mr. Rejn pominje neku DB -Aware Date komponentu, ja za nju nisam ni čuo...


_{[Ovu poruku je menjao X Files dana 02.04.2007. u 13:33 GMT+1]}

To je zato što sam propustio da dodam da ista pripada JEDI komponentama , nema je na
standardnoj paleti: http://homepages.borland.com/jedi/jvcl/ , ali mislim da ona bitno olakšava
celu stvar.

^
Pa da, ako je ta Date komponenta kvalitetno projektovana (a ne sumnjam da jeste) onda to svakako rešava problem.

Ovo je offtopic,ali koliko da primetim nešto u vezi JEDI VCL komponenti kad smo već
kod njih,a može interesovati korisnike BCB: ovaj paket koliko je meni poznato
sadrži jedinu funkcionalnu DBImage komponentu (koja postoji),a koja može da prikazuje
JPEG/GIF slike iz baze,tj. preko njih se mogu stavljati slike ovih formata u bazu.
Ovo pišem zato što znam da su mnogi na muci kada trebaju da prikažu neku JPEG/GIF sliku iz
baze na svom front-endu,a standardni DBImage podržava samo bitmape,pa moraju to da reša-
vaju pretvaranjem jpeg-a u stream i stavljanjem u običan DBImage.

da, znam,



:)


Ako se ne varam ja sam negde video da postoji mogucnost da se Jpeg registruje kao
format unutar delphi-ja, odnosno da se TGraphics omoguci da cita i pise Jpeg kao native
format (postoje neke funkcije).

Ako je to slucaj onda ne bi bio problem za bilo koji format da se to uradi obzirom da se
moze napisati izvedena klasa koja ima neophodan interface a pise i cita bilo koji format ...

Evo sad bacih pogled i evo sta nadjoh:



Eto, znaci napravis TGraphics klasu koja cita i pise odgovarajuci format u stream i ... registrujes je (pogledaj i Jpeg unit mislim da
u initialize sekciji unita imas poziv za registraciju ogovarajuce klase)