Mit Delphi Dateien kopieren

[Neutral General]

Also

Beispiel:

CopyFile(PChar('C:\Datei.dat'),PChar('C:\Programme\Datei.dat'),false); Das kopiert die Datei Datei.dat von C:\ nach C:\Programme\. Der letzte Parameter an gibt an ob der Vorgang fehlschlägt wenn die Zieldatei schon existiert. Also false bedeutet überschreiben.

DeddyH hat das ganze nur in eine eigene Funtkion gpackt:

Delphi-Quellcode:

function DateiKopieren(const Quelle, Ziel: string; Ueberschreiben: Boolean = true): Boolean;
begin
  Result := CopyFile(PChar(Quelle),PChar(Ziel),not Ueberschreiben);
end;

Aufruf:

DateiKopieren('C:\Datei.dat','C:\Programme\Datei.dat',true); ergibt das gleiche wie oben.

Jede Funktion hat ein Ergebnis. Dieses Ergebnis muss man der Funktion zuweisen. Entweder nimmt man den Functionsnamen oder man nimmt "Result".

Beispiel

Delphi-Quellcode:

function Addieren(a,b: Integer): Integer;
begin
  Result := a + b;
end;

oder eben

Delphi-Quellcode:

function Addieren(a,b: Integer): Integer;
begin
  Addieren := a + b;
end;

Aufrufen tut man die function dann so:

Delphi-Quellcode:

var Ergebnis: Integer;
begin
  Ergebnis := Addieren(5,3);
end;

Die function CopyFile hat auch ein Ergebnis.. Aber vom Typ Boolean (true/false). True bedeutet das die Datei erfolgreich kopiert wurde, false bedeutet einen Fehlschlag.

=>

Delphi-Quellcode:

if CopyFile(PChar('C:\Datei.dat'),PChar('C:\Programme\Datei.dat'),false) then
  ShowMessage('Datei erfolgreich kopiert!')
else ShowMessage('Fehler beim kopieren!');

Ich hoffe ich konnte da etwas Klarheit in die Sache bringen

Gruß
Neutral General