CopyFile -Funktion, Dateikopiefunktion.
Kopie (
lpcstr lpexistingFileName, // Quelldateiweg
LPCSTR LPNewFileName, // neuer Dateipfad
Bool Bfailifexists // Wenn die neue Datei bereits vorhanden ist, geben Sie Falsch zurück.
Abdeckung.
);
Die Funktion gibt für den Erfolg wahr und falsch für das Scheitern.
Beispiel:
CopyFile (pChar ('sql.txt'), pchar (extractFilepath (application.exename) + '2.txt'), true);
Später, beim Experimentieren habe ich festgestellt, dass die Quelldatei ohne Hinzufügen von PCHR -Funktionen konvertiert werden kann, die neue Datei kann jedoch nicht verwendet werden, und ein Typ -Konvertierungsfehler erfolgt darüber hinaus.
Verwenden Sie dieses Verzeichnis des Programms.
Da die Funktion einen Booleschen Typ zurückgibt, kann sie auch so geschrieben werden:
if copyFile ('d: /yun_yue/sql.txt',pchar (extractFilepath (application.exename) +' 2.txt '), true) dann
// und, bitte stellen Sie sicher, dass Ihr Dateipfad korrekt ist, andernfalls fällt die Funktion zurück.
ShowMessage ('Datei abgeschlossen!')
anders
ShowMessage ('Datei kopieren!');
Die CopyFile -Funktion kann auch mit Dateien in Netzwerknachbarn kopiert werden.
Wenn copyFile ('// sh-sfis/yun_yue/yun_yue/copyText.txt', pchar (extractFilepath (application.exename) + '2.txt'), false) dann
// Das Einstellen des dritten Parameters der Funktion hier in False überschreibt die Datei "2.txt", die in diesem Verzeichnis meiner Anwendung vorhanden ist.
ShowMessage ('Datei abgeschlossen!')
anders
ShowMessage ('Datei kopieren!');