606 uygun sonuç bulundu

gönderen brs
08 Tem 2017 12:23
Forum: Programlama
Başlık: Para birimleri
Cevaplar: 28
Görüntüleme: 1578

Re: Para birimleri

Kafam iyice karıştı :roll: Edite 1500030 gibi bir sayı girildiğinde bana göre TL karşılığı 1.500,30 olmalı (bin beş yüz lira otuz kuruş) Bu linkten kredi hesaplattım 100000 TL yazdım çıkan sonuç 113.938,31 TL biz bunu editte otomatik olarak niye yaptıramıyoruz. http://www.hangikredi.com/kredi/hesapl...
gönderen brs
07 Tem 2017 08:01
Forum: Programlama
Başlık: Para birimleri
Cevaplar: 28
Görüntüleme: 1578

Re: Para birimleri

Adamlar yapmış



Resim




Resim
gönderen brs
07 Tem 2017 07:52
Forum: Programlama
Başlık: Para birimleri
Cevaplar: 28
Görüntüleme: 1578

Re: Para birimleri

Olay şu, kullanıcı editten sayı girmeye başlayınca 123456 gibi 1. örnek sayı 15 0,15 olacak 2. örnek sayı 130 1,30 olacak 3. örnek sayı 1535 1.535 olacak 4. örnek sayı 250035 2.500,35 olacak Ben bir şeyler yapmaya çalıştım ama olmadı bir süre sonra anlamsız durum ortaya çıkıyor procedure TForm1.Edi...
gönderen brs
07 Tem 2017 06:55
Forum: Programlama
Başlık: Para birimleri
Cevaplar: 28
Görüntüleme: 1578

Re: Para birimleri

Ekstra olarak exit yöntemi kullanabilirsin 1500 yazınca 1.500 oluyor buraya kadar sorun yok. İşin içine küsurat girince sonuç sapıtıyor. 150030 bin beş yüz lira 30 kuruş oluyor, 150.030,00 bunu çözebilirsen istediğini yapabilirsin. procedure TForm1.Edit1Exit(Sender: TObject); begin if (Length(Edit1....
gönderen brs
03 Haz 2017 12:55
Forum: FireMonkey ve Mobil
Başlık: Otomatik Çalıştırma
Cevaplar: 3
Görüntüleme: 772

Re: Otomatik Çalıştırma

Bir zamanlar bende telefon açıldığında apknin otomatik olarak çalışması konusunda çok fazla araştırma yaptım ve bir arpa boyu ilerleyemedim, hatta ücretli yardım istedim onuda yapabilen olmadı. İşin özü delphi android için vakit harcamaya degmez.
gönderen brs
06 May 2017 09:33
Forum: Programlama
Başlık: Data Modulun de applicatin çalışmıyor
Cevaplar: 4
Görüntüleme: 257

Re: Data Modulun de applicatin çalışmıyor

var Cevap: Word; procedure TSDForm.FormCloseQuery(Sender: TObject; var CanClose: boolean); begin Cevap := Application.MessageBox ('Programı kapatmak istediğinizden emin misiniz?', 'Onay!', MB_YesNo or MB_ICONQUESTION); begin if Cevap = MrYes then begin Application.Terminate; // Close end else begin...
gönderen brs
20 Şub 2017 09:23
Forum: Programlama
Başlık: Edite uzunluk verme
Cevaplar: 3
Görüntüleme: 247

Re: Edite uzunluk verme

Poroperties'den Maxlenght den yapabilirsiniz
gönderen brs
30 Oca 2017 10:51
Forum: Programlama
Başlık: Dosya yedekleme
Cevaplar: 9
Görüntüleme: 573

Re: Dosya yedekleme

viewtopic.php?f=2&t=35448&hilit=Copy

Cepten yaziyorum, ek olarak google da "delphi klasor yoksa" diye aratirsan onlarca kaynak bulursun buluncada kodlara entegre yaparsin.
gönderen brs
26 Oca 2017 04:22
Forum: Programlama
Başlık: Özel id oluşturma
Cevaplar: 11
Görüntüleme: 511

Re: Özel id oluşturma

Uyarı ve bilgilendirme için teşekkür ederim...
gönderen brs
25 Oca 2017 06:36
Forum: Programlama
Başlık: Özel id oluşturma
Cevaplar: 11
Görüntüleme: 511

Re: Özel id oluşturma

Kısmen çözdüm function TitleCase(const IlkHarf: String): String; var I, J: Integer; begin if Length(IlkHarf) > 3 then begin if (Pos(IlkHarf, '') > 0) then begin Result := '0'; end else begin Result := UpperCase(IlkHarf[1]); for I := 2 to Length(IlkHarf) do if Pos(IlkHarf[I - 1], ' ') > 0 then begin ...
gönderen brs
25 Oca 2017 05:38
Forum: Programlama
Başlık: Özel id oluşturma
Cevaplar: 11
Görüntüleme: 511

Re: Özel id oluşturma

İlk harften sonrasını silmeyi veya almamyı iptal edemedim kafam çok karıştı... function TitleCase(const IlkHarf: String): String; var I: Integer; begin if Length(IlkHarf) > 3 then begin if (Pos(IlkHarf, '') > 0) then begin Result := ''; end else begin Result := UpperCase(IlkHarf[1]); for I := 2 to L...
gönderen brs
25 Oca 2017 05:37
Forum: Programlama
Başlık: Özel id oluşturma
Cevaplar: 11
Görüntüleme: 511

Re: Özel id oluşturma

Neden tek bir fonksiyon içinde toplamak istiyorsunuz? Ü, ü ve ç karakterinde GetLatinLetters() içinde hata var. Yine aynı Türkçe hallerini geri çeviriyor. Düzeltilmiş hali aşağıda. function GetLatinLetters(const Value: string): string; var i: Integer; begin Result := Value; for I := 1 to Length(Res...
gönderen brs
25 Oca 2017 03:20
Forum: Programlama
Başlık: Özel id oluşturma
Cevaplar: 11
Görüntüleme: 511

Re: Özel id oluşturma

On numara bir kod, tek sıkıntısı bir function altında toplayamadım... Merhaba, Aşağıdaki kodu deneyebilirsiniz. function GetLatinLetters(const Value: string): string; var i: Integer; begin Result := Value; for I := 1 to Length(Result) do begin case Result[i] of 'İ': Result[i] := 'I'; 'ı': Result[i] ...
gönderen brs
25 Oca 2017 04:46
Forum: Programlama
Başlık: Özel id oluşturma
Cevaplar: 11
Görüntüleme: 511

Özel id oluşturma

Selam; Çok, çok özel bir id oluşturmak istiyorum, fakat bir noktadan sonra takıldım. Örnek: Ahmet bu akşam saat 19:00'da sinemaya gidecek "ABASSG" gibi nasıl yapabilirim? Her kelimenin ilk harfi, küçük yazılmışsa büyük ve Türkçe karakter olmayacak, arada boşluk olmadan sayı veya özel karakter ekle e...