Autor Beitrag
ALF
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: Mi 23.02.11 22:16 
Überlege schon ne ganze Zeit wie ich diese Parameter (FO_MOVE, FO_COPY, FO_DELETE, FO_RENAME) direkt übergeben kann.
Zur Zeit mache ich das mit integer und in der Funktion mit Case. Nachteil, ich muss selber immer erst schauen welcher integer welche funktion ausführt! mhhh...
Würde also gerne den Parameter so übergeben
ausblenden Delphi-Quelltext
1:
2:
3:
MultiFilePathFunc(PAnsiChar(temppath), PAnsiChar(tofile), 4)//entspricht FO_RENAME
// besser währe 
MultiFilePathFunc(PAnsiChar(temppath), PAnsiChar(tofile), FO_RENAME)
und in der funktion:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
....
....
4begin
     fos.wFunc:= FO_RENAME;//<--- hier würde ich gern den Paramerter direkt einfügen
                           //     durch die Übergabe
....
....

und schon bräuchte ich nicht mehr in die funktion schauen.

Hab aber nicht so die richtige Idee :?

Gruss ALf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
jaenicke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19315
Erhaltene Danke: 1747

W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Mi 23.02.11 22:40 
Wofür das case? FO_RENAME usw. sind auch Integerkonstanten, die kannst doch direkt nutzen. :gruebel:

Für diesen Beitrag haben gedankt: ALF
ALF Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1085
Erhaltene Danke: 53

WinXP, Win7, Win10
Delphi 7 Enterprise, XE
BeitragVerfasst: Mi 23.02.11 22:48 
Na toll, die ganze Zeit versuche ich das und bekam immer ne Fehlermeldung!
Jetzt setzte ich das ein und es funct :shock:

Keine Ahnung was da vorher für ein Problem war :gruebel:

Thx

Gruss ALf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!
jaevencooler
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 166
Erhaltene Danke: 6

MS-DOS,Win32, Win95, Win 98, Me,XP, Linux, NT4.0, NT 2000-2008, Vista, Windows 7
Turbo Pascal,D1 Enter,D2 Enter,D3 Enter,D5 Enter, Kylix, D2007, PL/SQL, MS/SQL, Delphi 2010, Delphi XE
BeitragVerfasst: Do 24.02.11 16:09 
Tach auch,

da war sicherlich Fehler 51 !


Gruß Michael

_________________
Wissen ist Macht, nichts wissen macht auch nichts...