procedure ZeroFillDelete(FileName: string);

var

fs: TFileStream;

i:  integer;

procedure RandomWrite;

var b:  byte;

begin

repeat

b := Random(256); fs.Write(b, 1);

until fs.Position + 1 >= fs.Size;

end;

procedure WritePattern(pattern: byte);

const patt: array[5..31] of dword = ($555555, $AAAAAA, $924924, $492492,

$249249, 0, $111111, $222222, $333333, $444444, $555555, $666666,

$777777, $888888, $999999, $AAAAAA, $BBBBBB, $CCCCCC, $DDDDDD,

$EEEEEE, $FFFFFF, $924924, $492492, $249249, $6DB6DB, $B6DB6D, $DB6DB6);

var d: dword;

begin

d := patt[pattern] shl 8;

repeat fs.Write(d, 3); until fs.Position + 3 >= fs.Size;

end;

begin

if not FileExists(FileName) then Exit;

for i := 1 to 35 do

try

fs := TFileStream.Create(FileName, fmOpenWrite);

try

if (i < 5) or (i > 31) then RandomWrite

else WritePattern(i);

finally

fs.Free;

end;

except Exit; end;

DeleteFile(FileName);

end;

тема на форуме

doktor255

var f: TextFile;

i, k: integer;

begin

  AssignFile(f,'c:\file.txt');

  Rewrite(f);

  for i:=1 to 15 do begin

    k := Random(5)-2;

    WriteLn(f, IntToStr(k));

  end;

  CloseFile(f);

тема на форуме

(читать всё…)

Прочитать файл в строку(кодировка UTF-8), сделать замену подстроки и снова записать в файл. Проблема в том, что у меня на каком-то этапе меняется кодировка и я не знаю как это исправить. (читать всё…)

Проводил исследования скорости записи файлов, с целью установления зависимости времени записи от количество файлов. Для работы с файлами использовал чистый WinAPI. Исследование проводилось на файлах разных размеров, типов и расширений. Хочу поделиться на мой взгляд интересными результатами исследования на примере одного файла (с другими файлами результаты идентичны в физическом смысле): (читать всё…)

(читать всё…)

Как в калькуляторе сохранить в файл все примеры которые решал? (читать всё…)

Так вот вопрос, как сделать что бы при выключении программы, прога сохраняла этот параметр а при включении делала его таким каким он был до выключения (в этом случае сделать checkBox отмеченным)? (читать всё…)

хочу что бы для каждого из значений из формы то есть (namehost, starthost, endhost) получили свои переменные и дальше когда переменные получат значения я с помощью этих переменных мог создавать файлы извлекая имя для файла вот от сюда $namehost (читать всё…)

Имеется текстовый файл со строками. Мне нужно строки из TStringList сохранить в конец этого файла, но при SaveToFile данные в файле стираются. Как быть? (читать всё…)