Файл + архив

[demon-sheff]

Доброго времени суток. Уважаемые профессионалы, подскажите пожалуйста как можно реализовать следующее: у меня есть папка куда скидываются xml файлы и архивы с ними. Так вот проблема в следующем не могу разобраться как сделать проверку существования xml и zip архива.
XML называется: package_n_145114eb-a009-4774-9da4-180be513209c.xml
Zip архив соответственно: req_145114eb-a009-4774-9da4-180be513209c.zip
Буду рад любой помощи!

[BARNEY]

а считать расширение из имени файла.... чего мешает?

[Человек_Борща]

1. Отсекаете расширение файла(копируем все до точки)
2. Инвертируете строку: из собака в акабос
3. Копируете все до знака _, как в п. 1
4. Инвертируете строку(она снова в читабильном виде)
В итоге получаем строку: 145114eb-a009-4774-9da4-180be513209c

Теперь такое:

myStr:='145114eb-a009-4774-9da4-180be513209c';
if (FileExists('package_n_'+myStr+'.xml') and FileExists('reg_'+myStr+'.zip')) then
<Файлы существуют>

[Аватар]

if AnsiSameText(ExtractFileExt(FileName),'.zip') then - расширение zip

[demon-sheff]

Сообщение от Человек_Борща

myStr:='145114eb-a009-4774-9da4-180be513209c';
if (FileExists('package_n_'+myStr+'.xml') and FileExists('reg_'+myStr+'.zip')) then
<Файлы существуют>

а как быть если название всегда разное и не повторяется. как нибудь можно сделать без присвоения myStr. просто название архива присудствует в xml

<?xml version="1.0" encoding="utf-8"?>
<RegFolder><eDocument Version="06"/>
<Info>
<GUID>145114eb-a009-4774-9da4-180be513209c</GUID>
<Type>1</Type><Sender Date="2012-06-13T18:42:13+06:00" Code="45.0.1.94"/>
<Recipient Code_OKATO="38401880000" Module_Type="3"/>
<Attach>
<Name>req_145114eb-a009-4774-9da4-180be513209c.zip</Name>
</Attach>
</Info><GUID>219ebe07-d72b-4224-8d4b-fe45542aaf30</GUID>
<Number>45-0-1-94/1001/2012-3963</Number>
<Name>Прекращение существования ОН</Name><Request>
<GUID>3e079e41-d403-41d5-9551-bb5342ed18d5</GUID>
<Type>558102020000</Type><Action>659002007000</Action>
<Number>45-45-16/309/2012-587</Number><Date>2012-06-13T17:10:12+06:00</Date>
<Date_Execution>2012-07-13</Date_Execution><Status>001</Status><Urgency>false</Urgency>
<Organization_Code>051501045000</Organization_Code><Tax_Free>true</Tax_Free><Payment_Code/>
<Executive><FIO><Surname>Иванов</Surname><First>Иван</First><Patronymic>Иванович</Patronymic>
</FIO><Appointment>Инженер 1 категории</Appointment>
</Executive><Date_Recive>2012-06-13T17:10:12</Date_Recive>
<Type_Info>111</Type_Info>
</Request></RegFolder>

[Человек_Борща]

Открываем XML, читаем имя архива, проверяем.

[demon-sheff]

делаю все так:

var
  SR, SK, SV: TSearchRec; // поисковая переменная
  S: TStrings;
  Dir : string;
  j,i: integer;
     FindRes, FindRez :Integer;  // переменная для записи результата поиска
begin
    if SelectDirectory('Выберите папку', 'С:\', Dir) then
   begin
      Edit1.Text := Dir;
   end;
    if FindFirst(Dir+'\*.xml',faAnyFile,SK) = 0 then
  repeat
    S:=TStringList.Create;
    S.LoadFromFile(Dir+'\'+SK.Name);
    Memo1.Text:=Memo1.Text+#13+S.Text;
    S.Free;
  until FindNext(SK) <> 0;
  FindClose(SK);
   begin
  ListBox2.Clear;
  ListBox3.Clear;
 FindRes:=FindFirst(Dir+'\*.xml',faAnyFile,SR);  // задание условий поиска и начало поиска
 While FindRes=0 do  // пока мы находим файлы (каталоги), то выполнять цикл
    begin
       ListBox2.Items.Add(SR.Name);  // добавление в список название найденного элемента
       FindRes:=FindNext(SR);  // продолжение поиска по заданным условиям
       end;
 FindClose(SR);  // закрываем поиск
          begin
      FindRez:=FindFirst(Dir+'\*.zip',faAnyFile,SV);  // задание условий поиска и начало поиска
 While FindRez=0 do  // пока мы находим файлы (каталоги), то выполнять цикл
    begin
       ListBox3.Items.Add(SV.Name);  // добавление в список название найденного элемента
       FindRez:=FindNext(SV);  // продолжение поиска по заданным условиям
       end;
 FindClose(SV);  // закрываем поиск
 end;
           begin
            if (FileExists('package_n_'+SR+'.xml') and FileExists('reg_'+SV+'.zip')) then
            Memo4.Lines.Add(SR.Name);
           end;

предпологаю что ошибка где-то здесь, но как ее решить не могу сообразить
begin
if (FileExists('package_n_'+SR+'.xml') and FileExists('reg_'+SV+'.zip')) then
Memo4.Lines.Add(SR.Name);
end;

[Человек_Борща]

Если имя архива есть в XML, то открываете XML читаете имя архива и проверяете.
Все.

[demon-sheff]

Сделал все так как вы и говорили, получилось так:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 j,i:integer;
 sa,st:shortstring;
 begin
   for i:=0 to Memo4.Lines.Count-1 do begin
    if (Pos('package_n_',Memo4.Lines.Strings[i])<>0)
   then  begin
      St:=Copy(Memo4.Lines.Strings[i],11,length(Memo4.Lines.Strings[i])-12);
      Memo5.Lines.Add(st);
       end;
      for j:=0 to Memo6.Lines.Count-1 do begin
    if (Pos('req_',Memo6.Lines.Strings[j])<>0)
   then  begin
      Sa:=Copy(Memo6.Lines.Strings[j],5,length(Memo6.Lines.Strings[j])-6);
      Memo7.Lines.Add(sa);
       end;
end;
 end;
       begin
       for i := 0 to memo5.lines.Count - 1 do
         if memo5.Lines.Strings[i]=memo7.Lines.Strings[j] then
         memo8.Lines.Add(st);
         for j := 0 to memo7.Lines.Count - 1 do
           if memo7.Lines.Strings[j]=memo5.Lines.Strings[i] then
         memo8.Lines.Add(sa);
       end;
 end;

в итоге получается что он мне только 1 совподение выводит в мемо8. чего я опять тут накосячил?

[Человек_Борща]

Ну вы же сами сказали, что имена архивов находятся в XML, почему не читаете имена архивов оттуда?