Delphi Forum

Repeat-Until döngüsü içerisinde her seferinde tabloyu silip(DROP) tekrar oluşturuyorsunuz(CREATE TABLE) gibi gözüküyor.

yol bir değişken değil de sizin yazdığınız gibi bir sabit ise ve içerisinde sadece dosya isimlerini barındırıyorsa; bence her seferinde bu dosyayı Dosya_kontrol içinde TStringList içerisinde açmanıza gerek yok. Bu işlemi sadece bir kez yapın. Dosya_ara içinde bir TStringList içine bu dosyayı açıp, o...

Dosya_kontrol(yol, SR.Name) Buradaki "yol" nedir? if Dosya_kontrol(yol, SR.Name) satırına Breakpoint koyup değişkenlerin değerlerini kontrol ettiniz mi? if FindFirst(root + '*.*', faAnyFile, SR) ile sadece text dosyaları değil tüm dosyaları işleme aldığınızın farkında mısınız? Dosya_kontr...

CopyRect ile yapabilirsiniz. İlk resmin en alt kısmıyla tam olarak nereyi kastettiğiniz belli değil ama şöyle örnek vereyim: Image1.Canvas.CopyRect( Rect(50, 50, Image2.Picture.Width, Image2.Picture.Height), Image2.Canvas, Image2.Canvas.ClipRect ); Yukarıdaki kod Image2'deki resmi Image1'in (50,50)...

TPopupMenu kullanıyorsan PopupMenu1.PopupComponent değeri işini görür.

Ayrıca; gerçekten milisaniyeler (belki de nanosaniyeler ) sizin için önemliyse döngülerde enumarator kullanmak biraz daha yavaş olur gibi.
Yani
yerine

daha hızlı olur tahminim.

Daha önce kullandığım için tavsiye ederim: GpLists . Tek bit unit ve içinde TList'ten türemiş birçok sınıf var. Sizin işinize yarayacak olan sınıf TGpCountedIntegerList . Bu unit'i kullanarak istediğinizi yapabileceğiniz ve kimimben in paylaştığı kod ile karşılaştırabileceğiniz örnek: procedure GpLi...

Bence ikisi arasında oluşan 30-35 ms'lik fark DC'nin elde edilmesinden kaynaklanıyordur.

http://www.delphican.com/showthread.php ... 58#pid2258

Yapmak istediğinizi tam anlayamadım.
Ama döngüden önce ListView1.Items.Count'u bir değişkene atın. Sonra döngüyü bu değişkene kadar olacak şekilde yapın, belki probleminiz çözülür.

Siz ListView1'e ekleme yapıyorsanız, ListView1.Items.Count sürekli arttığı için döngü sonsuza dek çalışır.

ActiveX.pas içerisinde VarR8FromDec fonksiyonu var, DECIMAL değeri sana float olarak döndürüyor. Belki işine yarayabilir.

Döngü içinde ListView1'e ekleme yapıyorsanız ondan olabilir.

"GetElementByID" şeklinde aratın.

FireMonkey TListView'da elbette çoklu seçim var. Burada güzel bir anlarım mevcut.