TabControl aktualisieren

[mkinzler]

Versuchs mal mit while (not gefunden) and (i < TabControl1.Tabs.Count -1) do

[norbert3]

hey, wir nähern uns dem Ziel.

Der erste Fehler ist behoben, aber ein neuer ist erschienen.
TabControl1.Tabs[i].Text Der Cursor bleibt hinter dem i stehen.
[Fehler] kontakt.pas(382): Record, Objekt oder Klassentyp erforderlich.

Mfg Norbert

[mkinzler]

TabControl1.Tabs[i];

[Hawkeye219]

Hallo,

wird das nicht eine Endlosschleife, falls nicht gerade das erste Element das richtig ist? Im ELSE-Zweig sollte die Variable i erhöht werden.

Vielleicht geht es aber auch einfacher: Tabs ist doch eine Stringliste, und die hat eine Methode IndexOf...

Gruß Hawkeye

[norbert3]

Hey,
mit TabControl1[i] hab ich es probiert und muss Hawkeye219 recht geben. Der Rechner stürtzt beim Ausführen ab.

norbert

[mkinzler]

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.

[norbert3]

wo kommt die function hin?
inc(i) norbert

[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;

[norbert3]

Ich habe es nun mal so übernommen:

Delphi-Quellcode:

begin
     suche := Edit1.Text;
     dataModule1.ABStblName.Locate('Anzeige',suche,[lopartialKey]+[loCaseInsensitive]);
     i := 0;
     gefunden := false;
   while (not gefunden) and (i < TabControl1.Tabs.Count -1) do
    begin
       if TabControl1.Tabs[i] = DataModule1.ABStblName.FieldByName('Anzeige').value then gefunden := True;
       inc(i);
    end;
           If gefunden then TabControl1.TabIndex := i;
      end;

es wird allerdings vom gesuchten Namen der folgende Tab angezeigt.

Norbert

[mkinzler]

if TabControl1.Tabs[i] = DataModule1.ABStblName.FieldByName('Anzeige').value then gefunden := True else inc(i);