Assign Komutu ile Sorgu Sonucu Aktarılabilir Mi?

[R.K.]

İyi çalışmalar arkadaşlar. Assing komutunun kullanımına bakıyordum ve forumda daha önce geçen konularıda inceledim. TStringList sınıfından tanımlanan bir değişkeni Combobox gibi bir bileşenine items olarak atayabiliyoruz gördüğüm kadarıyla. Asıl yapmak istediğim Query ile çektiğim kayıtlardaki en kolay (en kısa, en uygun) yolla bir Comboboxa doldurmak.Bunu Assign komutunu kullanarak aşağıdak gibi denedim ama olmadı. Bu mümkün mü? Cannot assign a TStringList to a TwideStringField gibi bir hata mesajı alıyorum. Anladım kadarıyla alanın birinin TStringList olması ve birden çok değer içermesi querynin alanının ise tek sonuç içermesi ve tip dönüşümü yapılamadığı için atamanın yapılamaması. Kodlar ise aşağıda. Bu kodları formun onshow olayında çalıştırıyorum. Kodlar mı hatalı yoksa zaten olmayan birşeyi mi deniyorum. Yardımcı olursanız sevinirim. İyi çalışmalar...

Kod: Tümünü seç

procedure TfrmMain.FormShow(Sender: TObject);
var metin:TStringList;
begin
metin:=TStringList.Create;  
ComboBox1.Clear;
  dm.qryIsletmeişletmeadı.Assign(metin)
end;

[conari]

Kod: Tümünü seç

while not query.eof do begin 
combobox.ites.add(queryfieldx.value) şeklide alabilirsiniz
end;

[R.K.]

Teşekkür ederim hocam bugün deneyecem bu kodları.