VPF::Удаление файлов в Делфи - Форум программистов

GriF

Дата 24.4.2004, 10:33 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

<Spawn>

Дата 24.4.2004, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

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

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

GriF

Дата 24.4.2004, 11:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

_hunter

Дата 24.4.2004, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

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

--------------------

Tempora mutantur, et nos mutamur in illis...

Pakshin A. S.

Дата 24.4.2004, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

DeleteFile(PChar(FileName));

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

SlaUr

Дата 26.4.2004, 08:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

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

Код


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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »