Hoşgeldin Misafir
Mesaj atabilmek için forumumuza kayıt olmalısınız.

Kullanıcı Adı
  

Şifre
  





Forumlarda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Üye Sayısı: 149
» En Son Üyemiz: narkotik
» Konu Sayısı: 31
» Mesaj Sayısı: 72

Tam İstatistik

Çevrimiçi Kullanıcılar
Şu anda 3 çevrimiçi kullanıcı var.
» 1 üye | 2 Misafir
vampisee

En Son Konular
Lazreport pdf çıktısında ...
Forum: Raporlama
Son Mesaj: admin
10-11-2017, 07:57 AM
» Cevaplar: 8
» Gösterim: 1,962
sdposerial component kuru...
Forum: Genel
Son Mesaj: run
10-01-2017, 07:42 AM
» Cevaplar: 2
» Gösterim: 1,298
Jalv2 - Dizi Tanımlamalar...
Forum: JalV2
Son Mesaj: SercanTEK
09-29-2017, 10:27 AM
» Cevaplar: 0
» Gösterim: 1,185
Jalv2 - Sabitler
Forum: JalV2
Son Mesaj: SercanTEK
09-29-2017, 10:24 AM
» Cevaplar: 0
» Gösterim: 356
Jalv2 - Değerlerin Göster...
Forum: JalV2
Son Mesaj: SercanTEK
09-28-2017, 06:17 PM
» Cevaplar: 0
» Gösterim: 192
Elera İşletim Sistemi (el...
Forum: İşletim Sistemi
Son Mesaj: SercanTEK
09-27-2017, 09:27 PM
» Cevaplar: 1
» Gösterim: 1,319
F1 Led Stop Çakar Devresi...
Forum: Örnek Uygulamalar
Son Mesaj: SercanTEK
09-27-2017, 09:24 PM
» Cevaplar: 0
» Gösterim: 711
Jalv2 - Değişkenler
Forum: JalV2
Son Mesaj: admin
09-27-2017, 08:53 PM
» Cevaplar: 1
» Gösterim: 262
Zeoslib Kurulumu
Forum: Zeoslib
Son Mesaj: admin
09-25-2017, 07:53 AM
» Cevaplar: 0
» Gösterim: 131
Temel Sorgular
Forum: Veritabanı
Son Mesaj: admin
09-25-2017, 07:51 AM
» Cevaplar: 1
» Gösterim: 985

 
  Küçük harfi büyük harfe çevirme
Gönderen: soncizgi - 07-05-2017, 06:54 PM - Forum: Genel - Cevaplar (5)

Arkadaşlar daha önce aşağıdaki kodu Delphi sorunsuz bir şekilde kullanıyordum. Lazarusta deniyim dedim, Türkçe karakterde çevirme yapmadı. Yardım ederseniz sevinirim. Kullandığım kod aşağıda. Eğer sizin daha önce kullandığınız bir yöntem varsa onuda kullanabilirim. Smile
edit kutusun CharCase özelliğini "ecUppercase" yaptığımda düzgün çıkmayan sadece "i" harfi oluyor.

Kod:
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: char);
var
Harf:Char;
Buyuk,Kucuk:String;
j,i:integer;
begin
Buyuk:='ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZQWX';
Kucuk:='abcçdefgğhıijklmnoöprsştuüvyzqwx';
For i:=1 to 32 do
        begin
          Harf:=Key;
             For j:=1 to 32 do
             begin
                 if Harf=Kucuk[j] then
                     begin
                       Harf:=Buyuk[j];
                     end;
                 end;
       end;
       Key:=Harf;
   end;              


[Resim: 0B1nNB.png]

Bu öğeyi yazdır

  Eşleme Oyunu
Gönderen: admin - 07-05-2017, 06:39 PM - Forum: Sizden Gelenler - Cevap Yok

Uzun zaman önce boreas.gen.tr adresinde yapımını yazdığım eşleme oyunu.

Eşleme Oyunu

[Resim: VM0vJj.jpg]

Bu öğeyi yazdır

  Türkçe-İngilizce Sözlük uygulaması
Gönderen: soncizgi - 07-02-2017, 06:57 AM - Forum: Sizden Gelenler - Cevaplar (1)

Evet arkadaşlar basit düzeyde yaptığım bir sözlük uygulaması.

Caps: [Resim: lWEX1J.png]

Kelimeler dosyası (Excel) : Kelimeler (Excel dosyası) 205.39 KB

Kaynak kod indir: Sözlük kaynak kod 2.07 MB

