Где ошибка?

← →
parasolka © (2006-10-04 10:47) [0]

Пишу dll, но в одном месте возникает ошибка. Вот кусок кода:

AssignFile(Card, TempDir+"Patient\patient.txt"); Reset(Card); try while not Eof(Card) do begin Readln(Card, szTmp1); end; finally CloseFile(Card); end;

Ошибка в строке while not Eof(Card) do begin

[Error] main.pas(714): Missing operator or semicolon

В обычном проекте ошибки нет. Card - TextFile. Помогите, пожалуйста, разобраться.

← →
Dmitrij_K (2006-10-04 10:50) [1]

Ошибка в другом месте.

← →
Palladin © (2006-10-04 10:52) [2]

пересмотри названия переменных, вдруг у тебя там там eof

← →
Palladin © (2006-10-04 10:57) [3]

и для textfile используется append либо rewrite

← →
parasolka © (2006-10-04 11:15) [4]

Переменной eof у меня нет. Вот что странно. Функции для работы с файлами, которые я использую находятся в модуле System, а он в uses не включен, при этом нет ошибки - "неизвестный идентификатор". Если же добавить system в uses, то возникает ошибка:
[Error] main.pas(5): Identifier redeclared: "System".

Еще интерестно - если заменить Eof(Card) на просто Eof, то ошибки нет.

← →
Amoeba © (2006-10-04 11:19) [5]

> Вот что странно. Функции для работы с файлами, которые я
> использую находятся в модуле System, а он в uses не включен,
> при этом нет ошибки - "неизвестный идентификатор". Если
> же добавить system в uses, то возникает ошибка:
> [Error] main.pas(5): Identifier redeclared: "System".

Так и должно быть. Модуль System всегда автоматически подключается по умолчанию. Так что возмущение компилятора абсолютно справедливо.

← →
Palladin © (2006-10-04 11:19) [6]

значит название метода процедуры свойства... емае.. поищи в своих именах идентификаторов...

если не найдешь то думаю прямое указание System.Eof(f) спасет ОРД

p.s. system всегда неявно подключается к любому модулю без указания его в uses

Все, спасибо. System.Eof(Card) помогло.

Я понял в чем дело. У меня этот кусок кода располагался в блоке
with Query do, где Query: TQuery, поэтому компилятор воспринимал Eof как свойство Query.

Где ошибка? Найти похожие ветки