| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Переменная типа Файл в качестве параметра [D7, XP]

Megabyte ©   (2007-03-09 11:09:00) 

Хотел сделать процедуру с параметром типа TextFile.
Компилятор ругнулся: "File type not allowed here"
Неужели правда нельзя применять параметры типа файл?

---

Megabyte   (2007-03-09 16:10:00) [1]

> begin...end ©  (09.03.07 11:44) [5]

> Megabyte ©  (09.03.07 11:09)
> Неужели правда нельзя применять параметры типа файл?

Можно. Только они должны быть var- или const-параметрами.

Спасибо!

---

begin...end   (2007-03-09 11:44:00) [2]

> Megabyte ©   (09.03.07 11:09)
> Неужели правда нельзя применять параметры типа файл?

Можно. Только они должны быть var- или const-параметрами.

---

Сергей М.   (2007-03-09 11:28:00) [3]

> С утра еще не проснулся видать :)


Похоже на то)
Ибо "запись в файл" и в Африке есть "запись в файл", а уж условная она там или безусловная - это по барабану

---

Megabyte   (2007-03-09 11:20:00) [4]

> А зачем ?
Чем, скажем, не угодил TFilestream ?

А хз. Что-то не подумал. Просто производится запись в файл, но в зависимости от условий:
While not adst.Eof do
 begin
   for i := 0 to adst.FieldCount-1 do
     if (i < 7) then
       write(afile, adst.Fields.Fields[i].Value, ';')
     else
       if (i = 7) then
       begin
         date_time := ConvertDateTime(adst.Fields.Fields[i].Value);
         write(afile, date_time, '');
       end
       else
       begin
         if (alast < adst.Fields.Fields[i].Value) then
           alast := adst.Fields.Fields[i].Value;
       end;
   writeln(afile);
   adst.Next;
 end;
С утра еще не проснулся видать :)

---

Ega23   (2007-03-09 11:16:00) [5]

> Хотел сделать процедуру с параметром типа TextFile.


А что тебе мешает сделать процедуру с параметром FileName?
А если с одним файлом надо в разных местах работать - с параметром TStrings?

---

Сергей М.   (2007-03-09 11:14:00) [6]

> Неужели правда нельзя применять параметры типа файл?


А зачем ?
Чем, скажем, не угодил TFilestream ?

---

Наверх