Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz
Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 1.409
» Son Üye: sharamrit
» Toplam Konular: 2.687
» Toplam Yorumlar: 21.812

Detaylı İstatistikler

Son Aktiviteler
Tutar kısmındaki soru işa...
Forum: Genel Programlama
Son Yorum:

edo
3 saat önce
» Yorumlar: 9
» Okunma: 219
Delphi 10.3 Rio
Forum: Delphi 10.3 Rio
Son Yorum:

pro_imaj
4 saat önce
» Yorumlar: 66
» Okunma: 2.483
Yeni Kaynak Kitabın Yayın...
Forum: Kitap Hakkında
Son Yorum:

yhackup
4 saat önce
» Yorumlar: 29
» Okunma: 1.198
Delphi ile Android Uygula...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Fesih ARSLAN
5 saat önce
» Yorumlar: 4
» Okunma: 81
chart bileseni
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

klavye
6 saat önce
» Yorumlar: 2
» Okunma: 74
[+10 Puan] String Manipül...
Forum: Access violation
Son Yorum:

Tuğrul HELVACI
7 saat önce
» Yorumlar: 16
» Okunma: 430
TNetHttpClient post json
Forum: Genel Programlama
Son Yorum:

ahmet_sinav
7 saat önce
» Yorumlar: 6
» Okunma: 124
Dosya Bulma (Algoritmik S...
Forum: Access violation
Son Yorum:

engerex
7 saat önce
» Yorumlar: 28
» Okunma: 430
[Çözümlü] Google Play'de ...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

nguzeller
9 saat önce
» Yorumlar: 7
» Okunma: 157
Çevirimiçi Diyagram Çizim...
Forum: Program Tanıtımı
Son Yorum:

frmman
Dün, Saat: 19:44
» Yorumlar: 6
» Okunma: 93

 
  Cursor crSQLWait takılı kalması
Yazar: serhat - 26-05-2017, Saat: 17:11 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (1)

Merhaba; Kodlamada hata yok sanırım; SearchBox.Text edit aranan ürünün adı yazılınca listview de listeleniyor, fakat mouse'u oynatana kadar mouse crSQLWait gösteriyor sanki Search işlemi devam ediyormuş gibi bu neden olabilir?

procedure TForm2.SearchBoxChangeTracking(Sender: TObject);
begin
  With Form1, FDQuery, Listv do
  begin
    Connection := MainConnect;
    Close;
    SQL.Clear;
    SQL.Add('Select * From URUNLER');
    SQL.Add('WHERE BARKOD LIKE ' + QuotedStr('%' + SearchBox.Text + '%'));
    SQL.Add('Limit 0,100');
    Prepared := True;
    Open;
    BeginUpdate;
    try
      Items.Clear;
      while Not Eof do
      begin
        LItem := Items.Add;
        LItem.Data['Text1'] := FieldByName('URUN').AsString;
        LItem.Data['Text2'] := FieldByName('BARKOD').AsString;
        LItem.Data['Text3'] := FieldByName('SATIS').AsString;
        LItem.Data['Text4'] := FieldByName('MODEL').AsString;
        LItem.Data['Text5'] := FieldByName('ADET').AsString;
        Next;
      end;
    finally
      EndUpdate;
    end;
  end;
  Cursor := crDefault;
  Form1.FDQuery.Close;
end;

Bu konuyu yazdır

  static değişkene Default değer atama!
Yazar: bozli54 - 26-05-2017, Saat: 14:56 - Forum: Genel Programlama - Yorumlar (3)

Unit UKontrol;
Interface
Type
 Kontrol = class(TObject)
 private

 public
   class var EVET :Integer;
   class var HAYIR :Integer;

end;

Implementation

var
 _EVET: Integer = 36;
 _HAYIR : Integer = 37;

end.

Aşağıdaki gibi değişkenleri yerel tanımlayınca default değer atayabiliyorum ancak ben bu değişkeni static olarak tanımlayıp sabit değer atayarak "Kontrol.EVET" şeklinde erişmek istiyorum. Yardımcı olursanız sevinirim. Teşekkürler.

Bu konuyu yazdır

  İzin verilen adet kadar
Yazar: Dostk - 25-05-2017, Saat: 20:36 - Forum: Genel Programlama - Yorumlar (16)

Merhaba. Edite sadece sayı, nokta ve virgül girilmesini sağlıyorum. ancak nokta ve virgüle izin verilen adet kadar girilebilsin, fakat çıkamadım işin içinden Big Grin

Nokta ve vürgül sayı adetini nasıl belirleye bilirim?

function TForm6.KarakterKontrol(Karakterler: String): String;
var
  Nokta, Virgul: String;
  NAdet, VAdet, RowNumber: Integer;
begin
  Nokta := '.';
  Virgul := ',';
  RowNumber := 0;
  for I := 1 to Length(Karakterler) do
  begin
    Inc(RowNumber);
    if Pos(Virgul, Karakterler[I]) > 0 then
    begin
      for I := RowNumber to Length(Karakterler) do
    end
    else
    begin
      if Pos(Nokta, Karakterler[I]) > 0 then
      begin
      end
      else
      begin
        Result := Karakterler;
      end;
    end;
  end;
end;


procedure TForm6.Edit1ChangeTracking(Sender: TObject);
begin
 Edit1.Text := KarakterKontrol(Edit1.Text);
end;

procedure TForm6.Edit1KeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if Not(KeyChar in ['0' .. '9', '.', ',']) then
    KeyChar := #0;
end;

Bu konuyu yazdır

  MySQL Replication İşlemi
Yazar: yhackup - 25-05-2017, Saat: 19:44 - Forum: MySQL - Yorumlar (12)

Merhabalar Bu konu hakkında tecrübesi olan var mıdır ?

Bu konuyu yazdır

  Para kontrolü
Yazar: dilo - 25-05-2017, Saat: 02:40 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (1)

Selam; Kullanıcı dostu function akılı para kontrolü yaptırmak istiyorum fakat bir noktadan sonra takıldım kaldım.
Kullanıcı edite 1 yazdığında otomatik olarak 1.000 oluyor buraya kadar sorun yok, fakat küsuratlı bir sayı girildiğinde 1.50 gibi 150,000 oluyor bu kontrolü nasıl sağlaya bilirim?



function TForm2.ParaKontrol(StrPara: String): String;
var
  Para: Currency;
begin
  Para := StrToCurr(StrPara);
  if Length(StrPara) = 1 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 6, 3);
  end;
  if Length(StrPara) = 2 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 6, 3);
  end;
  if Length(StrPara) = 3 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 8, 3);
  end;
  if Length(StrPara) = 4 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 10, 3);
  end;
  Result := StrPara;
