Edit'i Combobox gibi kullanmak

[bünyamin68]

Arkadaşlar tekrardan merhaba projeme yeni bir boyut kazandırdım comboboxtan vazgeçtim işimi editle görmeye karar verdim kodlarıda yabancı bir siteden temin ettim güzelde çalışıyor buradaki sorunum şu.

FAutoComplete  := CreateComObject(CLSID_AutoComplete) as IAutoComplete2;
FStrings := TEnumString.Create(listbox5.Items) as IUnknown;
OleCheck(FAutoComplete.SetOptions(ACO_AUTOSUGGEST or ACO_UPDOWNKEYDROPSLIST));
OleCheck(FAutoComplete.Init(edit6.Handle, FStrings, nil, nil));

forma listbox ekliyorum veritabanından bilgileri  listboxa çekiyorum  listbox aracılığı ile de (listbox5.Items) bu kodla bilgileri edite çekiyorum sonuç olarak edit combobox gibi görev yapıyor ve yazıyı yazdığım anda filtreleme işlemi başlıyo fakat edit sayısınca listbox eklemem gerekiyor buda gereksiz kalabalığa neden oluyor. ben nasıl bir kod kullanmalıyım ki (listbox5.Items) bu kodla yazdığım yere koyduğumda listbox gibi araç kullanmadan veritabanındaki bilgileri direk edite çekebileyim. Birde bu kodların tümünü bir fonksiyon olarak kullanabilir miyim. her edite görev vermemde çok yer kaplıyor. Cevaplarınız için şimdiden teşekkür ediyorum.

[SimaWB]

Verilerinizi TStringList'e aktarıp listbox5.Items yerine bu StringList'i kullanabilirsiniz

[bünyamin68]

(10-09-2019, Saat: 13:30)SimaWB Adlı Kullanıcıdan Alıntı: Verilerinizi TStringList'e aktarıp listbox5.Items yerine bu StringList'i kullanabilirsiniz

Öncelikle cevabınız çok teşekkür ediyorum. bu verileri Tstringliste nasıl aktarmam konusunda epey araştırma yaptım ama sağlıklı bir sonuç alamadım her ne kadar delphide yol katetsemde çok eksiklerim var. Sizden ricam bana veri tabanındaki belirli bir sütunun verilerini Tstringliste nasıl aktaracağım konusunda bir örnek verebilir misiniz.

[SimaWB]

(10-09-2019, Saat: 15:03)bünyamin68 Adlı Kullanıcıdan Alıntı: Öncelikle cevabınız çok teşekkür ediyorum. bu verileri Tstringliste nasıl aktarmam konusunda epey araştırma yaptım ama sağlıklı bir sonuç alamadım her ne kadar delphide yol katetsemde çok eksiklerim var. Sizden ricam bana veri tabanındaki belirli bir sütunun verilerini Tstringliste nasıl aktaracağım konusunda bir örnek verebilir misiniz.

Yol göstermesi açısından, şuna benzer bir şeyler olmalı:

SL := TStringList.Create;
DataSet.First;
while not DataSet.EOF do
begin
 SL.Add(DataSet.FieldByName('KolonIsmi').AsString);
 DataSet.Next;
end;

[bünyamin68]

SİMAWB hocam teşekkür ediyorum cevabın için seni de gereksiz yere meşgul ediyorum kusuruma bakma affına sığınıyorum. Bir yerlerde hata yapıyorum ama nerede bilmiyorum çünkü dataset.fieldbyname özelliği bende gelmiyor query denedim table denedim ama .fieldbyname özelliği gelmiyor aceba uses kısmına birşeymi eklemem gerekiyor anlayamadım.

[SimaWB]

http://docwiki.embarcadero.com/Libraries...ieldByName

Şu linklerde de kullanım örnekleri var:
http://docwiki.embarcadero.com/RADStudio...ng_FireDAC
http://docwiki.embarcadero.com/CodeExamp...s_(Delphi)
http://docwiki.embarcadero.com/CodeExamp...e_(Delphi)

[bünyamin68]

(11-09-2019, Saat: 13:06)SimaWB Adlı Kullanıcıdan Alıntı: http://docwiki.embarcadero.com/Libraries...ieldByName

Şu linklerde de kullanım örnekleri var:
http://docwiki.embarcadero.com/RADStudio...ng_FireDAC
http://docwiki.embarcadero.com/CodeExamp...s_(Delphi)
http://docwiki.embarcadero.com/CodeExamp...e_(Delphi)

SimaWB hocam şehir dışında olduğum için önerinizi inceleyemedim. Bugün inceledim ve tavsiyeniz sayesinde sorunu çözdüm. Bu sorun hallolduğuna göre yeni soruya merhaba diyelim affınıza sığınarak.

Aşağıda yazmış olduğum kodlar sorunsuz çalışıyor Tstringliste veri tabanından bilgi almayı da başardım sayenizde. Sorun şu veri tabanına herhangi bir kayıt yaptığımda combobox gibi kullandığım edit içine gelen bilgiler güncellenmiyor yani veri tabanına kaydettiğim son bilgi gelmiyor gelmesi için run ettiğim projeyi durdurup tekrar çalıştırmam gerekiyor.Kaydet butonuna basıldığı anda güncellenmesi için ne yapmam gerekiyor yardımlarınızı bekliyorum. Zaman ayırıp her seferinde cevap verdiğiniz için ayrıca teşekkür ediyorum.

procedure TForm1.FormCreate(Sender: TObject);
var
SL:TStringlist;
begin
SL:= TStringList.Create;
adoquery1.First;
while not adoquery1.Eof do
begin
SL.Add(ADOQUERY1.fieldbyname('PLAKANO').AsString);
ADOQUERY1.Next;

FAutoComplete  := CreateComObject(CLSID_AutoComplete) as IAutoComplete2;
FStrings := TEnumString.Create(SL.Create) as IUnknown;
OleCheck(FAutoComplete.SetOptions(ACO_AUTOSUGGEST or ACO_UPDOWNKEYDROPSLIST));
OleCheck(FAutoComplete.Init(edit7.Handle, FStrings, nil, nil));

[SimaWB]

Bazı veri tabanlarında, bir tabloya yeni kayıt eklendiğinde vs. tüm client'ları bilgilendirme özelliği var. Forumda konuşulmuştu ama konuyu bulamadım
Şurada detaylı bilgi var:
http://docwiki.embarcadero.com/RADStudio..._(FireDAC)