Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
hehe auf jeden fall kürzer als die meinige variante :D
ich danke dir :)
++
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
ist für einen wechseldatenträger...
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
Habs rausgefunden...
procedure DirectorySearch(ADirectory: string; AMask: String);
var
SR: TSearchRec;
begin
if FindFirst(ADirectory + '*.*', faDirectory, SR)=0 then
begin
repeat
if (SR.Attr and faDirectory = faDirectory) and (sr.Name<>'.') and (sr.Name<>'..') then
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
procedure ExeSearch(ADirectory: String);
var
SR: TSearchRec;
begin
if FindFirst('.\' + ADirectory + '\*.exe', faAnyFile, SR)=0 then
begin
repeat
with form1 do begin
ListBox1.Items.Add(sr.Name);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
:D hätt ich auch druf komm könne^^
ja also er startet, gibt keine fehler aus aber er füllt die listbox1 nicht :(
meine liste mit den ordnern wird weiterhin brav gefüllt...
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
Listenindex überschreitet das Maximum (12)
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
--> Incompatible Typen: 'String' und 'AdvSmoothListBoxItem'
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
das funktioniert so nicht... das hatte ich schon :D
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
an welcher stelle?! als neue Procedure?
sorry ich hab echt lange dran probiert und jetzt verlässts mich langsam...
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
3. Mär 2009
Guten Abend zusammen...
ich habe folgenden Quellcode mit dem ich alle Ordner in einem Ordner auflisten kann... ohne Recursive suche und unterdateien ganz einfach so:
--Ordner <-- Zu durchsuchender Ordner
----Ordner im Ordner 1 <-- Erster gefundener Ordner im Ordner
----Ordner im Ordner 2 <-- Zweiter gefundener Ordner im Ordner
----usw.
das ganze lasse ich mit in...