pagecontrol

[heytheredelilah]

das mit dem "if" ist nicht gut, da ich ja im vorhinein nicht weis wieviele tabshets ich erzeugen werden.
wie wende ich denn

Delphi-Quellcode:

function SearchMemo(wc:TComponent) : TMemo;
var i : integer;
begin
result := nil;
for i:=0 to wc.componentcount - 1 do
begin
if wc.components[i] is TMemo then
begin
result := TMemo(wc.components[i]);
exit;
end else
if wc.components[i].componentcount > 0 then
begin
result := SearchMemo(wc.components[i]);
if result <> nil then exit;
end;
end;
end;

an?