При повторном объявлении и открытия для дозаписи или перезаписи
выводит error 32 , хотя, если открывать для чтения, то всё нормально.
Чё такое? (файл в предидущих процедурах был закрыт)

Ошибка в 17 строке.

Alex Ты что телепат?

The MASTER, нет. Просто товарищь Fir думает, что тут форум телепатов.

Alex и прикинь, угадаешь

Я думаю Fir еще не понял, почему ему не отвечают! Fir, приведи пример кода! По-моему ошибка пустяковая, так сказать "описка где-нибудь". Так что если будет код, то ты сразу же получишь ответ в чем дело.

PS. хотя 17 строку можешь проверить. А вдруг действительно Alex угадал!

1) Не закрыл файл.
2) Не той командой открывает.

Еще один вариант: файл открыт еще какой-нибудь прогой...

Цитата(Alex @ 10.3.2005, 18:26)

Ошибка в 17 строке.

По смыслу надо говорить 13-ая строка... Всё-таки 13 - несчастливое число... Или 666...

ВОТ КОД!!! ТЕЛЕПАт - это оскарбление, я инопланетянин. Можно и помоч, мозов не хватает!!

Код

procedure TForm1.BitBtn4Click(Sender: TObject); var f:TextFile; i:integer; begin Assignfile(f, fname); {$I-} Append(f); {$I+} if IOResult<>0 then REwrite(f); FilePos(f); writeln(f, #13); writeln(f, ('###_'+edit1.Text)); for i:=0 to Memo3.Lines.Count do  begin   writeln(f, (Memo3.Lines[i]));  end; Closefile(f); end;

ошибок пруд-пруди и конструкция устаревшая лучше использовать TFileStream
делай так:

Код

AssignFile (F, FName); if FileExists (FName)  then Append (F) else Rewrite (F); Writeln (F); For i := 0 to Memo3.Lines.Count - 1 do Writeln(F,Memo3.Lines[i]); CloseFile (F);

За код спасибо, но канает!!!!!!!!!!!!!!!!!
Ошибка времени на строчке
if FileExists (FName) then Append (F) else Rewrite (F);
или как было
Append (F) {Rewrite (F)}
Причём иногда работает, добавляет в файл, а иногда нет!!!!

Добавлено @ 20:29
Пардон за небольшую тупость. Инет ограничен очень сильно

Цитата

Причём иногда работает, добавляет в файл, а иногда нет!!!!

Может быть действительно ты открываешь этот файл в какой-то другой процедуре (или функции). Просмотри весь код. Может где еще встречается открытие этого файла. А то ведь что бы ошибка времени, да еще и через раз! Скорее всего не сакрыл файл где-то.
А вообще, на сколько я вижу, ты сохраняешь весь текст в Мемо в файл. Так почему бы не воспользоваться Memo1.Lines.SaveToFile?
Я конечно вижу, что если файл есть, то нужно его не перезаписать, а добавить. Но ведь и это решаемо без прямой записи в файл.



p0s0l

Цитата

По смыслу надо говорить 13-ая строка... Всё-таки 13 - несчастливое число... Или 666...

На сколько я помню, в резделе Форум программистов -> Разделы помощи -> Раздел помощи, в словаре терминов сказано следующее

Цитата

Ошибка в 17й строке - Ну, нет тут телепатов, нет! Нужен пример кода с которым проблемы, иначе догадаться что вы там делаете невозможно!

Так что...

Fir давай сделаем так:

Код

begin var  S: TStringList; begin S := TStringList.Create; try  If FileExists (FName) then S.LoadFromFile (FName);   S.Add ('###'+Edit1.Text);   S.AddStrings (Memo1.Lines);   S.SaveToFile (FName); finally  FreeAndNil (S); end;

ЗЫ: ты скажи есть ли еще какие нибудь процедуры или процессы которые работают с данным файлом?!
ЗЫЫ: этот код случайно не в таймере висит?!

z-END, интересный способ. Это как раз то, что я предлагал выше, использовать SaveToFile. Конечно, код не совсем закончен, т.к. если

Код

not FileExists (FName)

то нужно создать файл и записать в него. Но это уже мелочи.

Код

procedure TForm1.BitBtn4Click(Sender: TObject); var   f:TextFile;   i:integer; begin   Assignfile(f, fname);   try     if FileExists(fname) then Append(f) else Rewrite(f);   except     on e:exception do        begin          Showmessage('File could not be opened. Error:'+e.message);          exit;       end;   end;   writeln(f, '');   writeln(f, ('###_'+edit1.Text));   for i:=0 to Memo3.Lines.Count-1 do     writeln(f, (Memo3.Lines[i]));   Closefile(f); end;

Примечания к коду

1) Файл надо проверять на наличие а не дожидаться ошибок
2) Применение FilePos(f); для текстовых файлов бессмыслено
3) writeln(f, #13); - вы реально добавите #13#10#13
4) for i:=0 to Memo3.Lines.Count do - тут вас выбьет по range error или запортите память и выбьет где-то ещё, очень нехорошая ошибка, постарайтесь её никогда не делать, её крайне трудно потом отлавливать, посмотрите на мой код