Нужно произвести корректное копирование, то есть по байтно. : Если файлы полностью идэнтичны и совпали, то можно копировать..а если хоть один символ отличается, то нет! Для примера файл текстовый.
стандартная апи-функция CopyFile заменяет файл, затирая все предыдущее. Жду помощи. Спасибо.

открываеш два TFileStream' a; сравниваеш их размеры -- если совпали -- идеш дальше; в цикле сверяеш каждый байт, если один не совпал -- выход...

это методом потока? я видел пример.

Код

Procedure FileCopy(Const SourceFileName, TargetFileName: String);  Var    S,T   : TFileStream;  Begin   S := TFileStream.Create(sourcefilename, fmOpenRead );   try    T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);    try      T.CopyFrom(S, S.Size ) ;      FileSetDate(T.Handle, FileGetDate(S.Handle));    finally     T.Free;    end;   finally    S.Free;   end;  end;

а какой функцией произвести сравнение?

пример -- не в тему, а сравнить простым =
т.е. читаеш из одного потока один символ, из другого один и сравнивай

да..все, я понял! Read до конца файла..и сравнение.Спасибо большое. А почему именно Стримом? Ведь можно обычными средствами тогда..как на Паскале еще

Потому что так быстрее и корректней.

У меня 10 кб файл минут 5 сравнивается. Хотя должно быть за секунду

кто тебе сказал? неоптимизированное чтение по байту... хотя 5мит тоже многовато...

Цитата(heskey @ 25.8.2005, 14:25)

Если файлы полностью идэнтичны и совпали, то можно копировать..а если хоть один символ отличается, то нет!

http://vingrad.ru/DELPHI-DLP-001012

Лучше читать по 512 байт , а потом сравнивать в памяти

Тогда уж сразу целиком в память глотать
Д а какая разница. В XP все равно упреждающее чтение на стримы работает.
Говоришь "читать байт", а у тебя уже полфайла закэшировано.

Цитата(Romikgy @ 26.8.2005, 09:52)

Лучше читать по 512 байт , а потом сравнивать в памяти

А это уже смотря с какой стороны посмотреть. Если предпологается, что одинаковых файлов много, то тогда лучше выбрать больший размер буфера. Если же эдентичных файлов будет мало, то буфер лучше уменшить. Почему? Все просто. Читаем допустим 16 байт, сравниваем и оп-па. Не одинаковые. Все, разница найдена. А так бы пришлось искать эту разницу читая 512 байт. А когда файлов тысячи? Время-деньги так сказать. Да и ресурсы занимаются. Так что как лучше решать кодеру, а не нам, исходя из того, где, кем, как и т.п. будет применятся его программа.

Цитата(Poseidon @ 26.8.2005, 17:55)

А это уже смотря с какой стороны посмотреть. Если предпологается, что одинаковых файлов много, то тогда лучше выбрать больший размер буфера. Если же эдентичных файлов будет мало, то буфер лучше уменшить. Почему? Все просто. Читаем допустим 16 байт, сравниваем и оп-па. Не одинаковые. Все, разница найдена. А так бы пришлось искать эту разницу читая 512 байт. А когда файлов тысячи? Время-деньги так сказать. Да и ресурсы занимаются. Так что как лучше решать кодеру, а не нам, исходя из того, где, кем, как и т.п. будет применятся его программа.

Смысл здеся в другом, при обращении к винту, считывается один или более секторов, а сектор и есть (как правило) 512 байт
То бишь даже при чтении 16 байт , считывается сектор = 512
Плюс есть еще и кеширование, но про него не знаю сколько он кидает в память не было придлога с ним сталкнится.