end;

procedure TForm2.EditAlisExit(Sender: TObject);
begin
  EditAlis.Text := ParaKontrol(EditAlis.Text);
end;

Bu konuyu yazdır

  Editin tepki vermemesi
Yazar: dilo - 24-05-2017, Saat: 13:32 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (1)

Selam.

Edite parasal değer girildiğinde şartlar eşit olduğunda otomatik olarak noktalama işlemlerini yaptırmak istiyorum; Fakat VCL de olduğu gibi Firemonkey de bu kadar kolay olmuyor maalesef.

Change ve ChangeTracking ve bir çok yöntem denedim fakat istediğim sonucu alamadım edit işlem yapılıyorsa o edit hiçbir şekilde color dahil değişikliği izin vermiyor, bunun için ne yapabilirim?

function TForm2.NoktalamaEkle(StrNoktalama: String): String;
var
  Birler, Onlar: String;
begin
  if Length(StrNoktalama) = 4 then
  begin
    Birler := Copy(StrNoktalama, 1, 1);
    Onlar := Copy(StrNoktalama, 2, 4);
    Form2.Caption := Birler + '.' + Onlar; // Caption sorun yok işlem yapılıyor.
    Result := Birler + '.' + Onlar;
  end;
end;


procedure TForm2.EditAlisChange(Sender: TObject);
begin
  NoktalamaEkle(EditAlis.Text);
