Datein

[DDKFM]

Hallo Forum

Ich brauche eine Methode um Datein und Ordner anzuzeigen ,ich weiß bereits das das über FindFirst,FindNext und FindClose funktioniert aber ich habe das nicht so richtig begriffen kann mir einer eine gute Erklärung oder einen Link sagen wo es relativ einfach zu verstehen ist.



MfG

DDKFM

[m.fuchs]

Das ist ein wenig unspezifisch formuliert. Willst du Inhalte von Verzeichnissen in einer GUI anzeigen? Oder willst du den Inhalt in Variablen weiterverwenden?

Schreib doch mal ein wenig mehr dazu.

[DDKFM]

Ich muss eine StringList erstellen wo alle Datein und Ordner aufgelistet sind, bei einer GUI Anwendung würde ich das über eine FileListBox machen aber ich möchte das in einer Konsolenanwendung einbinden daher müsste ich wissen wie das "von Hand" geht.
Ich will eine Konsolenanwendung schreiben die im Hintergrund läuft und ständig einen Ordner kontrolliert ob Datein geändert wurden und diese dann als Kopie an einen anderen Ordner schickt.

[theo]

Was verstehst denn du genau nicht?
Ich mein, das kann man ja beliebig oft googlen.
Z.B.
http://www.delphibasics.co.uk/RTL.asp?Name=FindNext

Welche Erklärung fehlt dir denn?

[Mathias]

Code: Alles auswählen

uses
  SysUtils;
 
var
  searchResult: TSearchRec;
 
begin
  if FindFirst('c:\windows\*.*', faAnyFile, searchResult) = 0 then begin
    repeat
      Writeln(searchResult.Name);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
  readln;
end. 

[m.fuchs]

Ich will eine Konsolenanwendung schreiben die im Hintergrund läuft und ständig einen Ordner kontrolliert ob Datein geändert wurden[...]

Dafür gibt es andere Möglichkeiten.

