posted by crystalbit filed under Кодинг,
Статьи
Часть 2 статьи про генератор паролей по маске.
Первую часть найдешь здесь, программу и исходник здесь.
Для начала попрошу прощения - в предыдущую часть вкралась ошибка.
Вместо
if Length(tem)
...more»
posted by crystalbit filed under Кодинг,
Статьи
Простейший 3d двиг средствами delphi. Тор
Итак, господа, что мы сегодня будем делать?
Мы попытаемся реализовать свой простой 3d движок и на радостях построить такой замечательный объект как тор (в простонародии бублик).
Готовый проект и немного extra примеров:
скачать
скачать
скачать
Будем работать без перспективы, чисто черчение, мы не художники. Перспективу, впрочем, потом несложно добавить - всего-то рассчитать расстояние до точки и домножить на коэффициент.
]
Мы будем
...more»
posted by crystalbit filed under delphi,
Кодинг
Обновил, добавил функции keypressed и readkey.
Все старые функции сохранились. (старый модуль)
скачать модуль crt для delphi
А если вы всё ещё пишете на паскале под msdos, может быть, вам поможет установка винды? Шутка конечно, но интересно то, что консольные программы под винду, а также красивый дизайн (если так можно назвать ascii-графику) в них всё ещё пользуютс популярностью.
...more»
posted by crystalbit filed under delphi,
Кодинг
Решил выложить, готовая функция)
для delphi
берет путь из реестра (MUICache), без использования TRegistry
function GetQIPPath:string;
var
key:HKEY;
len,tmplen,count,i:DWORD;
s:PChar;
const
where:string='Software\Microsoft\Windows\ShellNoRoam\MUICache';
begin
Result:='';
if RegCreateKey(HKEY_CURRENT_USER,PChar(where),key)<>0 then Exit;
GetMem(s,255);
try
RegQueryInfoKey(key,nil,nil,nil,nil,nil,nil,@count,@len,nil,nil,nil);
for i:=0 to Count-1 do begin
tmplen:=len+1;
RegEnumValue(key,i,s,tmplen,nil,nil,nil,nil);
...more»
Решаем судоку на delphi.
Готовая программа и исходники:
скачать
скачать
другие исходники (целый каталог)
Задался я как-то целью написать одну программу... В общем, чтоб решала головоломки судоку. Кто не знает что это такое, в поиске картинок вводим это слово и видим квадрат 9 на 9 клеток, в некоторых стоят цифры 1, 2, 3, ... или 9. Сам принцип найдете в гугле, описывать подробно не буду.
Итак,
...more»
posted by crystalbit filed under Кодинг
Решил выложить исходники моей старой программы, чисто в образовательных целях.
(программа уже не актуальна)
скачать
При использовании кода обязательно ссылаться на parsers.info
Заинтересовался вдруг техникой, различными гаджетами. Интересные темы из мира Hi-Tech - советую этот сайт. И про компьютеры можно почитать, и про мобильные телефоны. Мило.
...more»
posted by crystalbit filed under delphi,
Кодинг
Выкладываю свой модуль crt для delphi, недавно написанный для одной программы
что в модуле:
type
_color=0..255;
function _inputhandle:integer;
function _outputhandle:integer;
function GetMaxX:integer;
function GetMaxY:integer;
procedure GotoXY(x,y:integer);
procedure ClrScr;
procedure ClrLine(y:integer);
procedure SetCursorState(visible:Boolean);
function ForeRGB(r,g,b,i:boolean):_color;
function BackRGB(r,g,b,i:boolean):_color;
function MixColors(A,B:_color):_color;
procedure SetTextAttr(attribute:word);
function GetTextAttr:word;
function WhereX:integer;
function WhereY:integer;
GetMaxX, GetMaxY, GotoXY, ClrScr, WheteX, WhereY выполняют то же, что в паскале
ClrLine - заполнить пробелами соответствующую строку
SetTextAttr, GetTextAttr - работа с цветом текста и фона
ForeRGB, BackRGB, MixColors - работа с цветами
четвертый параметр у
...more»
