1 Şubat 2003 Şeklindeki Tarih

[cabbar]

bir edite başka yerden okuduğum 1 Şubat 2003 Şeklindeki Tarihleri bir başka edite 01.02.2003 şeklinde nasıl alabilirim

[MicroChip]

string işlemleri ile halledebilirsin,dediğin işlemi yapan bir komutun olduğunu sanmıyorum
bir dizi yaparsın aylar için,
sonra 1 şubat 2003 içindeki sayıları atar (bunu da POS komutu ile yapabilirsin) kalan texti (şubat) dizide ararsın ve kaçıncı sırada olduğunu bulursun (2)
sonra istediğine göre bunların başına sıfır ekleyerek sonucu alırsın

ama bunu bir function olarak yazarsan daha iyi olur yada ünite,dll vs. yaparak da istediğin her yerde kullanabilirsin.

Saygılar...
(ben sadece balık nasıl tutulur onu öğretirim)

[freeman35]

Date Aslında bir Integer sayıdır, Edit in Tag property sine bunu integer olarak aktarabilirsin, Tabi bunu

Kod: Tümünü seç

Edit1.Tag := Integer(Date);

şeklinde atarsın,
geri almak içinde

Kod: Tümünü seç

MyDate := TDate(Edit1.Tag);

en kolay yöntem olarak geliyor bana
Kolay gele

[mrmarman]

@freeman35 konuyu yanlış anlamış sanırım...
@MicroChip'in bahsettiği şekilde (string operasyonla) yapacaksınız...

- Bu string operasyondan kasıt, yazı içinden belli miktarını okumak için Copy ve istenen bir karakterin kaçıncı karakterden başladığını bildirien Pos komutlarının kullanımını biliyorsunuzdur, aksi halde önce bu iki fonksiyonun çalışma prensibini araştırmalısınız...