[Ztrel]

Приведите пример пожалуйста...
Да - файл текстовый. Да, можно пользоваться TStringList.

Есть одно Но.

По идее, следующий код должен работать...

Код:

If (Form1.Edit1.Text = '' ) then 
filename:= 'Блаблабла.txt' 
else
filename:= 'Блаблабла1.txt';

tmp:= TStringList.Create;

AssignFile(F, filename);
Reset(F);
while not eof(F) do
begin
readln(F, str);
tmp.Add(str);
end;
CloseFile(F);

osenka:= tmp[4];
obkoltests:= StrToInt(tmp[5]);

obkoltests:= obkoltests + 1;
osenka:= 'Отлично';

tmp[4]:= osenka;
tmp[5]:= IntToStr(obkoltests);

AssignFile(F, filename);
Rewrite(F);
for k:= 0 to (tmp.Count - 1) do
begin
writeln(F, tmp[k]);
inc(k);
end;
CloseFile(F);

if 38 > tmp.Count then
begin
AssignFile(F, filename);
Append(F);
writeln(F, '*******');
CloseFile(F);
end
else
begin
AssignFile(F, filename);
Append(F);
writeln(F, '****');
writeln(F, obkoltests);
CloseFile(F);
end;

Но он не работает. Останавливается на строчке Rewrite(F);

Пишет:

EInOutFile with message I/O error 32,

если файл не скрытый, а ежели он скрыт, то

File access denied

Помогите!