Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Jetzt funktioniert alles. Nun kann ich mein Programm erweitern. :stupid:
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
das funktioniert leider nicht. das programm hängt sich dort auf :(
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
hat jemand ne Idee wie ich dort den Hauptnode ignorieren kann???
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Hat funktioniert. Hat aber jemand noch ne Idee wie ich den Pfad wieder bekomme???
Hab des so gemacht:
Dateipfad := Hauptpfad + TreeView1.Selected.Text Aber das klappt ja bei den Unterordnern nicht mehr. Jemand ne Idee???
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Hab das nil weggelassen und hat geklappt. Aber leider klappt der Filter immer noch nicht. Bei den Unterordnern klappt die Maske nicht mehr.
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Ich hab aber alle Paramenter belegt und trotzdem kommt der Error.
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Sobald die Rekursion kommt, wird die Maske entfernt.
Eigentlich wollt ich es zuerst ohne Defaultwert machen, aber da bekamm ich die Errormeldung, dass ein Defaultwert fehlt und dasselbe bei DateiendungAnzeigen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Also meine aktuelle Routine sieht so aus:
procedure TForm1.scan(path: string; parent: TTreeNode = nil;Maske:String='*.*';DateiendungAnzeigen:Boolean=true);
var SR: TSearchRec;
s:string;
tmparray: array of string;
begin
path := IncludeTrailingPathDelimiter(path);
SetLength(tmparray,0);
if FindFirst(path + '*', faAnyFile, SR) = 0 then
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Funktioniert leider immer noch nicht.
Die Maske funktioniert immer noch nicht bei den Unterordnern.
Und wenn wir grad dabei sind: Hat jemand eine Idee wie ich den Pfad rausbekomm, wenn ich auf eine Datei vom Unterordner klick??? Hab das immer so gemacht:
Dateipfad := Hauptpfad + TreeView1.Selected.Text
Weiß jemand wie ich das dann hier bekomm mit den Unterordnern???
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
21. Jun 2010
Die letzte Procedur von Himitsu funktioniert. Aber ich hab folgendes Problem. Hab die jetzt so abgeändert, aber bei den Unterordnern funktioniert der Filter nicht :(:
procedure TForm1.scan(path: string; parent: TTreeNode = nil;Maske:String='*.*';DateiendungAnzeigen:Boolean=true);
var SR: TSearchRec;
s:string;
tmparray: array of string;
begin
SetLength(tmparray,0);
if...
Forum: Object-Pascal / Delphi-Language
Delphi
by Muellermilchtrinker,
20. Jun 2010
Ich steh grad echt aufm Schlauch. :D
Wie bekomm ich folgendes in mein TreeView:
--Dateien <--Hauptordner
+liste
+zitate
+-testdateien <--unterordner
+test