TObjectList中的某一字段如何赋给ComboBox(100分)

  • 主题发起人 主题发起人 educrat
  • 开始时间 开始时间
E

educrat

Unregistered / Unconfirmed
GUEST, unregistred user!
我怎样能把TObjectList中的某一字段如何赋给ComboBox
 
你在ObjectList里面保存的是什么东西?
 
我做了一个query,把符合某些条件的记录从某个table中拿出来放到TObjectList的一个实例中,现在想把这些记录中的某一字段放到ComboBox中,不知用什麽属性
 
不是吧,有问题
你把保存纪录进去TObjectList的代码写出来
 
Combobox.Items.AddObject()

??
 
TobjectList 应该有ITEMS属性,那你
combobox.text:=tt.items
 
wlmmlw,能些全吗?
关键是括号里面
 
poorness,是这样的,关键TObjectList里面有很多字段啊。而我只是想把其中一个字段付给ComboBox
 
首先要知道你保存进ObjectList的是什么类型
你不能把“记录保存进ObjectList”就这一行代码贴出来吗
 
function ProjektsListe_SQL:TObjectList;
var qu : TQuery;
projekt : TProjekt;
//projekt : String;
projektlist : TObjectList;
begin
qu :=TQuery.Create(Application.MainForm);
qu.Databasename := 'INTRBASE2';

projektList:=TObjectList.Create(True);

with qu do begin
SQL.Clear;
SQL.Add('select * from projekts');
Open;

while not eof do begin
projekt:=TProjekt.Create;
projekt.ID :=FieldByName('projekt_ID').AsInteger;
projekt.NAME:=FieldByName('projekt_name').AsString;
//projekt.NAME:=FieldByName('projekt_name').AsString;
projekt.REST_TAETIG_ZAHL:=FieldByName('rest_taetig_zahl').AsInteger;
projekt.BESCHREIBUNG:=FieldByName('beschreibung').AsString;

projektList.Add(projekt);
next;
end;//while
result:=projektList;

close;
free;
end;//with
end;//function
 
现在我想把ObjectList中的Project这一字段付给ComboBox
 
Pipi. 有办法了吗?
 
for i:=0 to ObjectList.Count-1 do
ComboBox.Items.Add( TProjekt(ObjectList.Items).Name );//你是指procjekt_name吗?
 
接受答案了.
 
后退
顶部