Delphi-PRAXiS - Delphi Meine "Verschiebefunktion" soll automatisch überschreiben.

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Meine "Verschiebefunktion" soll automatisch überschreiben. (https://www.delphipraxis.net/10292-meine-verschiebefunktion-soll-automatisch-ueberschreiben.html)

Rapthor

15. Okt 2003 13:14

Meine "Verschiebefunktion" soll automatisch übersc

Wie krieg ich folgende Funktion so geschrieben, dass sie ggf. automatisch überschreibt ?

Delphi-Quellcode:

			function verschieben(FromPos, ToPos: String): Boolean;

begin

if (ToPos[Length(ToPos)] <> '\') then

    ToPos := ToPos + '\';

    Result := RenameFile(FromPos, ToPos + ExtractFileName(FromPos));

end;

Marco Haffner

15. Okt 2003 16:00

Re: Meine "Verschiebefunktion" soll automatisch üb

Dateioperationen mit SHFileOperation

Alle Zeitangaben in WEZ +1. Es ist jetzt 03:00 Uhr.