Alibaba258
Grünschnabel
Hallo Jungs und Mädels,
folgendes Problem.
So wir ihr sicherlich sehen könnt soll mir das Programm einen Ordner erstellen, dessen Name im Edit1 Feld festgelegt wurde. So das klappt auch. Aber jeztzt das Prob. Desweiteren soll das Programm die Datei aus dem Verzeichnis "dont delete\ligafaehig.PLR" kopieren und in den eben erstellten Ordner unter dem Namen, der im Edit1 Feld eingegeben wurde einfügen.
Das Programm läuft auch so schon ganz gut mit dem kleinen Fehler, das mir die Datei nicht in den soeben erstellten Ordner kopiert wird, sondern in den Ordner Save.
So hoffe ihr wisst was ich meine, und könnt mir helfen.
Schöne Grüße
Alibaba258
folgendes Problem.
Code:
procedure TBackground.ligafahigClick(Sender: TObject);
begin
MkDir ('Save\' + Edit1.Text);
begin
FilePathA := 'dont delete\ligafaehig.PLR'; // Pfad der zu kopierenden Datei
FilePathB := 'Save\Edit1.Text' + Edit1.Text + '.PLR'; // Zielpfad
mem := TMemoryStream.Create;
try
mem.LoadFromFile(FilePathA);
mem.SaveToFile(FilepathB);
finally
mem.Free;
end;
end;
end;
So wir ihr sicherlich sehen könnt soll mir das Programm einen Ordner erstellen, dessen Name im Edit1 Feld festgelegt wurde. So das klappt auch. Aber jeztzt das Prob. Desweiteren soll das Programm die Datei aus dem Verzeichnis "dont delete\ligafaehig.PLR" kopieren und in den eben erstellten Ordner unter dem Namen, der im Edit1 Feld eingegeben wurde einfügen.
Das Programm läuft auch so schon ganz gut mit dem kleinen Fehler, das mir die Datei nicht in den soeben erstellten Ordner kopiert wird, sondern in den Ordner Save.
So hoffe ihr wisst was ich meine, und könnt mir helfen.
Schöne Grüße
Alibaba258