Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Du könntest das z.B. so darstellen (nur ein Vorschlag):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
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Richtig, u.zw. nur Archiv ohne weitere Attribute.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Z.B. Allerdings würde ich hier eine Listview mit ViewStyle vsReport bevorzugen ;)
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
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',));
until FindNext(Rec) <> 0; //wenn nichts gefunden dann 1 also schließen
FindClose(Rec);
end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Ich meine die Zeile groesse : size;
Du meintest sicher groesse : Cardinal;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Und dann für jede Dateigroesse := Rec.Size;
welchen Dateityp soll denn size repräsentieren?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Natürlich, schau doch endlich mal zu TSearchRec in die Hilfe.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Name ist ein Feld des Records TSearchRec. Da steht halt der Dateiname drin.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Aber es schadet auch nicht. :zwinker:
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
i: integer;
begin
i := FindFirst('C:\Windows\*.ini',faAnyFile,Rec);
while i = 0 do
begin
ListBox1.Items.Add(Rec.Name);
i := FindNext(Rec);
end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Ja sicher ohne Endungen, hast Du doch auch gesagt. Sonst nimm mal das ffoExcludeExt aus den Optionen.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Wieso denn jetzt auf einmal eine FileListbox? Nimm eine stinknormale Listbox und schau Dir das Beispiel von marabu aus dem anderen Thread noch einmal an.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Ein paar Beispiele:FindFirst('C:\*.*',faHidden,Rec);
Alle versteckten Dateien im Wurzelverzeichnis von C:
FindFirst('C:\Windows\*',faDirectory,Rec);
Alle Unterverzeichnisse von C:\Windows
Sind Dir die Attribute egal, dann nimm faAnyFile.