Помогите с поиском файлов!!!

[Teen4jump]

Сделал маленькую програмку для поиска файлов, но чёта поиск невыполняется. Вот код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Name: TEdit;
Size: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
................

................
procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec:TSearchRec;
begin
if FindFirst(Name.Text,faAnyFile,Searc hRec)=0 then
Size.Text:=IntToStr(SearchRec.Size) + 'байт';
FindClose(SearchRec);
end;
end.

[Carbon]

А где FindNext?

if FindFirst(directory+'\*.*',faAnyFile,rec)=0 then
  begin
    if rec.Name<>'.' then
      Size.Text:=IntToStr(rec.Size)+ 'байт';
    while FindNext(rec)=0 do
      if rec.Name<>'..' then
        Size.Text:=IntToStr(rec.Size)+ 'байт';
    FindClose(rec)
  end;

[Teen4jump]

procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec:TSearchRec;
begin
if FindFirst(Name.Text,faAnyFile,Searc hRec)=0 then
Size.Text:=IntToStr(SearchRec.Size) + 'байт';
FindNext(SearchRec);--так что ли???
FindClose(SearchRec);
end;
end.
Я с поиском файлов в Delphi ещё несталкивался поэтому много чего непонимаю

[Carbon]

if rec.Name<>'.' then

и

if rec.Name<>'..' then

не забудь.

И while тоже не помешает...

[ЧИЖ]

а тебе обязательно писать поиск самому
попрбуй TFileListBox это удобнее (лежит на закладке "win 3.1")
а файлы от папок там можно отличить по "[]"

[Teen4jump]

Выложите кто код для поиска файлов по размеру!

[zetrix]

procedure TForm1.Button1Click(Sender: TObject);
var Rec:TSearchRec;
begin
if FindFirst(directory+'\*.*',faAnyFile,rec)=0 then
  begin
  FindNext(rec); //первое, что найдёт - '.'
  FindNext(rec); //второе, что найдёт - '..'
  while FindNext(rec)=0 do if SIZE=rec.Size then ListBox1.Items.Add(rec.Name);
  FindClose(rec);
  end;
end;

SIZE - размер, по которому ищем файл
ListBox1 - сюда будут выведены файлы, удовлетворяющие нашему размеру.
Вместо = можешь написать <=, >= как тебе надо, так и сделай. Можно с помощью нехитрой формулы искать по приблизительному размеру (это уже сам думай, хоть что-то ты же должен сам сделать )

У меня тут в подписи есть парочка ссылок на литературу - поизучай. Т.к. и тебе полезнее будет, и нам не придётся отвечать на простецкие вопросы.

[Teen4jump]

У меня постоянно выдаёт ошибку типа Directory -- undeclared indentifier;

[rpy3uH]

вот это даааа......
var
directory:string;
...
directory:='c:\';

[zetrix]

directory - директория поиска.
Если нужно и во вложенных директория искать, используйте рекурсию.
(смотрите на форуме, это уже обсуждали)