Hallo Zusammen,
Das folgende Programm macht nicht was es soll.
Alle Unterverzeichnisse und Dateien werden angezeigt. Vor den Verzeichnissen gibt es aber keine "Dir:" Ausgabe.
Das Programm scheint Info.Attr nicht auszuwerten.
Wo liegt mein Denkfehler?
Am Freepascal unter Linux wird's wahrscheinlich nicht liegen.
Vielen Dank für euer Feedback.
Jan-Rene'
Das folgende Programm macht nicht was es soll.
Alle Unterverzeichnisse und Dateien werden angezeigt. Vor den Verzeichnissen gibt es aber keine "Dir:" Ausgabe.
Das Programm scheint Info.Attr nicht auszuwerten.
Wo liegt mein Denkfehler?
![Confused :confused: :confused:](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f615.png)
Am Freepascal unter Linux wird's wahrscheinlich nicht liegen.
![Smile :) :)](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f642.png)
Vielen Dank für euer Feedback.
Jan-Rene'
Code:
uses Sysutils;
procedure GetFileStrukture;
var Info:TSearchRec;
begin
if FindFirst('*',faAnyFile, Info)=0 Then begin
repeat
if Info.Attr=SysUtils.FaDirectory Then Write('DIR: ');
WriteLn(Info.Name);
until FindNext(Info)<>0;
end;
FindClose(Info);
end;
begin
GetFileStrukture;
end.