Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
30. Nov 2006
wie wäre es wenn du statt dem kommentar einfach ne lösung präsentieren würdest dafür?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
30. Nov 2006
if
FolderDialog1.Execute=True then begin
s:=FolderDialog1.Directory;
i := FindFirst(s+'\*.*', faAnyFile, SearchRec);
while i = 0 do
begin
if not ( (SearchRec.Name = '.') or (SearchRec.Name = '..') ) then
ListBox1.Items.Add(s+'\'+SearchRec.Name);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
30. Nov 2006
einfach die "Filenamen" ausblenden wenn die ein . oder .. sind
das ist das aktuelle bzw. das parent Verzeichnis (ist ganz normal das diese gefunden und angezeigt werden)