var
fileName : string;
myFile : TextFile;
data : string;
begin // Попытка открыть текстовый
файл для записи
fileName := 'Test.txt';
AssignFile(myFile, fileName);
ReWrite(myFile); // Запись в файл
Write(myFile, 'Hello World'); // Закрытие файла
CloseFile(myFile); // Повторное открытие файла в режиме
только для чтения
Reset(myFile); // Показ содержимого файла
while not Eof(myFile) do
begin
ReadLn(myFile, data);
ShowMessage(data);
end; // Закрытие файла в последний раз
CloseFile(myFile); // Теперь удаляем файл
if DeleteFile(fileName)
then ShowMessage(fileName+' удалён')
else ShowMessage(fileName+' не удалён'); // Пытаемся удалить файл повторно
if DeleteFile(fileName)
then ShowMessage(fileName+' deleted OK again!')
else ShowMessage(fileName+' не удалён, ошибка = '+
IntToStr(GetLastError));
end;
Hello World
Test.txt удалён
Test.txt не удалён, ошибка = 2