Простенькая игруха, написанная для районной олимпиады, вышла лауреатом в краевой. Если не пойдет, пишите мне. Надо угадать последовательность фигур. После вашего ответа компьютер дает две подсказки: первая - количество фигур, присутсвующих в загаданной последовательности, вторая - угаданных полностью, т.е. те фигуры, которые стоят на своих местах.
Основные возможности: 1. Напоминать в определенное время. 2. Напомнить через определенное время. 3. Пикать через каждый час. 4. Выключить комп в нужное время 5. Часы на рабочем столе 6. и теде и тепе...
»»» Скачать: исходные текстыдемонстрационный EXE файлпосмотреть скриншот
Преобразование текста OEM у Ansi
Эта версия работает под любым Delphi. (Начиная с Delphi 2, это можно записать короче с использованием AnsiToOem и OemToAnsi.) Здесь все просто.
function ConvertAnsiToOem(const S : string) : string; { ConvertAnsiToOem translates a string into the OEM-defined character set } {$IFNDEF WIN32} var Source, Dest : array[0..255] of Char; {$ENDIF} begin {$IFDEF WIN32} SetLength(Result, Length(S)); if Length(Result) > 0 then AnsiToOem(PChar(S), PChar(Result)); {$ELSE} if Length(Result) > 0 then begin AnsiToOem(StrPCopy(Source, S), Dest); Result := StrPas(Dest); end; {$ENDIF} end; { ConvertAnsiToOem }
function ConvertOemToAnsi(const S : string) : string; { ConvertOemToAnsi translates
a string from the OEM-defined character set into either an ANSI or a wide-character string } {$IFNDEF WIN32} var Source, Dest : array[0..255] of Char; {$ENDIF} begin {$IFDEF WIN32} SetLength(Result, Length(S)); if Length(Result) > 0 then OemToAnsi(PChar(S), PChar(Result)); {$ELSE} if Length(Result) > 0 then begin OemToAnsi(StrPCopy(Source, S), Dest); Result := StrPas(Dest); end; {$ENDIF} end; { ConvertOemToAnsi }
Примеры использования Drag and Drop для различных визуальных компонентов
Перетаскивание информации с помощью мыши стало стандартом для программ, работающих в Windows. Часто это бывает удобно и позволяет добиться более быстрой работы. В данной статье я постарался показать максимальное количество примеров использования данной технологии при разработке приложений в среде Delphi.
Паскаль и Дельфи. Самоучитель
Данное пособие представляет собой курс по изучению популярного языка программирования — Паскаль. В нем последовательно излагаются основные принципы структурного и объектно-ориентированного программирования. Наиболее подробно рассматриваются интегрированные среды программирования — Турбо Паскаль и Дельфи. В каждой главе разбираются примеры рабочих программ. Для самопроверки усвоения теоретического материала вы можете воспользоваться вопросами, приведенными в конце каждой главы. Выполнение заданий по разработке приложений поможет сформировать прочные навыки программирования. Книга предназначена для учащихся и студентов общеобразовательных, высших и средних учебных заведений и благодаря наличию большого количества детально рассмотренных примеров, вопросов и заданий может быть использована для самообразования.
Автор: Попов В. Б.
Сертификация специалистов ∙ Как устроиться на высокооплачиваемую работу? Как получить прибавку к зарплате? Как завоевать уважение коллег? ∙ Пройти сертификацию и продемонстрировать свой профессионализм. Подробнее…
проект "Виртуальный город" Интерактивная карта для интернет xDSL клиентов или для пользователей "домовых" сетей, в которой каждый желающий может "застолбить" себе территорию и размещать на ней информацию (mp3,текст и т.д.) из ...
» Оценка сайта: 2
Хокку дня
Игрушечным шаром Упало светило -- Осколки блестят.
Афоризмы
Многие жалуются на свою внешность, и никто на мозги...
Фраза дня
Вечность торопит...
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Калифорнии (США) есть закон, гарантирующий жителям штата право загорать на солнце.
В Аризоне (США) считается преступлением отказать человеку в просьбе дать стакан воды. В этом же штате незамужним женщинам запрещается рыбачить в одиночку. Если женщина замужем, она может ходить на рыбалку одна только по воскресеньям.
И на закуску коротенький анекдот
- Доктоp, вы лечите боязнь откpытых пpостpанств? - Конечно. - А закpытых? - Естественно... - Видите ли, у моего сына и то, и дpугое.... - Аааа, думеpов мы не лечим...