Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Удаление файлов в Делфи

Автор: GriF 24.4.2004, 10:33

ПОМОГИТЕ! Какой командой прямо из Delphi можно удалить созданный с помощью команд
assignfile(<имя файла >,' ');
rewrite(<имя файла >);
файл ?

Автор: <Spawn> 24.4.2004, 10:38

DeleteFile(FileName). Логично?

Автор: GriF 24.4.2004, 11:24

<Spawn> , почему-то не идет и пишет при этом [Error]... : Incompatible types:'String' and 'Text'

Автор: _hunter 24.4.2004, 11:41

ну так напиши FileName.text
(или что-там-у-Delphi)
на Builder' e это c_str()

плюс посмотри какую именно функцию вызываеш -- в Builder' e их две -- одна от борланда, другаю от MS. соответственно и типы переменных разные.

Автор: Pakshin A. S. 24.4.2004, 13:34

Код


procedure DeleteF(const FileName:string);
var
 f:file;
begin
 try
  DeleteFile(FileName {или PChar(FileName)});
 except
  begin
   try
    AssignFile(f, FileName);
    Erase(f);
    CloseFile(f);
   except
    ShowMessage('Удаление невозможно');
   end;
  end;
 end;
end;

Удаление двумя способами...

Автор: Medved 26.4.2004, 02:01

DeleteFile(PChar(FileName));

Автор: SlaUr 26.4.2004, 08:27

Снимает атрибуты перед удалением:

Код


procedure myFileDel(Path:String);
begin
if Not FileExists(path) then Exit;
FileSetAttr(path,0);
DeleteFile(Path);
end;