Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Verzeichnis anlegen +1 ? (https://www.delphipraxis.net/123755-verzeichnis-anlegen-1-a.html)

mkinzler 7. Nov 2008 20:08

Re: Verzeichnis anlegen +1 ?
 
Delphi-Quellcode:
function DirectoryCreate( var Path: string): boolean;
Dann enthält die Variable nach dem Aufruf den erzeugten Pfad

DXO 7. Nov 2008 20:14

Re: Verzeichnis anlegen +1 ?
 
Sorry aber Kapier ich nicht :wall:

mkinzler 7. Nov 2008 20:20

Re: Verzeichnis anlegen +1 ?
 
Die erste Version war Call-By-Value, es wurde also ein Wert an die Funktion übergeben, schreibt man ein var vor den Parameter, deklariert man ihn als Call-By-Reference, es wird also die Variable an sich nicht ihr wert übergeben.

Delphi-Quellcode:
var
   Pfad: string;
   erfolg: boolean;
...
  pfad := DateToStr( date));
  erfolg := DirectoryCreate( Pfad);
Die Variable Pfad im rufenden Programm ist nun identisch mit der Variable Path in der Funktion. Alle Änderungen an ihr betrifft also auch Pfad.

DXO 7. Nov 2008 20:44

Re: Verzeichnis anlegen +1 ?
 
So oder wie ?
Delphi-Quellcode:
function AskPath( var Path: string): boolean;
var
   Pfad: string;
   begin
   pfad := DateToStr( date);
   result:= DirectoryCreate( Pfad);
end;
Aber dann funktioniert der aufruf nicht

Delphi-Quellcode:
Label3.Caption:=InttoStr(AskPath( DateToStr( date);
Label3 soll erstmal als Anzeige dienen da ich keine lust hab ständig dateien hin un her zu moven


... kann nicht als Var Parameter weitergegeben werden

mkinzler 7. Nov 2008 20:52

Re: Verzeichnis anlegen +1 ?
 
Einfach so
Delphi-Quellcode:
   pfad := DateToStr( date);
   result:= DirectoryCreate( Pfad);
   label3.Caption := Pfad;

DXO 7. Nov 2008 21:09

Re: Verzeichnis anlegen +1 ?
 
hmm nö geht nicht er zeigt dann im Label nur das Aktuelle Datum an aber nicht den zulezt erstellen Ordner

mkinzler 7. Nov 2008 21:14

Re: Verzeichnis anlegen +1 ?
 
Du hast aber das var bei DirectoryCreate ergänzt?

DXO 7. Nov 2008 21:22

Re: Verzeichnis anlegen +1 ?
 
Ja jetzt garnicht gesehen ... so nächstes Prob
Delphi-Quellcode:
...
result:= (DirectoryCreate( Pfad)); // inkompatible Typen: 'String' und 'Boolean'
...

mkinzler 7. Nov 2008 21:25

Re: Verzeichnis anlegen +1 ?
 
Result ist ja vom typ Boolean. Der geänderte Pfad steht in Pfad!!


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:26 Uhr.
Seite 2 von 2     12   

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