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;

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

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

ак сделать, так чтобы при установке ограничения времени,к примеру на 30 сек,через 30 сек вышло Showmessage ВРЕМЯ ВЫШЛО! потом и так далее для 1 мин,2 мин,5 мин для кнопки GO (читать всё…)

scalpel

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

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

Использую XE5, столкнулся с проблемой. При создании стандартных(fm) контролов в fmx-приложении в runtime, все работает. Но когда создаю свой класс, точно такой-же как TPanel, и пытаюсь создать контрол в runtime, то он не отображается. Что изменилось в механизме создания контролов в fmx? Возможно ли создавать свои контролы на основе TStyledControl ? (читать всё…)

5cek

Привет всем, вообщем у меня проблема проблем, в моей базе PostgreSQL есть три таблицы с колонками типа money, и именно эти три таблицы не восстанавливаются из резервной копии, из за этой колонки с типом money, что делать ума не приложу, пробывал разные бэкапы и восстановления, не вкакую, остальные таблицы восстанавливаются, если в записи колонка будет null то эта строка восстановиться остальные со значениями не восстанавливаются, гугл молчит, кто сталкивался с подобным?

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

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

ts-alan

я не сильно понимаю зачем эти 2 метода?Ну сравню я объекты через equals, зачем мне сравнивать через gethashcode? Какое преимущество он дает?

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

В общем, у меня есть такое объявление: procedure SetIdentity(var m : TMatrix3 );

Но у меня есть указатель на объект TMatrix3 (pm: ^TMatrix3 ). И мне нужно как-то по ссылке передать в SetIdentity() разыменованный объект pm. (читать всё…)

Praud

Всем привет, расскажите пожалуйста чем отличается использование классов в CSS от id. В моем понимании это тоже самое. Пишешь селектор, его id и описываешь свойства, в классах тоже самое, только пишешь вместо ID имя класса.

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