Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi combobox anzeige (https://www.delphipraxis.net/70079-combobox-anzeige.html)

tom_po 24. Mai 2006 17:39


combobox anzeige
 
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

Hawkeye219 25. Mai 2006 09:59

Re: combobox anzeige
 
Hallo,

bei den Schweizern findest du einen Lösungsansatz.

Gruß Hawkeye


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz