1746 uygun sonuç bulundu

gönderen freeman35
02 Nis 2022 09:11
Forum: Programlama
Başlık: Application Error Exception EInOutError Hatasını durdurmak
Cevaplar: 6
Görüntüleme: 1832

Re: Application Error Exception EInOutError Hatasını durdurmak

google dan "delphi serial port example" anahtar cümleden çıkan bazı arama sonuçları

https://www.youtube.com/watch?v=OF0TFBQKCSY

videodaki opensource comport component ın linki
https://sourceforge.net/projects/comport/files/
OnError diye bir event gördüm. Kodu incelersen fikir verebilir.

https ...
gönderen freeman35
10 Mar 2022 10:38
Forum: Programlama
Başlık: FastReport Veri Girişi Değişken
Cevaplar: 5
Görüntüleme: 1987

Re: FastReport Veri Girişi Değişken

Kod: Tümünü seç

function frxMemo_Icerik_Ayarla(L, F: string): Boolean;
var X: TfrxComponent;
begin
 Result:= False;
 X:= FR_.Report.FindObject(L);
 if X<>nil then TfrxMemoView(X).Memo.Text:= F;
 Result:= True;
end;
raporu preview etmeden önce ilgili frxMemo'lara atama yapabilirsin
kolay gele
gönderen freeman35
05 Oca 2022 11:09
Forum: Paket Programlar
Başlık: PlayStation Kafe ve Kantin Yazılım ( Web )
Cevaplar: 3
Görüntüleme: 16958

Re: PlayStation Kafe ve Kantin Yazılım ( Web )

sağdan departman seçtiğinde, soldaki gridleri temizlemen mantıklı olacaktır. vaktin olursa bootstrap kullanmaya çalış, unigui destekler, kısmen tabiki. (masalar ekrana belli bir miktara kadar tabi sığmalı, kullanıldığı ekrana bağlı tabi). yaz fontlarını da bir size belirle ve çok farklı sizelar ...
gönderen freeman35
03 Oca 2022 10:25
Forum: Programlama
Başlık: EClassNotFound Hatası
Cevaplar: 4
Görüntüleme: 1218

Re: EClassNotFound Hatası

Fikir versin diye ekledim, kaynak http://delphiexamples.com/databases/addfield.html
bu linkte yani delphi nin help inde göründüğü üzere
https://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TFieldDef.CreateField
CreateField bir function ve result olarak oluşturduğu field ı döndürüyor. yani ...
gönderen freeman35
01 Oca 2022 10:18
Forum: Programlama
Başlık: toplu sms gönderme
Cevaplar: 4
Görüntüleme: 1737

Re: toplu sms gönderme

numaralar arasına virgül yada noktalı virgül koyarak denedin mi? en net cevap gönderdiğin siteye yada bu xml i alan yere sorman olacaktır.
gönderen freeman35
29 Ara 2021 10:53
Forum: Programlama
Başlık: EClassNotFound Hatası
Cevaplar: 4
Görüntüleme: 1218

Re: EClassNotFound Hatası

FieldDefs .CreateField(aowner);
AOwner ın form burada, olması hereken senin memtable ın.
memtable la uğraşmak yerine ki başkasının classı, gereksiz bir sürü code da yükleniyor. Bir integer, iki float sayın var. bunları record tipine çevir ve dinamik bir array de tut. ekleme silme sık olacaksa bu ...
gönderen freeman35
26 Ara 2021 10:55
Forum: Kylix / Lazarus / Freepascal
Başlık: Android için Lazarus Çalışma Ortamının Sıfırdan Hazırlanması
Cevaplar: 5
Görüntüleme: 19652

Re: Android için Lazarus Çalışma Ortamının Sıfırdan Hazırlanması

Eline sağlık güzel olmuş, ama :D
Bunları yapan bir bach file hazırlasaydın çok daha fazla kullanmaya çalışan olur kanaatindeyim. Malum windows un yaygınlaşma sebebi, çift tıkla, sadece ileri, ileri de her şey hazır :)
nacizane tavsiyem, C değilde D sürücüsünü kullanın. format vs gibi işlemlerde ...
gönderen freeman35
25 Ara 2021 11:05
Forum: Programlama
Başlık: Udf formatı
Cevaplar: 6
Görüntüleme: 2081

Re: Udf formatı


.... en ufak değişiklikte evrak bozuluyor.


