Forum: Sonstige Fragen zu Delphi
Delphi
by kagi3624,
2. Jul 2020
Ok, um zu testen, ob ich es verstanden habe, habe ich die Suchfunktion abgewandelt um alle Dateinamen ohne die Unterordner in ein Memofeld zu schreibeiben.
function TForm1.DirContainsFiles(const Dirname: string): Boolean;
var
Rec: TSearchRec;
SearchPattern: string;
begin
Memo3.Text := '';
Result := false;
SearchPattern := IncludeTrailingPathDelimiter(Dirname) + '*.*';
Forum: Sonstige Fragen zu Delphi
Delphi
by kagi3624,
2. Jul 2020
Ja doch. Das funktioniert wunderbar. Ich habe nur Probleme mit der Delphi Syntax bzw damit, dass etwas stimmt wenn es grade auf null gesetzt wurde.
Forum: Sonstige Fragen zu Delphi
Delphi
by kagi3624,
2. Jul 2020
Also lese ich das so richtig? Rec.Attr ist ein Integer und nicht null und faDirectory ist aber gleich null, dann ist es ein Ordner? Also kann man generell die Konstanten der FindFirt Funktion mit = 0 abfragen?
Forum: Sonstige Fragen zu Delphi
Delphi
by kagi3624,
2. Jul 2020
Hallo Deddyh! Könntest du bitte die Zeile hier erklären`?
if Rec.Attr and faDirectory = 0 then
Forum: Sonstige Fragen zu Delphi
Delphi
by kagi3624,
2. Jul 2020
Ist es gut so?
function TForm1.CheckIfFilesInPath(const Path: string): Boolean;
var
MySearch: TSearchRec;
FindResult: Integer;
begin
result := false;
FindResult:=FindFirst(Path+'\*.*', faAnyFile, MySearch);
while (FindResult = 0) do
Forum: Sonstige Fragen zu Delphi
Delphi
by kagi3624,
2. Jul 2020
Hallo KodeZwerg,
leider bekomme ich "nicht leer", also false, wenn in dem Ordner andere Ordner drin sind.
Forum: Sonstige Fragen zu Delphi
Delphi
by kagi3624,
2. Jul 2020
Hallo, ich brauche eine Funktion, die einen Ordner darauf prüft ob er Dateien hat. Also wenn er andere Ordner beinhaltet, soll die Funktion false zurückgeben. Darauf hin habe ich diese funktion hier gefunden.
//returns true if a given directory is empty, false otherwise
function IsDirectoryEmpty(const directory : string) : boolean;
var
searchRec :TSearchRec;
begin
try
result :=...