TabControl aktualisieren

[mkinzler]

Delphi-Quellcode:

i := 0;
gefunden := false;
while (not gefunden) and (i < TabControl1.Tabs.Count -1) do
begin
    if TabControl1.Tabs[i].Text = DataModule1.ABStblName.FiledByName('Anzeige').value then gefunden := True;
    inc(i);
end;
If gefunden then TabControl1.TabIndex := i;