Asri TL'den YTL'ye çevirme programı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7603
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Asri TL'den YTL'ye çevirme programı

Mesaj gönderen mussimsek »

Merhaba,

Asri arkadaşımız böyle bir program yapıp kodlarını atmış. Siteye koydum, inceleyip, faydalanabilirsiniz.

http://www.delphiturkiye.com/dsplus/m.p ... Tl2Ytl.zip (132 KB)

Kolay gelsin.
En son mussimsek tarafından 07 Mar 2006 01:44 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Kullanıcı avatarı
Asri
Kıdemli Üye
Mesajlar: 767
Kayıt: 16 Eyl 2003 09:54
Konum: istanbul

Mesaj gönderen Asri »

Programda sui-pack componenti kullandım.
En son Asri tarafından 15 Ara 2008 05:02 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Öğrenmek ve öğretmek, akıntıya karşı yüzmek gibidir ilerleyemediğiniz taktirde gerilersiniz.
heskin35
Üye
Mesajlar: 132
Kayıt: 30 Haz 2004 09:48

Mesaj gönderen heskin35 »

Teşekkürler Asri. Özellikle hesaplama yaparken zorlanan market vb. İşyerlerinde kullanılabilir. Görünümde hoş olmuş. Ellerine sağlık.
Kullanıcı avatarı
Asri
Kıdemli Üye
Mesajlar: 767
Kayıt: 16 Eyl 2003 09:54
Konum: istanbul

Mesaj gönderen Asri »

işe yarayabilmesi güzel.

Bugfix: Bölgeles ayarlardaki Ondalık ve binlik ayıraçta sorun oluyordu. Bu problem aşağıdaki kod ile giderildi. form1'in oncreate olayının en başına ekleyin.

Kod: Tümünü seç

  
  DecimalSeparator := ',';
  ThousandSeparator := '.';
İyi çalışmalar.
Öğrenmek ve öğretmek, akıntıya karşı yüzmek gibidir ilerleyemediğiniz taktirde gerilersiniz.
Kullanıcı avatarı
kelaynak2
Üye
Mesajlar: 135
Kayıt: 30 Haz 2003 02:18

Teşekkürler

Mesaj gönderen kelaynak2 »

Asri bey,
kodlar için teşekkürler.Elinize, beyninize sağlık :)
Kullanıcı avatarı
Asri
Kıdemli Üye
Mesajlar: 767
Kayıt: 16 Eyl 2003 09:54
Konum: istanbul

Mesaj gönderen Asri »

Program gördüğüm kadarı ile kararlı çalışıyor ama kodları incelerseniz çok daha kısa yolla yapılabilcek procedure leri, hazır delphi functionları kullanarak yapmak yerine kendim yazdım.

Bunu Delphi yi çok iyi bildiğimden değil. İyi bilmediğim için yaptım tabiki :)

Bkz: string içindeki bir yada bir kaç karakteri silmek gibi :)

Paylaşmak güzeldir.

iyi çalışmalar.
Öğrenmek ve öğretmek, akıntıya karşı yüzmek gibidir ilerleyemediğiniz taktirde gerilersiniz.
oguzozturk74
Kıdemli Üye
Mesajlar: 574
Kayıt: 01 Şub 2004 12:29
Konum: Erdemli - MERSİN

Mesaj gönderen oguzozturk74 »

Paylaşımınız için teşekkürler, elinize sağlık güzel bir çalışma olmuş.. .
Cevapla