Findfirst,Findnext schulung

[DeddyH]

Natürlich, schau doch endlich mal zu TSearchRec in die Hilfe.

[SaFu]

hab ich doch schon aber von dem name steht z.b nichts drin

Delphi-Quellcode:

Konstante    Wert   Beschreibung   

faReadOnly   1   Schreibgeschützte Datei   
faHidden     2   Verborgene Datei   
faSysFile    4   Systemdatei   
faVolumeID   8   Laufwerks-ID   
faDirectory  16  Verzeichnisdatei   
faArchive    32  Archivdatei   
faSymLink    64  Symbolische Verknüpfung   
faAnyFile    71  Beliebige Datei

[Klaus01]

Also bei mir steht da sehr wohl etwas drin, vom Namen:

Zitat:

Delphi-Quellcode:

Unit

SysUtils

type 
TSearchRec = record
      Time: Integer;
      Size: Integer;
      Attr: Integer;
      Name: TFileName;
      ExcludeAttr: Integer;
      FindHandle: THandle;
      FindData: TWin32FindData;
end;

Grüße
Klaus

[SaFu]

Stimmt klaus

muss ich das record dann selber schreiben um z.b die große der dateien zu ermitteln???

[Klaus01]

Zitat:

Zitat von fuknersascha

Stimmt klaus

muss ich das record dann selber schreiben um z.b die große der dateien zu ermitteln???

Nein, die Struktur ist festgelegt und in der Unit SysUtils definiert.
Du mußt nur eine Variable mit dem Typen erstellen.

Die Filegröße ist dann im Feld Size hinterlegt.

Grüße
Klaus

[SaFu]

z.b so

procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
groesse : size;
begin

[DeddyH]

Und dann für jede Datei

Delphi-Quellcode:

groesse := Rec.Size;

[EDIT]welchen Dateityp soll denn size repräsentieren?[/EDIT]

[SaFu]

dateientyp repräsentieren????

[DeddyH]

Ich meine die Zeile

Delphi-Quellcode:

 groesse : size;

Du meintest sicher

Delphi-Quellcode:

 groesse : Cardinal;

[SaFu]

naja cardinal ist da ja das richtige da es ja keine negativen größen gibt :-D

und wie lasse ich mir jetzt z.b die größen der dateien ausgeben vom beispiel