-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
17. Apr 2010
Doch gelesen hab ich sie, die Hilfe ist ja auch in Delphi vorhanden, aus zeitmangel hab ich sie leider nicht genau gelesen :oops:
Aber gut wenn da alles drin steht guck ich da noch mal genauer rein.
Danke für eure Hilfe!
Gruß
AnyKey
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
17. Apr 2010
Hi,
Danke für eure Hilfe, es funktioniert jetzt, vielleicht waren die Ordner mit denen ich getestet habe wirklich leer, aber ich habe mit mehreren Ordnern getestet und es ging nicht, war vielleicht doch irgendwo ein fehler bei mir im Code. Naja egal was es jetzt auch war ich Danke euch noch mal für eure Hilfe und die Zeit die ich euch geklaut habe. Selbst wenn es jetzt doch an den Ordnern lag...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
17. Apr 2010
Hi,
sorry das ich mich erst jetzt wieder melde! Also ich hab die Testanwendung die ich am Anfang mal geschrieben hatte wieder rausgekramt, in der hatte ich die Funktion bevor ich sie in meine Anwendung übernommen hatte getestet, ob sie überhaupt funktioniert. Und was ist, selbst da funktioniert es nicht mehr :(
Das kann doch echt nicht wahr sein, ich meine ich weiß hundert %ig das es...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Danke, werd ich ändern, hatte ich nicht drüber nachgedacht.
Also es funktioniert immer noch nicht, hab noch mal einen Breakpoint an der stelle in der Funktion gesetzt in der ich die Liste befülle, aber da springt er nie rein, keine ahnung warum nicht. Dumme Frage: Daran das die proceduren sich in zwei verschiedenen Units befinden und ich die StringList in die Klasse in der Procedure als List:...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Weil ein Array doch immer mit 0 beginnt oder nicht? Naja ist ja egal, hab jetzt mal das -1 weggelassen, jetzt funktioniert wenigstens meine Anwendung wieder, aber die Liste ist sicherlich immer noch leer...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Der Fehler sagt lediglich 'Fehler bei Bereichsprüfung' und er kommt sobald ich dem Array List.Count-1 zuweisen will, was ja nicht gehen kann, da List.Count = 0 ist, obwohl es das ja nicht sein dürfte wenn ich die liste gefüllt habe...
Edit: wie schon gesagt, die Proceduren liegen in zwei verschiedenen Units, die GetAllFilesInDirectory in einer Klasse und der Button zum auslösen in einem...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Ich begreifs einfach nicht, selbst wenn ich den Pfad fest in den Code schreibe funktioniert es nicht. die Liste bleibt leer und ich bekomme bei dem Aufruf von List.Count einen Fehler.
Ich bin am verzweifeln...
Danke noch mal für eure Hilfe!!
Ich hoff mal ich bekomm das mit eurer Hilfe hin!
Edit: Ich hab jetzt mal spasseshalber ein Memo drauf gelegt und dem List zugewiesen, ratet mal...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Der Code ist ziemlich lang, hab noch mal drüber geguckt und es ist kein List.Clear drin ^^ aber was ich rausgefunden habe ist, dass er nicht einmal was in die Liste schreibt, so wie ich es die ganze Zeit schon vermutet habe.
var LastAccess : Array of string;
var List : TStringList;
var Path : string;
var i : Integer;
begin
List := TStringList.Create;
...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Ich verstehs einfach nich, wenn ich mir List.Count ausgeben lass steht da 0 drin. Das kann doch nich daran liegen das die Procedure in einer Klasse ist und ich sie von außen aufrufe....... ich weiß nich mehr weiter...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
hm... kannst du vielleicht mal deinen code posten, dann vergleich ich das noch mal mit meinem, vielleicht hab ich ja noch woanders einen fehler gemacht den ich übersehen habe...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
nein bin mit F8 durchgegangen, und ja er überspringt scheinbar immer die stelle an der eigentlich in die Liste geschrieben werden soll, das interessante ist aber dieser Aufruf funktioniert:
TDataWork.GetAllFilesInDirectorys(Edit1.Text,Listbox1.Items,True);
hier bekommt man alles in der ListBox angezeigt. Ich blick nich mehr durch und es müsste so langsam mal funktionieren... :(
Edit: Sag...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Die Procedure:
class procedure TDataWork.GetAllFilesInDirectorys(Directory: string; List: TStrings; ClearList: Boolean);
procedure ScanDir(const Directory: string);
var Mask : string;
var SR : TSearchRec;
begin
Mask := '*.*';
if FindFirst(Directory+Mask,faAnyFile and not faDirectory, SR) = 0 then
begin
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Danke für die vielen Antworten :) ich habe das von DeddyH mal kopiert und bei mir eingefügt, die Liste bleibt allerdings immer noch leer
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Pfad kommt aus einer Datenbank, der Pfad steht danach auch in der Variabel drin...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Habe ich, hab ich oben ergänzt, hatte ich nur vergessen zu posten :P
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Ja das meinte ich, aber in meiner Liste steht nichts drin :(
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Habe mir die Hilfe durchgelesen, war auch so schlau mal in die Delphi Hilfe zu gucken. Naja ich kenn mich mit den sachen halt nicht aus, habe ich noch nie was mit gemacht. Tut mir leid wenn ich es euch unnötig schwer mache, bin froh das ihr mir helft!
Ok, das mit dem Datum und der Größe habe ich jetzt auch so, nur wie kann ich das jetzt in meine Stringlist schreiben, die ist leider immer noch...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Aso ^^ ok also der Procedure kopf sieht folgendermaßen aus:
class procedure TDataWork.GetAllFilesInDirectorys(Directory: string; List: TStrings; ClearList: Boolean);
procedure ScanDir(const Directory: string);
var Mask : string;
var SR : TSearchRec;
begin
Der Aufruf der Funktion dann so:
TDataWork.GetAllFilesInDirectorys(Pfad,List,true); => List ist eine Stringliste
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Ist TSearchRec.Time dann die Zeit des letzten Zugriffs? Dann müsste ich nur drei oder eine Liste/n übergeben und die Werte da reinschreiben richtig? Dann könnte ich sie in meine Datenbank schreiben und später damit arbeiten. Das Problem ist nur das mit der Übergabe der liste, irgendwie steht da nichts drin wenn ich eine StringList übergebe. Hat da vielleicht jemand eine Idee?
Was genau meinst...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
16. Apr 2010
Wie bekomme ich das hin, die Dateien mit Pfaden in eine Stringlist zu schreiben? Beim debuggen habe ich festgestellt das in GetAllFilesInDirectory scheinbar garnichts in die Liste geschrieben wird. Als ich das ganze aber mit einer ListBox probiert habe standen da die Dateien drin.
Und wie mache ich das, dass ich die Dateigröße auslesen kann?
Gruß
AnyKey
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
15. Apr 2010
Genau, das ist mein Problem, außerdem muss ich dann zu jeder Datei den Ersteller auslesen, das wird dann alles in eine Datenbank geschrieben.
Wäre super wenn mir jemand dabei helfen könnte, ich blick im moment garnicht mehr durch.
Edit:
Ok, ich habe einen neuen Plan, ich mach das mit dem LastAccess nachdem ich die Pfade durch die Rekursive suche ausgelesen habe, nur ist jetzt die Frage wie...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
15. Apr 2010
Danke für den hinweis, werds berücksichtigen ;) hilft mir aber nich weiter... :P
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
15. Apr 2010
Also, GetlastAccessTime gibt wirklich einen String zurück.
Also passt der Typ von LastAccess auch.
Das Datum muss mit einem anderen Datum verglichen werden.
Wie kann ich die funktion verbessern und wie komme ich wie du gesagt hast leichter und besser an das Datum des letzten Dateizugriffs heran?
Gruß
AnyKey
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
15. Apr 2010
Ok, und wie komme ich an dieses Datum dann dran? Wie müsste ich die beiden Schleifen umbauen um nur noch eine zu haben, muss zugeben ich habe den Quellcode aus dem internet kopiert, blick also noch nich so ganz durch, wäre nett wenns mir mal einer kurz erklären könnte.
Gruß
AnyKey
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AnyKey,
15. Apr 2010
Hallo,
ich habe folgendes Problem, ich will einen Ordner rekursiv durchsuchen und für alle gefundenen Dateien den Letzten Zugriff auslesen. Die Funktion sieht folgendermaßen aus:
class procedure TDataWork.GetAllFilesInDirectorys(Directory: string; List: TStrings; ClearList: Boolean);
var LastAccess : string;
var i : Integer;
procedure ScanDir(const Directory: string);
var Mask...