Objekte zur Laufzeit erzeugen

[mkinzler]

Zitat:

Ja, ich bin mir sicher: Nein!

Delphi-Quellcode:

procedure TFrmUse.GenerateButton;
var i: Integer;
begin
BoxScro := TScrollBox.Create(TabAbrech);
BoxScro.Parent := TabAbrech;
BoxScro.ParentBackground := true;
BoxScro.Align := alClient;
BoxScro.BorderStyle := bsNone;
FrmOpen.CDS.First;
setLength( LBut, FrmOpen.CDS.RecNo+1);  
for i := 1 to FrmOpen.CDS.RecNo do 
begin
   LBut[i] := TButton.Create(BoxScro);
   LBut[i].Parent := BoxScro;
   ...
   FrmOpen.CDS.Next;
 end;
end;

[DeddyH]

RecNo, nicht RecordCount? Ich persönlich würde aber sowieso einer Liste (TObjectList/TComponentList) den Vorzug geben, einfach mit First/Next über die Datenmenge iterieren und den neuen Button mit Add() der Liste hinzufügen, das ist weniger Gefummel und schneller dürfte es auch sein.