чайниковский вопрос :(

← →
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(...)

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

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