• Linux: inotify (http://www.freepascal.org/docs-html/rtl ... watch.html)
• Windows: FindFirstChangeNotification (http://msdn.microsoft.com/en-us/library ... 85%29.aspx)

Vielleicht hat auch schon jemand eine plattformunabhängige Komponente dafür erstellt.

[ruewa]

Ich brauche eine Methode um Datein und Ordner anzuzeigen ,ich weiß bereits das das über FindFirst,FindNext und FindClose funktioniert aber ich habe das nicht so richtig begriffen

Hallo DDKFM,

Mal davon abgesehen, daß es, wie M.Fuchs anmerkte, möglicherweise viel weitergehendere Methoden gibt, Deine Aufgabe zu lösen: Es gibt eine sehr elegante Möglichkeit, Dateien in einer Stringliste zu erfassen, nämlich mithilfe der Funktion FindAllFiles:

Code: Alles auswählen

function FindAllFiles(const SearchPath: String; SearchMask: String = ''; SearchSubDirs: Boolean = true): TStringList;

Das erspart den ganzen FindFirst / FindNext / FindClose - Kram.
FindAllFiles erstellt die Stringliste selbst, auch das kannst Du Dir also sparen (Du mußt sie nur als Variable deklarieren). Genauer gesagt, darfst Du sie auch gar nicht selbst erstellen, weil Du Dir sonst eine Speicherleiche einhandelst: Die selbst erzeugte Stringliste verschwindet nämlich ins Nirvana, wenn Du die Variable SL später auf die von FindAllFiles erzeugte neue Stringliste umbiegst. Freigeben mußt Du sie allerdings schon selbst:

Code: Alles auswählen

var
  SL : TStringList;
begin
  // Falsch wäre nun: SL := TStringList.Create;
  SL := FindAllFiles('MeinVerzeichnis', '*.pas', true);  // erstellt SL und listet alle pas-Dateien im Verzeichnis incl. aller Unterverzeichnisse dort auf
  ...
  SL.Free;
end;

Ich frage mich allerdings, warum Du diese Schwierigkeiten hast, FindFirst etc. zu verstehen. Funktioniert Deine Lazarus-Hilfe nicht? Die Lazarus-Hilfe ist weit mehr als eine "Bedienungsanleitung" für Lazarus, sie enthält sozusagen das ganze "Referenzhandbuch" der Pascal-Methoden. Solange Du das nicht zum Laufen kriegst, kommst Du nicht weit! In der Hilfe findest Du unter "FindFirst" auch ein Beispiel, wie FindFirst / FindNext / FindClose angewendet wird. Normalerweise müßte die Hilfe bei einer Standardinstallation von Lazarus aus dem Stand heraus verfügbar sein, wenn nicht, wäre diese Seite der nächste Anlaufpunkt: http://wiki.freepascal.org/Installing_Help_in_the_IDE

Gruß Rüdiger

[DDKFM]

Danke erstmal für die Funktion ist sehr praktisch und danke für den die Erläufterung ich hätte jetzt auch erst die Stringlist erstellt und dann die Funktion benutzt. Und ich merke jetzt erstmal wie blöd ich bin ich hab gegoogelt und hier im Lazarusforum gefragt ABER in der Hilfe zu schauen wäre natürlich zu einfach.

[ruewa]

... ich merke jetzt erstmal wie blöd ich bin ich hab gegoogelt und hier im Lazarusforum gefragt ABER in der Hilfe zu schauen wäre natürlich zu einfach.

Ist schon okay: Auch die Methode, wie man am besten an Informationen kommt, will ja erstmal gelernt sein. Generell ist bei solchen Fragen die Lazarus-Hilfe immer der allererste Anlaufpunkt (die ist bei mir immer offen, ich komme normalerweise keine 3 Zeilen weit, ohne dort irgendwas nachzuschlagen). Leider hat sie auch ihre Grenzen, z.B. daß man die Stringliste bei FindAllFiles tunlichst nicht selbst erstellen sollte, steht dort nicht. Am besten ist, Du rechnest mit beidem: Immer erst die Hilfe abgrasen, und davon ausgehend bei Unklarheiten dann (und sei's auch nur sicherheitshalber) quer recherchieren.

Außerdem: Für uns Nicht-Genies besteht nunmal 90 % der Arbeit beim Programmieren darin, rauszufinden, wie's gehen könnte. Das ist also ganz normal!

Gruß Rüdiger

[Mathias]

Für uns Nicht-Genies besteht nunmal 90 % der Arbeit beim Programmieren darin, rauszufinden, wie's gehen könnte.

Das ist mir auch schon aufgefallen, es gibt sehr viele fertige Methoden in FPC/Lazrus, aber wen man diese nicht kennt schreibt man sie meistens selbst.

Gutes Beispiel StringOfChar, da hatte ich auch mal selbst geschrieben.

[corpsman]

Servus,

an der Plattformunabhängigen File Change Notification hab ich mich mal versucht. Das Ganze ist aber nicht ohne (und deswegen auch noch nicht auf meiner HP).

Du kannst ja mal schaun in wie weit es dir weiter hilft.

[m.fuchs]

Leider hat sie auch ihre Grenzen, z.B. daß man die Stringliste bei FindAllFiles tunlichst nicht selbst erstellen sollte, steht dort nicht.

Wie sollte dass denn deiner Meinung nach formuliert werden? Bzw. wie käme man auf die Idee, dass man die StringListe vorher erstellen könnte?

[wp_xyz]

Bzw. wie käme man auf die Idee, dass man die StringListe vorher erstellen könnte?

Das ist eine absolute Selbstverständlichkeit. In all meinen Routinen müssen StringListen vorher erstellt werden, es sein denn der Name der Prozedur enthält irgendwas mit "Create..." Andernfalls musst du bei jeder Prozedur, die eine StringListe als parameter enthält, nachsehen, ob vielleicht doch ein Create aufgerufen wurde. Und außerdem ist hier das auch noch eine Funktion, bei der man ja das Funktionsergebnis ignorieren kann - das provoziert Speicherlecks.

[m.fuchs]

Bzw. wie käme man auf die Idee, dass man die StringListe vorher erstellen könnte?

Das ist eine absolute Selbstverständlichkeit. In all meinen Routinen müssen StringListen vorher erstellt werden, es sein denn der Name der Prozedur enthält irgendwas mit "Create..." Andernfalls musst du bei jeder Prozedur, die eine StringListe als parameter enthält, nachsehen, ob vielleicht doch ein Create aufgerufen wurde. Und außerdem ist hier das auch noch eine Funktion, bei der man ja das Funktionsergebnis ignorieren kann - das provoziert Speicherlecks.

1.) Es handelt sich hier um eine Funktion.
2.) Sie bekommt keine TStringList als Parameter übergeben.
3.) Sie gibt ein TStringList zurück.

Wie sollte man da auf die Idee kommen, man müsse vorher eine TStringList instanzieren. Wohin will man sie denn übergeben?

[wp_xyz]

Hast ja recht. Aber wenn man die Parameter nicht genau im Kopf hat, und wenn man in der Hektik nicht genau hinguckt, dass es gar keinen Parameter für die StringList gibt - so wie ich in meiner Antwort -, entstehen die Fehler, an denen man lange sucht. Es sollte eine Design-Regel beim Umgang mit Klassen geben, dass man Klassen nie in Funktionen und nie als var-Parameter von Prozeduren, sondern nur vor dem Aufruf mit dem eigenen Konstruktor erzeugen sollte. Da kann man dann gucken, ob es zu jedem Create auch ein Free gibt.

Wie lange sucht man an diesem Speicherleck?

Code: Alles auswählen

 
  Listbox.Items.Assign(FindAllFiles('c:\Lazarus'));
//oder:
  Memo.Lines := FindAllFiles('c:\Lazarus');  // gefunden im englischen Lazarus-Forum