end;


procedure TForm2.EditAlisChangeTracking(Sender: TObject);
begin
  NoktalamaEkle(EditAlis.Text);
end;

Bu konuyu yazdır

  Activex Kullanma veya oluşturma
Yazar: Lord_Ares - 23-05-2017, Saat: 17:31 - Forum: Genel Programlama - Yorumlar (4)

Merhaba, müzik player projemi  yeniden düzenlemek için uzun süredir yollar arıyorum. Sorunum media player yüklü olmayan bilgisayarlarda projemin çalışmıyor olması. (Usb den çalışan işletim sistemlerinde programımı çalıştırmak istiyorum)

- Çalışmama sebebi - 
   Projemi oluştururken WMPLib_TLB.dcu dosyasını kullanarak oluşturdum için , programın çalışacağı bilgisayarda media playerın ve ActiveX lerin windowsa yüklenmiş olması gerekiyor. 

- Denediğim yollar -
1) Media playerı portable ( Taşınabilir ) olarak windowsa ekledim, fakat taşınabilir olarak eklendiği için ilgili ActiveXler yüklenmemiş oldu. Dolayısı ile WMPLib_TLB.dcu dosyasını kullanarak media player özelliklerine erişemedi ve çalışmadı..

2) VLC Player ile projemi yeniden yazmak istedim. Gördüm ki türkçe kaynak çok az, media playerdeki bazı özellikler yok (örneğin ses spectrumu, video en boy oran sorunu vs gibi..) 

-- Merak ettiğim ve öğrenmek istediğim --
1) Acaba bu media player ActiveX dosyalarını elle oluşturup, taşınabilir media player ile proje klasöründen çalıştırabilirmiyim. Bunun bir yolu varmı ? 
2)  Sorun acaba WMPLib_TLB.dcu kullanarak projemi oluşturmaktan mı . Media player atvicex değilde komponent olarak proje klasöründe kullanılıp çalıştırılabilirmi ?

Bu konu hakkında fikir ve çözümlerinize ihtiyacım var.  Çok uzun süredir çözümsüz kaldım. Lütfen yardımlarınızı paylaşırsanız sevinirim.
İyi çalışmalar

Bu konuyu yazdır

  Popup Reklam Kullanımı
Yazar: dnzmobile - 23-05-2017, Saat: 11:41 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (2)

Android'de bazı uygulama ve oyunlarda Popup reklam yayınlanıyor. Yani uygulama içerisinde kendi mağazalarındaki diğer uygulamaların reklamlarını yayınlıyorlar. Bu reklam uygulaması Delphi ile nasıl yapılır?
Aşağıda herhangi bir oyundan örnek olarak resim attım.


52RaO.png

Bu konuyu yazdır

  ModuleName
Yazar: quiet1day - 23-05-2017, Saat: 00:17 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (6)

Project Options - Versionİnfo kısmındaki Packages karşısındaki modulename ' yi silince uygulama hata veriyor sertifika ile ilgili , bunu nasıl çözebilirim ,
VersionName , ProductName tarzında şeyler yazmayı denedim olmadı yeni sertifika felan mı oluşturmam lazım . Teşekkürler.

.$(ModuleName)

Bu konuyu yazdır

Information Ücretsiz Object Pascal Handbook by Marco Cantu pdf
Yazar: masteryoda - 23-05-2017, Saat: 00:13 - Forum: e-Kaynak - Yorumlar (11)

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Formu doldurana Marco Cantu Object Pascal Handbook kitabı ücretsiz
updated for delphi 10.1 Berlin
şahsen dilimiize çevirilmesini çok isterdim.

Bu konuyu yazdır