Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.11.21;
Скачать: CL | DM;

Вниз

FindNext-лишние файлы   Найти похожие ветки 

 
nellyk ©   (2010-08-29 22:52) [0]

Вот такая процедура выдает непустой список файлов, в котором, например, "A02B02C03D03E03.txt". Это как?!? (Такие "шутки" возникают только при маске поиска с числами.) Получено в Delphi 7.

procedure TForm1.FormCreate(Sender: TObject);
const s0="1";
var sr: TSearchRec;
    s:string;
begin
SetCurrentDir("D:\T2"); s:="";
if FindFirst("*"+s0+"*.txt",faAnyFile,sr)=0 then
 while (true) do begin
       if (Pos(s0,sr.Name)=0) then
          s:=s+sr.Name+chr(10)+chr(13);
       if (FindNext(sr) <> 0) then break;
 end;
ShowMessage(s);
end;


 
Palladin ©   (2010-08-29 23:03) [1]

Delphi в этом не виновата. Введи в коммандной строке dir *1*.txt и увидишь.


 
nellyk ©   (2010-08-29 23:09) [2]

Спасибо большое, такое как-то в голову не приходило... А в чем дело-то? Хотелось бы знать. Т.е. в каких случаях такое может получаться (и почему)?


 
Palladin ©   (2010-08-29 23:12) [3]

) Фих знает... надо гуглить... мне интересно, но лень )


 
nellyk ©   (2010-08-29 23:16) [4]

ОК, еще раз спасибо - если узнаю, то сообщу.


 
Anatoly Podgoretsky ©   (2010-08-29 23:17) [5]

Не увидит, надо dir *1*.txt /x


 
nellyk ©   (2010-08-29 23:37) [6]

Здорово! Слов нет!!! А нельзя запретить работу с сокращенными именами?


 
Anatoly Podgoretsky ©   (2010-08-30 00:25) [7]

> nellyk  (29.08.2010 23:37:06)  [6]

Нельзя, это по дизайну, но их можно игнорировать, сравнивая по маске.
MatchesMask


 
nellyk ©   (2010-08-30 00:33) [8]

Спасибо, я так и сделала (просто сравнивая), но до dir не додумалась, так как поиском чаще пользуюсь в Far-е, а там обработка нормальная.
Еще раз, спасибо - вопрос закрыт!


 
Dennis I. Komarov ©   (2010-08-30 12:03) [9]


>  while (true) do begin
>    ...
>        if (FindNext(sr) <> 0) then break;

Вот такое убери и больше не показывай...


 
Плохиш ©   (2010-08-30 20:50) [10]


> Dennis I. Komarov ©   (30.08.10 12:03) [9]

Да ладно тебе, она просто ещё не знает про циклы repeat...


 
Anatoly Podgoretsky ©   (2010-08-31 08:57) [11]

Она много чего не знает, но она научится.


 
Dennis I. Komarov ©   (2010-08-31 10:58) [12]


> Плохиш ©   (30.08.10 20:50) [10]

Там логика в голове не красивая... Надо исправить! ;)



Страницы: 1 вся ветка

Текущий архив: 2010.11.21;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.008 c
6-1229006287
dmitry_12_08_73
2008-12-11 17:38
2010.11.21
Компонент для закачки файла по LAN


15-1281353446
12
2010-08-09 15:30
2010.11.21
Из-за чего может быть SystemError 1158 ?


2-1281933918
Гость
2010-08-16 08:45
2010.11.21
Как в ini-файле сдвинуть секцию вверх или вниз?


4-1239955786
Дмитрий
2009-04-17 12:09
2010.11.21
Найти окно по классу (для всех пользовательских сессий)


2-1283260525
Stenfit
2010-08-31 17:15
2010.11.21
Сохранение списка