uses graph, dos;

{$L EGA3FONT.OBJ}
procedure Ega3Font; external;

var gd, gm: integer;

begin
  SetIntVec($1F, @Ega3Font);
  gd := detect;
  InitGraph(gd, gm, '');
  OutTExtXY(260, 220, 'Что-то в dos-кодировке');
  ReadLn;
  CloseGraph;
end.

Вложения

RusFont.rar (52.5 Кб)

Тема на форуме.

fezilk24:

И так, в последнее время развелось очень много программ – фейков для вконтакта. Некоторые программы ищут музыку вконтакте, и дают возможность скачать её. Программам этим я не доверяю, и решил сделать свою, для себя. Разубеждать меня не надо =)

Вопрос: как получить ссылку на скачивание той или иной музыки?
Исходный код audio.php перерыл, ссылок не нашел, хорошо, видать, Дуров защитил =)

Может, кто поможет.. Я не прошу написать за меня код, прошу просто подсказки. Копирование из кеша неподойдет.

http://cs4586.vkontakte.ru/u2663363/audio/61bea91731fc.mp3
вот, надеюсь понятно?)) (правда запоздал немного)
вот моя старая функция(раньше то везде ссылок чистых не было)

function WB_AudioLinkMP3(sourse:string):string;
var s:string;
begin
 s:=sourse;
 if Pos('operate',s)=0 then exit;
 Delete(s,1,PosEx('(',s,Pos('operate',s)));
 Delete(s,1,Pos(',',s));
 sourse:='http://cs'+Copy(s,1,pos(',',s)-1);
 Delete(s,1,Pos(',',s));
 sourse:=sourse+'.vkontakte.ru/u'+Copy(s,1,pos(',',s)-1);
 Delete(s,1,Pos(',',s));
 sourse:=sourse+'/audio/'+Copy(s,2,pos(',',s)-3)+'.mp3';
 Result:=Sourse;
end;

правда он не очень оптимизирован

можно и лист бокс, раньше я когда то занимался этим(сейчас то вернусь в эту тему…но не раньше чем разберусь со своей библиотекой классов на С++/Delphi(правда С++ важнее в этом плане))
я юзал листбокс, а если парсить и далее этой кнопки(данные песни) то можно и в листвиев все запихать как угодно

Интересная тема на форуме. Советую присоединиться к обсуждению.

От ведущего рассылки.

Добрый вечер читатели. Сегодня выходит очередной 62 выпуск рассылки клуба программистов. В этом номере вы сможете прочитать обзор интересных тем с форума, и еще последнюю статью с третьего номера журнала ПРОграммист.

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

Для удовлетворения любопытства, создаю минимодель простейшего компилятора. Пока остановился на стадии синтаксического разбора(выполняется операция “сдвиг-свертка”), следующим шагом будет построение триад, однако забегая вперед задумался над вопросом, как создать исполняемый файл. Прошу вкратце объяснить, как создается exe-шник, или даже просто com-файл. Заранее благодарен за внимание

Интересная тема на форуме о низкоуровневом программировании.

Класс person содержит поля beg1 (как минимум)

person &person:perator=(person &z) //в левой и правой частях от оператора два объекта типа person
{
node1 *p, *pend, *pz;
if (&z == this) return *this;      //если правая и левая часть равны возвращаем левую часть
if (z.beg1==NULL) beg1=NULL;
else {p=new node1;
if (p==NULL) {cout<<"ERROR... Lack of Memory.\n"; //типа не удалось выделить память
getch();    //задерживаем экран чтобы пользователь прочитал ошибку
exit(-1);   //завершаем выполнение программы
}
p->d=z.beg1->d;
p->next=NULL;
beg1=p;
pend=p;
for (pz=z.beg1->next;pz!=NULL;pz=pz->next) //в этом цикле в p присваивается z.beg1
{p=new node1;
if (p==NULL) {cout<<"ERROR... Lack of Memory.\n";
getch();
exit(-1);
}
p->d=pz->d;   //присваиваем поле d
p->next=NULL; //на каждой итерации мы предполагаем что этот элемент последний
pend->next=p; //pend теперь не последний, делаем
pend=p;          //его таковым
}
}
return *this;    //возвращаем текущий объект
}

Тема на форуме.

Интересная тема на форуме о создании роботов. Со ссылками на интересные ресурсы, советами и размышлениями.

Советую принять участие.

Пример. Лежат исходники и готовая программа.

Вложения

WAVE.rar (36.0 Кб)

Тема на форуме.

Форумчанин Манжосов Денис представляет вашему вниманию вторую часть игры Fun World.
Задача: дойти до конца уровня, желательно собрав все шарики. Уровней 9(два тестовых-скоростных и 7 нормальных). Игра написана на собственном движке, вывод графики через Canvas, на форме нет ничего кроме таймера. Отличия от первой версии:
1) Динамичная структура карты. Уровни могут быть неограниченно большими.
2) Переделана система столкновений. Багов нет!
3) Добавление своих текстур в игру, модификация игры
4) “Плавающая” камера;
Ну это не всё, пунктов много, но все они не столь значительны…Версия можно сказать тестовая, так как есть новые версии игры, но в них нет уровней и пока что сыроватые относительно этой. Найти остальные версии можно здесь FunWorld2
В новых версиях вместо fmod.dll используется bass.dll, есть анимация, редактор переоформлен, доработка старой версии, чекпоинты… Новые версии создаются при поддержке Perfect-Light!
В-общем, я жду Вашего мнения об игре. Спасибо за внимание!

Вложения

FunWorld2.rar (1.18 Мб, 13 просмотров)

Как можно сравнить каждую букву в введённой пользователем строки символов на наличие цифр?

примерно так

if(!str.matches("^\\D*$")){
//содержит
}else{
//не содержит
}

Тема на форуме.

Столкнулся со следующей проблемой

так вот в 1 строке </li> не обрабатывается, т.е. див рисуется прямо в <li> а потом в конце автоматически создается </li>

И еще, если в реквесте в ИЕ есть переменные типа &not_redirect то в ие почемуто заменяется $not на какой то спец символ.

Решение было найдено быстро.

Все, решено – косяк в том что IE не позволяет никаких структур в <UL> кроме <LI> ну или по крайней мере <DIV>

Тема на форуме.