Delphi Forum

Burada öenmli olan hata çıkabilecek satırın try'dan sonra except'ten önce olmasıdır. Verdiğin örnekte hata çıkması muhtemel tek satır var o da "Query1.ExecSQL;" olduğundan her ikisi de doğrudur. Önemle vurgulamak istediğim nokta HATA ÇIKARABİLECEK SATIRIN ya da SATIRLARIN try-except ARASIN...

Bu öneri uyarmı bilmiyorum ama bu eski programı silip yerine yenisini koyacak farklı küçük bir .exe yaz. Oradan organize etmeye çalış. Mesela projende WinExec('Guncelle.exe',SW_HIDE); Application.Terminate; kodunu yazdıktan sonra güncellemek için ise Sleep(1500);//1.5 sn programın kapanması ve hafız...

Dm.TblBt.SQL.Clear; Dm.TblBt.SQL.Add('Select * from Bt where ucase(Domestic) like ''%'+AnsiUpperCase(EdtSearch.Text)+'%'''); Dm.TblBt.Open; şeklinde büyük harf duyarlılığını kaldıra bilirsin. Not:"ucase" fonksiyonu Access için diğer vt'lerde "upcase", "uppercase" vs. o...

Access'e güvenip sorgulamayı güçlendirmeyi düşünmek büyük hata olur. SQL gücü sadece listeleme ve filtreden ibarettir.

"Zip.Save;" metodundan sonra "Zip.CloseArchive;" metodunu kullanırsan dosyayı kullanımdan kurtarıyor ve istediğin gibi dosya silme taşıma isim değiştirme vs. işlemlerini yapabiliyorsun.

Aslında raporu tasarla ve bitir. O anda üstünde bulunduğun kayıt için liste alacaksan tek yapman gereken TQuickRep bileşenin dataset özelliğini boş bırakmak olacaktır. Orada sana sadece seçili olan tek kayıt için liste verecektir (Raporu görebilmek için detail bant kullanmak gerekir) . Bu arada TQRE...

Bu rapor hatası hangi işletim sisteminde geliyor. Win98'de ise exe içinde çok fazla pencere açık olduğundan bizde zamanında benzer hatalar aldık (XP'de aynı durumda hata oluşmuyor). Bir de "preview" yerine "previewmodal;" kullanmayı deneyin. Çünkü bu satırın altında bulunan kodla...

Zaten benim sorum mitec bileşenleri değil. O lazım değil (şimdilik...) ama konu oraya kaydı. Benim sorunum hangi mantıksal bölümün hangi fiziksel sürücüye ait olduğunu bulabilmek. Araştırmalarım devam ediyor

.dcu dosyalarını bulabildim. Kodu galiba parayla satılıyor.

Mitec bileşenleri içinden TMiTeC_Disk bileşenini kullandım ve MiTeC_Disk.Drive:='C:'; ShowMessage(IntToStr(MiTeC_Disk.GetCD)); kodunu denedim ama istediğimi vermedi. (Test için başkası kullandı kendim test edemedim.) Ayrıca, sadece bu iş için kullanacağımdan kodların elimde olmasını isterim. Varsa b...

Tablo.Filter:='yonetim=False and viztar<='''+tmptar2+' and viztar>='+tmptar1+'' değilde Tablo.Filter:='yonetim=False and viztar<='''+tmptar2+''' and viztar>='''+tmptar1+'''; şekline getir ama veri tabanı formatın gün/ay/yıl formatında değilse ona uygun hale getirmeye dikkat et. Mesela Ay/Gün/Yıl bi...

Aslında tüm çözümler hedefe götürür ama şık bir tercih düşünürsen kendi veri yapını oluşturup onu kullan derim. type TDosya=record Ad,Yol,Uzantı:String; Boyut:Integer; end; function StrToDosya(const DosyaAdi:String):TDosya; var i:Integer; begin Result.Ad:=ExtractFileName(DosyaAdi); Result.Yol:=Extra...

Sen şu "mitec derim de başka bi şey derim ama mitec." diyen vatandaşsın. Biraz inceleme yapayım bakalım bulabilecek miyim. Bulursam buraya yazarım ama bu arada başka yöntem veya fikirleri olan varsa onlara da hayır denmez herhalde.

Göz kararı dediğime bakmayın 5-6 kere düzenleme yaptmıştım!

Eğer ADO'nun DataSet bileşenlerini (TADOQuery,TADOTable vs.) kullandıysan bunu normal grid içinden de yapabilirsin. procedure TForm1.DBGrid1TitleClick(Column: TColumn); const Desc=' DESC'; LenDesc=Length(Desc); var DataSet:TDataSet; begin if Assigned(Column) and Assigned(Column.Field) and Assigned(C...