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

Вниз

Ошибка при открытии файла.   Найти похожие ветки 

 
Jimmy   (2006-08-03 13:36) [0]

Когда создаю новое Application, помещаю на Form1 Button1, и пишу
procedure TForm1.Button1Click(Sender: TObject);
var FName:String;
   f:TextFile;
begin
FName:="C:\1.txt";
AssignFile(f,FName);
{$I-}
Reset(f);
if ioresult<>0 then ShowMessage("Cann`t open file!");
CloseFile(f);
{$I+}
end.
файл FName открывается и с первого раза и с любого. (И это понятно!) А когда тот же код я вставляю в свой графический редактор, файл FName при первой попытке открытия не открывается (выдает ошибку I/O 103 на строке Reset если
убрать {$I-}), а со второго раза открывается. Причем к этому файлу я нигде в редакторе больше не обращаюсь. В чем может быть дело? Заранее спасибо.


 
Германн ©   (2006-08-03 13:47) [1]

103 - File not open
Что-то не то. Имхо, не может эта ошибка возникать на строке Reset.


 
Desdechado ©   (2006-08-03 14:02) [2]

Может, файла нет?



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

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

Наверх




Память: 0.45 MB
Время: 0.039 c
15-1153908559
Virgo_Style
2006-07-26 14:09
2006.08.20
проблема с Mass Storage Device (драйвера?)


4-1143958737
RL
2006-04-02 10:18
2006.08.20
Ограничение доступа к папке


15-1153778649
Footballer
2006-07-25 02:04
2006.08.20
В трее... :)))


2-1154425301
Damager
2006-08-01 13:41
2006.08.20
TAction компоненты + XPMan


6-1144156448
MegaVolt
2006-04-04 17:14
2006.08.20
NetBios и многопоточность несовместимы?





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