работа с файлами в дельфи

[T(h)rasher]

Не подскажите какую функцию можно использовать в дельфи для проверки существования файла на диске?

[Step_UA]

FileExists

[T(h)rasher]

Ее можно использовать до функции AssignFile?

[Step_UA]

ее использование независимо от наличия файловой переменной и уж тем более связи оной с файлом ... FileExists('имя файла') - возвращает результат булевого типа

[T(h)rasher]

Вот мой код. Файл l1.txt находится в корне диска с, но почему-то выдает ошибку, что его там нет. Помогите разобраться в чем дело.

procedure TForm1.Button1Click(Sender: TObject);
var
f1: textFile;
str,str1,s,fileName: string;
Label en;
begin
fileName:='l1.txt';
  if FileExists(fileName) then
      begin
       AssignFile(f1, 'C:\l1.txt');
        while not Eof(f1) do
          begin
            reset(f1);
            readln(f1,str);
            readln(f1,str1);

                if (Edit1.Text=str) or (Edit1.Text=str1) then
                    begin
                      readln(f1,str);

                      if (MaskEdit1.text=str) or (MaskEdit1.text=str1) then
                        begin
                          readln(f1,str1);
                          s := application.title;
                          application.title := 'Âõîä â ñèñòåìó';
                          ShowMessage('Äîñòóï â ñèñòåìó ðàçðåøåí.');
                          application.title := s;
                          goto en;
                        end

                        else
                        begin
                          s := application.title;
                          application.title := 'Îøèáêà';
                          ShowMessage('Ïàðîëü ââåä¸í íåâåðíî. Ââåäèòå ïàðîëü è/èëè ïîâòîðèòå ïîïûòêó.');
                          application.title := s;
                          MaskEdit1.Clear;
                          goto en;
                        end;
                    end

                    else
                    begin
                      s := application.title;
                      application.title := 'Îøèáêà';
                      ShowMessage('Èìÿ ïîëüçîâàòåëÿ ââåä¸íî íåâåðíî èëè îòñóòñòâóåò. Ââåäèòå èìÿ ïîëüçîâàòåëÿ è ïîâòîðèòå ïîïûòêó.');
                      application.title := s;
                      Edit1.Clear;
                      goto en;
                    end;
            end;
        CloseFile(f1);
        end
        else
          begin
            s := application.title;
            application.title := 'Îòñóòñòâèå ôàéëà';
            ShowMessage('Ôàéëà ñ òàêèì èìåíåì íå ñóùåñòâóåò.');
            application.title := s;
          end;



en:
end;

[Step_UA]

укажите

fileName:='C:\l1.txt';

т.к. если не указана директория, то поиск ведется в текущей папке (папке проекта)

[T(h)rasher]

спасибо, проглотил, теперь строчка while not EoF(f1) не устраивает (см. вложение):

[Step_UA]

reset(f1);

файл (файловая переменная) должен быть открыт до проверки достижения его конца, вынеси открытие файла до начала цикла

[T(h)rasher]

Спасибо огромное, все работает!