Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

Ошибка 103 - почему?   Найти похожие ветки 

 
z3f   (2004-06-08 11:20) [0]

Код:
if j=0 then
begin
 k:=IntToStr(m)+"o.txt";
 AssignFile(F_NEW,k);
 ReWrite(F_NEW);
 writeln(F_NEW,S);
 CloseFile(F_NEW);
 inc(m);
 inc(j);
end
 else
    begin
      AssignFile(F,k);
      Append(k);
      writeln(F,S);
      CloseFile(F);
    end;
На первом проходе else не затрагивается на втором проходе программа переходит по else и ругается с ошибкой I/O error 103 (в help"е - Reported by CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open.).
Что значит файл - не открыт?
Он открыт!
Подскажите в чем ошибка?

С уважением z3f.


 
GuAV ©   (2004-06-08 11:26) [1]


>       Append(k);

Глаза протри :)
Append(F);


 
z3f   (2004-06-08 11:34) [2]

Тормоз я=(
Но что с утра не бывает=(
var
F:TextFile;
Но после исправления появилось - Incompatible types: "String" and "Text" именно на строку Append(F);
А теперь что не так?

С уважением z3f.


 
Плохиш   (2004-06-08 11:36) [3]

System.Append(...);


 
z3f   (2004-06-08 11:39) [4]

И на такую штуку появляется ошибка=(
правда 105 - Reported by Write or Writeln on a text file if you do not generate a Console application.
А зачем мне Console application??? мне просто надо открыть файл на добавление!

С уважением z3f.


 
z3f   (2004-06-08 11:41) [5]

Все работает - спасибо за помощь!!!!!!!!!1
прошу прощения за беспокойство!!!!!!!!!

С уважением z3f.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.035 c
3-1085648929
CrazyMan
2004-05-27 13:08
2004.06.20
Как справиться с "" в селекте InterBase


1-1086766518
dimon_programmer
2004-06-09 11:35
2004.06.20
Почему пакет не инсталит .dcu-файл


3-1085577800
starik30
2004-05-26 17:23
2004.06.20
Decimal


1-1086690046
dimuch
2004-06-08 14:20
2004.06.20
Подскажите по вопросу о иерархии


1-1086691400
Ivolg
2004-06-08 14:43
2004.06.20
Сохранение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский