Сравнение текстовых файлов

[PAVEL315]

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

не Edit, а Memo......
использование memo или stringlist намного лучше

Зачем создавать визуально? Зачем давать нагрузгу компу??? Проще создать виртуальный список, StringList к примеру, а не Memo

[rpy3uH]

tstringlist это родной для delphi способ работы со строками и текстовыми файлами

[ZhekON]

есть код


procedure ffind(cat:string); //каталог, откуда начать поиск
var sea:TSearchRec;
res:integer; //результат поиска (0 или нет)
begin
res:=FindFirst(cat+'*.*',faAnyFile,sea); //ищем первый файл
res:=findNext(sea);//ищем следующий файл
While res=0 do
begin
if (Sea.Attr=faDirectory) and ((Sea.Name='.')or(Sea.Name='..')) then//чтобы не было файлов . и..
begin
Res:=FindNext(sea);
Continue;//продолжаем цикл
end;

if (Sea.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
begin
Ffind(cat+Sea.Name+'\');//рекурсивно вызываем нашу процедуру
Res:=FindNext(Sea);//ищем след. файл
Continue;//продолжаем цикл
end;
form1.ListBox1.Items.Add(Sea.Name);//добавляем в Listbox:Tlistbox имя файла
Res:=FindNext(Sea);//ищем след. файл
end;
FindClose(Sea);//освобождаем пересенную поиска
end;

когда меняю *.* на *.mp3 перестаёт искать файлы.
Почему?

[BOBAH13]

боже мой )))

вот держи быстренько наваял:

procedure Mp3Find(Dir: String; List: TStrings);
var
Sr: TSearchRec;
begin
if (Dir[Length(Dir)]<>'\') then Dir := Dir + '\';
if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
repeat
if (Sr.Attr and faDirectory = 0) and
(AnsiUpperCase(ExtractFileExt(Sr.Na me))='.MP3') then
{ установлен в маске 0й бит - значит файл }
begin
List.Add(Dir + Sr.Name);
end else
if (Sr.Name<>'.') and (Sr.Name<>'..') then
begin
Mp3Find(Dir + Sr.Name + '\', List);
end;
until
FindNext(Sr) <> 0;
FindClose(Sr);
end;

[ZhekON]

да, но проблема не только в этом, я хочу чтобы искало любой файл, а пример с сменой розшырения я так, просто навёл..( Как чтобы искало любой файл???

[BOBAH13]

ладно, если это так сложно !

procedure Mp3Find(Dir, Ext: String; List: TStrings);
var
Sr: TSearchRec;
begin
if (Dir[Length(Dir)]<>'\') then Dir := Dir + '\';
if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
repeat
if (Sr.Attr and faDirectory = 0) and
(AnsiUpperCase(ExtractFileExt(Sr.Na me))=AnsiUpperCase(ext)) then
{ установлен в маске 0й бит - значит файл }
begin
List.Add(Dir + Sr.Name);
end else
if (Sr.Name<>'.') and (Sr.Name<>'..') then
begin
Mp3Find(Dir + Sr.Name + '\', List);
end;
until
FindNext(Sr) <> 0;
FindClose(Sr);
end;

вот суй расширение с точкой в ext !! параметр