[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);

...

[Sagat]

вопрос в том
как сделать что бы сравнивала файлы по очереди и копировала те на пример которых время последнего изменения больше.
а если время одинаково то переходила к сл.

[Bargest]

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

Больше чего?
Допустим, есть 5 файлов. A,B,C,D,E. Их время изменения - 2 у.е., 3, 1, 5, 4 соответственно. Берем файл A. У файлов B, D, E время больше. Копируем их. Берем файл B. У файлов D,E время больше, копируем их. Берем C, у всех время больше, копируем все. Берем файл D, у E время больше, копируем его. Таким образом, будут скопированы все файлы, кроме того, у кого время наименьшее, более того - многие будут скопированы много раз. Сомневаюсь, что требуется именно это.
Что конкретно надо-то?

а если время одинаково то переходила к сл.

Что, прям совсем одинаковое? Вплоть до наносекунд? Удивлюсь, если найдешь много таких файлов (не синтетически сделанных всякой малварей для сокрытия в системе).

[Alegun]

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

...как сделать что бы сравнивала файлы по очереди и копировала те на пример которых время последнего изменения больше.
а если время одинаково то переходила к сл.

1:

Код:

//searchResult.Time {integer}

if DateFile < searchResult.Time then ...

2: (дата последнего изменения файла)

Код:

function GetFileDate(FileName: string): TDateTime;
var FHandle: Integer; 
begin 
FHandle:= FileOpen(FileName, 0); 
try 
Result:= FileDateToDateTime(FileGetDate(FHandle)); 
finally 
FileClose(FHandle); 
end;
end;

Последняя функция очень долго работает т.к. открывается каждый раз файл и если он занят другим потоком, это может привести к AV.

[icWasya]

Чтобы проверить FileDate, файл открывать не надо.

Код:

if FileAge(Edit1.Text+'\'+searchResult.Name) >  FileAge(Edit2.Text+'\'+searchResult.Name) then
 CopyFile(Pchar(Edit1.Text+'\'+searchResult.Name), Pchar(Edit2.Text+'\'+searchResult.Name),true)