Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
30. Jun 2006
Jetzt sollten wir es haben:
while (not gefunden) and (i < TabControl1.Tabs.Count) do
hast du es mal mit .IndexOf versucht?
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
30. Jun 2006
if TabControl1.Tabs = DataModule1.ABStblName.FieldByName('Anzeige').value then gefunden := True else inc(i);
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
29. Jun 2006
i := 0;
gefunden := false;
while (not gefunden) and (i < TabControl1.Tabs.Count -1) do
begin
if TabControl1.Tabs.Text = DataModule1.ABStblName.FiledByName('Anzeige').value then gefunden := True;
inc(i);
end;
If gefunden then TabControl1.TabIndex := i;
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
29. Jun 2006
habe in der Schnelle das inc(i); vergessen. Aber das direkte Finden den Strings in der StringListe mittels .IndexOf ist natürlich besser als die Schleife.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
29. Jun 2006
Versuchs mal mit while (not gefunden) and (i < TabControl1.Tabs.Count -1) do
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
29. Jun 2006
i := 0;
gefunden := false;
while not gefunden and i < TabControl1.Tabs.Count -1 do
if TabControl1.Tabs.Text = DataModule1.ABStblName.FiledByName('Anzeige').value then gefunden := True;
If gefunden then TabControl1.TabIndex := i;
Getippt und nicht getestet.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
29. Jun 2006
Du mußt nach dem .Locate den aktiven Tab auf den tab mit dem aktuellen Namen setzen.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
28. Jun 2006
Dann führe doch den TabControl1.Tabs.Add(...);-Befehl nach dem Einfügen einer Adresse aus.