Bilo bi lepo kad bi rekao koju gresku dobijes kada pokusas da obrises taj fajl?
Mozda fajl ima read only, hidden ili system atribute? Mozda program otvori fajl pa pokusava da ga obrise pre zatvaranja...
Ima jos funkcija za brisanje fajlova. Mozes probati Erase funkciju. Evo primera iz helpa:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
F: Textfile;
begin
OpenDialog1.Title := 'Delete File';
if OpenDialog1.Execute then begin
AssignFile(F, OpenDialog1.FileName);
try
Reset(F);
if MessageDlg('Erase ' + OpenDialog1.FileName + '?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
CloseFile(F);
Erase(F);
end;
except
on EInOutError do
MessageDlg('File I/O error.', mtError, [mbOk], 0);
end;
end;
end;