Ich greife mit meiner Combobox auf meine Dbisam-Tabelle "fabric" zu und lasse mir das field "code" [2] anzeigen.
kann ich in derselben Combobox nicht auch noch ein weiteres Feld nebeneinander anzeigen lassen, z.B. [3] ?
Hier der Code:
procedure Tmovestock.ComboBox1Click(Sender: TObject);
var cod:TSerie;
begin
cod:=(combobox1.Items.Objects[combobox1.ItemIndex]) as TSerie;
descmodelo:=cod.code;
button3.Click;
end;
Delphi-Quellcode:
procedure Tmovestock.FormShow(Sender: TObject);
var feld:TField;
var felder:TFields;
cods:TSerie;
begin
DBISAMQuery2.SQL.Clear;
DBIsamQuery2.SQL.add('select * from fabric order by code');
DBISAMQuery2.Active:=false;
Dbisamquery2.ExecSQL;
Dbisamquery2.Active:=true;
dbisamquery2.First;
while not Dbisamquery2.eof do
begin
cods:=TSerie.Create;
felder:=dbisamquery2.Fields;
cods.code:=felder[2].AsString;
Combobox1.AddItem(felder[2].AsString,cods);
dbisamquery2.Next;
end;
dbisamquery2.Active:=false;
Serie:='';
edit1.Text := '0';
end;
untereinander habe ich es schon so:
Delphi-Quellcode:
begin
cods:=TSerie.Create;
felder:=dbisamquery2.Fields;
cods.code:=felder[2].AsString;
Combobox1.AddItem(felder[2].AsString,cods);
cods.code:=felder[3].AsString;
Combobox1.AddItem(felder[3].AsString,cods);
dbisamquery2.Next;
end