TSearchRec

[Delbor]

Hi zusammen
Zurzeit schlage ich mich mit TSearchRec herum, das heisst, ich habe mir ein TTreeview erstellt, das mir Ordner und Dateien auflistet.
Soweit, so gut, ausser dass ich beim durchsteppen festgestellt habe, dass FindNext nach dem Auffinden des letzten Ordners/der letzten Datei noch nicht Null ist und somit weitermacht.
Das Resultat ist, dass noch weitere Ordner gefunden werden, die nicht nur eine Attr - Konstante enthalten, sondern mehrere. So wird mir am Ende das Programmverzeichnis nochmal aufgelistet, diesmal allerdings vorerst als normale Datei (was sich nach dem ersten Anklicken ändert - die Zweitauflistung allerdings bleibt)
In diesem Beitrag wird darauf hingewiesen, dass statt einer AND- eine OR - Verknüpfung verwendet werden sollte.

Soweit ich das richtig Verstanden habe, ist TSearchRec.Attr ein Integer, der der Summe der zugewiesenen (oder in den Dateiattributen enthaltenen) Attributkonstanten entspricht. Daher komme ich auch auf die Idee, die TSearchRec.Attr-Werte mit Case..of zu prüfen. Dazu wäre es aber nützlich, alle möglichen Konstantenkombinationen zu kennen. So wird z.B. eine Systemdatei wohl niemals eine 'VolumeID' enthalten, hingegen aber die Werte 1, 16 und/oder 32...
Gibt es irgendwo eine Liste, die diese möglichen Kombinationen auflistet?

Für eure Antworten bedanke ich mich herzlich

Gruss
Delbor

[SirThornberry]

TSearchRec.Attr ist ein Integer wo jedes Bit für ein bestimmtes Attribut steht. Selbst wenn du ohne Bitmaske arbeitest brauchst du nicht alle möglichen Kombinationen. Dazu müsstest du einfach mit der Prüfung des größten Attributes beginnen und wenn TSearchRec.Attr größer ist als das Attribut ziehst du von dem Wert den Wert des Attributes ab:

Delphi-Quellcode:

var
  myattribs: Integer;
begin
  myattribs := TSearchRec.Attr;
  if (myAttribs >= 64) then
  begin
    myAttribs := myAttribs - 64;
    attribut1 := True;
  end;

Das wäre aber immer noch eine ganz schlechte lösung weil eben das prüfen der einzelnen Bits bedeutend eleganter ist.

Delphi-Quellcode:

function is_bit_set(bit_index: Integer);
begin
  result := ((bit_index and (1 shl bit_index)) <> 0);
end;

[DeddyH]

Zusätzlich zu Jens verweise ich mal auf mein Tutorial

[SirThornberry]