Probleme mit Form.Create

[himitsu]

Also bei mir geht das, aber nur, wenn ich dort noch ein bissl was Wichtiges einfüge/anpasse...

Code:

[b]procedure[/b] TForm1.FormCreate(Sender: TObject);
[b]var[/b] i : Byte;
[b]begin[/b]
  [color=red]SetLength(Panel, uebergabe);[/color]
  [b]for[/b] i := 1 [b]to[/b] uebergabe [b]do begin[/b]
    Panel[i[color=red] - 1[/color]] := TPanel.Create(self);
    [b]with[/b] Panel[i [color=red]- 1[/color]] [b]do begin[/b]
      parent := self;
      top := 100;
      left := 25 + ((i - 1) * 35);
      height := 33;
      width := 33;
      caption := IntToStr(i);
    [b]end;[/b]
  [b]end;[/b]
[b]end;[/b]

und dann noch ein bissl (rück)optimieren - da ja ein dynamische Array bei 0 beginnt und nicht bei 1.

Code:

[b]procedure[/b] TForm1.FormCreate(Sender: TObject);
[b]var[/b] i : Byte;
[b]begin[/b]
  [color=red]SetLength(Panel, uebergabe);[/color]
  [b]for[/b] i := [color=blue]0[/color] [b]to[/b] uebergabe [color=blue]- 1[/color] [b]do begin[/b]
    Panel[[color=blue]i[/color]] := TPanel.Create(self);
    [b]with[/b] Panel[[color=blue]i[/color]] [b]do begin[/b]
      parent := self;
      top := 100;
      left := 25 + ([color=blue]i[/color] * 35);
      height := 33;
      width := 33;
      caption := IntToStr(i [color=blue]+ 1[/color]);
    [b]end;[/b]
  [b]end;[/b]
[b]end;[/b]

ach ja - nicht vergessen: in Uses muß natürlich auch die ExtCtrls mit drin sein.