also momentan sieht unseres so aus und wir haben noch einen Fehler der im code makiert ist
Delphi-Quellcode:
procedure newwin();
var i: Integer;
MyForms: array of TForm;
const
FORM_NUM = 20;
begin
setlength(MyForms, FORM_NUM);
for i := 0 to FORM_NUM - 1 do
begin
MyForms[i] := TForm.Create(self); // undefinierter bezeichner 'self'
MyForms[i].Name := 'Form ' + IntToStr(i);
MyForms[i].Show;
inc(FORM_NUM);
end;
end;
end.
[EDIT] wird jetzt auf das array angesprochen