файлы на делфи

[angelap]

подскажите
как копировать только те файлы у которых первый символ буква, а второй цифра. Прога на делфи. Спасибо

[Mad_Cat]

пока есть файлы
нач
FindFirst по маске *.*
занесение пути файла в буфер
вытаскивание имени файла ExtractFileName
если имя_файла[1] in ['А'..'Я','A'..'Z','a'..'z','а'..'я'] и имя_файла[2] in ['0'..'9'] то копировать CopyFile
FindNext
кон
FindClose

а теперь го в поиск по выделенному жирным

[angelap]

можно по конкретней пожалуйста, а то не могу разобраться

[Serge_Bliznykov]

А поиск по выделенным словам Вам ничем не помог?!

через FindFirst и дальше FindNext в цикле находите ВСЕ имена файлов,
каждое имя проверяете, подходит оно Вам или нет.
Если имя файла подходит - выполняете процедуру CopyFile с нужными параметрами.

что Вам конкретно непонятно?!

маленький шаблончик (просто как пример):

procedure DirSearchAndCopy(Dir: string);
var
  SearchRec: TSearchRec;
  FName : string;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearchAndCopy(Dir + SearchRec.name)
      end
      else begin
        FName :=  ExtractFileName(SearchRec.Name);
        if  (Length(FName)>1) and (FName[1] in ['А'..'Я','A'..'Z','a'..'z','а'..'я'])
                       and (FName[2] in ['0'..'9']) then
          CopyFile( тут нужные параметры! Имя копируемого файла =   Dir + SearchRec.Name);
      end;
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

[angelap]

что такое DirSearchAndCopy??

[Serge_Bliznykov]

это идентификатор (наименование) вашей процедуры, которая выполняет нужные вам действия.

Вам нужно доработать строчку с CopyFile (очевидно, что в примере она не заполнена)
и вызывать данную процедуру в нужном месте (например, по клику на кнопку).
Например, так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DirSearchAndCopy('D:\My Folders\Sources');  // в кавычках указываем путь к исходной папке, 
                                  //   которую будем рекурсивно (с заходом в подпапки) обрабатывать!
end;

[kta87]

Пост № 4, procedure DirSearchAndCopy(Dir: string), где Dir - директория для поиска.
Пока отправил....