Hallo
Ich versuche mehrere Dateien in ein Verzeichnis zu Copieren, dabei befinden Sie sich in einer TStringList
Delphi-Quellcode:
{
sl = C:\Verzeichnis\Test.txt
= C:\Test\Delphi.txt
= C:\Tool\Tool.txt
usw.
}
var
i: Integer;
sl: TStringList;
begin
sl := TStringList.Create;
for i := 0 to sl.count - 1 do
begin
CopyFile(PChar(sl.Strings[i]), (PChar('C:\Projekte\'+ (ExtractFileName(sl.Strings[i])))), True);
end;
finally
sl.Free;
end;
[Fehler] Unit1.pas(66): Anweisung erforderlich, aber Ausdruck vom Typ 'LongBool' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete
Unit 'Unit1.pas' kann nicht compiliert werden