Форум: "Начинающим";
Текущий архив: 2010.11.21;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.004 c