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

Вниз

Как определить что с файловой переменной?   Найти похожие ветки 

 
S@shka   (2002-05-31 13:35) [0]

var F : TEXT;
...
assignfile (F,"lala.dat");
Reset (F);
....
как потом определить что F проинициализирована, т.е. где нить в программе определить нужно ли файл закрывать и открыт ли он вообще?


 
Игорь Шевченко   (2002-05-31 13:40) [1]

procedure TForm1.Button3Click(Sender: TObject);
begin
with TTextRec(F) do
if Mode = fmClosed then
Edit1.Text := "Closed"
else if Mode = fmInput then
Edit1.Text := "Opened for read"
else if Mode = fmOutput then
Edit1.Text := "Opened for write"
else
Edit1.Text := "Unknown";
end;



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

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

Наверх





Память: 0.44 MB
Время: 0.006 c
1-30845
Striker
2002-05-29 09:37
2002.06.10
Путь к файлу


6-30954
Shaman_
2002-04-02 00:26
2002.06.10
Прохождение авторизации на NT сервере


8-30925
Voron
2001-12-27 07:26
2002.06.10
Подскажите способ вывода графики


1-30841
MasterA
2002-05-29 10:23
2002.06.10
MOVE


6-30941
Renton
2002-03-16 20:41
2002.06.10
Запрет/Разрешение на Интернет





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