Copy, Del File

Za kopirane na fajlove izpolzvam slednata funkcija
procedure CopyFile (SourceName, TargetName: String);
var
Stream1, Stream2: TFileStream;
begin
Stream1 := TFileStream.Create (SourceName, fmOpenRead);
try
Stream2 := TFileStream.Create (TargetName, fmOpenWrite or fmCreate);
try
Stream2.CopyFrom (Stream1, Stream1.Size);
finally
Stream2.Free;
end
finally
Stream1.Free;
end
end;


No ne moze TFileStream da se izpolzva za triene na fajl, osven da go napravi prazen. Vie kakvi funkcii izpolzvate za fajlovite operacii cut,copy,del?

Напиши CopyFile и натисни F1

чети и дишай по-леко

Deletes an external file.

Unit

System

Category

text file routines

procedure Erase(var F);

Description

Erase deletes the external file associated with F. F is a file variable of any file type.

Always close a file before erasing it.

Дали завиването на крушка е софтуерен проблем?

А ти напиши DeleteFile и натисни F1. Уверявам те, че си струва.

чети и дишай по-леко

Прав си, бях забравил за тези функции

Дали завиването на крушка е софтуерен проблем?

Поне малко смях да става...
Генерирайте един .bat файл, с ред указващ триенето на някой си файл. После запишете файла и го WinExec примерно. След като bat-a си свърши работата генерирайте втори бат-файл,. който трие първия, и така нататък. През свободното време, компютъра да бъде продуктивен!