New account

Zusätzliche Funktionen für das File-Name-Handling  Bottom

  • hanno
    • Registered: May 30, 2008
    • Last visit: Dec 26, 2011
    • Posts: 22
    Link to this post Posted: Aug 12, 2008 - 03:53 PM
    Hallo!

    Ich würde mir die mit *) marktierten Funktionen wünschen - insbesondere ExtractFileDir wäre praktisch, weil ChDir mit dem abschließenden backslash von ExtractcFilePath nicht funktioniert.

    Beispiele:
    *) ExtractFileDrive (fullFileName) = C:
    *) ExtractFileDir (fullFileName) = C:\PROGR\WDSibyl\OS\OS2
    ExtractFilePath (fullFileName) = C:\PROGR\WDSibyl\OS\OS2\
    ExtractFileName (fullFileName) = Unit1.pas
    ExtractFileExt (fullFileName) = .pas

    Vielleicht gibt es das ja im nächsten Update ;-)

    Schöne Grüße
    Hanno
  • wdsibyl
    • Registered: Dec 04, 2006
    • Last visit: Dec 29, 2011
    • Posts: 89
    Link to this post Posted: Aug 12, 2008 - 04:58 PM
    Hallo!

    Bzgl. ExtractFileDrive:

    So eine Funktion kann ich schon in die SysUtils einbauen. Wann die nächste Version herauskommt, kann ich noch nicht sagen, aber fürs erste würde ich folgendes Vorschlagen:

    Code

    Drive:=Copy(fullFileName,1,2).


    Damit müsste es funktionieren.
    ---
    Bzgl. ExtractFileDir und ExtractFilePath:

    Es gibt in der SysUtils die Funktionen:

    Code

    { AddPathSeparator: Add the Path-Separator, if is necessary }

    Function AddPathSeparator(Const PathName : tFileName) : tFileName;



    { DeleteLastPathSeparator: Delete the last Path-Separator, if there ist exist }

    Function DeleteLastPathSeparator(Const PathName : tFileName) : tFileName;


    Diese fügen entweder den Dir/Path-Separator hinzu oder entfernt diesen.

    d.h in Deinem Fall müsstest Du folgendes Programmieren

    Code

    DirName:=DeleteLastPathSeparator(ExtractFilePath (fullFileName))


    bye
    Wolfgang
  • hanno
    • Registered: May 30, 2008
    • Last visit: Dec 26, 2011
    • Posts: 22
    Link to this post Posted: Aug 13, 2008 - 07:06 AM
    Hallo Wolfgang!

    Danke für die prompte Antwort. Die von dir genannten Lösungen reichen ja vollkommen, da sind die zusätzlichen Funktionen nicht wirklich notwendig.

    In der Hilfe konnte ich AddPathSeparator und DeleteLastPathSeparator über "Suchen" nicht finden. So kann es dann schon vorkommen, dass ich im Internet einen Befehl finde und den in der Hilfe suche um zu sehen ob WDSibyl ihn kennt. Und dann zu testen, ob der Befehl trotzdem geht, mache ich nur fallweise, denn bei meinem noch bescheidenen :-D Wissenstand tue ich mir da noch schwer - das sollte sich aber ändern ;-)
    Inwieweit die "fehlenden" Funktionen WDSibyl bereichern würden, kann ich nicht wirklich beurteilen, aber wie gesagt, deine Lösungsvorschlag passt auch gut.

    Schöne Grüße
    Hanno

Users on-line

  • 0 users

This list is based on users active over the last 30 minutes.