DBEdit1 Feld zur Laufzeit erzeugen

[mirage228]

Zitat von Christian18:

und jetzt nocheinmal eine andere frage, das mit der for schleife funktioniert bei mir nicht, er macht immer nur einen button. das programm soll soviele machen wie in mein Edit1 Feld geschrieben steht. hatte auch schon begonnen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var test : TDBEdit;
      i, a    : Integer;
begin
  a:=0;
  for i:=1 to StrToInt(Edit1.Text) do
    begin
      test:=TDBEdit.Create(self);
      test.Top:=a+20;
      test.Parent:=Form1;
    end;
end;

hi,

schreib noch folgendes dazu:
test.Name: := format('dbedit%d', [i]); mfG
mirage228