vorhandenen Index ermitteln

[Fritz01]

Hallo,
an dieser Stelle erst einmal Dank an Alle die bei der Problemlösung behilflich waren.

@raiguen,
...Schleife nicht praktikabel, hat ja auch nicht funktioniert und die Fehlermeldung gab es auch noch dazu.
Habe nun den Code entsprechend geändert bzw. ergänzt und siehe da es funktioniert!!
Ganz so weit habe ich doch nicht daneben gelegen, und ich denke das ich noch im lernfähigen Alter bin!
Am Ende wäre noch gut, wenn die neu erzeugten Indexe gelöscht würden. Entweder nur temporär erstellen oder mit Form onClose löschen, will mal sehen vielleicht gibt es ja dazu noch einen Tipp.
Nochmal danke für die Hilfe und einen schönen Abend.
Mit den besten Grüßen aus Ahlhorn
Fritz

[DeddyH]

Hallo Fritz, ich frage mich die ganze Zeit, wozu Du unbedingt temporäre Indizes erstellen möchtest. :gruebel:

[Fritz01]

Hallo DeddyH,
temporär nicht unbedingt! Nur, wie schon geschrieben, sollten die neu erstellten Indizies am Ende nicht mehr vorhanden sein. Mit diesem Teil kann ich mir dann außerhalb meiner Anwendung auf jedes Feld einen Index setzen, ohne die eigentliche Tabelle zu verändern.
Damit ist dann die Suche nach irgendwelchen Daten deutlich vereinfacht. Habe schon oft genug in einer unsortierten Tabelle gesucht. Die hat zwar nur ca. 3500 Datensäte, aber durchsuch die mal.
So kann ich einzelne Felder, an die ich sonst nicht rankomme, direkt im Grid verädern. Das möchte ich, wenn es denn richtig fertig ist, in ein anderes Programm integrieren.
Schönen Abend noch
Fritz

[DeddyH]

Ja OK, in einer sortierten (oder besser indizierten) Tabelle sucht es sich schneller. Allerdings muss der Index aber auch erstmal erstellt werden, und das dauert ja auch seine Zeit. Ich weiß nicht, wie das bei ABS DB ist, aber ich denke, der Geschwindigkeitsvorteil wird dadurch wieder zunichte gemacht.

[raiguen]

Zitat:

Zitat von Fritz01

wenn die neu erzeugten Indexe gelöscht würden. ...

Zitat:

Zitat von Absolute Database Manual

Methode(n) von TABSTable:
procedure DeleteAllIndexes->Löscht ALLE Indexe der Tabelle
procedure DeleteIndex(const Name: String); -> Löscht NUR den Index mit dem übergegeben Namen!

1.Methode empfiehlt sich halt für die neu erstellten ('temporären') Inizies. Tipp: alle Namen der neu erstellten Indizes in einem Array oder StringList merken und beim Onclose anhand dieser Lise die Indizes löschen

Delphi-Quellcode:

  for cnt := 0 to Pred(IndexListe) do
    Tabelle.DeleteIndex(IndexListe[cnt]);

@DeddyH: Das ABS-Manual verweist (gerade bei SQL-STatements) auf die Möglichkeit, zur Beschleunigung von Such-/Sortiervorgängen zusätzliche Indizies auf die betreffenden Spalten zu setzen. Okay, bei GROSSEN TAbellen kann das natürlich etwas dauern...

[Fritz01]

@ raiguen,
danke, habs gleich probiert.

DeleteAllIndexes ist ja eine sehr radikale Sache. Alles weg.
Da ist für meine Anwendung die andere Möglichkeit DeleteIndex(const Name: String); optimal.
Da benutze ich eine Listbox und merke mir dort die neuen Indizies.

Delphi-Quellcode:

lbIndex.Items.Add(sName);

Zunächst habe ich die Procedure auf einen Button onClick gelegt, aber...

Delphi-Quellcode:

procedure TForm1.bIndexDeleteClick(Sender: TObject);
var
cnt : integer; // <-- sollte doch richtig sein oder??
begin
  for cnt := 0 to Pred(lbIndex) do
    Table.DeleteIndex(lbIndex[cnt]);
end;

Fehlermeldung beim compiliern: Inkompatible Typen und Klasse besitzt keine Standardeigenschaft.
Hilfe bitte nochmal erforderlich.
Fritz

[Progman]

Delphi-Quellcode:

    Table.DeleteIndex(lbIndex.Items[cnt]);

vielleicht?

[Fritz01]

Hallo Progman,
danke.
Nein, der Fehler muß hier liegen

Delphi-Quellcode:

for cnt := 0 to Pred(lbIndex) do

Die Zeile ist rot hinterlegt und der Cursor blinkt hinter ')' dieser Klammer.
Fritz

[hoika]

Halo,

was ist lbIndex ?
Eine Form-Variable ?
Wozu ?

Delphi-Quellcode:

for i:= 0 to ListBox1.Items.Count-1

Ausserdem wozu eine ListBox ?
Eine StringList recith doch, oder ?


Ich würde mal die pas-Datei mit dem Editor öffnen (Delphi zu).
Es kann sein, dass durch ein Paste falsche Zeilenumbrüche
in der Pas stehen, erkennbar durch schwarze Blöcke.


Heiko

[Progman]

Delphi-Quellcode:

for cnt := 0 to lbIndex.ItemsCount -1 do

(ich nehme mal an, lbIndex ist eine ListBox) ;)
Und wenn es nur darum geht, die Listbox zu löschen, einfach lbIndex.items.Clear.
Ein for-Schleife zum Löschen geht meist schief, weil sich ja die Anzahl nach Löschen eines Eintrags geändert hat, aber for ganz stur seine am Anfang ermittelt Durchlaufzahl machen will. Da nimmt man

Delphi-Quellcode:

while lbIndex.count > 0 do lbIndex.Delete(0);