Текущий архив: 2004.03.28;
Скачать: 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 вся ветка
Текущий архив: 2004.03.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.057 c
