Findfirst,Findnext schulung

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
begin
  if FindFirst('C:\Windows\*.ini',faAnyFile,Rec) = 0 then//da eins gefunden = 0
  begin
    repeat
      ListBox1.Items.Add(Format('%s -> %d KB',[Rec.Name,Rec.Size div 1024]));
    until FindNext(Rec) <> 0; //wenn nichts gefunden dann 1 also schließen
    FindClose(Rec);
  end;
end;

[SaFu]

ahh

und alles was ich jetzt über die dateien wissen will muss einfach mit einem komma hinten dran gehäng werden??

[DeddyH]

Z.B. Allerdings würde ich hier eine Listview mit ViewStyle vsReport bevorzugen ;)

[SaFu]

das heisst
wenn ich das so schreibe

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
begin
  if FindFirst('C:\Windows\*.ini',faAnyFile,Rec) = 0 then//da eins gefunden = 0
  begin
    repeat
      ListBox1.Items.Add(Format('%s -> %d KB %d',[Rec.Name,Rec.Size div 1024,Rec.Attr]));
    until FindNext(Rec) <> 0; //wenn nichts gefunden dann 1 also schließen
    FindClose(Rec);
  end;
end;

bekomme ich als Rec.Attr eine 32 und das ist dann eine archive datei????

[DeddyH]

Richtig, u.zw. nur Archiv ohne weitere Attribute.

[DeddyH]

Du könntest das z.B. so darstellen (nur ein Vorschlag):

Delphi-Quellcode:

function AttrToChars(Attr: integer): string;
begin
  Result := '';
  if (Attr and faDirectory) > 0 then
    Result := 'D';
  if (Attr and faArchive) > 0 then
    Result := Result + 'A';
  if (Attr and faReadOnly) > 0 then
    Result := Result + 'R';
  if (Attr and faHidden) > 0 then
    Result := Result + 'H';
  if (Attr and faSysFile) > 0 then
    Result := Result + 'S';
end;

Eingabeparameter ist dann Rec.Attr ;)