Delphi Forum

procedure TForm1.Button1Click(Sender: TObject); function Replace(AText, BText, CText: String): Boolean; var ReplacedText: String; begin ReplacedText := StringReplace(AText, BText, CText, [rfReplaceAll]); Result := not SameText(AText, ReplacedText); end; begin if Replace('ALI TOPU TUT', 'ALI', 'VELI...

Pos ile text icinde ali var mi diye kontrol et. Varsa deger true döner, yoksa false.

Zaten isin mantigi bu. Sen paralel olarak islem yapmak istiyorsun. Ekledigin job‘un süresi threadin cagirildigi prosedürün devamindaki islemi baglamaz. Aksi takdirde waitfor kullanman gerekir, bu da thread bitmeden prosedürün devamindaki kodlari execute etmez. Bu durum senin yapmak istedigin paralel...

Bunun icin multithread calisman gerekir. Bir threadpool olusturup, job eklemesi yapmalisin.
Ancak o zaman paralel prosedür tetiklemesi yapabilirsin.
Click ve akabinde yapilacak islemler ayni global degiskenleri kullanacak olurlarsa, problem cikacaktir. Bu durumda sectionlar ile lock etmen gerekecek.

Kodun sonunda suspend yok.

Google = TAbMeter delphi yazinca Abbrevia isimli bilesen seti oldugunu, TAbMeter‘in bir ProgressBar oldugunu yaziyor.

Hangi döngüyü?
Döngü gecmiyor sorunun icinde.

Pos(elma)+1 komutu elma varsa 4, yoksa 0 döndürecektir.

eger veritabani ile program ayni bilgisayar üzerinde calisiyorsa, bir udf yazilip, icerigi doldurulmus "cift küme array" yada "item+value" özelligi olan bir class'in pointeri parametre olarak gönderilip islem yaptirilabilinir.

Linux‘a firebird kurmaktansa, veritabanindan vazgecip, kara kalem ile bakkal defteri tutmak sanki daha bir kolay gibi geldi bana.
Yada windows kullanip, setup dosyasina cift tiklamak.

Case when else yerine coalesce kullanip kodunuzu kisaltabilirsiniz.

Anlatmaya calisayim. TForm nesnesine eksik gördügüm yada isimi kolaylastirabilecek Property ve PropertyEditörler yazmayi düsündüm. Mesela Form'u cift tiklayinca IBExpert gibi bir pencere neden acilmasin? DataSet, DataSource eklemek yerine, CollectionItems gibi tek tus ile DataSet eklemek, Sql'leri m...

cevap icin tesekkür ederim.
vcl dosyasini recompile edebilmem icin tüm bilesen setini property editörleri ile birlikte register edebilecegim unitler yazmam gerekiyor.
bu da delphi'yi sifirdan programlamaktan farksiz.
ben bilmedigim, daha baska bir yöntem olabilir diye düsünmüstüm.

haklisin. ilgili bpl'yi yeniden olusturup kurmam gerek. bunun icin dpk yapisina ihtiyacim var.
nasil bir yol izlemem gerekiyor? google tikandi.

senin imzandaki yazi ile yola ciktim... biraz zaman alacak : )