amaç ta o zaten. adalet bakanlığının bunu yapma sebebi bu. Digital ortamda evrak sahtekarlığının önüne geçişmesi. Bunu aşamazsın, aşma yolunu bulursan da bakanlığın sistemi çökmüş demektir :D bir sürü dava pert olur :)
doc yada rtf ye delphiden ...
gönderen freeman35
24 Ara 2021 10:47
Forum: Programlama
Başlık: Udf formatı
Cevaplar: 6
Görüntüleme: 2081

Re: Udf formatı

Devletin memurundan iş bekleme. Bir müdür ün bana verdiği cevaptır " Evinde yatsa da buraya da gelse aynı parayı alıyor neden çalışsın ki?"
udf i bi ara kendilerine şart koşmuşlar, yapmışlar, muhtemelende işin içinde fetomanlar vardı. neyse,
https://www.youtube.com/watch?v=sgX31LB42vg
Burdan ...
gönderen freeman35
21 Ara 2021 11:11
Forum: FireBird
Başlık: deadlock hatası
Cevaplar: 4
Görüntüleme: 17768

Re: deadlock hatası

AutoCommit değilde, AfterPpost Eventinde CommitRetaing kullanın. DataSet deauto edit True yapın, form Açılırken TQuery yi edit moda geçirmeyin, kullanıcı değişiklik yaparsa auto geçer ve transaction başlar.
gönderen freeman35
12 Ara 2021 02:36
Forum: Kylix / Lazarus / Freepascal
Başlık: Lazarus'ta, Android Uygulama yazmak.
Cevaplar: 3
Görüntüleme: 14668

Re: Lazarus'ta, Android Uygulama yazmak.


...
Yani sizin lehçede ; "Kemal'e ermiş bir Zat-ı Muhterem olmuş". diyebiliriz.
..

Hepten dinazor yapsın ya beni :lol:
Yazını okuyunca fark ettim ki, Meraklılar özellikle de yazılım dili başka bir deyişle, yazılımcı olmayı isteyenler, mutlaka "free pascal" ve bununla yazılmış pascal projesi ...
gönderen freeman35
12 Ara 2021 10:14
Forum: Kylix / Lazarus / Freepascal
Başlık: Lazarus'ta, Android Uygulama yazmak.
Cevaplar: 3
Görüntüleme: 14668

Re: Lazarus'ta, Android Uygulama yazmak.

Kullanılması konusunda ben çekimserim, geçmişten kalan tecrübe. Örnek, compile sırasında info form açılırdı, alaman keferesi ben kullanmıyorum dedi ve kaldırdı. Bir diğeri, x64qt yoktu, ben kör topal eklemiştim, bir hata çıkmıştı, qt ile ilgilenen elemanın cevabı, bu arada ben osx de çalışıyordum ...
gönderen freeman35
26 Kas 2021 08:32
Forum: Programlama
Başlık: FdMemtable unic index alana yazma
Cevaplar: 2
Görüntüleme: 963

Re: FdMemtable unic index alana yazma

Field tipi değiştir, readonly sini false yap, verdiği hataya göre işlem yap.
gönderen freeman35
08 Kas 2021 11:41
Forum: Programlama
Başlık: Memo1 deki kayıt sayısını bulmak.
Cevaplar: 5
Görüntüleme: 1354

Re: Memo1 deki kayıt sayısını bulmak.

"CheckListBox1 daki Moduller" modül ne? böyle bir property bildiğim kadarıyla yok. Kastetdiğin string ise içerik burda CheckListBox.Items[]

for r := 0 to Memo1.Lines.Count - 1 do
begin
KayitBul := Memo1.Lines.Strings[ r ];
CheckListBox1.Checked[r]:= (KayıtBul burada CheckListBox.Items[] varsa);
gönderen freeman35
07 Kas 2021 09:25
Forum: Programlama
Başlık: Memo1 deki kayıt sayısını bulmak.
Cevaplar: 5
Görüntüleme: 1354

Re: Memo1 deki kayıt sayısını bulmak.


Memo1.Text de 8 kayıt var bu kayıtları nasıl bulabilirim? Aşağıdaki kod 12 kayıt kadar dönüyor ve bu 8 kayıdın karşılığını CheckListBox1 de işaretlemek istiyorum.


procedure TForm1.Memo1DblClick(Sender: TObject);
Var
KayitBul:String;
r :Integer;
begin
If Edit4.Text=KayitBul Then
Begin
Memo1.Text ...