Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
22.05.2008, 15:16
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
посмотри здесь http://www.pascal.hop.ru/cgi-bin/index.pl?0,7
Код:
массив
var
mas: array [0..255] of Char; // массив из 256 символов
Обращение производится по индексу для одномерного массива
mas[i]; // где i допустим параметр цикла
Для двумерного обращение
mas[i, j]; // i, j параметры цикла
Пример:
var
i, j: Integer;
max: Integer;
begin
for i:=0 to 255 do
for j:=0 to 255 do
begin
max:=mas[i,j];
if mas[i, j] > max then max:=mas[i, j];
end;
Используется везде, где необходимо использовать
операции со строками, в мат. задачах, играх(шашки, шахматы, судоку...).
Допустим в патчах, где необходимо пропатчить огромное кол-во данных, используется массив опкодов
Последний раз редактировалось 0verbreaK; 22.05.2008 в 15:19..
|
|
|
24.05.2008, 19:19
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
найдется добрый человек который подскажит код наблюдения за реестром, включая в какую ветку, какой ключ, что с ним(и) делают (создаю, изменяют, удаляют), и значение...
Зарание спасибо  |
|
|
|
24.05.2008, 19:56
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 413
Провел на форуме:
1301036
Репутация:
1334
|
|
Пpовеpить pеестp
Код:
with TRegistry.create do begin
Rootkey := HKEY_LOCAL_MACHINE;
OpenKey('SOFTWARE\BORLAND\DATABASE ENGINE', false);
CFGFile := ReadString('CONFIGFILE01');
Free;
end;
|
|
|
|
24.05.2008, 20:38
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
cash$$$ если ето ты мне ответил то ты не правильно понял вопрос.... я имею ввиду не одно значение а наблючение за всем реестром..
|
|
|
|
24.05.2008, 20:55
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Сообщение от KIR@PRO
cash$$$ если ето ты мне ответил то ты не правильно понял вопрос.... я имею ввиду не одно значение а наблючение за всем реестром..
RegMon монитор? Есть его исходники
|
|
|
|
24.05.2008, 22:46
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
0verbreaK буду благодарен если дашь ссылочку или пришлешь на мыло...
|
|
|
|
24.05.2008, 23:34
|
|
Новичок
Регистрация: 12.05.2008
Сообщений: 19
Провел на форуме:
28051
Репутация:
2
|
|
шрифт в ресурсе
ребята! подскажите, как бы мне сделать так, чтобы моя программа использовала шрифт, который я "зашью" в ресурс? мне не нужно при этом его выгружать и куда-то записывать, а просто использовать.. например, для текста в поле ввода - один шрифт, для текста на "кэпшнах" - другой шрифт..
|
|
|
|
25.05.2008, 03:04
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 413
Провел на форуме:
1301036
Репутация:
1334
|
|
Сообщение от Nick_Rimer
ребята! подскажите, как бы мне сделать так, чтобы моя программа использовала шрифт, который я "зашью" в ресурс? мне не нужно при этом его выгружать и куда-то записывать, а просто использовать.. например, для текста в поле ввода - один шрифт, для текста на "кэпшнах" - другой шрифт..
Используй текстовый редактор, создай *.rc файл, описывающий шрифт:
Код:
MY_FONT ANYOL1 "Bauhs93.ttf"
Первые два параметра могут быть любыми. Они будут использоваться в программе позже.
Затем для создания *.res файла используйте компилятор командной строки BRCC32.EXE, поставляемый с Delphi. Если ваш файл на этапе 1 был назван MyFont.rc, командная строка в сеансе DOS должна выглядеть так: Программа добавит в компилируемый файл созданный ресурс .rc и создаст файл с тем же именем, за исключением расширения, которое будет .res: MyFont.res
В программе добавь директиву компилятора, чтобы включить созданный файл: Правильным будет разместить его в секции реализации после строчки {$R *.DFM}.
Добавь процедуру создания файла из ресурса, делающим шрифт доступным для использования. Пример:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('Bauhs93.ttf');
Res.Free;
AddFontResource(PChar('Bauhs93.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
Теперь можно использовать данный шрифт в своем приложении:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Name := 'Bauhaus 93';
end;
Установленный шрифт может быть удален программным путем, естественно, в случае, когда он ничем не используется:
Код:
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar("Bauhs93.ttf"))
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
|
|
|
|
25.05.2008, 12:53
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Сообщение от KIR@PRO
0verbreaK буду благодарен если дашь ссылочку или пришлешь на мыло...
http://wasm.ru/tools/21/sysint.zip
Regmon/Filemon by Mark Russinovich
|
|
|
|
25.05.2008, 17:28
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
Провел на форуме:
1494768
Репутация:
272
|
|
Ребят, помогите разобраться с программкой, некоторые части "тела" не понятны, может кто объяснит, вот сама программа:
Код:
program NestLoop;
var i, j: integer;
begin
writeln('Циклы':6,'I':10,'J':3);
writeln('-----------------------');
for i:=1 to 4 do
begin {Начало внешнего цикла}
writeln('Внешний' :8,I:8);
for j:=1 to i do
writeln('Внутренний' :13,I:3,J:3);
end; {Конец внешнего цикла}
end.
Непонятны части во эти:
*1
Код:
writeln('Внешний' :8,I:8);
*2
Код:
writeln('Внутренний' :13,I:3,J:3);
То что выводит на экран, это ясно, непонятно только то, откуда вот эти цифри, в первом случае эти- 8,I:8, во втором эти- 13,I:3,J:3, в чем их фишка, ведь на экране там и близко нет их, а в учебнике не описано. |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
