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

Цель:
Хранить некую информацию в БД. Скорость записи/чтения на диск — в приоритете. Информация древовидная, глубина неизвестна.

Требование:
Возможности шифрования приветствуются.
Не требует установки пользователю(кинул в папку с ПО и все)
Запросы SQL

ОС: Windows

Язык программирования: не имеет значения (читать всё…)

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

я загружаю в ListView список файлов и деректорий, у меня загружаются и скрытые и нет, а как сделать чтобы загружались все кроме скрытых? (читать всё…)

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

Есть 4 числа: 1, 2, 3, 4. Нужно узнать все возможные комбинации из этих 4-х чисел в числе, состоящем из N знаков.

Например если число пятизначное, то чтобы узнать все комбинации, нужно сделать пять вложенных циклов от 1 до 4. А если число знаков в числе неизвестно заранее и оно может изменяться от 1 и до бесконечности (грубо говоря). Как в таком случае вычислить все комбинации?

В результате получается 4 в степени N возможных вариантов, где N — число знаков в числе. (читать всё…)

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

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 (читать всё…)

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

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

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