@ Progman
Zitat:
TStringList ist (grob gesagt) wie eine ListBox, nur eben unsichtbar im Speicher.
das hört sich gut an und wird meine nächste Aufgabe.
@ all
Soweit ist das ja eigentlich in Ordnung, aber...
Das sollte für alle Tabellen funktionieren, mit oder ohne Index und der vorhandene IndexName sollte auch keine Rolle spielen.
Ist kein Index vorhanden, so ist das super.
Ist für zB. ein Index, indiziert auf Nachname und Vorname vorhanden, so ist das auch OK. Bei entsprechendem Click wird dann ein neuer für Nachname oder auch für Vorname erstellt.
Handelt es sich aber um zB. PLZ und nur auf PLZ indiziert gibt es die Fehlermeldung: Cannot find index PLZ.
Hier ist sicher Code erforderlich. Das ist es, was dank der Forumhilfe entstanden ist.
Delphi-Quellcode:
procedure TForm1.GridTitleClick(Column: TColumn);
var
sName : String;
I : integer;
bVorhanden: Boolean;
begin
bVorhanden := False;
sName := Column.Field.FieldName; // TitelName
Table.IndexDefs.Update;
//---- 1) nach Index suchen
for I := 0 to Table.IndexDefs.Count -1 do
if Table.IndexDefs.Items[I].Fields = sName then
begin
bVorhanden := True; //--- 2) Index vorhanden und gefunden
break; // durchaus erlaubt, weil Forstezung der Suche nicht mehr sinnvoll
end;
if bVorhanden then
begin
Table.IndexName := sName; //vorhandener Index einsetzen auch bei geöffneter Tabelle!!!
end
//---- 2) Index nicht vorhanden
else
begin
Table.CLose;
Table.Exclusive := true;
Table.AddIndex(sName, sName,[]); // neuen Index einfügen
Table.IndexName := sName;
Table.Exclusive := False;
Table.Open;
ListBoxIndex.Items.Add(sName); // Index in Liste schreiben
end;
end;
procedure TForm1.bIndexDeleteClick(Sender: TObject);
var
cnt : integer;
begin
for cnt := ListBoxIndex.Items.Count -1 downto 0 do begin
Table.DeleteIndex(ListBoxIndex.Items[cnt]); // neuen Index löschen
ListBoxIndex.Items.Delete(cnt); // neuen Index aus Liste löschen
end;
end;
Ich ging davon aus, daß nur der Name interessant ist. Bei PLZ ist vorhanden PLZ_Idx, erstellt würde aber IndexName = Feldname.
Vielleicht schaut da nochmal jemand drauf. Danke
Fritz