DBEdit1 Feld zur Laufzeit erzeugen

[Nicodius]

weil a nur einmal raufgezählt wir du musst es so machen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var test : TEdit;
      i, a : Integer;
begin
  a:=0;
  i:=0; // kannste auch weglassen 
  for i:=1 to StrToInt(Edit1.Text) do
    begin
      a := a + 30; // oder inc(a,30);
      test:=TEdit.Create(self);
      test.Top:=a; // schlecht ist auch nie die anderen sachen zu vereinbaren aber egal(Height,  
                   // Width, left) muss nicht sein
      test.Parent:=Form1;
    end;
end;