[Sagat]

Подскажите пожалуйста
в чём ошибка в коде.
так как он прост копирует тупо всё и условие не смотрит

Код:

  if FindFirst(Edit1.text+'\*.*', faAnyFile, searchResult) = 0 then
repeat
if fileDate > -1 then
      if fileDate1 > -1 then
                 if filedate >filedate1
                 then
 CopyFile(Pchar(Edit1.Text+'\'+searchResult.Name), Pchar(Edit2.Text+'\'+searchResult.Name),true)

[Bargest]

И что такое fileDate, fileDate1? Где они инициализируются?

[Sagat]

весь код

Код:

Var
fileDate: Integer;
      fileDate1   : Integer;

         searchResult : TSearchRec;
   frombuf, tobuf: Array [0..128] of Char;
  fileName   : string;
  SR : TSearchRec;

 S,a:String ;

begin


   if FindFirst(Edit1.text+'\*.*', faAnyFile, searchResult) = 0 then
repeat
if fileDate > -1 then
      if fileDate1 > -1 then
                 if filedate >filedate1
                 then
 CopyFile(Pchar(Edit1.Text+'\'+searchResult.Name), Pchar(Edit2.Text+'\'+searchResult.Name),true)
 

        
                
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);

lmikle: Последнее китайское предупреждение. Быстро учимся оформлять посты (использовать правильные теги)!

[angvelem]

Если это весь код то:
Если переменные fileDate, fileDate1 глобальные - в них при запуске программы 0, если локальные - мусор. С какого перепугу сравнивается с -1?... Над этим и задумайся.

[Sagat]

я давно уже над этим кодом сижу сам уже запутался.
но только вот мне всё равно нужна помощь.
Подскажите кто-нибудь ка сделать чтобы соблюдалось условие.

[Alegun]

Сообщение от Sagat

...ка сделать чтобы соблюдалось условие.

Оно и соблюдается

Код:

...

if (FileDate > -1) and (FileDate1 > -1) and (FileDate > FileDate1) then
 CopyFile(Pchar(Edit1.Text + '\'+SearchResult.Name),
 Pchar(Edit2.Text + '\' + SearchResult.Name), true);

...