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

Вниз

Не могу разобраться с TextFile   Найти похожие ветки 

← →
expirez   (2006-04-30 23:54) [0]

Здравствуйте. Delphi ругается на код. Не могу понять почему?
program Project1;

uses
 SysUtils;

var
 TaskFile: TextFile;

function ReadWord(F: TextFile): String;
В функции я объявляю "на входе" тип TextFile и возникает сообщение что "file type not allowed here".

Второе. Для чтения использую Read(MyTextFile). Как переместить каретку на нужный символ? Не могу найти этой функции. Seek не подходит.

---

← →
Gero ©   (2006-05-01 00:08) [1]

> Не могу понять почему

Потому что file type not allowed here. Хелп поможет.

> Как переместить каретку на нужный символ?

Прочитать все символы до нужного.

---

← →
Alx2 ©   (2006-05-01 01:05) [2]

function ReadWord(Var F: TextFile): String;

---

← →
expirez   (2006-05-01 09:33) [3]

Alx2 спасибо.


> > Как переместить каретку на нужный символ?
>
> Прочитать все символы до нужного.


А если каретку надо назад переместить?

---

← →
LexxX ©   (2006-05-01 09:38) [4]

expirez   (01.05.06 9:33) [3]
А Seek уже не работает?

---

← →
Anatoly Podgoretsky ©   (2006-05-01 13:13) [5]

expirez   (01.05.06 09:33) [3]
Начинай считывать с начала

---

← →
Gero ©   (2006-05-01 14:35) [6]

> [3] expirez   (01.05.06 09:33)

Вот смотри сколько ты времени потратил, а ведь достаточно было нажать F1.

---

← →
Kerk ©   (2006-05-01 14:37) [7]

LexxX ©   (01.05.06 9:38) [4]
А Seek уже не работает?

Для TextFile никогда не работало.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.01 c