Delphi Forum

delphinin standart combobox nesnesiyle bunu yapabilirsiniz,
delphi combobox add object olarak arayın, örnek olarak şuna bakabilirsiniz

sorunu yanlış yerlerde arıyorsunuz gibi geldi bana,
kodunuz eğer ilk mesajdaki gibiyse adım adım çalıştırırsanız for döngüsüne girmediğini görürsünüz,

for I := 1 to -0 do

burada ne yapmak istediniz anlamadım ama döngünüzü

for I := 0 to 1 do

şeklinde düzeltip deneyin

muhtemelen nesneyi free ettiğinizde Components dizisinden çıkarıldığı için erişim sıkıntısı yaşıyorsunuz,
döngüyü şeklinde kurup dener misiniz

o zaman öncelikle neyi niye yaptığınızı öğrenene kadar programlama mantığını ve kodlama pratiğinizi geliştirdikten sonra veritabanı işlemlerine vs girmeniz sizin için daha faydalı olacaktır... yoksa bu sorunuzla ilgili çözüm örneği versek bile bir sonraki sorunda yine tıkanacaksınız...

resim kaydı boş, yani olmayan bir dosyayı göstermesini bekliyorsunuz, ee adam ne yapsın...
resimlerinizin bulunduğu klasöre resimyok adında bir resim dosyası ekleyin ve kodunuzu Dm1.QrStok.fieldByName('STKRESIM').AsString boşsa resimklasoru\resimyok.jpg dosyasını gösterecek şekilde düzenleyin...

delphi extractstrings

buradayazılanlar işinizi görebilir belki

delphi dinamik dizi anahtar kelimeleriyle aradığınızda ilk sonuç forumdan geliyor...

delphi tarafındaki kodunuzu da paylaşırsanız fikir yürütülebilir

Sayın unicorn64 öncelikle derdime bir açıklık getireyim:
-------------------------------------------------------------------
Ben iklimlendirme ile ilgili bir çalışmanın içinde uzun süredir bulunuyorum.
ilk mesajımda örnek olarak verdiğim string şeklindeki değerlerin veritabanına kayıtlı olduğunu ...

Sayın Dostum unicorn64 konuya biraz daha açıklık getirirminiz.
Sayın Dostum "kirve" ;
1. Paradox tablodaki verilerim string tipinde.
2. Örneğimde verdiğim 1,75 rakamı veritabanında kayıtlı değil.
Değerlendirmelerini buna göre yaparak daha ayrıntılı bilgi ve kod verirsen memnun olacağım.
Her ...

SELECT MAX(ALAN_ADI) KUCUKLERIN_EN_BUYUGU FROM TABLO WHERE ALAN_ADI<:KONTROL_DEGERI -- verilen örneğe göre kontrol değerine 1,75 verilirse 1,65 i döndürür
SELECT MIN(ALAN_ADI) BUYUKLERIN_EN_KUCUGU FROM TABLO WHERE ALAN_ADI>:KONTROL_DEGERI -- verilen örneğe göre kontrol değerine 1,75 verilirse 1 ...

bu fonksiyonu çağıran yerde fonksiyondan dönen nesne işi bittiğinde free ediliyor mu?

sonuçta 1 adet TJSONObject ve fields sayısınca TJsonPair nesnesi create ediliyor ama bunlar bu fonksiyon içinde free edilmemiş oluyor

sorguyla yaptığınıza göre
Select count(*) as adet From URUNLER

şeklinde neden yapmıyorsunuz?
110000 kaydı hem de * la çekmek pek mantıklı gelmedi bana


Cevaplar için teşekkür ederim;


Close;
SQL.Clear;
SQL.Add('Select Count(*) As 1500 From URUNLER');
Open;

Hatası alıyorum
ERROR: near "1500 ...

sorguyla yaptığınıza göre şeklinde neden yapmıyorsunuz?
110000 kaydı hem de * la çekmek pek mantıklı gelmedi bana