Вопрос

← →
AIK © (2007-07-10 21:11) [0]

Нимогли бы вы мне помочь, сделал небольшую программу которая открывала и редактировала текстовый документ (*.txt), но по некой необхонимости пришлось поставить атрибуты документа скрытый и теперь программа выдаёт ошибку. Подскажите пожалуйста как её мне исправить ?
Код программы:
...........
var
Form1: TForm1;
f:text;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(f,"Input.txt");
rewrite(f);
write(f,"PROBA!!!");
CloseFile(f);
end;

← →
tesseract © (2007-07-10 21:25) [1]

> и теперь программа выдаёт ошибку

какую ?

← →
alien1769 © (2007-07-10 21:25) [2]

Тебе программно или через сервисные программы ?

← →
alien1769 © (2007-07-10 21:26) [3]

>
> какую ?

не может открыть скрытый файл :))

← →
Курдль © (2007-07-10 21:32) [4]

Я б за один заголовок топика "Вопрос" наказывал...

← →
DVM © (2007-07-10 22:21) [5]

> Подскажите пожалуйста как её мне исправить ?

Чтобы не выдавала ошибку что ли? :)

procedure TForm1.Button1Click(Sender: TObject); begin {$i-} AssignFile(f,"Input.txt"); rewrite(f); write(f,"PROBA!!!"); CloseFile(f); {$i+} end;

← →
AIK © (2007-07-10 22:54) [6]

А вот такую ошибку
Project Project1.exe raised exception class EInOutError with "File access danied". ...

← →
Аффтар (2007-07-10 22:56) [7]

Блин бывает же :)))))))

← →
DVM © (2007-07-10 23:00) [8]

> А вот такую ошибку

[5] не может сгенерить такого исключения

← →
AIK © (2007-07-10 23:01) [9]

> Блин бывает же :)))))))

Может поможеш чтобы БЛИН НЕБЫЛО ЖЕ!!! :(

← →
alien1769 © (2007-07-10 23:20) [10]

Автор сними атрибут системный и/или скрытый в любой сервисной программе
/ТС, WC и т.д./

← →
{RASkov} © (2007-07-10 23:23) [11]

begin
N:=GetFileAttributes("Input.txt");
SetFileAttributes("Input.txt", FILE_ATTRIBUTE_NORMAL);
DeleteFile("Input.txt");
AssignFile(f,"Input.txt");
rewrite(f);
write(f,"PROBA!!!");
CloseFile(f);
SetFileAttributes("Input.txt", N);
end;

← →
{RASkov} © (2007-07-10 23:24) [12]

Т.е. даже и Delete не нужно...

← →
alien1769 © (2007-07-10 23:31) [13]

> {RASkov} © (10.07.07 23:23) [11]

добрый дядя, да

← →
AIK © (2007-07-10 23:32) [14]

Ну спасибо тебе, ато что тип в варе у N - DWORD догадыватся пришлось самому ;)

← →
AIK © (2007-07-10 23:34) [15]

> добрый дядя, да

ДА, нето что некоторые

← →
Джо © (2007-07-10 23:36) [16]

> [14] AIK © (10.07.07 23:32)
> Ну спасибо тебе, ато что тип в варе у N - DWORD догадыватся
> пришлось самому ;)

Надеюсь, моск не выкипел?

← →
AIK © (2007-07-10 23:46) [17]

Свое сначала исправь:

> ато что тип в варе у N - DWORD догадываться

> А уменя клава беспроводная
> мобильник рядом помехи создает и буквы заглатываются

умник, а чего на вопрос не ответил /пост 2/

> умник, а чего на вопрос не ответил /пост 2/

Нуу видишь ли не такой уж я и умник.
А кстати о чем он ???

:-0
Колесиком наверх крлк-крлк, до такого сочитания знаков [2]

> [14] AIK © (10.07.07 23:32)
> тип в варе у N - DWORD догадыватся пришлось самому

И долго ты гадал? Или у тебя Code Insight не работает? )

Вопрос Найти похожие ветки