mehr als 1000 ^^, da war auch mein Lehrer an mir gescheitert aber mit java
Delphi-Quellcode:
for I := 0 to 5 do
begin
if stringgrid1.Cells[0,i] <> ' ' then
begin
newsheet := Ttabsheet.Create(pagecontrol1);
with newsheet do
begin
Parent := pagecontrol1;
Tag := i;
Name := 'newsheet' + IntToStr(i);
Caption:= 'newsheet' + IntToStr(i);
end;
end;
end;