AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

suche Funktion FindLastDir

Ein Thema von bluescreen25 · begonnen am 11. Nov 2007 · letzter Beitrag vom 16. Nov 2007
 
bluescreen25

Registriert seit: 27. Nov 2005
Ort: Geldern
229 Beiträge
 
Delphi 7 Enterprise
 
#16

Re: suche Funktion FindLastDir

  Alt 14. Nov 2007, 15:47
Wow, ansatzweise hatte ich das auch noch so hinbekommen, scheiterte an Einzelheiten...zumindest bin ich jetzt in der Lage, weitere Teilfunktionen zu erstellen, ich denke, ich habs verstanden...

Vielen Dank..

Zitat von C.Schoch:
Hi,
Ich hab da mal was gebastelt, das sollte wenn wir nicht völlig aneinander vorbeireden in etwa hinkommen.
Eigentlich soll man ja keine Lösungen posten, aber trotzdem:
Delphi-Quellcode:
  function FindLastDir(sDirectory : string) : string;
  var
    SearchRec : TSearchRec;
  begin
    sDirectory := IncludeTrailingPathDelimiter(sDirectory); //Path mit Slash versehen,falls fehlt
    result := sDirectory; //das fehlte in meinen Versuchen ??? kannste mir sagen warum ich hier eine Rückgabe liefern muss ?
    if FindFirst(sDirectory + '*.*', faDirectory, SearchRec) = 0 then// wenn ersten Eintrag gefunden
    begin
      try
        repeat //Schleife wenn Path eine Dir ist
          if ((SearchRec.Attr and faDirectory) = faDirectory) and(SearchRec.Name <> '.') and
          (SearchRec.Name <> '..') then
          begin //erste Dir als Path zurückgeben, soweit war ich auch
                          //Verschachtelung erneuter Aufruf der Funktion, immer 1 in die Tiefe
            result := FindLastDir(sDirectory + SearchRec.Name);
            break; //Abbruch wenn 1 gefunden
          end;
        until FindNext(SearchRec) <> 0; //bis Findnext 0 liefert
      finally
        FindClose(SearchRec);
      end;
    end;
  end;
Edit: Absichtlich nicht kommentiert versuch selbst herauszufinden wie und warum, bei Fragen her damit
Gruß, bluescreen25
...und ich dachte, Delphi ist ein Programmgenerator mit nur einem Button......tzzz
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz