Einzelnen Beitrag anzeigen

Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.130 Beiträge
 
Delphi 10.3 Rio
 
#22

AW: [FMX] Combobox per Code mit Daten füllen

  Alt 16. Feb 2017, 17:09
Ich kenn in FMX als Möglichkeit nur die Livebindings, wenn du noch andere (bessere?) Methoden kennst, lasse ich mich gerne Aufklären

für mich sieht die Methode des durchlaufens der Query in einer Schleife (First, Next) halt danach aus, als wäre es deutlich langsamer als die LiveBindings. Ausserdem kann ich dann doch direkt (bei z.B. Edit-Feldern) den geänderten Wert per "Post" in die Datenbank schreiben. Wenn ich da einen Denkfehler habe, so kläre mich doch bitte auf

Danke
Besser ist immer so eine Frage... Ich würde es nur so NIE machen...

Delphi-Quellcode:
Procedure TForm14.FillCombobox(Const ACB : TCombobox;Const AFieldName : String);
var
  LBI : TListBoxItem;
  LEntries : ICanHandleDBListFields;
  i : Integer;
begin
  LEntries := Database.GetListFields(AFieldName);

  ACB.BeginUpdate;
  ACB.Clear;
  try
    for i:=0 to LEntries.count-1 do
      begin
        LBI := NewListBoxEntry; // Erzeugt eine LBI mit Height=49 Stylelookup='listboxitembottomdetail' usw.
        LBI.Text := LEnties.Items[i].Text;
        LBI.Detail := LEnties.Items[i].Detail;
        LBI.Parent := ACB;
      end;
  finally
    ACB.EndUpdate;
  end;
end;
  Mit Zitat antworten Zitat