606 uygun sonuç bulundu
- 08 Tem 2017 01:23
- Forum: Programlama
- Başlık: Para birimleri
- Cevaplar: 28
- Görüntüleme: 5200
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...
- 07 Tem 2017 09:01
- Forum: Programlama
- Başlık: Para birimleri
- Cevaplar: 28
- Görüntüleme: 5200
- 07 Tem 2017 08:52
- Forum: Programlama
- Başlık: Para birimleri
- Cevaplar: 28
- Görüntüleme: 5200
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...
- 07 Tem 2017 07:55
- Forum: Programlama
- Başlık: Para birimleri
- Cevaplar: 28
- Görüntüleme: 5200
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....
- 07 Tem 2017 07:25
- Forum: Programlama
- Başlık: Web sayfasındaki veriyi alma
- Cevaplar: 1
- Görüntüleme: 345
- 03 Haz 2017 01:55
- Forum: FireMonkey ve Mobil
- Başlık: Otomatik Çalıştırma
- Cevaplar: 3
- Görüntüleme: 1823
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.
- 06 May 2017 10:33
- Forum: Programlama
- Başlık: Data Modulun de applicatin çalışmıyor
- Cevaplar: 4
- Görüntüleme: 739
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...
- 20 Şub 2017 10:23
- Forum: Programlama
- Başlık: Edite uzunluk verme
- Cevaplar: 3
- Görüntüleme: 674
Re: Edite uzunluk verme
Poroperties'den Maxlenght den yapabilirsiniz
- 30 Oca 2017 11:51
- Forum: Programlama
- Başlık: Dosya yedekleme
- Cevaplar: 9
- Görüntüleme: 1473
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.
Cepten yaziyorum, ek olarak google da "delphi klasor yoksa" diye aratirsan onlarca kaynak bulursun buluncada kodlara entegre yaparsin.
- 26 Oca 2017 05:22
- Forum: Programlama
- Başlık: Özel id oluşturma
- Cevaplar: 11
- Görüntüleme: 1394
Re: Özel id oluşturma
Uyarı ve bilgilendirme için teşekkür ederim...
- 25 Oca 2017 07:36
- Forum: Programlama
- Başlık: Özel id oluşturma
- Cevaplar: 11
- Görüntüleme: 1394
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 ...
- 25 Oca 2017 06:38
- Forum: Programlama
- Başlık: Özel id oluşturma
- Cevaplar: 11
- Görüntüleme: 1394
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...
- 25 Oca 2017 06:37
- Forum: Programlama
- Başlık: Özel id oluşturma
- Cevaplar: 11
- Görüntüleme: 1394
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...
- 25 Oca 2017 04:20
- Forum: Programlama
- Başlık: Özel id oluşturma
- Cevaplar: 11
- Görüntüleme: 1394
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] ...
- 25 Oca 2017 05:46
- Forum: Programlama
- Başlık: Özel id oluşturma
- Cevaplar: 11
- Görüntüleme: 1394
Ö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 karak...