Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 13.12.03 11:56

Кое-что из нашей кладовки   |x|
  • Logic 3D kelegorm kelegorm@rambler.ru   (13.12.03 05:09)
    Простенькая игруха, написанная для районной олимпиады, вышла лауреатом в краевой. Если не пойдет, пишите мне.
    Надо угадать последовательность фигур. После вашего ответа компьютер дает две подсказки: первая - количество фигур, присутсвующих в загаданной последовательности, вторая - угаданных полностью, т.е. те фигуры, которые стоят на своих местах.

    Внимание! Учет очков на 30% учитывается от времени. После выигрыша компьютер предоставляет полный отчет о игре.
    »»» Скачать: исходные тексты (399кб) демонстрационный EXE файл (284кб) посмотреть скриншот
  • Будильник v 1.3 i-s-v i-s-v@list.ru   (09.12.03 22:59)
    Основные возможности:
    1. Напоминать в определенное время.
    2. Напомнить через определенное время.
    3. Пикать через каждый час.
    4. Выключить комп в нужное время
    5. Часы на рабочем столе
    6. и теде и тепе...
    »»» Скачать: исходные тексты демонстрационный EXE файл посмотреть скриншот
Лучшее из нашего FAQ   |x|
Преобразование текста 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 }

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • В MSSQL
    В MSSQL создаю автоинкрементное поле указав его как Identity Column, при мануальном заполнении счетчик отрабатывается, ...
  • Странная зависимость между IE и диалогом открытия файла
    Ребята! Вот такая проблема! Какая может быть зависимость между WebBrowser (или IE) и стандартным D7 диалогом открытия ...
  • Как записать/читать физический сектор на диске под Win98/NT/2000
    Как записать/читать физический сектор на диске под Win98/NT/2000? Я знаю, что это делается с помощью функций WriteFile, ...
  • Насчёт звука
    Я слышал, что если читать звуковые данные, поступающие в звуковой буфер, то это будет амплитудой этих самых данных в 8 ...
  • Новая версия
    Вот новая версия моей игрухи: http://www.alecsander4.narod.ru/v0.9.2beta.exe
  • Шифрование в Delphi
    Существуют ли в Delphi готовые компоненты или функции для шифровки-расшифровки текста каким нибудь серьезной системой(...
  • Проблемы с COM
    Помогите, где мне найти подробное описание программирования данного порта. Хочу спаять что-нибудь и заставить работать ...
У нас большой выбор статей   |x|
Примеры использования Drag and Drop для различных визуальных компонентов
Перетаскивание информации с помощью мыши стало стандартом для программ, работающих в Windows. Часто это бывает удобно и позволяет добиться более быстрой работы. В данной статье я постарался показать максимальное количество примеров использования данной технологии при разработке приложений в среде Delphi.
Новинки книжного рынка   |x|
Паскаль и Дельфи. Самоучитель
Данное пособие представляет собой курс по изучению популярного языка программирования — Паскаль. В нем последовательно излагаются основные принципы структурного и объектно-ориентированного программирования. Наиболее подробно рассматриваются интегрированные среды программирования — Турбо Паскаль и Дельфи. В каждой главе разбираются примеры рабочих программ. Для самопроверки усвоения теоретического материала вы можете воспользоваться вопросами, приведенными в конце каждой главы. Выполнение заданий по разработке приложений поможет сформировать прочные навыки программирования. Книга предназначена для учащихся и студентов общеобразовательных, высших и средних учебных заведений и благодаря наличию большого количества детально рассмотренных примеров, вопросов и заданий может быть использована для самообразования.
Автор: Попов В. Б.
Наши друзья   |x|
Сертификация специалистов
∙ Как устроиться на высокооплачиваемую работу?
  Как получить прибавку к зарплате?
  Как завоевать уважение коллег?
∙ Пройти сертификацию и продемонстрировать свой профессионализм. Подробнее…
Другие сайты о DELPHI   |x|
проект "Виртуальный город"
Интерактивная карта для интернет xDSL клиентов или для пользователей "домовых" сетей, в которой каждый желающий может "застолбить" себе территорию и размещать на ней информацию (mp3,текст и т.д.) из ...

» Оценка сайта: 2
Опрос населения :)
Как вы нашли наш сайт?
»»» Поисковая система
»»» Рассылка
»»» Ссылка с другого сайта
»»» Через каталог сайтов
»»» Друг посоветовал
»»» Случайно
Для души

Хокку дня
Игрушечным шаром
Упало светило --
Осколки блестят.

Афоризмы
Многие жалуются на свою внешность, и никто на мозги...

Фраза дня
Вечность торопит...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Калифорнии (США) есть закон, гарантирующий жителям штата право загорать на солнце.
В Аризоне (США) считается преступлением отказать человеку в просьбе дать стакан воды. В этом же штате незамужним женщинам запрещается рыбачить в одиночку. Если женщина замужем, она может ходить на рыбалку одна только по воскресеньям.

И на закуску коротенький анекдот
- Доктоp, вы лечите боязнь откpытых пpостpанств?
- Конечно.
- А закpытых?
- Естественно...
- Видите ли, у моего сына и то, и дpугое....
- Аааа, думеpов мы не лечим...

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=789106


На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное