findfirst

[aesoem]

Здрасте, как найти все подходящие файлы во время поиска
Я делал так:

var
scan:tsearchrec;
begin
 findfirst(sedit1.text+'\'+ sedit2.Text,faAnyfile,scan);
 slistbox1.Items.Add(scan.Name);
 slistbox1.Items.Add(inttostr(scan.Size)+' байт');
 findclose(scan);
end;

Он находит 1 файл и сидит молча...

Делал так:

var
scan:tsearchrec;
begin
 findfirst(sedit1.text+'\'+ sedit2.Text,faAnyfile,scan);
 slistbox1.Items.Add(scan.Name);
 slistbox1.Items.Add(inttostr(scan.Size)+' байт');
 findnext(scan);
 slistbox1.Items.Add(scan.Name);
 findclose(scan);
end;

Получилось сколько раз повториш в коде

findnext(scan);
 slistbox1.Items.Add(scan.Name);

столько он и найдёт!
Мне что с запасом взять

[mihali4]

Сколько еще...?
Ставим курсор на слово "findfirst" и нажимаем F1.
В открывшемся окне хэлпа выбираем Delphi Example и видим:

with StringGrid1 do
begin
RowCount := 0;

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then

begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

Когда ж вы хэлпом-то пользоваться научитесь?

[aesoem]

помогите понять, что с чем в этом коде, в англюйском я 0, пытаюсь безуспешно заниматся

[Stilet]

Ну хотябы то что нужно FindNext вызывать в цикле, пока он False не вернет - мол "сканить директории окончил"

[Квэнди]

а он false никогда и не вернет )

[mihali4]

Сообщение от aesoem

помогите понять, что с чем в этом коде, в англюйском я 0, пытаюсь безуспешно заниматся

Я не понял... Вам что, паскалевские операторы нужно на русский язык перевести? Тогда переходите на 1С, насколько я помню, там все по-русски.

[Квэнди]

Собственно отет дан. не вижу смысла в разжевывании
закрыто.

[Stilet]

Тьфу ты, не False а ErrorCode )