Скачать: CL | DM;

чайниковский вопрос :(   Найти похожие ветки 

← →
syte_ser78 ©   (2004-03-04 22:22) [0]

Понимаю что вопрос скоре всего глупый (вернее алгоритм), но как всетаки боротся и в чем причина?
...
var
       sr: TSearchRec;
       FileAttrs: Integer;
       delete_acces:boolean;
begin
       Table1.Open;
       with Table1 do
               begin
               first;
               delete_acces:=true;
               while not EOF do
                       begin
                       if FindFirst("web\*.htm",faAnyFile, sr) = 0 then
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                       вот тут происходит ошибка (описание ниже)
                               begin
                               repeat
                               if sr.name=table1[File_name] then
                                       begin
                                       delete_acces:=false;
                                       end;
                               until FindNext(sr) <> 0;
                               FindClose(sr);
                       end;
               if delete_acces=true then
                       begin
                       table1.Delete;
                       end;
               next;
               end;
       end;
       Table1.Close;
..........

Описание ошибки  - Too many actual parameters

---

← →
Юрий Зотов ©   (2004-03-04 22:27) [1]

Все дело в
with Table1 do

И получилось, что FindFirst - это метод TDataSet. Пишите так:
SysUtils.FindFirst(...)

---

← →
syte_ser78 ©   (2004-03-04 22:34) [2]

Огромное спасибо!

---

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

Скачать: CL | DM;



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