Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
Ja jetzt garnicht gesehen ... so nächstes Prob
...
result:= (DirectoryCreate( Pfad)); // inkompatible Typen: 'String' und 'Boolean'
...
Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
hmm nö geht nicht er zeigt dann im Label nur das Aktuelle Datum an aber nicht den zulezt erstellen Ordner
Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
So oder wie ?
function AskPath( var Path: string): boolean;
var
Pfad: string;
begin
pfad := DateToStr( date);
result:= DirectoryCreate( Pfad);
end;
Aber dann funktioniert der aufruf nicht
Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
Sorry aber Kapier ich nicht :wall:
Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
:bouncing4: :bounce1: :bouncing4:
Besten Dank ... Sollte wohl mal wieder öfter mit Delphi basteln
Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
Versucht aber nix :cry:
muss das so aufgefufen werden ?
vllt liegts ja an meinem aufruf
if not DirectoryExists(S+'\'+DateToStr(Date))
then DirectoryCreate(S+'\'+DateToStr(Date)) ;
Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
Nein es soll entweder nur eine 1 Hinten oder vorn drangehangen werden
möglich ist auch 01-Datum <- (wenn vorhanden) 02-Datum
Edit: hmm Da wirft sich dann auch gleich die zweite Frage auf wie ich Rausbekommen welches Verzeichnis dann angelegt wurt :gruebel:
Forum: Object-Pascal / Delphi-Language
by DXO,
7. Nov 2008
Nabend @all
Also bin grad dabei mir ein kleines Backup tool zu schnitzen
leider hab ich schon 2 Jahre nix mehr unter Delphi gemacht :oops:
Prog ist fertig aber es fehlt nur noch eine Routine
if not DirectoryExists(S+'\'+DateToStr(Date)) then MkDir(DateToStr(Date))
else ????
Jetzt brauchte ich aber eine Routine die mir ein Verzeichnis +1 anlegt wennn das aktuelle datum schon vorhanden...