Строгое соовтетствие FindFirst

svlena
Дата: 21.11.2007 13:40:37
У меня есть процедурка
procedure getFile;
var   sr : TSearchRec;
      Ini: Tinifile;
begin
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'info.ini');
  if FindFirst('c:\temp\pac\' + 'O40*.txt', FaAnyFile, sr) = 0   then
  repeat
  Ini.WriteDateTime('PopConnect',sr.Name, Date);
  until FindNext (sr) <> 0;
  ini.Free;
end;
Ищет файлы и записывает ini файл. Она находит все файлы которые начинаются "O40" и еще немного, которые начинаются "O41". Подскажите пожалуйста, как сделать что бы записывались только на "O40".
Johnmen
Дата: 21.11.2007 14:50:24
Да ну, враки
svlena
Дата: 21.11.2007 15:34:39
А вы проверяли?
Johnmen
Дата: 21.11.2007 15:36:13
svlena
А вы проверяли?

Конечно! Много раз!
Anatoly Podgoretsky
Дата: 21.11.2007 18:36:20
автор
и еще немного, которые начинаются "O41".

Этого быть не может, у тебя приведен не тот текст.