yurikhan: (Default)

Терпеть ненавижу базы данных, слепленные без контроля ссылочной целостности, и конкретную псевдо-СУБД, в которой контроль ссылочной целостности отсутствует как класс.

Вычистил из базы данных файлового поисковика локалки записи о файлах, лежавших в каталогах, которые давно исчезли. До: 3071M данных, 3276M индексов. После: 90M данных, 96M индексов.

yurikhan: (Default)

(По мотивам обсуждения: hashcrc, FarMD5, MD5Arc)

procedure ProcessFile(fileName: string);
var
  f: file;
  buffer: array [0..32767] of Byte;
  bytesRead: Longint;
begin
  AssignFile(f, fileName);
  ResetFile(f, 1);
  try
    while not Eof(f) do
    begin
      BlockRead(f, buffer, SizeOf(buffer), bytesRead);
      // Do something with buffer
    end;
  finally
    CloseFile(f);
  end;
end;
Что не так на этой картинке? )

Profile

yurikhan: (Default)
Yuri Khan

May 2017

S M T W T F S
 123 456
78910 111213
14 151617181920
21 222324252627
28293031   

Links

Syndicate

RSS Atom

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated 2017-05-29 15:12
Powered by Dreamwidth Studios