Delphi Forum

Merhabalar;

Programda son aşamaya geldim, fakat bir noktada takıldım kaldım; Program bilgisayar açılınca otomatik olarak açılıyor, Buraya kadar bir sorun yok.
Program ikonuna tıklandığında program kapalıysa yeniden başlayacak, fakat hide durumundaysa yeniden ekrana gelecek, bunu nasıl ...

Aynen kullanıcı rakam girdikçe nokta ve virgüller duruma göre pozisyonunu alacak yani otomatik girilecek, kodları bir yere kadar getirdim fakat takıldım kaldım.



function Izin(StrChar: String; Delimiter: Char): Integer;
var
Sxx: String;
X, J: Integer;
begin
Sxx := '';
Result := 0;
for X := 1 ...

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 ...

öneriler için teşekkür ederim fakat bu bu şekilde olmamalı bir edit üzerinden bunu rahatlıkla yapmalıyım bankara bu işi nasıl çözmüş bilemiyorum hesabına bakıyor rahatlıkla hesabıma 13.601,13 TL gibi parayı görebiliyorsunuz.

:eyo: :eyo: :eyo: :eyo: :eyo: :eyo: :eyo: :eyo:

Sanırım durumu anlatamadım yada ben para birimleri ile ilgili hiç bir şey bilmiyorum?


Örnek:
edite 055-----------> 0,55 -----------> Elli beş kuruş
edite 375-----------> 3,75 -----------> Üç tl yetmiş beş kuruş
edite 1435---------->14,35 ...

"SimaWB" nin önerisindeki mask olayını incele
Yok veri dışardan geliyor ne olduğu belli değil dersen benim önerim
1. elindeki veriyi ters çevir
2. ilk rakam olmayana kadar olanı al
3. elde ettiğin veriyi tekrar ters çevir ve bunu kuruş kabul et
4. kaldığın yerden verinin sonuna kadar rakamları al ...

Hocam vermiş olduğunuz link dahil bir çok kod inceledim, banka uygulamaları bu işin nasıl çözmüş anlamadım.
örnek hesabıma bakıyorum 13.601,13 TL benim bunu edite yaptırmam için ne yapma gerek? kodlarla çözemedim durumu.

kullanıcının edite gireceği rakamı bilemediğim için 1360113 veya 075 gibi ...

Merhaba;

Kaç tane kod inceledim hatırlamıyorum, çözümde bulamadım.

Örnek:
0,55 -----------> Elli beş kuruş
3,75 -----------> Üç tl yetmiş beş kuruş
14,35 --------->On dört tl otuz beş kuruş
65.500 -------->Atmış beş bin beş yüz tl
84.550,10 ---> Seksen dört bin beş yüz elli tl on kuruş.

Bu para ...

Selam Edit içine sayıları yan yana nasıl alabilirim.

procedure TForm4.ListviewKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Ord(Key) >= 96) and (Ord(Key) <= 105) then
begin
Edit1.Tetx:= GetCharFromVKey(Key);
end;
end;


function TForm4.GetCharFromVKey(vkey: Word ...

Selam;

FMX de rectangle transparan mantığını VCL de yapmak için form ekledim ve formun AlphaBlend true AlphaBlendValue yi 150 yaptım.
Buraya kadar sorun yok, fakat forma eklediğim tüm edit ve butonlarda trasparan oldu form haricinde buton ve peditlerin normal görünmesini nasıl sağlarım.

Selam;


Listview de imagelist deki resimleri gösteriyorum, acaba bilgisayarda bulunan resim yolunu vererek (Data['Image'] := 'C:\Users\Solo\Kitaplıklar\Resimler\İcon\32x32 right.png';) lisview de bu resimleri nasıl göstere bilirim?

Selam;

Maç kolikten takım skorlarını çekiyorum, skorla beraber takımların adını da almak istediğimde birince takımın adını alıyorum fakat ikici takım adını alamadım acaba nereden hata yapıyorum?

iki takında adı aynı class içinde <div class="match-statistics-logo-text">

function GolParse(Source ...

Başarılı bir uygulama fakat, her seferinde browser Create etmek zaman kayıbı oluyor 100'lerce skoru tek tek çektiğimde...

Selam;

mackolik sitesinden bir maçın istatistik verilerini döngü ile almak itiyorum fakat ne döngüyü nede birden fazla veriyi almayı kurgulayamadım

<div class="team-1-statistics-text">1</div> // Ev sahibi
<div class="statistics-title-text">İsabetli Şut</div>
<div class="team-2-statistics-text ...

Selamlar, Excelden (YERLİ) ( 650809- 000 1080)*WPS gibi farklı id numaraları db'ye kaydediyorum, kayıt sırasında aradan "-" dan sonra kırmızı renk ile belirlediğim "0" ları silmem lazım bu yöntemi nasıl yapabilirim?


function TForm2.RIdTemizle(Harf: String): String;
const
Sil: String ...