Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
18. Sep 2003
hey ich komm so nicht weiter...das problem ist warscheinlich gant einfach ich find die lösung aber trotzdem nicht...also helft mich noch ein letztes mal :oops:
danke
gregor
Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
18. Sep 2003
ja hast recht "pfad" muss dahin, vorher ging es auch es wurden aber nicht alle ordner komplett durchsucht, deshalb ist es mir nicht gleich aufgefallen:
Hier nochmal die procedure inklusieve Unterordnern durchsuchen:
procedure TFormDateienSuchen.UnterordnerDurchsuchen(ext: Str3; Pfad : String);
var sr: TSearchRec;
r: Integer;
begin
r:= FindFirst(Pfad + '\*.*' , faAnyFile,sr);...
Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
18. Sep 2003
die If - abfrage ist auch nicht das problem.
Das problem ist, ich weiß nicht was ich an der procedure ändern muss damit KEINE Unterordner durchsucht werden. Alle Versuche haben bis jetzt zu einer Endlosschleife geführt...
Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
18. Sep 2003
danke für den Tipp aber nen Flag will ich nicht verwenden....eine einfache Checkbox find ich einfacher...
ich hab jetzt eine zweite procedure deklariert (fast die gleiche, die
Christian Seehase mir modifiziert hat) funtioniert aber nicht PC hängt sich immer auf (muss irgentwo eine Entlosschleife sein...) könnt ihr mir nochmal helfen was genau ich ändern muss
vielen Dank
greg
Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
17. Sep 2003
ok danke für die antwort hab's ausprobiert funtioniert bis jetzt ganz gut :lol:
mit dem Str3 hab ich halt gemacht, weil die Dateiendungen nicht mehr als 3 Ziffern haben dürfen (bzw. vom benutzer angegeben werden dürfen).
Wenn ich jetzt dur den Sngegebenen Ordner durchsuchen lassen will (also ohne Unterordner) kann ich da die gleiche Procedur nehmen?? oder ist es sinnfoller noch eine...
Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
17. Sep 2003
also irgentwie klappt das doch noch nicht so ganz... muss nochmal einen schritt zurück gehen: das programm soll alle Unterordner eines vorher vorgegebenen Pfades einer bestimmten Endung anzeigen
Der volgende Quelltext zeigt wie ich es versucht habe, es klappt jedoch nicht (:
procedure TForm1.Suche (ext: Str3; pfad: String);
var sr: TSearchRec;
r: Integer;
begin
r:= FindFirst(...
Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
15. Sep 2003
in der Listbox stehen die Dateinamen mit Endung (z.b. blablabla.txt) (untereinander). Auf Wunsch kann der Pfad (z.B c:\Eigene Dateien\blablabla.txt) mit angegeben werden...
greg
Forum: Object-Pascal / Delphi-Language
Delphi
by Gregor00,
15. Sep 2003
Hallo,
also ich sitzt hier vor folgendem Problem: Ich hab ein Dateiensuchprogramm geschrieben dessen Ergebnisse in eine Listbox geladen werden. jetzt möchte ich die Attribute auslesen, was an sich auch kein Problem ist, wenn man einen festen Pfad angeben kann. da ich jedoch keine festen Pfade angeben kann funktioniert das nicht.
Hier als kleiner Hinweis was ich meine der Quellcode der...