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

Вниз

Ошибка I/O 183   Найти похожие ветки 

 
KMI   (2002-12-11 11:12) [0]

Всех приветствую! Помогите пожалуйста, с одной ошибкой. При записи в текстовый файл выводится ошибка ввода-вывода 183. Что это за ошибка? И с чем она может быть связана?
Исходный код:

var TF: TextFile;
file: string;
text: string;
...
AssignFile(TF,file);
ReWrite(TF); // выдает ошибку
WriteLn(TF,text);
CloseFile(TF);


 
FreeLancer   (2002-12-11 11:22) [1]

There are two standard text-file variables, Input and Output. The standard file variable Input is a read-only file associated with the operating system’s standard input (typically, the keyboard). The standard file variable Output is a write-only file associated with the operating system’s standard output (typically, the display). Before an application begins executing, Input and Output are automatically opened, as if the following statements were executed:


AssignFile(Input, "");
Reset(Input);
....
AssignFile(Output, "");
Rewrite(Output);


 
KMI   (2002-12-13 12:37) [2]

Мне хотелось бы понять именно причину ошибки...


 
Anatoly Podgoretsky   (2002-12-13 12:56) [3]

Твоя ошибка спрятана где то за ..., которые ты не привел, но я бы поостерегся использовать зля переменных такие имена как File, Text


 
KMI   (2002-12-13 17:57) [4]

Есть массив из 2-х столбцов и N строк. Строка состоит из имени файла и строки, которую нужно в этот файл записать. Отсюда код:

var TF: TextFile;
db: array of array of string;
....
for i:=0 to N-1 do begin
AssignFile(TF, db[0,i]);
ReWrite(TF);
WriteLn(TF, db[1,i]);
CloseFile(TF);
end;


Файл создается правильно, но строка не записывается, а оператор ReWrite дает ошибку...


 
filimonic   (2002-12-18 00:01) [5]

А у файла случайно атрибут (только чтение) не стоит?


 
}{unter   (2002-12-24 17:52) [6]

AssignFile(TF, db[0,i]);
{$I-}
ReWrite(TF);
WriteLn(TF, db[1,i]);
CloseFile(TF);
{$I+}
if IOResult <> 0 then "Имeет место ошибка"


 
Smithson   (2002-12-24 17:57) [7]

На самом деле я наблюдал еще такие грабли. Если в проекте использовать TFileStream и обычный доступ к файлам (Reset, Rewrite), то этот обычный доступ начинает неуловимо (и невоспроизводимо) глючить. Может быть, дело в этом?



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

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

Наверх





Память: 0.45 MB
Время: 0.008 c
1-15143
Витал
2002-12-23 14:35
2003.01.06
TActionMainMenuBar в Delphi7


1-15062
Ozone
2002-12-25 10:18
2003.01.06
TEdit


1-15125
Andy BitOff
2002-12-22 22:39
2003.01.06
Контрол в пределах которого находится мышь


1-15151
Вованчик
2002-12-23 18:36
2003.01.06
!!!!!!!!!!!!ShellExecute. Запуск ссылки в новом окне !!!!!!!!!!!!


6-15199
Di_wind
2002-11-08 14:34
2003.01.06
Старая тягомотина(WebBrowser)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский