Gibt es Funktionen in Delphi...?

Computer: Software & Programmierung Delphi & Pascal
#1

Hallo,

gibt es Funktionen in Delphi, die die Namen aller Ordner bzw. Dateien unter einem bestimmten Verzeichnis zurückliefert? oder wie kann man das machen?

Dank im voraus!

Peilin sun

#2

Google-Stichwörter: FindFirst, FindNext…

Kann kein Beispiel liefern, da kein Compiler zur Hand…

#3

Google-Stichwörter: FindFirst, FindNext…

Kann kein Beispiel liefern, da kein Compiler zur Hand…

Vielen Dank für deine Tipps. Ich habe eine Bsp in Delphi-Hilfe gefunden:

procedure TForm1.Button1Click(Sender: TObject);

var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then

FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then

FileAttrs := FileAttrs + faAnyFile;

with StringGrid1 do
begin
RowCount := 0;

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then

begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) 0;
FindClose(sr);
end;
end;
end;