[FMX] Combobox per Code mit Daten füllen

[himitsu]

Zitat von Darlo:

Delphi-Quellcode:

for i := 0 to sl.Count-1 do
  self.combobox.Items.Add(sl[i]);

Etwas wie ComboBox.Items.AddStrings(SL); gibt es im FMX nicht?

Aber bei

Zitat von Devil1925:

Die Query für die Daten wird ebenfalls dynamisch erstellt.

könnte man auch direkt an eine DB-Verbindung nachdenken (wenn die Query bestehen bleibt die Daten die ganze Zeit geladen bleiben), also per LiveBinding die ComboBox an die Query binden.

[Devil1925]

zum Thema Livebindings: kann man die so ohne weiteres Setzen im Code? weil ich ja nicht im vorraus schon weis wie viele Comboboxen ich habe und dementsprechend wie viele Querys ich generiere.

[Sherlock]

Sind LiveBindings mittlerweile alltagstauglich? Ich hörte noch im letzten Jahr gegenteiliges. Vergleiche dazu http://www.delphipraxis.net/190729-w...ebindings.html und den daran angeschlossenen G+ Thread.

Sherlock

[haentschman]

Moin...

Zitat:

Sind LiveBindings mittlerweile alltagstauglich?

[meine Meinung]
Ich habe es mal probiert... Ich hatte mir erhofft das der QT übersichtlicher wird und das Verdrahten der visuellen Controls ein einfacher sein müßte...
Versuch:
Visuelle Controls an eine generische Liste mit Objekten hängen: Im Ergebnis habe ich mehr Code Zeilen gehabt und die Übersicht hat gelitten. Der klassische Weg war deutlich einfacher. Schade drum...
[/meine Meinung]

[Darlo]

[QUOTE=himitsu;1360986]

Zitat von Darlo:

Delphi-Quellcode:

for i := 0 to sl.Count-1 do
  self.combobox.Items.Add(sl[i]);

Etwas wie ComboBox.Items.AddStrings(SL); gibt es im FMX nicht?

Natürlich. Vermutete nur dass die Schleife für den Anwendungsfall passender ist.

[Devil1925]

Also mir ist bisher halt nur der Weg für die direkte verbindung von Query (TUniQuery) und einer Combobox (TComboBox) über die Livebindings bekannt, welche im Designer erstellt werden. Wenn mir da jemand erklären könnte wie man die Codetechnisch erzeugen kann / mir dafür ein gutes Tutorial empfehlen kann, wäre ich diesem jemand sehr Dankbar!

Alternativ lasse ich mich auch gerne belehren über alternative sinnvolle möglichkeiten die Daten aus einer UniQuery in eine ComboBox einzufügen. Wie ich das mit einer Stringlist machen soll habe ich noch nicht verstanden, ich wäre jetzt mit einer Schleife die Query durchgegangen und hätte jeden eintrag einzeln in der Combobox angelegt. Allerdings erscheint mir das eher weniger sinnvoll. (Oder irre ich mich da?)

[Devil1925]

Mein Bisheriger Versuch sieht folgendermaßen aus und funktioniert leider nicht, kann mir da jemand verraten, wo ich da meinen Fatalen Fehler mache?

(Ich vermute irgendwo in der zuweisung Link zu Combobox)

Delphi-Quellcode:

procedure TForm14.Button2Click(Sender: TObject);
var BS:TBindSourceDB;
    CB:TCombobox;
    Link:TLinkListControlToField;
    Query:TUniQuery;
begin
  Query := TUniQuery.Create(Self);
  Query.Connection := Conn;
  Query.SQL.Text := 'Select * from Lieferan';
  Query.Open;


  BS := TBindSourceDB.Create(Self);
  BS.DataSet := Query;

  CB := TCombobox.Create(Rectangle1);
  CB.Parent := Rectangle1;

  Link := TLinkListControlToField.Create(Self);
  Link.AutoActivate := True;
  Link.Category := 'Schnelle Bindung';
  Link.Control := CB;
  Link.DataSource := BS;
  Link.FieldName := 'Name1';

  BS.DataSet.Open;
end;

[Devil1925]

irgendwer eine Idee / einen Stoß in die richtige Richtung oder ähnliches? oder ist es wirklich das Sinnvollste die Query Datensatz für Datensatz zu durchlaufen?

[Rollo62]

Wenn du die Verbindung mit LiveBindings-Editor machst legt der LB-Editor die entsprechenden Komponenten richtig an.
Die kannst du dir mal anschauen im Dfm.Modul in der Text-Ansicht, und das dann womöglich zur Laufzeit von Hand selber schreiben, wenn es das ist was du meinst ?

Ansonsten die ComboBox wirklich von Hand, ohne LiveBindings beschreiben.
Mit durchlaufen von Dataset.First, Dataset.Next, etc.

Rollo

[Devil1925]

Danke an alle, die mir input gegeben habe! Ich habe nun eine Funktionierende Lösung!

Delphi-Quellcode:

procedure TForm14.FillList(DataSet:TUniQuery; Control:TControl; FieldName:String);
var
    BindSourceDB : TBindSourceDB;
    BindingsList : TBindingsList;
    LinkListControlToField : TLinkListControlToField;
begin

    BindSourceDB := TBindSourceDB.Create(nil);
    BindSourceDB.DataSet := DataSet;
    BindSourceDB.DataSource.Enabled := true;
    BindSourceDB.DataSet.Active := true;

    BindingsList := TBindingsList.Create(BindSourceDB);

    LinkListControlToField := TLinkListControlToField.Create(BindingsList);
    LinkListControlToField.Control    := Control;
    LinkListControlToField.DataSource := BindSourceDB;
    LinkListControlToField.FieldName  := FieldName;
    LinkListControlToField.Active     := true;
end;

gefunden habe ich die gerade hier.