Forum: Programmieren allgemein
by Alex_ITA01,
14. Jan 2004
kaum zu glauben es geht.war ein denkfehler von mir sorry
nur leider braucht das programm sehr sehr lange um zwei mp3's zu vertauschen.das echt heftig.es muss doch ne möglichkeit geben das es schneller geht oder?
Forum: Programmieren allgemein
by Alex_ITA01,
14. Jan 2004
die function wird schon richtig aufgerufen, er springt ja rein und macht da drinne sein zeug.
ich habe jetzt mal probiert Code := RootFolder;
Code wird vorher auf '' gesetzt also da steht nix drinne,
ich brauch ja nur den Pfad nicht nochmal den Dateiname, (also ohne Sr.Name)
ich raffs einfach nicht... :-)
Forum: Programmieren allgemein
by Alex_ITA01,
14. Jan 2004
hallo erstmal
ich muss nochmal stören :-)
hab mich gestern abend nochmal hingesetzt und mal ein wenig im debugger durchgegangen um den quelltext zu verstehen und alles drum herum und nun ist mir ja aufgefallen, ich suche ja eine datei, muss ich da nicht FindAllFiles('C:', DateiInfo.Name, FALSE); (wichtig das false), nehmen?
procedure FindAllFiles(RootFolder: string; Mask: string = '*.*';...
Forum: Programmieren allgemein
by Alex_ITA01,
13. Jan 2004
Okay sorry war mein Fehler denn er kommt wieder raus nur es dauert ewig, kann man das nicht beschleunigen?
mal trotzdem ne frage: wenn ich jetzt in einem String den Pfad zuweisen will wo die Datei liegt, wie mache ich das denn ich kann ja nicht sagen p := FindAllFiles('C:',DateiInfo.Name,true);
und auf RootFolder + SR.Name kann ich außerhalb der procedure nicht zugreifen.ist bestimmt nur ein...
Forum: Programmieren allgemein
by Alex_ITA01,
13. Jan 2004
danke für die ganzen vorschläge erstmal
das mit den partitionen habe ich schon hinbekommen, danke
@luckie das mit den objekten habe ich mir auch schon so überlegt das es da was geben muss werde das mal probieren danke
habe jetzt mal das beispiel für euch und er hängt sich in der FindAllFiles procedure fest:
procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse:...
Forum: Programmieren allgemein
by Alex_ITA01,
13. Jan 2004
achso, danke
und geht das auch mit mehrern partitionen?
mfg alex
Forum: Programmieren allgemein
by Alex_ITA01,
13. Jan 2004
@Matze: ich muss doch nochmal nachfragen :-)
und zwar habe ich das jetzt mal so gemacht:
//Aufruf
FindAllFiles('C:','*.*',true);
//Aufruf
procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var
Forum: Programmieren allgemein
by Alex_ITA01,
13. Jan 2004
jo danke schön,wollte nämlich grade fragen wie das geht aber hat sich ja jetzt mit dem link erledigt
mfg alex
Forum: Programmieren allgemein
by Alex_ITA01,
13. Jan 2004
danke werde es mal probieren
mfg alex
Forum: Programmieren allgemein
by Alex_ITA01,
13. Jan 2004
Hallo erstmal,
ich habe da mal ein problem und zwar wenn ich angenommen in einer listbox ein dateinamen geladen habe (z.B. Hallo.txt), wie bekomme ich jetzt den Pfad heraus wo sich die datei befindet?
wenn ich C:\Hallo.txt habe , weiß ich mit ExtractFilePath();
ich habe aber nur Hallo.txt kann ich da nicht irgendwie herausfinden wo die liegt?
mfg Alex