Tabsheet durchzählen

[mkinzler]

Delphi-Quellcode:

for i := 0 to PageControl.PageCount-1 do
    s := s + Tabsheet[i].caption + ' ';
showmessage( s);