Exe hali indir  : Sözlük exe 5.59 MB

Form bileşenleri: [Resim: PrQdQ5.png]

Bu öğeyi yazdır

  Katıkıda bulunmak istiyorum
Gönderen: soncizgi - 07-01-2017, 08:26 PM - Forum: Bende Varım !! - Cevaplar (1)

Sayın site yöneticimiz, lazarus konusunda katkıda bulunmak istiyorum. Elimden geldikçe ve zaman el verdikçe yazıllar eklemek istiyorum. Basit düzeyde de olsa katıda bulunmak istiyorum. Forumda resimli anlatım yapmak aklıma geliyor. Örneğin edit kutusu, listbox gibi nesnelerin kullanma şekilleri vs. 
En azından şu aşağıdaki site örneğinde olduğu gibi bildiklerimi anlatmaya çalışırım.
http://lazplanet.blogspot.com.tr/2013/05....html#more

Bu öğeyi yazdır

  Excel dosyasından veri çekme
Gönderen: soncizgi - 07-01-2017, 09:18 AM - Forum: Genel - Cevaplar (2)

Arkadaşlar Excel dosyasından veri çekmek istiyorum. Dosya yolunu sabit elle yazdığımda sorun yok. Ancak openDialog kullanıp dinamik olarak çektiğim zaman hata alıyorum.


Şöyle aşağıdaki gibi yaptığımda sorun yok
Excel.Workbooks.Open('C:\Users\Afme\Documents\Lazarus_projeleri\Exceloku\5ler.xls');

Ama şöyle yaptığımda ise sorun oluşuyor.
Excel.Workbooks.Open(path);

------------------------------------------------------------

Bu arada path de şu şekilde alıyorum.

Kod:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if openDialog1.Execute then
 begin
   edit1.Text:=OpenDialog1.FileName;
 end;

 path := Edit1.Text;

end;



[Resim: lWE1WQ.png]

Bu öğeyi yazdır

  Flaşdiskte istenen dosyanın olup olmadığı?
Gönderen: soncizgi - 06-28-2017, 02:27 PM - Forum: Genel - Cevaplar (1)

Arkadaşlar amacım bir usb kilit programı yapmak. Adım adım gitmek istiyorum.
Öncelikle bilgisayara takılı bir flaşdisk varmı, yok mu? kontrolü yapmak istiyorum. Diyelim bunu 2 sn de bir kontrol etsin. Bu zaman kontrolünü timer nesnesi ile yapacam tamam ama, usbdisk takılımı değilmi, takılı ise atıyorum sifre.txt dosyası mevcut mu? bunun gibi işlemleri nasıl yapabilirim.

Bu öğeyi yazdır

  Linux için ses bileşeni
Gönderen: ahmetax - 06-25-2017, 09:36 AM - Forum: Bileşen - Cevaplar (1)

Herkese iyi bayramlar. Ubuntu linux üzerinde de çalışabilecek bir ses bileşenini nereden bulabilirim?
Basit uyarı sesleri çalabilmesi yeterli.
Teşekkürler.

Bu öğeyi yazdır

  Pdf Exporter kurulumda hata
Gönderen: soncizgi - 06-24-2017, 10:08 AM - Forum: Bileşen - Cevaplar (2)

LazReport PDF exporter paketini kurmaya çalıştığımda aşağıdaki hatayı alıyorum
[Resim: 6X519v.png]

Bu öğeyi yazdır

  Lazreporta 2 farklı renk yapma
Gönderen: soncizgi - 06-23-2017, 02:51 PM - Forum: Raporlama - Cevaplar (3)

Arkadaşlar lazreporta bilgileri masterdata da listelerken 1 satır beyaz, 1 satır gri renkte arkaplan nasıl yapabilirim.

Bu öğeyi yazdır

  Lazarus IDE Türkçe Dil Dosyası
Gönderen: admin - 06-21-2017, 09:46 AM - Forum: Çeviri - Cevaplar (5)

Lazarus'un Türkçe çevirisi ile ilgili çalışmaları bu başlık altında toplayalım. Her çeviri ya da düzeltme  yapan güncel link'i buradan paylaşırsa düzgün temiz Türkçeli bir lazarus elde edeceğimize inanıyorum.


lazaruside.tr.po.0.1



DOSYAYI LAZARUS'DA KULLANMAK İÇİN SONDAKİ VERSİYON BİLGİSİNİ SİLİN
lazaruside.tr.po.0.1 ---> lazaruside.tr.po 
şeklinde kullanabilirsiniz

Bu öğeyi yazdır